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
 !