diff --git a/src/fourier_mod.F90 b/src/fourier_mod.F90 index 2634028d5e32c0ded58286e458cd65b4d41162f0..ec5744e0866e3f648b0c0da6fba17fd7c0c48f3c 100644 --- a/src/fourier_mod.F90 +++ b/src/fourier_mod.F90 @@ -84,8 +84,8 @@ MODULE fourier do ikr = ikrs, ikre do ikz = ikzs, ikze - cmpx_data_f(ikz,ikr-local_nkr_offset) = F_2D(ikr,ikz) - cmpx_data_g(ikz,ikr-local_nkr_offset) = G_2D(ikr,ikz) + cmpx_data_f(ikz,ikr-local_nkr_offset) = F_2D(ikr,ikz)*AA_r(ikr)*AA_z(ikz) + cmpx_data_g(ikz,ikr-local_nkr_offset) = G_2D(ikr,ikz)*AA_r(ikr)*AA_z(ikz) end do end do