[cdftools] 99/228: JMM fix npk=0 in cdfvita-geo

[Alastair McKinstry]

This is an automated email from the git hooks/post-receive script.

mckinstry pushed a commit to branch master
in repository cdftools.

commit 5a306ffbeb7e4a539cbc7513ee44e36b052c9604
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Fri Jul 29 13:16:15 2011 +0000

    JMM fix npk=0 in cdfvita-geo
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@546 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfvita-geo.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/cdfvita-geo.f90 b/cdfvita-geo.f90
index 1feed3c..82540ee 100644
--- a/cdfvita-geo.f90
+++ b/cdfvita-geo.f90
@@ -121,6 +121,8 @@ PROGRAM cdfvita_geo
   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