/[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.12.2.1 by edhill, Thu Oct 2 18:10:45 2003 UTC revision 1.22 by edhill, Thu Feb 5 05:42:07 2004 UTC
# Line 43  C      |-- PACKAGES_BOOT Line 43  C      |-- PACKAGES_BOOT
43  C      |  C      |
44  C      |-- PACKAGES_READPARMS  C      |-- PACKAGES_READPARMS
45  C      |  C      |
 C      |-- PACKAGES_CHECK  
 C      |  
46  C      |-- PACKAGES_INIT_FIXED  C      |-- PACKAGES_INIT_FIXED
47  C      |  C      |
48    C      |-- PACKAGES_CHECK
49    C      |
50  C      |-- INI_LINEAR_PHSURF  C      |-- INI_LINEAR_PHSURF
51  C      |  C      |
52  C      |-- INI_CORI  C      |-- INI_CORI
# Line 58  C      | Line 58  C      |
58  C      |-- CONFIG_CHECK  C      |-- CONFIG_CHECK
59  C      |  C      |
60  C      |-- CONFIG_SUMMARY  C      |-- CONFIG_SUMMARY
61    C      |
62    C      |-- MNC_INIT
63    C      |-- MNC_W_GRIDINFO
64    
65  C     !USES:  C     !USES:
66        IMPLICIT NONE        IMPLICIT NONE
# Line 77  C     an input file called data. Line 80  C     an input file called data.
80        CALL INI_PARMS( myThid )        CALL INI_PARMS( myThid )
81        _BARRIER        _BARRIER
82    
83  #ifndef EXCLUDE_MONITOR  #ifdef ALLOW_MONITOR
84  C--   Initialise MONITOR I/O streams so we can report config. info  C--   Initialise MONITOR I/O streams so we can report config. info
85        CALL MON_INIT( myThid )        CALL MON_INIT( myThid )
86        _BARRIER        _BARRIER
# Line 108  C--   Configure packages Line 111  C--   Configure packages
111  C--   Read configuration parameters for packages  C--   Read configuration parameters for packages
112        CALL PACKAGES_READPARMS( myThid )        CALL PACKAGES_READPARMS( myThid )
113    
 C--   Check dependances between packages  
       CALL PACKAGES_CHECK( myThid )  
   
114  C--   Call fixed data initialization phase of packages  C--   Call fixed data initialization phase of packages
115        CALL PACKAGES_INIT_FIXED( myThid )        CALL PACKAGES_INIT_FIXED( myThid )
116    
117    C--   Check dependances between packages
118          CALL PACKAGES_CHECK( myThid )
119    
120  C--   Set Bo_surf => define the Linear Relation: Phi_surf(eta)  C--   Set Bo_surf => define the Linear Relation: Phi_surf(eta)
121        CALL INI_LINEAR_PHISURF( myThid )        CALL INI_LINEAR_PHISURF( myThid )
122    
# Line 135  C--   Check parameters and model cofigur Line 138  C--   Check parameters and model cofigur
138  C--   Finally summarise the model cofiguration  C--   Finally summarise the model cofiguration
139        CALL CONFIG_SUMMARY( myThid )        CALL CONFIG_SUMMARY( myThid )
140    
141    #ifdef COMPONENT_MODULE
142    C--   Post component-model configuration information to coupler
143    C     and get config. info for other component(s).
144          IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid )
145    #endif
146    
147    #ifdef ALLOW_MNC
148    C     Test the MNC package
149          CALL MNC_INIT(myThid)
150          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)
153          CALL MNC_CW_ADD_VATTR_TEXT(myThid,'iter',1,'units','s')
154    
155          CALL MNC_CW_ADD_VNAME(myThid, 'U', 'U_xy_Hn__C__t', 4,5)
156          CALL MNC_CW_ADD_VATTR_TEXT(myThid,'U',1,'units','m/s')
157    
158          CALL MNC_CW_ADD_VNAME(myThid, 'V', 'V_xy_Hn__C__t', 4,5)
159          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
175    
176        RETURN        RETURN
177        END        END
Legend:
Removed from v.1.12.2.1  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22