143 |
CALL TIMER_STOP ('SHAP_FILT [MAIN LOOP]',myThid) |
CALL TIMER_STOP ('SHAP_FILT [MAIN LOOP]',myThid) |
144 |
#endif |
#endif |
145 |
|
|
146 |
|
#ifdef ALLOW_OBCS |
147 |
C-- Set Open Boundaries Values |
C-- Set Open Boundaries Values |
148 |
IF (openBoundaries) THEN |
IF (openBoundaries) THEN |
149 |
CALL TIMER_START('OBCS [MAIN LOOP]',myThid) |
CALL TIMER_START('OBCS [MAIN LOOP]',myThid) |
150 |
CALL SET_OBCS( myCurrentTime, myThid ) |
CALL SET_OBCS( myCurrentTime, myThid ) |
151 |
CALL TIMER_STOP ('OBCS [MAIN LOOP]',myThid) |
CALL TIMER_STOP ('OBCS [MAIN LOOP]',myThid) |
152 |
ENDIF |
ENDIF |
153 |
|
#endif |
154 |
|
|
155 |
C-- Step forward fields and calculate time tendency terms |
C-- Step forward fields and calculate time tendency terms |
156 |
CALL TIMER_START('DYNAMICS [MAIN LOOP]',myThid) |
CALL TIMER_START('DYNAMICS [MAIN LOOP]',myThid) |
228 |
& WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid ) |
& WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid ) |
229 |
CALL TIMER_STOP ('I/O (WRITE) [SPIN-DOWN]',myThid) |
CALL TIMER_STOP ('I/O (WRITE) [SPIN-DOWN]',myThid) |
230 |
|
|
231 |
|
#ifdef ALLOW_OBCS |
232 |
C-- Set Open Boundaries Values |
C-- Set Open Boundaries Values |
233 |
IF (openBoundaries) THEN |
IF (openBoundaries) THEN |
234 |
CALL TIMER_START('OBCS [SPIN_DOWN]',myThid) |
CALL TIMER_START('OBCS [SPIN_DOWN]',myThid) |
235 |
CALL SET_OBCS( myCurrentTime, myThid ) |
CALL SET_OBCS( myCurrentTime, myThid ) |
236 |
CALL TIMER_STOP ('OBCS [SPIN_DOWN]',myThid) |
CALL TIMER_STOP ('OBCS [SPIN_DOWN]',myThid) |
237 |
ENDIF |
ENDIF |
238 |
|
#endif |
239 |
|
|
240 |
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 |
241 |
CALL TIMER_START('DYNAMICS [SPIN-DOWN]',myThid) |
CALL TIMER_START('DYNAMICS [SPIN-DOWN]',myThid) |