185 |
C "state" files. This example is referred to as a checkpoint |
C "state" files. This example is referred to as a checkpoint |
186 |
C at time level 1 |
C at time level 1 |
187 |
CALL TIMER_START('I/O (WRITE) [MAIN LOOP]',myThid) |
CALL TIMER_START('I/O (WRITE) [MAIN LOOP]',myThid) |
188 |
CALL WRITE_CHECKPOINT( .FALSE., myCurrentTime, myCurrentIter, myThid ) |
CALL |
189 |
|
& WRITE_CHECKPOINT( .FALSE., myCurrentTime, myCurrentIter, myThid ) |
190 |
CALL TIMER_STOP ('I/O (WRITE) [MAIN LOOP]',myThid) |
CALL TIMER_STOP ('I/O (WRITE) [MAIN LOOP]',myThid) |
191 |
|
|
192 |
ENDDO |
ENDDO |
195 |
|
|
196 |
C-- Final checkpoint (incase the in-loop checkpoint was missed) |
C-- Final checkpoint (incase the in-loop checkpoint was missed) |
197 |
CALL TIMER_START('I/O (WRITE) [SPIN-DOWN]',myThid) |
CALL TIMER_START('I/O (WRITE) [SPIN-DOWN]',myThid) |
198 |
CALL WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid ) |
CALL |
199 |
|
& WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid ) |
200 |
CALL TIMER_STOP ('I/O (WRITE) [SPIN-DOWN]',myThid) |
CALL TIMER_STOP ('I/O (WRITE) [SPIN-DOWN]',myThid) |
201 |
|
|
202 |
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 |