/[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.6 by edhill, Wed Sep 22 21:19:44 2004 UTC revision 1.7 by edhill, Mon Sep 27 17:50:48 2004 UTC
# Line 143  C     Create MNC definitions for DYNVARS Line 143  C     Create MNC definitions for DYNVARS
143        CALL MNC_CW_ADD_VATTR_TEXT('V',        CALL MNC_CW_ADD_VATTR_TEXT('V',
144       &     'coordinates','XV YV RC iter', myThid)       &     'coordinates','XV YV RC iter', myThid)
145    
146        CALL MNC_CW_ADD_VNAME('T', 'Cen_xy_Hn__C__t', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('Temp', 'Cen_xy_Hn__C__t', 4,5, myThid)
147        CALL MNC_CW_ADD_VATTR_TEXT('T','units','degC', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('Temp','units','degC', myThid)
148        CALL MNC_CW_ADD_VATTR_TEXT('T','long_name',        CALL MNC_CW_ADD_VATTR_TEXT('Temp','long_name',
149       &     'potential_temperature', myThid)       &     'potential_temperature', myThid)
150        CALL MNC_CW_ADD_VATTR_TEXT('T',        CALL MNC_CW_ADD_VATTR_TEXT('Temp',
151       &     'coordinates','XC YC RC iter', myThid)       &     'coordinates','XC YC RC iter', myThid)
152    
153        CALL MNC_CW_ADD_VNAME('S', 'Cen_xy_Hn__C__t', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('S', 'Cen_xy_Hn__C__t', 4,5, myThid)
# Line 186  C     Create MNC definitions for DYNVARS Line 186  C     Create MNC definitions for DYNVARS
186        CALL MNC_CW_ADD_VNAME('phi_nh', 'Cen_xy_Hn__C__t', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('phi_nh', 'Cen_xy_Hn__C__t', 4,5, myThid)
187        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)
188    
       CALL MNC_CW_ADD_VATTR_TEXT('T',  
      &     'coordinates','XC YC RC iter', myThid)  
   
189  C     Write coordinates to "state" file  C     Write coordinates to "state" file
190        CALL MNC_CW_SET_UDIM('state', 0, myThid)        CALL MNC_CW_SET_UDIM('state', 0, myThid)
191        CALL MNC_CW_RS_W('R','state',0,0,'XC',xC, myThid)        CALL MNC_CW_RS_W('R','state',0,0,'XC',xC, myThid)
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22