Small modification in cdfchgrid to allow files without depth dimension

* in this case force the k-loop to done once
meom-group · Nov 10, 2016 · 2d81d8b · 2d81d8b
1 parent c1659fb
commit 2d81d8b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/cdfchgrid.f90 b/src/cdfchgrid.f90
@@ -206,7 +206,7 @@ PROGRAM cdfchgrid
 
   PRINT *,' Working with ', TRIM(cv_in), npk
   DO jt = 1, npt
-     DO jk = 1, npk
+     DO jk = 1, npkk
         v2d(1:npiglo,1:npjglo) = getvar(cf_in, cv_in,  jk, npiglo, npjglo, ktime=jt)
         ! duplicate last  row and column 
         v2d(npiglo+1, :) = v2d(npiglo,:)