From 17395086fbe559c2bbb23fab3568ee53c7619dd9 Mon Sep 17 00:00:00 2001
From: Grzegorz Kowal <grzegorz@amuncode.org>
Date: Sat, 15 Aug 2020 01:27:08 -0300
Subject: [PATCH] REFINEMENT: Remove unused variables for 2D case.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
---
 sources/refinement.F90 | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/sources/refinement.F90 b/sources/refinement.F90
index aa46166..64bb3ac 100644
--- a/sources/refinement.F90
+++ b/sources/refinement.F90
@@ -502,8 +502,14 @@ module refinement
 !
     integer      :: i, im1, ip1
     integer      :: j, jm1, jp1
-    integer      :: k = 1, km1, kp1
-    real(kind=8) :: fl, fr, fc, fx, fy, fz
+    integer      :: k = 1
+#if NDIMS == 3
+    integer      :: km1, kp1
+#endif /* NDIMS == 3 */
+    real(kind=8) :: fl, fr, fc, fx, fy
+#if NDIMS == 3
+    real(kind=8) :: fz
+#endif /* NDIMS == 3 */
 
 ! local parameters
 !