diff --git a/src/cdfio.F90 b/src/cdfio.F90
index 95c64f9..6e12fc9 100644
--- 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