Fixed bug in cdfio

jvegreg · Mar 31, 2017 · 0e214e2 · 0e214e2
1 parent 7cf716c
commit 0e214e2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/cdfio.F90 b/src/cdfio.F90
@@ -3015,7 +3015,7 @@ FUNCTION GetNcFile (cd_file)
     CHARACTER(LEN=*), INTENT(in) :: cd_file
     TYPE(ncfile)                 :: GetNcFile
 
-    INTEGER(KIND=4) :: jvar                      ! loop index
+    INTEGER(KIND=4) :: jvar, jdim                      ! loop index
     INTEGER(KIND=4) :: ierr, idx, idy, idz, idt, idb   ! error status and dimids
     !!----------------------------------------------------------------------
     GetNcFile%c_fnam = cd_file