unused variable

Signed-off-by: Steven Hahn <hahnse@ornl.gov>
ORNL-Fusion · Apr 25, 2024 · 867dc76 · 867dc76
1 parent 10e95af
commit 867dc76
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/korc_ppusher.f90 b/src/korc_ppusher.f90
@@ -3189,7 +3189,7 @@ subroutine advance_FOinterp_vars(tt,a,q_cache,m_cache,params,X_X,X_Y,X_Z, &
 
     REAL(rp),DIMENSION(params%pchunk) :: ne,Te,Zeff
 
-    INTEGER                                      :: cc,dd,pchunk
+    INTEGER                                      :: cc,pchunk
     !! Chunk iterator.
 
     INTEGER(is) ,DIMENSION(params%pchunk),intent(inout)                   :: flagCon,flagCol
@@ -3579,7 +3579,7 @@ subroutine advance_FOfio_vars(tt,a,q_cache,m_cache,params,X_X,X_Y,X_Z, &
 
     REAL(rp),DIMENSION(params%pchunk) :: ne,Te,Zeff
 
-    INTEGER                                      :: cc,dd,pchunk
+    INTEGER                                      :: cc,pchunk
     !! Chunk iterator.
 
     INTEGER(is) ,DIMENSION(params%pchunk),intent(inout)                   :: flagCon,flagCol