[cdftools] 113/228: JMM+PM : fix bug in cdfmkmask for zoom. Adapt code to file without time_counter

[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 02ba1bcbd7c7cc4ea6f3baa201940fae86301511
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Thu Nov 10 18:58:48 2011 +0000

    JMM+PM : fix bug in cdfmkmask for zoom. Adapt code to file without time_counter
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@560 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfmkmask.f90 | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/cdfmkmask.f90 b/cdfmkmask.f90
index 51577c5..e4db41c 100644
--- a/cdfmkmask.f90
+++ b/cdfmkmask.f90
@@ -169,7 +169,12 @@ PROGRAM cdfmkmask
   PRINT *,' npk    = ', npk
   PRINT *,' nt     = ', nt 
   
-  IF ((nt .GT. 1) .AND. (.NOT. ltime)) THEN 
+  IF ( nt == 0 ) THEN
+    PRINT *,' nt is forced to 1'
+    nt = 1
+  ENDIF
+  
+  IF ((nt > 1) .AND. (.NOT. ltime)) THEN 
      PRINT *, "WARNING nt > 1"
      PRINT *, "we used only the first time step"
      nt=1
@@ -249,10 +254,10 @@ PROGRAM cdfmkmask
      ENDIF
 
      IF ( lzoomij ) THEN
-        tmask(1:iimin-1,:)      = 0
-        tmask(iimax+1:npiglo,:) = 0
-        tmask(:,ijmax+1:npjglo) = 0
-        tmask(:,ijmax+1:npjglo) = 0   
+        tmask(1:iimin-1,:     ) = 0   ! West
+        tmask(iimax+1:npiglo,:) = 0   ! East
+        tmask(:,ijmax+1:npjglo) = 0   ! North
+        tmask(:,1:ijmin-1     ) = 0   ! South
      ENDIF
 
      IF ( lzoombat ) THEN

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