142 |
CALL TIMER_STOP ('SHAP_FILT [MAIN LOOP]',myThid) |
CALL TIMER_STOP ('SHAP_FILT [MAIN LOOP]',myThid) |
143 |
#endif |
#endif |
144 |
|
|
|
#ifdef ALLOW_OBCS |
|
|
C-- Set Open Boundaries Values |
|
|
IF (openBoundaries) THEN |
|
|
CALL TIMER_START('OBCS [MAIN LOOP]',myThid) |
|
|
CALL SET_OBCS( myCurrentTime, myThid ) |
|
|
CALL TIMER_STOP ('OBCS [MAIN LOOP]',myThid) |
|
|
ENDIF |
|
|
#endif |
|
|
|
|
145 |
C-- Step forward fields and calculate time tendency terms |
C-- Step forward fields and calculate time tendency terms |
146 |
CALL TIMER_START('DYNAMICS [MAIN LOOP]',myThid) |
CALL TIMER_START('DYNAMICS [MAIN LOOP]',myThid) |
147 |
CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid ) |
CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid ) |
218 |
& WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid ) |
& WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid ) |
219 |
CALL TIMER_STOP ('I/O (WRITE) [SPIN-DOWN]',myThid) |
CALL TIMER_STOP ('I/O (WRITE) [SPIN-DOWN]',myThid) |
220 |
|
|
|
#ifdef ALLOW_OBCS |
|
|
C-- Set Open Boundaries Values |
|
|
IF (openBoundaries) THEN |
|
|
CALL TIMER_START('OBCS [SPIN_DOWN]',myThid) |
|
|
CALL SET_OBCS( myCurrentTime, myThid ) |
|
|
CALL TIMER_STOP ('OBCS [SPIN_DOWN]',myThid) |
|
|
ENDIF |
|
|
#endif |
|
|
|
|
221 |
C-- Step-forward U/V/Theta/Salt for purposes of final I/O dump |
C-- Step-forward U/V/Theta/Salt for purposes of final I/O dump |
222 |
CALL TIMER_START('DYNAMICS [SPIN-DOWN]',myThid) |
CALL TIMER_START('DYNAMICS [SPIN-DOWN]',myThid) |
223 |
CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid ) |
CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid ) |