73 |
IF (useAIM) CALL AIM_INITIALISE( myThid ) |
IF (useAIM) CALL AIM_INITIALISE( myThid ) |
74 |
#endif |
#endif |
75 |
|
|
76 |
|
C AMM |
77 |
|
#ifdef ALLOW_GRIDALT |
78 |
|
C-- Initialise GRIDALT parameters - the alternative grid |
79 |
|
IF (useGRIDALT) CALL GRIDALT_INITIALISE( myThid ) |
80 |
|
#endif |
81 |
|
|
82 |
|
#ifdef ALLOW_FIZHI |
83 |
|
C-- Initialise & Read FIZHI physical parameters |
84 |
|
IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid ) |
85 |
|
#endif |
86 |
|
C AMM |
87 |
|
|
88 |
#ifdef ALLOW_LAND |
#ifdef ALLOW_LAND |
89 |
C-- Initialise & Read Land package parameters |
C-- Initialise & Read Land package parameters |
90 |
IF (useLand) CALL LAND_INITIALISE( myThid ) |
IF (useLand) CALL LAND_INITIALISE( myThid ) |