/[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.21 by cnh, Wed Oct 28 03:11:38 1998 UTC revision 1.22 by cnh, Fri Nov 6 22:44:49 1998 UTC
# Line 132  C--    Load forcing/external data fields Line 132  C--    Load forcing/external data fields
132         CALL LOAD_EXTERNAL_FIELDS( myCurrentTime, myCurrentIter, myThid )         CALL LOAD_EXTERNAL_FIELDS( myCurrentTime, myCurrentIter, myThid )
133         CALL TIMER_STOP ('I/O (READ)         [MAIN LOOP]',myThid)         CALL TIMER_STOP ('I/O (READ)         [MAIN LOOP]',myThid)
134    
135    #ifdef INCLUDE_SHAPIRO_FILTER_CODE
136    C--    Step forward all tiles, filter and exchange.
137           CALL TIMER_START('SHAP_FILT          [MAIN LOOP]',myThid)
138           CALL SHAP_FILT( myCurrentTime, myCurrentIter, myThid )
139           CALL TIMER_STOP ('SHAP_FILT          [MAIN LOOP]',myThid)
140    #endif
141    
142    
143  C--    Step forward fields and calculate time tendency terms  C--    Step forward fields and calculate time tendency terms
144         CALL TIMER_START('DYNAMICS           [MAIN LOOP]',myThid)         CALL TIMER_START('DYNAMICS           [MAIN LOOP]',myThid)
145         CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )         CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )
146         CALL TIMER_STOP ('DYNAMICS           [MAIN LOOP]',myThid)         CALL TIMER_STOP ('DYNAMICS           [MAIN LOOP]',myThid)
147    
148  C--    Do time averages  C--    Do time averages
149  #ifdef ALLOW_DIAGNOSTICS  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE
150         CALL TIMER_START('I/O (WRITE)        [MAIN LOOP]',myThid)         CALL TIMER_START('I/O (WRITE)        [MAIN LOOP]',myThid)
151         IF (taveFreq.GT.0.) THEN         IF (taveFreq.GT.0.) THEN
152          CALL WRITE_TIME_AVERAGES( myCurrentTime, myCurrentIter, myThid )          CALL WRITE_TIME_AVERAGES( myCurrentTime, myCurrentIter, myThid )
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22