19 |
C !CALLING SEQUENCE: |
C !CALLING SEQUENCE: |
20 |
C PACKAGES_INIT_VARIABLES |
C PACKAGES_INIT_VARIABLES |
21 |
C | |
C | |
22 |
|
C |-- CD_CODE_INI_VARS |
23 |
|
C | |
24 |
C |-- GMREDI_INIT |
C |-- GMREDI_INIT |
25 |
C | |
C | |
26 |
C |-- KPP_INIT |
C |-- KPP_INIT |
61 |
INTEGER myThid |
INTEGER myThid |
62 |
CEOP |
CEOP |
63 |
|
|
64 |
|
#ifdef ALLOW_CD_CODE |
65 |
|
C-- Initialize CD_CODE variables: |
66 |
|
C- note(jmc): before packaging CD_CODE, was done within ini_fields (=called before), |
67 |
|
C therefore call CD-ini-vars before others pkg. |
68 |
|
IF (useCDscheme) CALL CD_CODE_INI_VARS( myThid ) |
69 |
|
#endif |
70 |
|
|
71 |
#ifdef ALLOW_GMREDI |
#ifdef ALLOW_GMREDI |
72 |
C-- Initialize GM/Redi parameterization |
C-- Initialize GM/Redi parameterization |
73 |
IF (useGMRedi) CALL GMREDI_INIT( myThid ) |
IF (useGMRedi) CALL GMREDI_INIT( myThid ) |