/[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.13 by edhill, Thu Oct 9 04:19:18 2003 UTC revision 1.18 by edhill, Thu Jan 15 04:31:24 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_W_GRIDINFO
63    
64  C     !USES:  C     !USES:
65        IMPLICIT NONE        IMPLICIT NONE
# Line 77  C     an input file called data. Line 79  C     an input file called data.
79        CALL INI_PARMS( myThid )        CALL INI_PARMS( myThid )
80        _BARRIER        _BARRIER
81    
82  #ifndef EXCLUDE_MONITOR  #ifdef ALLOW_MONITOR
83  C--   Initialise MONITOR I/O streams so we can report config. info  C--   Initialise MONITOR I/O streams so we can report config. info
84        CALL MON_INIT( myThid )        CALL MON_INIT( myThid )
85        _BARRIER        _BARRIER
# Line 108  C--   Configure packages Line 110  C--   Configure packages
110  C--   Read configuration parameters for packages  C--   Read configuration parameters for packages
111        CALL PACKAGES_READPARMS( myThid )        CALL PACKAGES_READPARMS( myThid )
112    
 C--   Check dependances between packages  
       CALL PACKAGES_CHECK( myThid )  
   
113  C--   Call fixed data initialization phase of packages  C--   Call fixed data initialization phase of packages
114        CALL PACKAGES_INIT_FIXED( myThid )        CALL PACKAGES_INIT_FIXED( myThid )
115    
116    C--   Check dependances between packages
117          CALL PACKAGES_CHECK( myThid )
118    
119  C--   Set Bo_surf => define the Linear Relation: Phi_surf(eta)  C--   Set Bo_surf => define the Linear Relation: Phi_surf(eta)
120        CALL INI_LINEAR_PHISURF( myThid )        CALL INI_LINEAR_PHISURF( myThid )
121    
# Line 135  C--   Check parameters and model cofigur Line 137  C--   Check parameters and model cofigur
137  C--   Finally summarise the model cofiguration  C--   Finally summarise the model cofiguration
138        CALL CONFIG_SUMMARY( myThid )        CALL CONFIG_SUMMARY( myThid )
139    
140    #ifdef COMPONENT_MODULE
141    C--   Post component-model configuration information to coupler
142    C     and get config. info for other component(s).
143          IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid )
144    #endif
145    
146    #ifdef ALLOW_MNC
147    C     Test MNC
148          CALL MNC_INIT(myThid)
149          CALL MNC_W_GRIDINFO(myThid, 'test')
150    #endif
151    
152        RETURN        RETURN
153        END        END
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22