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

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

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

revision 1.12 by edhill, Sun Oct 10 06:08:47 2004 UTC revision 1.13 by edhill, Tue Dec 14 23:00:53 2004 UTC
# Line 179  C     Create MNC definitions for DYNVARS Line 179  C     Create MNC definitions for DYNVARS
179        CALL MNC_CW_ADD_VNAME('gW', 'Cen_xy_Hn__C__t', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('gW', 'Cen_xy_Hn__C__t', 4,5, myThid)
180    
181  C     Write coordinates to "state" file  C     Write coordinates to "state" file
182        CALL MNC_CW_SET_UDIM('state', 0, myThid)  C     CALL MNC_CW_SET_UDIM('state', 0, myThid)
183        CALL MNC_CW_RS_W('R','state',0,0,'XC',xC, myThid)  C     CALL MNC_CW_RS_W('R','state',0,0,'XC',xC, myThid)
184        CALL MNC_CW_RS_W('R','state',0,0,'YC',yC, myThid)  C     CALL MNC_CW_RS_W('R','state',0,0,'YC',yC, myThid)
185        CALL MNC_CW_RS_W('R','state',0,0,'XU',xG, myThid)  C     CALL MNC_CW_RS_W('R','state',0,0,'XU',xG, myThid)
186        CALL MNC_CW_RS_W('R','state',0,0,'YU',yC, myThid)  C     CALL MNC_CW_RS_W('R','state',0,0,'YU',yC, myThid)
187        CALL MNC_CW_RS_W('R','state',0,0,'XV',xC, myThid)  C     CALL MNC_CW_RS_W('R','state',0,0,'XV',xC, myThid)
188        CALL MNC_CW_RS_W('R','state',0,0,'YV',yG, myThid)  C     CALL MNC_CW_RS_W('R','state',0,0,'YV',yG, myThid)
189        CALL MNC_CW_RS_W('R','state',0,0,'XG',xG, myThid)  C     CALL MNC_CW_RS_W('R','state',0,0,'XG',xG, myThid)
190        CALL MNC_CW_RS_W('R','state',0,0,'YG',yG, myThid)  C     CALL MNC_CW_RS_W('R','state',0,0,'YG',yG, myThid)
191        CALL MNC_CW_RS_W('R','state',0,0,'RC',rC, myThid)  C     CALL MNC_CW_RS_W('R','state',0,0,'RC',rC, myThid)
192        CALL MNC_CW_RS_W('R','state',0,0,'RF',rF, myThid)  C     CALL MNC_CW_RS_W('R','state',0,0,'RF',rF, myThid)
193    
194  C     Define variables used in mom_vecinv  C     Define variables used in mom_vecinv
195  C     CALL MNC_CW_ADD_VNAME('fV', 'Cen_xy_Hn__-__t', 0,0, myThid)  C     CALL MNC_CW_ADD_VNAME('fV', 'Cen_xy_Hn__-__t', 0,0, myThid)
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22