/[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.37 by edhill, Fri Mar 10 16:09:31 2006 UTC revision 1.38 by edhill, Fri Aug 4 14:57:36 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 .LT. 1) THEN        IF (bi .EQ. 0) THEN
178          bis = 1          bis = 1
179          bie = nSx          bie = nSx
180          ELSEIF (bi .LT. 0) THEN
181            bis = -bi
182            bie = -bi
183        ENDIF        ENDIF
184        bjs = bj        bjs = bj
185        bje = bj        bje = bj
186        IF (bj .LT. 1) THEN        IF (bj .EQ. 0) THEN
187          bjs = 1          bjs = 1
188          bje = nSy          bje = nSy
189          ELSEIF (bj .LT. 0) THEN
190            bjs = -bj
191            bje = -bj
192        ENDIF        ENDIF
193    
194        DO lbj = bjs,bje        DO lbj = bjs,bje
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22