/[MITgcm]/MITgcm/model/src/ini_cori.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_cori.F

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

revision 1.28 by jmc, Tue May 12 19:54:28 2009 UTC revision 1.29 by jmc, Sun Jun 14 21:45:12 2009 UTC
# Line 116  C       Special custom form Line 116  C       Special custom form
116              ENDDO              ENDDO
117            ENDDO            ENDDO
118          ENDDO          ENDDO
         _BARRIER  
119          CALL READ_REC_XY_RS( 'fCoriC.bin', fCori,   1, 0, myThid )          CALL READ_REC_XY_RS( 'fCoriC.bin', fCori,   1, 0, myThid )
120          CALL READ_REC_XY_RS( 'fCorCs.bin', fCoriCos,1, 0, myThid )          CALL READ_REC_XY_RS( 'fCorCs.bin', fCoriCos,1, 0, myThid )
121          IF ( .NOT.useCubedSphereExchange ) THEN          IF ( .NOT.useCubedSphereExchange ) THEN
# Line 124  C       Special custom form Line 123  C       Special custom form
123          ELSE          ELSE
124  #ifdef OLD_GRID_IO  #ifdef OLD_GRID_IO
125           CALL READ_REC_XY_RS('fCoriG.bin', fCoriG,  1, 0, myThid )           CALL READ_REC_XY_RS('fCoriG.bin', fCoriG,  1, 0, myThid )
          _BARRIER  
126  C-       deal with the 2 missing corners (for fCoriG):  C-       deal with the 2 missing corners (for fCoriG):
127           DO bj = myByLo(myThid), myByHi(myThid)           DO bj = myByLo(myThid), myByHi(myThid)
128            DO bi = myBxLo(myThid), myBxHi(myThid)            DO bi = myBxLo(myThid), myBxHi(myThid)
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22