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

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

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

revision 1.12 by cnh, Wed Oct 28 03:11:38 1998 UTC revision 1.13 by cnh, Fri Nov 6 22:44:48 1998 UTC
# Line 87  C       Raw fields Line 87  C       Raw fields
87          CALL READ_FLD_XYZ_RL(     'gS.',suff,        gS, myIter, myThid)          CALL READ_FLD_XYZ_RL(     'gS.',suff,        gS, myIter, myThid)
88          CALL READ_FLD_XYZ_RL(  'gSNm1.',suff,     gSNm1, myIter, myThid)          CALL READ_FLD_XYZ_RL(  'gSNm1.',suff,     gSNm1, myIter, myThid)
89          CALL READ_FLD_XY_RL ( 'cg2d_x.',suff,    cg2d_x, myIter, myThid)          CALL READ_FLD_XY_RL ( 'cg2d_x.',suff,    cg2d_x, myIter, myThid)
90  #ifdef ALLOW_CD  #ifdef INCLUDE_CD_CODE
91          CALL READ_FLD_XY_RL          CALL READ_FLD_XY_RL
92       &   ( 'cg2d_xNM1.',suff, cg2d_xNM1, myIter, myThid)       &   ( 'cg2d_xNM1.',suff, cg2d_xNM1, myIter, myThid)
93          CALL READ_FLD_XYZ_RL(  'uVelD.',suff,    uVelD, myIter, myThid)          CALL READ_FLD_XYZ_RL(  'uVelD.',suff,    uVelD, myIter, myThid)
# Line 140  C--    Fill in edge regions Line 140  C--    Fill in edge regions
140        _EXCH_XYZ_R8(gs    , myThid )        _EXCH_XYZ_R8(gs    , myThid )
141        _EXCH_XYZ_R8(gsNM1 , myThid )        _EXCH_XYZ_R8(gsNM1 , myThid )
142        _EXCH_XY_R8 (cg2d_x, myThid )        _EXCH_XY_R8 (cg2d_x, myThid )
143  #ifdef ALLOW_CD  #ifdef INCLUDE_CD_CODE
144        _EXCH_XY_R8( cg2d_xNM1, myThid )        _EXCH_XY_R8( cg2d_xNM1, myThid )
145        _EXCH_XYZ_R8( uVelD,    myThid )        _EXCH_XYZ_R8( uVelD,    myThid )
146        _EXCH_XYZ_R8( vVelD,    myThid )        _EXCH_XYZ_R8( vVelD,    myThid )
# Line 1447  C       Raw fields Line 1447  C       Raw fields
1447       &    (  'gSNm1.',suff,     gSNm1, myIter, myThid)       &    (  'gSNm1.',suff,     gSNm1, myIter, myThid)
1448          CALL WRITE_FLD_XY_RL          CALL WRITE_FLD_XY_RL
1449       &    ( 'cg2d_x.',suff,    cg2d_x, myIter, myThid)       &    ( 'cg2d_x.',suff,    cg2d_x, myIter, myThid)
1450  #ifdef ALLOW_CD  #ifdef INCLUDE_CD_CODE
1451          CALL WRITE_FLD_XY_RL          CALL WRITE_FLD_XY_RL
1452       &    ( 'cg2d_xNM1.',suff, cg2d_xNM1, myIter, myThid)       &    ( 'cg2d_xNM1.',suff, cg2d_xNM1, myIter, myThid)
1453          CALL WRITE_FLD_XYZ_RL(  'uVelD.',suff,    uVelD, myIter, myThid)          CALL WRITE_FLD_XYZ_RL(  'uVelD.',suff,    uVelD, myIter, myThid)
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22