/[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.15 by adcroft, Mon Jun 22 15:26:26 1998 UTC revision 1.17 by adcroft, Wed Jul 1 19:49:36 1998 UTC
# 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.15  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22