/[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.16 by cnh, Tue Jun 30 17:21:11 1998 UTC revision 1.17 by adcroft, Wed Jul 1 19:49:36 1998 UTC
# Line 70  C /|\   |  | Line 70  C /|\   |  |
70  C  |    |  |  C  |    |  |
71  C  |<== |  | ** Time stepping loop finishes here **  C  |<== |  | ** Time stepping loop finishes here **
72  C       |  |  C       |  |
 C       |  |--WRITE_CHECKPOINT  
73  C       |  |--WRITE_STATE  C       |  |--WRITE_STATE
74    C       |  |--WRITE_CHECKPOINT
75  C       |  C       |
76  C       .  C       .
77  C       .  C       .
# Line 122  C--    Step forward fields and calculate Line 122  C--    Step forward fields and calculate
122         CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )         CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )
123    
124  C--    Do time averages  C--    Do time averages
125    #ifdef ALLOW_DIAGNOSTICS
126         IF (taveFreq.GT.0.) THEN         IF (taveFreq.GT.0.) THEN
127           CALL DO_TIME_AVERAGES( myCurrentTime, myCurrentIter, myThid )          CALL WRITE_TIME_AVERAGES( myCurrentTime, myCurrentIter, myThid )
128         ENDIF         ENDIF
129    #endif
130    
131  C--    Do IO if needed.  C--    Do IO if needed.
132  C      Note:  C      Note:
# Line 169  C--   Step-forward U/V/Theta/Salt for pu Line 171  C--   Step-forward U/V/Theta/Salt for pu
171        CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )        CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )
172    
173  C--   Do time averages  C--   Do time averages
174    #ifdef ALLOW_DIAGNOSTICS
175        IF (taveFreq.GT.0.) THEN        IF (taveFreq.GT.0.) THEN
176          CALL DO_TIME_AVERAGES( myCurrentTime, myCurrentIter, myThid )          CALL WRITE_TIME_AVERAGES( myCurrentTime, myCurrentIter, myThid )
177        ENDIF        ENDIF
178    #endif
179    
180  C--   Dump for end state  C--   Dump for end state
181        CALL WRITE_STATE( .FALSE., myCurrentTime, myCurrentIter, myThid )        CALL WRITE_STATE( .FALSE., myCurrentTime, myCurrentIter, myThid )
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22