/[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.23 by edhill, Thu Feb 5 19:38:55 2004 UTC revision 1.24 by edhill, Thu Feb 26 22:31:58 2004 UTC
# Line 145  C     and get config. info for other com Line 145  C     and get config. info for other com
145    
146  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
147    
 #ifdef ALLOW_MNC  
   
 C     Initialize the MNC package  
       CALL MNC_INIT(myThid)  
       CALL MNC_CW_INIT(myThid, sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr)  
   
 C     Write the grid information  
       CALL MNC_CW_WRITE_GRID_INFO(myThid, 'grid')  
   
 C     Create MNC definitions for DYNVARS.h variables  
       CALL MNC_CW_ADD_VNAME(myThid, 'iter', '-_-_--__-__t', 0,0)  
       CALL MNC_CW_ADD_VATTR_TEXT(myThid,'iter',1,  
      &     'long_name','iteration_count')  
   
       CALL MNC_CW_ADD_VNAME(myThid, 'U', 'U_xy_Hn__C__t', 4,5)  
       CALL MNC_CW_ADD_VATTR_TEXT(myThid,'U',1,'units','m/s')  
   
       CALL MNC_CW_ADD_VNAME(myThid, 'V', 'V_xy_Hn__C__t', 4,5)  
       CALL MNC_CW_ADD_VATTR_TEXT(myThid,'V',1,'units','m/s')  
   
       CALL MNC_CW_ADD_VNAME(myThid, 'T', 'Cen_xy_Hn__C__t', 4,5)  
       CALL MNC_CW_ADD_VATTR_TEXT(myThid,'T',1,'units','degC')  
       CALL MNC_CW_ADD_VATTR_TEXT(myThid,'T',1,'long_name',  
      &     'potential_temperature')  
   
       CALL MNC_CW_ADD_VNAME(myThid, 'S', 'Cen_xy_Hn__C__t', 4,5)  
       CALL MNC_CW_ADD_VATTR_TEXT(myThid,'S',1,'long_name',  
      &     'salinity')  
   
       CALL MNC_CW_ADD_VNAME(myThid, 'Eta', 'Cen_xy_Hn__-__t', 3,4)  
       CALL MNC_CW_ADD_VATTR_TEXT(myThid,'Eta',1,'long_name',  
      &     'free-surface_r-anomaly')  
   
       CALL MNC_CW_ADD_VNAME(myThid, 'W', 'Cen_xy_Hn__C__t', 4,5)  
       CALL MNC_CW_ADD_VATTR_TEXT(myThid,'W',1,'units','m/s')  
   
       CALL MNC_CW_ADD_VNAME(myThid, 'totPhiHyd', 'Cen_xy_Hn__C__t', 4,5)  
       CALL MNC_CW_ADD_VNAME(myThid, 'phiHydLow', 'Cen_xy_Hn__-__t', 3,4)  
       CALL MNC_CW_ADD_VNAME(myThid, 'phi_nh', 'Cen_xy_Hn__C__t', 4,5)  
   
       CALL MNC_CW_ADD_VNAME(myThid, 'tr1', 'Cen_xy_Hn__C__t', 4,5)  
       CALL MNC_CW_ADD_VATTR_TEXT(myThid,'tr1',1,  
      &     'long_name','passive_tracer_1')  
 #endif  
   
148        RETURN        RETURN
149        END        END
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22