From ce7182dd6d313c613e7d3072f8700b412da3bd7b Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sat, 30 Dec 2023 00:46:18 +0100
Subject: [PATCH] unused variables

---
 src/mesh/DAMASK_mesh.f90 | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/src/mesh/DAMASK_mesh.f90 b/src/mesh/DAMASK_mesh.f90
index 24a30709f..af65f334f 100644
--- a/src/mesh/DAMASK_mesh.f90
+++ b/src/mesh/DAMASK_mesh.f90
@@ -45,13 +45,10 @@ program DAMASK_mesh
     stagIterate
   integer :: &
     l, &
-    i, &
     m, &
     errorID, &
     cutBackLevel = 0, &                                                                             !< cut back level \f$ t = \frac{t_{inc}}{2^l} \f$
     stepFraction = 0, &                                                                             !< fraction of current time interval
-    currentLoadcase = 0, &                                                                          !< current load case
-    currentFace = 0, &
     inc, &                                                                                          !< current increment in current load case
     totalIncsCounter = 0, &                                                                         !< total # of increments
     statUnit = 0, &                                                                                 !< file unit for statistics output