From 0e214e2e467c1e81e5ac4cec5608c287110601a1 Mon Sep 17 00:00:00 2001
From: Javier Vegas-Regidor <javier.vegas@bsc.es>
Date: Fri, 31 Mar 2017 12:40:06 +0200
Subject: [PATCH] Fixed bug in cdfio

---
 src/cdfio.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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