1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
|
#include "AD_CONFIG.h" |
|
4 |
#include "PACKAGES_CONFIG.h" |
#include "PACKAGES_CONFIG.h" |
5 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
6 |
|
|
44 |
C | |
C | |
45 |
C |-- BULKF_INIT |
C |-- BULKF_INIT |
46 |
C | |
C | |
47 |
C |-- ICE_INIT |
C |-- THSICE_INI_VARS |
48 |
|
|
49 |
C !USES: |
C !USES: |
50 |
IMPLICIT NONE |
IMPLICIT NONE |
102 |
IF ( useLAND ) CALL LAND_INI_VARS( mythid ) |
IF ( useLAND ) CALL LAND_INI_VARS( mythid ) |
103 |
#endif |
#endif |
104 |
|
|
105 |
#if (defined (ALLOW_ADJOINT_RUN) || \ |
#ifdef ALLOW_AUTODIFF |
|
defined (ALLOW_TANGENTLINEAR_RUN) || \ |
|
|
defined (ALLOW_ECCO_OPTIMIZATION)) |
|
106 |
c-- Initialise auxiliary xx_ fields |
c-- Initialise auxiliary xx_ fields |
107 |
CALL CTRL_INIT_VARIABLES ( mythid ) |
CALL CTRL_INIT_VARIABLES ( mythid ) |
108 |
c-- Map the control variables onto the model state. |
c-- Map the control variables onto the model state. |
110 |
_BARRIER |
_BARRIER |
111 |
#endif |
#endif |
112 |
|
|
113 |
#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE |
#ifdef ALLOW_EXF |
114 |
CALL EXF_INIT( mythid ) |
CALL EXF_INIT( mythid ) |
115 |
#else |
#else |
116 |
CALL INI_FORCING( mythid ) |
CALL INI_FORCING( mythid ) |
128 |
IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid ) |
IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid ) |
129 |
#endif |
#endif |
130 |
|
|
|
cswdblk -- begin add --- |
|
131 |
#ifdef ALLOW_BULK_FORCE |
#ifdef ALLOW_BULK_FORCE |
132 |
IF (useBulkForce) call BULKF_INIT( mythid) |
IF (useBulkForce) CALL BULKF_INIT( mythid) |
133 |
#endif |
#endif |
|
cswdblk ---end add --- |
|
134 |
|
|
135 |
cswdice ---begin add --- |
#ifdef ALLOW_THSICE |
136 |
#ifdef ALLOW_THERM_SEAICE |
IF (useThSIce) CALL THSICE_INI_VARS( mythid) |
|
IF (useThermSeaIce) call ICE_INIT( mythid) |
|
137 |
#endif |
#endif |
|
cswdice ---end add --- |
|
138 |
|
|
139 |
|
|
140 |
RETURN |
RETURN |