unnecessary var

wpbonelli · Jan 24, 2025 · 95fdfa3 · 95fdfa3
1 parent d80e5e5
commit 95fdfa3
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Utilities/GridFileReader.f90 b/src/Utilities/GridFileReader.f90
@@ -148,15 +148,14 @@ subroutine read_header_body(this)
     character(len=10) :: key, dtype
     real(DP) :: rval
     integer(I4B) :: i, lloc, istart, istop, ival
-    integer(I4B) :: nvars, narrs, ndim, dim, ishp
+    integer(I4B) :: nvars, ndim, dim, ishp
     integer(I4B), allocatable :: shp(:)
 
     allocate (this%keys(this%ntxt))
     allocate (character(len=this%lentxt*this%ntxt) :: body)
     allocate (character(len=this%lentxt) :: line)
 
     nvars = 0
-    narrs = 0
     read (this%inunit) body
     do i = 1, this%lentxt * this%ntxt, this%lentxt
       line = body(i:i + this%lentxt - 1)