/[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.22 by edhill, Thu Feb 5 05:42:07 2004 UTC revision 1.23 by edhill, Thu Feb 5 19:38:55 2004 UTC
# Line 60  C      | Line 60  C      |
60  C      |-- CONFIG_SUMMARY  C      |-- CONFIG_SUMMARY
61  C      |  C      |
62  C      |-- MNC_INIT  C      |-- MNC_INIT
 C      |-- MNC_W_GRIDINFO  
63    
64  C     !USES:  C     !USES:
65        IMPLICIT NONE        IMPLICIT NONE
# Line 144  C     and get config. info for other com Line 143  C     and get config. info for other com
143        IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid )        IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid )
144  #endif  #endif
145    
146    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
147    
148  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
149  C     Test the MNC package  
150    C     Initialize the MNC package
151        CALL MNC_INIT(myThid)        CALL MNC_INIT(myThid)
152        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)
153    
154    C     Write the grid information
155          CALL MNC_CW_WRITE_GRID_INFO(myThid, 'grid')
156    
157    C     Create MNC definitions for DYNVARS.h variables
158        CALL MNC_CW_ADD_VNAME(myThid, 'iter', '-_-_--__-__t', 0,0)        CALL MNC_CW_ADD_VNAME(myThid, 'iter', '-_-_--__-__t', 0,0)
159        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'iter',1,'units','s')        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'iter',1,
160         &     'long_name','iteration_count')
161    
162        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)
163        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'U',1,'units','m/s')        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'U',1,'units','m/s')
# Line 164  C     Test the MNC package Line 171  C     Test the MNC package
171       &     'potential_temperature')       &     'potential_temperature')
172    
173        CALL MNC_CW_ADD_VNAME(myThid, 'S', 'Cen_xy_Hn__C__t', 4,5)        CALL MNC_CW_ADD_VNAME(myThid, 'S', 'Cen_xy_Hn__C__t', 4,5)
174        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'T',1,'long_name',        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'S',1,'long_name',
175       &     'salinity')       &     'salinity')
176    
177        CALL MNC_CW_ADD_VNAME(myThid, 'Eta', 'Cen_xy_Hn__-__t', 3,4)        CALL MNC_CW_ADD_VNAME(myThid, 'Eta', 'Cen_xy_Hn__-__t', 3,4)
178          CALL MNC_CW_ADD_VATTR_TEXT(myThid,'Eta',1,'long_name',
179         &     'free-surface_r-anomaly')
180    
181        CALL MNC_CW_ADD_VNAME(myThid, 'W', 'Cen_xy_Hn__C__t', 4,5)        CALL MNC_CW_ADD_VNAME(myThid, 'W', 'Cen_xy_Hn__C__t', 4,5)
182        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'U',1,'units','m/s')        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'W',1,'units','m/s')
183    
184          CALL MNC_CW_ADD_VNAME(myThid, 'totPhiHyd', 'Cen_xy_Hn__C__t', 4,5)
185          CALL MNC_CW_ADD_VNAME(myThid, 'phiHydLow', 'Cen_xy_Hn__-__t', 3,4)
186          CALL MNC_CW_ADD_VNAME(myThid, 'phi_nh', 'Cen_xy_Hn__C__t', 4,5)
187    
188          CALL MNC_CW_ADD_VNAME(myThid, 'tr1', 'Cen_xy_Hn__C__t', 4,5)
189          CALL MNC_CW_ADD_VATTR_TEXT(myThid,'tr1',1,
190         &     'long_name','passive_tracer_1')
191  #endif  #endif
192    
193        RETURN        RETURN
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22