151 |
C _EXCH_XY_R8(fu , mythid) |
C _EXCH_XY_R8(fu , mythid) |
152 |
C _EXCH_XY_R8(fv , mythid) |
C _EXCH_XY_R8(fv , mythid) |
153 |
cswdblk -- end add --- |
cswdblk -- end add --- |
154 |
#else |
#else /* ALLOW_BULK_FORCE undef */ |
155 |
#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE |
# ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE |
156 |
C NOTE, that although the exf package is part of the |
C NOTE, that although the exf package is part of the |
157 |
C distribution, it is not currently maintained, i.e. |
C distribution, it is not currently maintained, i.e. |
158 |
C exf is disabled by default in genmake. |
C exf is disabled by default in genmake. |
159 |
CALL TIMER_START('EXF_GETFORCING [FORWARD_STEP]',mythid) |
CALL TIMER_START('EXF_GETFORCING [FORWARD_STEP]',mythid) |
160 |
CALL EXF_GETFORCING( mytime, myiter, mythid ) |
CALL EXF_GETFORCING( mytime, myiter, mythid ) |
161 |
CALL TIMER_STOP ('EXF_GETFORCING [FORWARD_STEP]',mythid) |
CALL TIMER_STOP ('EXF_GETFORCING [FORWARD_STEP]',mythid) |
162 |
#else |
# else /* INCLUDE_EXTERNAL_FORCING_PACKAGE undef */ |
163 |
|
cph The following IF-statement creates an additional dependency |
164 |
|
cph for the forcing fields requiring additional storing. |
165 |
|
cph Therefore, the IF-statement will be put between CPP-OPTIONS, |
166 |
|
cph assuming that ALLOW_SEAICE has not yet been differentiated. |
167 |
|
# ifdef ALLOW_SEAICE |
168 |
IF ( .NOT. useSEAICE ) THEN |
IF ( .NOT. useSEAICE ) THEN |
169 |
|
# endif |
170 |
CALL TIMER_START('EXTERNAL_FIELDS_LOAD[FORWARD_STEP]',mythid) |
CALL TIMER_START('EXTERNAL_FIELDS_LOAD[FORWARD_STEP]',mythid) |
171 |
CALL EXTERNAL_FIELDS_LOAD( mytime, myiter, mythid ) |
CALL EXTERNAL_FIELDS_LOAD( mytime, myiter, mythid ) |
172 |
CALL TIMER_STOP ('EXTERNAL_FIELDS_LOAD[FORWARD_STEP]',mythid) |
CALL TIMER_STOP ('EXTERNAL_FIELDS_LOAD[FORWARD_STEP]',mythid) |
173 |
|
# ifdef ALLOW_SEAICE |
174 |
ENDIF |
ENDIF |
175 |
#endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */ |
# endif |
176 |
|
# endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */ |
177 |
|
|
178 |
#ifdef ALLOW_SEAICE |
#if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN)) |
179 |
|
c-- Add control vector for forcing and parameter fields |
180 |
|
if ( myiter .EQ. nIter0 ) |
181 |
|
& CALL CTRL_MAP_FORCING (mythid) |
182 |
|
#endif |
183 |
|
|
184 |
|
# ifdef ALLOW_SEAICE |
185 |
C-- Call sea ice model to compute forcing/external data fields. In |
C-- Call sea ice model to compute forcing/external data fields. In |
186 |
C addition to computing prognostic sea-ice variables and diagnosing the |
C addition to computing prognostic sea-ice variables and diagnosing the |
187 |
C forcing/external data fields that drive the ocean model, SEAICE_MODEL |
C forcing/external data fields that drive the ocean model, SEAICE_MODEL |
197 |
CALL SEAICE_MODEL( myTime, myIter, myThid ) |
CALL SEAICE_MODEL( myTime, myIter, myThid ) |
198 |
CALL TIMER_STOP ('SEAICE_MODEL [FORWARD_STEP]',myThid) |
CALL TIMER_STOP ('SEAICE_MODEL [FORWARD_STEP]',myThid) |
199 |
ENDIF |
ENDIF |
200 |
#endif ALLOW_SEAICE |
# endif ALLOW_SEAICE |
201 |
#endif ALLOW_BULK_FORCE |
#endif ALLOW_BULK_FORCE |
202 |
|
|
203 |
C-- Step forward fields and calculate time tendency terms. |
C-- Step forward fields and calculate time tendency terms. |