[cdftools] 140/228: JMM : fix output for 2D arrays

[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 faa72cab9b91b598e808f39b98a191489167e570
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Thu Apr 5 18:09:54 2012 +0000

    JMM : fix output for 2D arrays
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@588 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfmean.f90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/cdfmean.f90 b/cdfmean.f90
index 34bf991..b9cad74 100644
--- a/cdfmean.f90
+++ b/cdfmean.f90
@@ -281,10 +281,10 @@ PROGRAM cdfmean
   rdumlon(:,:) = 0.
   rdumlat(:,:) = 0.
 
-  ipk(1) = npk ! mean for each level
+  ipk(1) = nvpk ! mean for each level
   ipk(2) = 1   ! 3D mean
   IF ( lvar ) THEN
-    ipk(3) = npk ! variance for each level
+    ipk(3) = nvpk ! variance for each level
     ipk(4) = 1   ! 3D variance
   ENDIF
 
@@ -327,9 +327,9 @@ PROGRAM cdfmean
   OPEN(numout,FILE=cf_out)
   IF ( lvar ) OPEN(numvar,FILE=cf_var)
   ! create output fileset
-  ncout = create      (cf_ncout,   'none',  ikx,   iky,   npk, cdep=cv_dep)
+  ncout = create      (cf_ncout,   'none',  ikx,   iky,   nvpk, cdep=cv_dep)
   ierr  = createvar   (ncout,      stypvar, nvars, ipk,   id_varout, cdglobal=TRIM(cglobal) )
-  ierr  = putheadervar(ncout,      cf_in,  ikx, iky, npk, pnavlon=rdumlon, pnavlat=rdumlat, pdep=gdep, cdep=cv_dep)
+  ierr  = putheadervar(ncout,      cf_in,  ikx, iky, npk, pnavlon=rdumlon, pnavlat=rdumlat, pdep=gdep(1:nvpk), cdep=cv_dep)
   tim   = getvar1d(cf_in, cn_vtimec, npt)
   ierr  = putvar1d(ncout,  tim,       npt, 'T')
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/cdftools.git