declare variable that should be integer

clawpack · Apr 23, 2022 · 4de31f7 · 4de31f7
1 parent c5549fe
commit 4de31f7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/2d/shallow/restrt.f b/src/2d/shallow/restrt.f
@@ -15,7 +15,7 @@ subroutine restrt(nsteps,time,nvar,naux)
       dimension intrtx(maxlv),intrty(maxlv),intrtt(maxlv)
       type(fgrid), pointer :: fg
 
-      integer :: num_gauges_previous, i, ii
+      integer :: num_gauges_previous, i, ii, previous_gauge_num
 c
 c :::::::::::::::::::::::::::: RESTRT ::::::::::::::::::::::::::::::::
 c read back in the check point files written by subr. check.