Fixed var name error

jvegreg · Feb 13, 2017 · a3052f9 · a3052f9
1 parent e1bc9c8
commit a3052f9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/cdfheatc.f90 b/src/cdfheatc.f90
@@ -210,7 +210,7 @@ PROGRAM cdfheatc
             IF ( lfull ) THEN
                e3t(:,:, jk) = e31d(ik)
             ELSE
-               e3t(:,:, jk) = getvar(cn_fzgr, 'e3t_0', ik, npiglo, npjglo, kimin=iimin, kjmin=ijmin, ldiom=.TRUE.)
+               e3t(:,:, jk) = getvar(cn_fzgr, 'e3t', ik, npiglo, npjglo, kimin=iimin, kjmin=ijmin, ldiom=.TRUE.)
             ENDIF
         ENDIF
         PRINT *, 'Compute weight'