139 |
C-- Save state for restarts |
C-- Save state for restarts |
140 |
C Note: |
C Note: |
141 |
C ===== |
C ===== |
142 |
C Because of the ordereing of the timestepping code and |
C Because of the ordering of the timestepping code and |
143 |
C tendency term code at end of loop model arrays hold |
C tendency term code at end of loop model arrays hold |
144 |
C U,V,T,S at "time-level" N but gu, gv, gs, gt, guNM1,... |
C U,V,T,S at "time-level" N but gu, gv, gs, gt, guNM1,... |
145 |
C at "time-level" N+1/2 (guNM1 at "time-level" N+1/2 is |
C at "time-level" N+1/2 (guNM1 at "time-level" N+1/2 is |
153 |
|
|
154 |
ENDDO |
ENDDO |
155 |
|
|
156 |
C-- Dump for end state and final checkpoint |
C-- Final checkpoint (incase the in-loop checkpoint was missed) |
|
CALL WRITE_STATE( myCurrentTime, myCurrentIter, myThid ) |
|
157 |
CALL WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid ) |
CALL WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid ) |
158 |
|
|
159 |
|
C-- Step-forward U/V/Theta/Salt for purposes of final I/O dump |
160 |
|
CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid ) |
161 |
|
|
162 |
|
C-- Dump for end state |
163 |
|
CALL WRITE_STATE( myCurrentTime, myCurrentIter, myThid ) |
164 |
|
|
165 |
|
|
166 |
RETURN |
RETURN |
167 |
END |
END |