[cdftools] 202/228: JMM : adapt cdfvita for file with no depth
Alastair McKinstry
mckinstry at moszumanska.debian.org
Fri Jun 12 08:21:50 UTC 2015
This is an automated email from the git hooks/post-receive script.
mckinstry pushed a commit to branch master
in repository cdftools.
commit da798c63eae7cfcfeaa6e1ae28ebd5c08176c282
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date: Fri Mar 22 21:15:37 2013 +0000
JMM : adapt cdfvita for file with no depth
git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@650 1055176f-818a-41d9-83e1-73fbe5b947c5
---
cdfvita.f90 | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/cdfvita.f90 b/cdfvita.f90
index f92378b..947f405 100644
--- a/cdfvita.f90
+++ b/cdfvita.f90
@@ -130,6 +130,10 @@ PROGRAM cdfvita
npk = getdim (cf_ufil,cn_z)
npt = getdim (cf_ufil,cn_t)
+ IF (npk == 0 ) THEN
+ npk = 1
+ ENDIF
+
IF ( nlev == 0 ) THEN ! take all levels
nlev = npk
ALLOCATE (nklev(nlev) )
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/cdftools.git
More information about the debian-science-commits
mailing list