From c3598dd51b12c48f6a62a1bc9d79530bbd23d31d Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Mon, 11 Jan 2021 10:33:27 +0100
Subject: [PATCH] AA modification in Convolution_2D (unused)
---
src/fourier_mod.F90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/fourier_mod.F90 b/src/fourier_mod.F90
index 2634028d..ec5744e0 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
--
GitLab