175 |
cph because we only have active file handling to real available. |
cph because we only have active file handling to real available. |
176 |
# endif |
# endif |
177 |
# ifdef ALLOW_TAMC_CHECKPOINTING |
# ifdef ALLOW_TAMC_CHECKPOINTING |
|
nIter0 = INT( startTime/deltaTClock ) |
|
178 |
ikey_dynamics = 1 |
ikey_dynamics = 1 |
179 |
# endif |
# endif |
180 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
181 |
|
|
|
myTime = startTime |
|
|
myIter = nIter0 |
|
|
|
|
182 |
CALL TIMER_START('ECCO SPIN-UP', mythid) |
CALL TIMER_START('ECCO SPIN-UP', mythid) |
183 |
|
|
184 |
c-- Get the current date. |
c-- Get the current date. |
213 |
CALL TIMER_STOP ('MONITOR [THE_MAIN_LOOP]', mythid) |
CALL TIMER_STOP ('MONITOR [THE_MAIN_LOOP]', mythid) |
214 |
#endif /* ALLOW_MONITOR */ |
#endif /* ALLOW_MONITOR */ |
215 |
|
|
216 |
|
#ifdef ALLOW_DEBUG |
217 |
|
IF (debugMode) CALL DEBUG_CALL('DO_THE_MODEL_IO',myThid) |
218 |
|
#endif |
219 |
|
CALL TIMER_START('DO_THE_MODEL_IO [THE_MAIN_LOOP]', mythid) |
220 |
|
CALL DO_THE_MODEL_IO( myTime, myIter, mythid ) |
221 |
|
CALL TIMER_STOP ('DO_THE_MODEL_IO [THE_MAIN_LOOP]', mythid) |
222 |
|
|
223 |
|
|
224 |
#ifdef ALLOW_COST |
#ifdef ALLOW_COST |
225 |
c-- Compute the cost function contribution of the boundary forcing, |
c-- Compute the cost function contribution of the boundary forcing, |