[cdftools] 130/228: JMM : fic in cdfmkmask

[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 1c8fe67b0da807b8ab8eddd23647cdadab1345f4
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Wed Jan 25 13:48:11 2012 +0000

    JMM : fic in cdfmkmask
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@578 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfmkmask.f90 | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/cdfmkmask.f90 b/cdfmkmask.f90
index 2f7872d..9981b0b 100644
--- a/cdfmkmask.f90
+++ b/cdfmkmask.f90
@@ -227,7 +227,11 @@ PROGRAM cdfmkmask
 
    ncout = create      (cf_out, cf_tfil,  npiglo, npjglo, npk)
    ierr  = createvar   (ncout,    stypvar, 4,      ipk,    id_varout )
-   ierr  = putheadervar(ncout,    cf_tfil,  npiglo, npjglo, npk)
+   IF ( lmbathy ) THEN
+     ierr  = putheadervar(ncout,    cn_fzgr,  npiglo, npjglo, npk)
+   ELSE
+     ierr  = putheadervar(ncout,    cf_tfil,  npiglo, npjglo, npk)
+   ENDIF
 
    !! Allocate only usefull variable and read only usefull variable
    ALLOCATE (tmask(npiglo,npjglo), zmask(npiglo,npjglo), tim(nt))

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