diff --git a/sources/user_problem.F90 b/sources/user_problem.F90
index af1a47b..ba3558d 100644
--- a/sources/user_problem.F90
+++ b/sources/user_problem.F90
@@ -226,15 +226,11 @@ module user_problem
 
 ! local variables
 !
-    integer :: i, j, k = 1
+    integer :: j, k = 1
 
 ! local arrays
 !
     real(kind=8), dimension(nv,nn) :: q, u
-    real(kind=8), dimension(nn)    :: x, y
-#if NDIMS == 3
-    real(kind=8), dimension(nn)    :: z
-#endif /* NDIMS == 3 */
 !
 !-------------------------------------------------------------------------------
 !