/[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.18 by edhill, Thu Jan 15 04:31:24 2004 UTC revision 1.39 by dimitri, Thu Dec 9 19:45:53 2004 UTC
# Line 29  C     INITIALISE_FIXED Line 29  C     INITIALISE_FIXED
29  C      |  C      |
30  C      |-- INI_PARMS  C      |-- INI_PARMS
31  C      |  C      |
32    C      |-- PACKAGES_BOOT
33    C      |
34    C      |-- PACKAGES_READPARMS
35    C      | |
36    C      | | - MNC_INIT + MNC_CW_INIT
37    C      | |
38    C      | | - ${PKG}_READPARMS
39    C      |
40  C      |-- MON_INIT  C      |-- MON_INIT
41  C      |  C      |
42  C      |-- INI_GRID  C      |-- INI_GRID
43  C      |  C      |
 C      |-- INI_EOS  
 C      |  
44  C      |-- INI_DEPTHS  C      |-- INI_DEPTHS
45  C      |  C      |
46  C      |-- INI_MASKS_ETC  C      |-- INI_EOS
 C      |  
 C      |-- PACKAGES_BOOT  
47  C      |  C      |
48  C      |-- PACKAGES_READPARMS  C      |-- INI_MASKS_ETC
49  C      |  C      |
50  C      |-- PACKAGES_INIT_FIXED  C      |-- PACKAGES_INIT_FIXED
51  C      |  C      |
# Line 59  C      |-- CONFIG_CHECK Line 63  C      |-- CONFIG_CHECK
63  C      |  C      |
64  C      |-- CONFIG_SUMMARY  C      |-- CONFIG_SUMMARY
65  C      |  C      |
66  C      |-- MNC_W_GRIDINFO  C      |-- INI_MODEL_IO
67    C      |
68    C      |-- WRITE_GRID
69    C      |
70    C      |-- CPL_EXCH_CONFIGS
71    
72  C     !USES:  C     !USES:
73        IMPLICIT NONE        IMPLICIT NONE
# Line 79  C     an input file called data. Line 87  C     an input file called data.
87        CALL INI_PARMS( myThid )        CALL INI_PARMS( myThid )
88        _BARRIER        _BARRIER
89    
90    C--   Configure packages
91          CALL PACKAGES_BOOT( myThid )
92    
93    C--   Read configuration parameters for packages
94          CALL PACKAGES_READPARMS( myThid )
95    
96  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
97  C--   Initialise MONITOR I/O streams so we can report config. info  C--   Initialise MONITOR I/O streams so we can report config. info
98        CALL MON_INIT( myThid )        CALL MON_INIT( myThid )
99        _BARRIER        _BARRIER
100  #endif  #endif
101    
   
102  C--   Set model grid.  C--   Set model grid.
103  C     Variables defining model grid spacing are defined.  C     Variables defining model grid spacing are defined.
104        CALL INI_GRID( myThid )        CALL INI_GRID( myThid )
# Line 104  C     Volumes and areas are set accordin Line 117  C     Volumes and areas are set accordin
117        CALL INI_MASKS_ETC( myThid )        CALL INI_MASKS_ETC( myThid )
118        _BARRIER        _BARRIER
119    
 C--   Configure packages  
       CALL PACKAGES_BOOT( myThid )  
   
 C--   Read configuration parameters for packages  
       CALL PACKAGES_READPARMS( myThid )  
   
120  C--   Call fixed data initialization phase of packages  C--   Call fixed data initialization phase of packages
121        CALL PACKAGES_INIT_FIXED( myThid )        CALL PACKAGES_INIT_FIXED( myThid )
122    
# Line 137  C--   Check parameters and model cofigur Line 144  C--   Check parameters and model cofigur
144  C--   Finally summarise the model cofiguration  C--   Finally summarise the model cofiguration
145        CALL CONFIG_SUMMARY( myThid )        CALL CONFIG_SUMMARY( myThid )
146    
147    C--   Write units/set precision/etc for I/O of variables/arrays belonging
148    C     to the core dynamical model
149          CALL INI_MODEL_IO( myThid )
150    
151    C--   Write grid data and geometry arrays
152    #ifdef MINIMAL_TAVE_OUTPUT
153          IF ( startTime .EQ. 0.0 ) CALL WRITE_GRID( myThid )
154    #else
155          CALL WRITE_GRID( myThid )
156    #endif /* MINIMAL_TAVE_OUTPUT */
157    
158  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
159  C--   Post component-model configuration information to coupler  C--   Post component-model configuration information to coupler
160  C     and get config. info for other component(s).  C     and get config. info for other component(s).
161        IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid )        IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid )
162  #endif  #endif
163    
164  #ifdef ALLOW_MNC  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
 C     Test MNC  
       CALL MNC_INIT(myThid)  
       CALL MNC_W_GRIDINFO(myThid, 'test')  
 #endif  
165    
166        RETURN        RETURN
167        END        END
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22