[cdftools] 177/228: JMM : add check for mask.nc file in cdf2levitusgrid2d.f90

[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 a41a5f85c082f4d91bf6aa7d3302f1938e54f4a4
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Wed Oct 31 21:21:05 2012 +0000

    JMM : add check for mask.nc file in cdf2levitusgrid2d.f90
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@625 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdf2levitusgrid2d.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/cdf2levitusgrid2d.f90 b/cdf2levitusgrid2d.f90
index 3457c50..d8d7560 100644
--- a/cdf2levitusgrid2d.f90
+++ b/cdf2levitusgrid2d.f90
@@ -102,6 +102,7 @@ PROGRAM cdf2levitusgrid2d
       PRINT *,'      '
       PRINT *,'     REQUIRED FILES :'
       PRINT *,'       ',TRIM(cn_fhgr)
+      PRINT *,'       ',TRIM(cn_fmsk)
       PRINT *,'       ',TRIM(cf_levitus_mask)
       PRINT *,'      '
       PRINT *,'     OUTPUT : '
@@ -116,8 +117,9 @@ PROGRAM cdf2levitusgrid2d
    CALL getarg(ijarg, cv_nam) ; ijarg = ijarg + 1
 
    lchk = chkfile (cn_fhgr)
+   lchk = chkfile (cn_fmsk)         .OR. lchk
    lchk = chkfile (cf_levitus_mask) .OR. lchk
-   lchk = chkfile (cf_in) .OR. lchk
+   lchk = chkfile (cf_in)           .OR. lchk
    IF ( lchk ) STOP ! missing files
 
    npiglo = getdim(cf_in,cn_x)

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