From 64a08b1ef7c2d951d8a74c038bf8216706f1b24f Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Thu, 13 Apr 2017 21:58:50 -0300 Subject: [PATCH] INTERPOLATIONS: Fix compilation when NDIMS == 3. Signed-off-by: Grzegorz Kowal --- src/interpolations.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/interpolations.F90 b/src/interpolations.F90 index 80fa8c1..26e6bd3 100644 --- a/src/interpolations.F90 +++ b/src/interpolations.F90 @@ -1217,8 +1217,8 @@ module interpolations end if #if NDIMS == 3 - dql(3) = qi(i,j,k ,1,3) - q(i,j,k)) - dqr(3) = qi(i,j,km1,2,3) - q(i,j,k)) + dql(3) = qi(i,j,k ,1,3) - q(i,j,k) + dqr(3) = qi(i,j,km1,2,3) - q(i,j,k) if (max(abs(dql(3)), abs(dqr(3))) > abs(dq(3))) then qi(i,j,k ,1,3) = q(i,j,k) + dq(3) qi(i,j,km1,2,3) = q(i,j,k) - dq(3)