/[MITgcm]/MITgcm/model/src/the_model_main.F
ViewVC logotype

Diff of /MITgcm/model/src/the_model_main.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.11 by cnh, Mon Jun 15 05:13:56 1998 UTC revision 1.12 by adcroft, Tue Jun 16 15:26:57 1998 UTC
# Line 139  C--    Do "blocking" sends and receives Line 139  C--    Do "blocking" sends and receives
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
# Line 153  C      at time level 1 Line 153  C      at time level 1
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
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22