From 5cab932334c0ecd671aa6880ea859cd3084d1ab2 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Thu, 12 Jan 2023 17:46:18 +0100
Subject: [PATCH] small logical writing
---
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 1c769cae..5a29eda0 100644
--- a/src/numerics_mod.F90
+++ b/src/numerics_mod.F90
@@ -158,7 +158,7 @@ SUBROUTINE evaluate_poisson_op
ELSE ! Adiabatic model
pol_e = qe2_taue - 1._dp
ENDIF
- inv_poisson_op(iky, ikx, iz) = 1._dp/(qe2_taue + qi2_taui - pol_i - pol_e)
+ inv_poisson_op(iky, ikx, iz) = 1._dp/(qi2_taui - pol_i + qe2_taue - pol_e)
inv_pol_ion (iky, ikx, iz) = 1._dp/(qi2_taui - pol_i)
ENDIF
END DO zloop
--
GitLab