[cdftools] 125/228: JMM : cleaning in cdfmxl.f90. Port fix from cdfmxl to cdfmxlheatc, cdfmxlhcsc [ gdepw(0) is addressed eventually -land- ]

[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 4d3688255e746e008a50f932e014afb7715d080b
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Tue Jan 3 17:53:03 2012 +0000

    JMM : cleaning in cdfmxl.f90. Port fix from cdfmxl to cdfmxlheatc, cdfmxlhcsc [ gdepw(0) is addressed eventually -land- ]
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@573 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfmxl.f90      | 5 +++--
 cdfmxlhcsc.f90  | 7 ++++---
 cdfmxlheatc.f90 | 5 +++--
 3 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/cdfmxl.f90 b/cdfmxl.f90
index 118b2e1..5c7707a 100644
--- a/cdfmxl.f90
+++ b/cdfmxl.f90
@@ -139,8 +139,9 @@ PROGRAM cdfmxl
      rtem(:,:) = getvar(cn_fbathylev, cn_bathylev, 1, npiglo, npjglo)
   ENDIF
 
-  mbathy(:,:)     = rtem(:,:)
-  gdepw(1:npk)    = getvare3(cn_fzgr, cn_gdepw, npk)
+  mbathy(:,:)  = rtem(:,:)
+  gdepw(0)     = 99999. ! dummy value, always masked
+  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   )
diff --git a/cdfmxlhcsc.f90 b/cdfmxlhcsc.f90
index 0f4be59..71ccd20 100644
--- a/cdfmxlhcsc.f90
+++ b/cdfmxlhcsc.f90
@@ -172,7 +172,7 @@ PROGRAM cdfmxlhcsc
   ALLOCATE (nmln(npiglo,npjglo),hmld(npiglo,npjglo)          )
   ALLOCATE (dmxlheatc(npiglo,npjglo),dmxlsaltc(npiglo,npjglo))
   ALLOCATE (e3(npiglo,npjglo)                                )
-  ALLOCATE (gdepw(npk), tim(npt)                             )
+  ALLOCATE (gdepw(0:npk), tim(npt)                             )
 
   ! read mbathy and gdepw use real rtem(:,:) as template (getvar is used for real only)
   INQUIRE (FILE=cn_fbathylev, EXIST=lfull)
@@ -183,8 +183,9 @@ PROGRAM cdfmxlhcsc
      rtem(:,:) = getvar(cn_fzgr,      'mbathy',    1, npiglo, npjglo)
   ENDIF
 
-  mbathy(:,:) = rtem(:,:)
-  gdepw(:)    = getvare3(cn_fzgr, cn_gdepw, npk) 
+  mbathy(:,:)  = rtem(:,:)
+  gdepw(0)     = 999999.  ! dummy values normaly always masked
+  gdepw(1:npk) = getvare3(cn_fzgr, cn_gdepw, npk) 
   IF ( lfull ) e31d = getvare3(cn_fzgr, cn_ve3t, npk )
 
   ncout = create      (cf_out, cf_tfil, npiglo, npjglo, 1           )
diff --git a/cdfmxlheatc.f90 b/cdfmxlheatc.f90
index f2bc33e..1819584 100644
--- a/cdfmxlheatc.f90
+++ b/cdfmxlheatc.f90
@@ -126,7 +126,7 @@ PROGRAM cdfmxlheatc
   ALLOCATE ( zmask(npiglo,npjglo), dmxlheatc(npiglo, npjglo) )
   ALLOCATE ( zt(npiglo,npjglo), zmxl(npiglo,npjglo)  )
   ALLOCATE ( e3(npiglo,npjglo) )
-  ALLOCATE ( gdepw(npk), tim(npt) )
+  ALLOCATE ( gdepw(0:npk), tim(npt) )
 
   IF ( lfull ) ALLOCATE ( e31d(npk) )
 
@@ -138,7 +138,8 @@ PROGRAM cdfmxlheatc
   tim  = getvar1d(cf_tfil, cn_vtimec, npt     )
   ierr = putvar1d(ncout,   tim,       npt, 'T')
 
-               gdepw(:) = getvare3(cn_fzgr, cn_gdepw, npk)
+           gdepw(0)     = 99999. ! dummy value always masked
+           gdepw(1:npk) = getvare3(cn_fzgr, cn_gdepw, npk)
   IF ( lfull ) e31d( :) = getvare3(cn_fzgr, cn_ve3t,  npk)
 
 

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