/[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.1 by cnh, Thu May 21 18:25:49 1998 UTC revision 1.2 by cnh, Mon Jun 8 21:43:01 1998 UTC
# Line 85  C       Raw fields Line 85  C       Raw fields
85          CALL READ_FLD_XYZ_RL(     'gS.',suff,        gS, myIter, myThid)          CALL READ_FLD_XYZ_RL(     'gS.',suff,        gS, myIter, myThid)
86          CALL READ_FLD_XYZ_RL(  'gSNm1.',suff,     gSNm1, myIter, myThid)          CALL READ_FLD_XYZ_RL(  'gSNm1.',suff,     gSNm1, myIter, myThid)
87          CALL READ_FLD_XY_RL ( 'cg2d_x.',suff,    cg2d_x, myIter, myThid)          CALL READ_FLD_XY_RL ( 'cg2d_x.',suff,    cg2d_x, myIter, myThid)
88    #ifdef ALLOW_CD
89            CALL READ_FLD_XY_RL ( 'cg2d_xNM1.',suff, cg2d_xNM1, myIter, myThid)
90            CALL READ_FLD_XYZ_RL(  'uVelD.',suff,    uVelD, myIter, myThid)
91            CALL READ_FLD_XYZ_RL(  'vVelD.',suff,    vVelD, myIter, myThid)
92            CALL READ_FLD_XYZ_RL(  'uNM1.', suff,     uNM1, myIter, myThid)
93            CALL READ_FLD_XYZ_RL(  'vNM1.', suff,     vNM1, myIter, myThid)
94            CALL READ_FLD_XYZ_RL(  'guCD.', suff,     guCD, myIter, myThid)
95            CALL READ_FLD_XYZ_RL(  'gvCD.', suff,     gvCD, myIter, myThid)
96    #endif
97    
98  C--     Reread IO error counter  C--     Reread IO error counter
99          endIOErrCount = IO_ERRCOUNT(myThid)          endIOErrCount = IO_ERRCOUNT(myThid)
# Line 1006  C       Raw fields Line 1015  C       Raw fields
1015          CALL WRITE_FLD_XYZ_RL(     'gS.',suff,        gS, myIter, myThid)          CALL WRITE_FLD_XYZ_RL(     'gS.',suff,        gS, myIter, myThid)
1016          CALL WRITE_FLD_XYZ_RL(  'gSNm1.',suff,     gSNm1, myIter, myThid)          CALL WRITE_FLD_XYZ_RL(  'gSNm1.',suff,     gSNm1, myIter, myThid)
1017          CALL WRITE_FLD_XY_RL ( 'cg2d_x.',suff,    cg2d_x, myIter, myThid)          CALL WRITE_FLD_XY_RL ( 'cg2d_x.',suff,    cg2d_x, myIter, myThid)
1018    #ifdef ALLOW_CD
1019            CALL WRITE_FLD_XY_RL ( 'cg2d_xNM1.',suff, cg2d_xNM1, myIter, myThid)
1020            CALL WRITE_FLD_XYZ_RL(  'uVelD.',suff,    uVelD, myIter, myThid)
1021            CALL WRITE_FLD_XYZ_RL(  'vVelD.',suff,    vVelD, myIter, myThid)
1022            CALL WRITE_FLD_XYZ_RL(  'uNM1.', suff,     uNM1, myIter, myThid)
1023            CALL WRITE_FLD_XYZ_RL(  'vNM1.', suff,     vNM1, myIter, myThid)
1024            CALL WRITE_FLD_XYZ_RL(  'guCD.', suff,     guCD, myIter, myThid)
1025            CALL WRITE_FLD_XYZ_RL(  'gvCD.', suff,     gvCD, myIter, myThid)
1026    #endif
1027    
1028    
1029  C--     Reread IO error counter  C--     Reread IO error counter
1030          endIOErrCount = IO_ERRCOUNT(myThid)          endIOErrCount = IO_ERRCOUNT(myThid)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22