/[MITgcm]/MITgcm/pkg/mnc/mnc_cw_readwrite.template
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cw_readwrite.template

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.38 by edhill, Fri Aug 4 14:57:36 2006 UTC revision 1.39 by edhill, Fri Aug 4 15:14:25 2006 UTC
# Line 174  C     Check that the Variable Type exist Line 174  C     Check that the Variable Type exist
174  C     Set the bi,bj indicies  C     Set the bi,bj indicies
175        bis = bi        bis = bi
176        bie = bi        bie = bi
177        IF (bi .EQ. 0) THEN        IF (bi .LT. 1) THEN
178          bis = 1          bis = 1
179          bie = nSx          bie = nSx
       ELSEIF (bi .LT. 0) THEN  
         bis = -bi  
         bie = -bi  
180        ENDIF        ENDIF
181        bjs = bj        bjs = bj
182        bje = bj        bje = bj
183        IF (bj .EQ. 0) THEN        IF (bj .LT. 1) THEN
184          bjs = 1          bjs = 1
185          bje = nSy          bje = nSy
       ELSEIF (bj .LT. 0) THEN  
         bjs = -bj  
         bje = -bj  
186        ENDIF        ENDIF
187    
188        DO lbj = bjs,bje        DO lbj = bjs,bje
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22