/[MITgcm]/MITgcm/pkg/land/land_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/land/land_write_pickup.F

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

revision 1.3 by edhill, Sat Sep 10 20:40:27 2005 UTC revision 1.4 by edhill, Sat Sep 17 03:17:06 2005 UTC
# Line 98  C--   Write fields as consecutive record Line 98  C--   Write fields as consecutive record
98          ELSE          ELSE
99            CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid)            CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid)
100          ENDIF          ENDIF
101            CALL MNC_CW_SET_UDIM(fn, 1, myThid)
102    
103          CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid)          CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid)
104          CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid)          CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22