/[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.1 by adcroft, Thu May 13 15:40:53 2004 UTC revision 1.2 by jmc, Fri Jul 2 17:43:04 2004 UTC
# Line 153  C     Create MNC definitions for DYNVARS Line 153  C     Create MNC definitions for DYNVARS
153        CALL MNC_CW_ADD_VATTR_TEXT('S',1,        CALL MNC_CW_ADD_VATTR_TEXT('S',1,
154       &     'coordinates','XC YC RC iter', myThid)       &     'coordinates','XC YC RC iter', myThid)
155    
156        CALL MNC_CW_ADD_VNAME('Unm1', 'U_xy_Hn__C__t', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('gUnm1', 'U_xy_Hn__C__t', 4,5, myThid)
157        CALL MNC_CW_ADD_VNAME('Vnm1', 'V_xy_Hn__C__t', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('gVnm1', 'V_xy_Hn__C__t', 4,5, myThid)
158        CALL MNC_CW_ADD_VNAME('Tnm1', 'Cen_xy_Hn__C__t', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('gTnm1', 'Cen_xy_Hn__C__t', 4,5, myThid)
159        CALL MNC_CW_ADD_VNAME('Snm1', 'Cen_xy_Hn__C__t', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('gSnm1', 'Cen_xy_Hn__C__t', 4,5, myThid)
160    
161        CALL MNC_CW_ADD_VNAME('Eta', 'Cen_xy_Hn__-__t', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('Eta', 'Cen_xy_Hn__-__t', 3,4, myThid)
162        CALL MNC_CW_ADD_VATTR_TEXT('Eta',1,'long_name',        CALL MNC_CW_ADD_VATTR_TEXT('Eta',1,'long_name',
# Line 165  C     Create MNC definitions for DYNVARS Line 165  C     Create MNC definitions for DYNVARS
165        CALL MNC_CW_ADD_VATTR_TEXT('Eta',1,        CALL MNC_CW_ADD_VATTR_TEXT('Eta',1,
166       &     'coordinates','XC YC RC iter', myThid)       &     'coordinates','XC YC RC iter', myThid)
167    
168        CALL MNC_CW_ADD_VNAME('EtaNH', 'Cen_xy_Hn__-__t', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('EtaH', 'Cen_xy_Hn__-__t', 3,4, myThid)
169        CALL MNC_CW_ADD_VATTR_TEXT('EtaNH',1,'long_name',        CALL MNC_CW_ADD_VATTR_TEXT('EtaH',1,'long_name',
170       &     'NLFS_r-anomaly', myThid)       &     'column-thickness_r-anomaly', myThid)
171        CALL MNC_CW_ADD_VATTR_TEXT('EtaNH',1,'units','m', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('EtaH',1,'units','m', myThid)
172        CALL MNC_CW_ADD_VATTR_TEXT('EtaNH',1,        CALL MNC_CW_ADD_VATTR_TEXT('EtaH',1,
173       &     'coordinates','XC YC RC iter', myThid)       &     'coordinates','XC YC RC iter', myThid)
174    
175        CALL MNC_CW_ADD_VNAME('W', 'Cen_xy_Hn__C__t', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('W', 'Cen_xy_Hn__C__t', 4,5, myThid)
# Line 177  C     Create MNC definitions for DYNVARS Line 177  C     Create MNC definitions for DYNVARS
177        CALL MNC_CW_ADD_VATTR_TEXT('W',1,        CALL MNC_CW_ADD_VATTR_TEXT('W',1,
178       &     'coordinates','XC YC RC iter', myThid)       &     'coordinates','XC YC RC iter', myThid)
179    
180        CALL MNC_CW_ADD_VNAME('totPhiHyd', 'Cen_xy_Hn__C__t', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('phiHyd', 'Cen_xy_Hn__C__t', 4,5, myThid)
181        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)
182        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)
183        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)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22