From 036a887f39192d82b75c4e5cce36248b5e9ee31e Mon Sep 17 00:00:00 2001
From: Grzegorz Kowal <grzegorz@amuncode.org>
Date: Thu, 6 Aug 2020 19:00:48 -0300
Subject: [PATCH] USER_PROBLEM: Remove unused variables.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
---
 sources/user_problem.F90 | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

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 */
 !
 !-------------------------------------------------------------------------------
 !