99 |
CALL INI_GRID( myThid ) |
CALL INI_GRID( myThid ) |
100 |
_BARRIER |
_BARRIER |
101 |
|
|
|
#ifdef ALLOW_MNC |
|
|
C Initialize the MNC state files and write the grid info |
|
|
IF (useMNC) THEN |
|
|
CALL INI_MNC_IO(myThid) |
|
|
ENDIF |
|
|
#endif |
|
|
|
|
102 |
C-- Set equation of state parameters. |
C-- Set equation of state parameters. |
103 |
CALL INI_EOS( myThid ) |
CALL INI_EOS( myThid ) |
104 |
_BARRIER |
_BARRIER |
145 |
C-- Finally summarise the model cofiguration |
C-- Finally summarise the model cofiguration |
146 |
CALL CONFIG_SUMMARY( myThid ) |
CALL CONFIG_SUMMARY( myThid ) |
147 |
|
|
148 |
|
C-- Write units/set precision/etc for I/O of variables/arrays belonging |
149 |
|
C to the core dynamical model |
150 |
|
CALL INI_MODEL_IO( myThid ) |
151 |
|
|
152 |
|
C-- Write grid data and geometry arrays |
153 |
|
CALL WRITE_GRID( myThid ) |
154 |
|
|
155 |
#ifdef COMPONENT_MODULE |
#ifdef COMPONENT_MODULE |
156 |
C-- Post component-model configuration information to coupler |
C-- Post component-model configuration information to coupler |
157 |
C and get config. info for other component(s). |
C and get config. info for other component(s). |