7 |
CBOP |
CBOP |
8 |
C !ROUTINE: INITIALISE_FIXED |
C !ROUTINE: INITIALISE_FIXED |
9 |
C !INTERFACE: |
C !INTERFACE: |
10 |
SUBROUTINE INITIALISE_FIXED(myThid) |
SUBROUTINE INITIALISE_FIXED( myThid ) |
11 |
|
|
12 |
C !DESCRIPTION: \bv |
C !DESCRIPTION: \bv |
13 |
C *==========================================================* |
C *==========================================================* |
55 |
C | |
C | |
56 |
C |-- PACKAGES_INIT_FIXED |
C |-- PACKAGES_INIT_FIXED |
57 |
C | |
C | |
|
C |-- PACKAGES_CHECK |
|
|
C | |
|
58 |
C |-- INI_LINEAR_PHSURF |
C |-- INI_LINEAR_PHSURF |
59 |
C | |
C | |
60 |
C |-- INI_CORI |
C |-- INI_CORI |
63 |
C | |
C | |
64 |
C |-- INI_CG3D |
C |-- INI_CG3D |
65 |
C | |
C | |
|
C |-- CONFIG_CHECK |
|
|
C | |
|
66 |
C |-- CONFIG_SUMMARY |
C |-- CONFIG_SUMMARY |
67 |
C | |
C | |
68 |
|
C |-- PACKAGES_CHECK |
69 |
|
C | |
70 |
|
C |-- CONFIG_CHECK |
71 |
|
C | |
72 |
C |-- WRITE_GRID |
C |-- WRITE_GRID |
73 |
C | |
C | |
74 |
C |-- CPL_EXCH_CONFIGS |
C |-- CPL_EXCH_CONFIGS |
141 |
C-- Call fixed data initialization phase of packages |
C-- Call fixed data initialization phase of packages |
142 |
CALL PACKAGES_INIT_FIXED( myThid ) |
CALL PACKAGES_INIT_FIXED( myThid ) |
143 |
|
|
|
C-- Check dependances between packages |
|
|
CALL PACKAGES_CHECK( myThid ) |
|
|
|
|
144 |
C-- Set Bo_surf => define the Linear Relation: Phi_surf(eta) |
C-- Set Bo_surf => define the Linear Relation: Phi_surf(eta) |
145 |
CALL INI_LINEAR_PHISURF( myThid ) |
CALL INI_LINEAR_PHISURF( myThid ) |
146 |
|
|
152 |
|
|
153 |
#ifdef ALLOW_NONHYDROSTATIC |
#ifdef ALLOW_NONHYDROSTATIC |
154 |
C-- Set laplace operators for use in 3D conjugate gradient solver. |
C-- Set laplace operators for use in 3D conjugate gradient solver. |
|
ceh3 needs an IF ( useNONHYDROSTATIC ) THEN |
|
155 |
CALL INI_CG3D( myThid ) |
CALL INI_CG3D( myThid ) |
156 |
#endif |
#endif |
157 |
|
|
158 |
C-- Check parameters and model cofiguration |
C-- Finally summarise the model configuration |
|
CALL CONFIG_CHECK( myThid ) |
|
|
|
|
|
C-- Finally summarise the model cofiguration |
|
159 |
CALL CONFIG_SUMMARY( myThid ) |
CALL CONFIG_SUMMARY( myThid ) |
160 |
|
|
161 |
|
C-- Check packages configuration (& print summary) |
162 |
|
CALL PACKAGES_CHECK( myThid ) |
163 |
|
|
164 |
|
C-- Check parameters and model configuration |
165 |
|
CALL CONFIG_CHECK( myThid ) |
166 |
|
|
167 |
C-- Write grid data and geometry arrays |
C-- Write grid data and geometry arrays |
168 |
IF ( debugLevel.GE.debLevA .OR. |
IF ( debugLevel.GE.debLevA .OR. |
169 |
& startTime.EQ.baseTime ) CALL WRITE_GRID( myThid ) |
& startTime.EQ.baseTime ) CALL WRITE_GRID( myThid ) |