From 62d9a6f97b79a3bc2e12e8d154cbe8d545cbe910 Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Fri, 25 Dec 2020 11:29:51 -0300 Subject: [PATCH] INTEGRALS: Fix editting error. Signed-off-by: Grzegorz Kowal --- sources/integrals.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sources/integrals.F90 b/sources/integrals.F90 index 5a99fbf..e3d2227 100644 --- a/sources/integrals.F90 +++ b/sources/integrals.F90 @@ -743,7 +743,7 @@ module integrals tmp(:,1,:) = 0.5d+00 * (pdata%q(iby,nbu:neu,nb ,nb:ne) & - pdata%q(iby,nbl:nel,nb ,nb:ne)) / dh(1) & - (pdata%q(ibx,nb :ne ,nb ,nb:ne) & - - pdata%quibx,nb :ne ,nbl,nb:ne)) / dh(2) + - pdata%q(ibx,nb :ne ,nbl,nb:ne)) / dh(2) inarr(15) = inarr(15) - resistivity * sum(sign(tmp(:,1,:), & pdata%q(ibx,nb:ne,nb ,nb:ne))) * dxz