[cdftools] 124/228: JMM : bug fix in cdfmxl (only in cdftools3 ) : vertical shift of one level in gdepw ...

[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 8a9a1a8fc65e0466b8751023db9dfec9638a8eb1
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Fri Dec 30 21:52:21 2011 +0000

    JMM : bug fix in cdfmxl (only in cdftools3 ) : vertical shift of one level in gdepw ...
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@572 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfmxl.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cdfmxl.f90 b/cdfmxl.f90
index 234b498..118b2e1 100644
--- a/cdfmxl.f90
+++ b/cdfmxl.f90
@@ -139,8 +139,8 @@ PROGRAM cdfmxl
      rtem(:,:) = getvar(cn_fbathylev, cn_bathylev, 1, npiglo, npjglo)
   ENDIF
 
-  mbathy(:,:) = rtem(:,:)
-  gdepw(:)    = getvare3(cn_fzgr, cn_gdepw, npk)
+  mbathy(:,:)     = rtem(:,:)
+  gdepw(1:npk)    = getvare3(cn_fzgr, cn_gdepw, npk)
 
   ncout = create      (cf_out, cf_tfil, npiglo, npjglo, 1           )
   ierr  = createvar   (ncout,  stypvar, 3,      ipk,    id_varout   )

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