From df1b1586f5bbb889ee61bb0efb4e6929ad4584d9 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Mon, 20 Jun 2022 11:06:45 +0200
Subject: [PATCH] typo ghosts
---
src/numerics_mod.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/numerics_mod.F90 b/src/numerics_mod.F90
index e019167a..833c4f68 100644
--- a/src/numerics_mod.F90
+++ b/src/numerics_mod.F90
@@ -90,7 +90,7 @@ HF_phi_correction_operator(ikys:ikye,ikxs:ikxe,izs:ize) = &
2._dp * Kernel_i(1,ikys:ikye,ikxs:ikxe,izs:ize,0) &
-1._dp * Kernel_i(2,ikys:ikye,ikxs:ikxe,izs:ize,0)
-DO ij = ijgs_i, ijge_i
+DO ij = ijs_i, ije_i
j_int = jarray_i(ij)
j_dp = REAL(j_int,dp)
HF_phi_correction_operator(ikys:ikye,ikxs:ikxe,izs:ize) = HF_phi_correction_operator(ikys:ikye,ikxs:ikxe,izs:ize) &
--
GitLab