139 |
CALL TIMER_STOP ('SHAP_FILT [MAIN LOOP]',myThid) |
CALL TIMER_STOP ('SHAP_FILT [MAIN LOOP]',myThid) |
140 |
#endif |
#endif |
141 |
|
|
142 |
|
C-- Set Open Boundaries Values |
143 |
|
IF (openBoundaries) THEN |
144 |
|
CALL TIMER_START('OBCS [MAIN LOOP]',myThid) |
145 |
|
CALL SET_OBCS( myCurrentTime, myThid ) |
146 |
|
CALL TIMER_STOP ('OBCS [MAIN LOOP]',myThid) |
147 |
|
ENDIF |
148 |
|
|
149 |
C-- Step forward fields and calculate time tendency terms |
C-- Step forward fields and calculate time tendency terms |
150 |
CALL TIMER_START('DYNAMICS [MAIN LOOP]',myThid) |
CALL TIMER_START('DYNAMICS [MAIN LOOP]',myThid) |
213 |
& WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid ) |
& WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid ) |
214 |
CALL TIMER_STOP ('I/O (WRITE) [SPIN-DOWN]',myThid) |
CALL TIMER_STOP ('I/O (WRITE) [SPIN-DOWN]',myThid) |
215 |
|
|
216 |
|
C-- Set Open Boundaries Values |
217 |
|
IF (openBoundaries) THEN |
218 |
|
CALL TIMER_START('OBCS [SPIN_DOWN]',myThid) |
219 |
|
CALL SET_OBCS( myCurrentTime, myThid ) |
220 |
|
CALL TIMER_STOP ('OBCS [SPIN_DOWN]',myThid) |
221 |
|
ENDIF |
222 |
|
|
223 |
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 |
224 |
CALL TIMER_START('DYNAMICS [SPIN-DOWN]',myThid) |
CALL TIMER_START('DYNAMICS [SPIN-DOWN]',myThid) |
225 |
CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid ) |
CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid ) |