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

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

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

revision 1.21 by edhill, Thu Feb 5 00:13:47 2004 UTC revision 1.22 by edhill, Thu Feb 5 05:42:07 2004 UTC
# Line 150  C     Test the MNC package Line 150  C     Test the MNC package
150        CALL MNC_CW_INIT(myThid, sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr)        CALL MNC_CW_INIT(myThid, sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr)
151    
152        CALL MNC_CW_ADD_VNAME(myThid, 'iter', '-_-_--__-__t', 0,0)        CALL MNC_CW_ADD_VNAME(myThid, 'iter', '-_-_--__-__t', 0,0)
153        CALL MNC_CW_ADD_VATTR_TEXT(myThid, 'iter', 1,        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'iter',1,'units','s')
      &     'units', 's')  
       CALL MNC_CW_ADD_VATTR_TEXT(myThid, 'iter', 1,  
      &     'mitgcm_grid', '-_-_--__-__t')  
154    
155        CALL MNC_CW_ADD_VNAME(myThid, 'U', 'U_xy_Hn__C__t', 4,5)        CALL MNC_CW_ADD_VNAME(myThid, 'U', 'U_xy_Hn__C__t', 4,5)
156        CALL MNC_CW_ADD_VATTR_TEXT(myThid, 'U', 1,        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'U',1,'units','m/s')
157       &     'units', 'm/s')  
158        CALL MNC_CW_ADD_VATTR_TEXT(myThid, 'U', 1,        CALL MNC_CW_ADD_VNAME(myThid, 'V', 'V_xy_Hn__C__t', 4,5)
159       &     'mitgcm_grid', 'U_xy_Hn__C__t')        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'V',1,'units','m/s')
160    
161          CALL MNC_CW_ADD_VNAME(myThid, 'T', 'Cen_xy_Hn__C__t', 4,5)
162          CALL MNC_CW_ADD_VATTR_TEXT(myThid,'T',1,'units','degC')
163          CALL MNC_CW_ADD_VATTR_TEXT(myThid,'T',1,'long_name',
164         &     'potential_temperature')
165    
166          CALL MNC_CW_ADD_VNAME(myThid, 'S', 'Cen_xy_Hn__C__t', 4,5)
167          CALL MNC_CW_ADD_VATTR_TEXT(myThid,'T',1,'long_name',
168         &     'salinity')
169    
170          CALL MNC_CW_ADD_VNAME(myThid, 'Eta', 'Cen_xy_Hn__-__t', 3,4)
171    
172          CALL MNC_CW_ADD_VNAME(myThid, 'W', 'Cen_xy_Hn__C__t', 4,5)
173          CALL MNC_CW_ADD_VATTR_TEXT(myThid,'U',1,'units','m/s')
174  #endif  #endif
175    
176        RETURN        RETURN
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22