/[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.17 by edhill, Sun Apr 3 05:16:43 2005 UTC revision 1.18 by baylor, Fri May 13 20:36:58 2005 UTC
# Line 182  C     Create MNC definitions for DYNVARS Line 182  C     Create MNC definitions for DYNVARS
182       &     'coordinates','XC YC iter', myThid)       &     'coordinates','XC YC iter', myThid)
183        CALL MNC_CW_ADD_VNAME('dEtaHdt', 'Cen_xy_Hn__-__t', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('dEtaHdt', 'Cen_xy_Hn__-__t', 3,4, myThid)
184    
185        CALL MNC_CW_ADD_VNAME('W', 'Cen_xy_Hn__C__t', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('W', 'Cen_xy_Hn__L__t', 4,5, myThid)
186        CALL MNC_CW_ADD_VATTR_TEXT('W','units','m/s', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('W','units','m/s', myThid)
187        CALL MNC_CW_ADD_VATTR_TEXT('W',        CALL MNC_CW_ADD_VATTR_TEXT('W',
188       &     'coordinates','XC YC RC iter', myThid)       &     'coordinates','XC YC RC iter', myThid)
# Line 190  C     Create MNC definitions for DYNVARS Line 190  C     Create MNC definitions for DYNVARS
190        CALL MNC_CW_ADD_VNAME('phiHyd', 'Cen_xy_Hn__C__t', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('phiHyd', 'Cen_xy_Hn__C__t', 4,5, myThid)
191        CALL MNC_CW_ADD_VNAME('phiHydLow', 'Cen_xy_Hn__-__t', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('phiHydLow', 'Cen_xy_Hn__-__t', 3,4, myThid)
192        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)
193        CALL MNC_CW_ADD_VNAME('gW', 'Cen_xy_Hn__C__t', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('gW', 'Cen_xy_Hn__L__t', 4,5, myThid)
194    
195  C     Write coordinates to "state" file  C     Write coordinates to "state" file
196  C     CALL MNC_CW_SET_UDIM('state', 0, myThid)  C     CALL MNC_CW_SET_UDIM('state', 0, myThid)
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22