/[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.27 by adcroft, Mon Mar 22 16:44:17 1999 UTC revision 1.28 by adcroft, Mon May 24 15:42:23 1999 UTC
# Line 143  C--    Step forward all tiles, filter an Line 143  C--    Step forward all tiles, filter an
143         CALL TIMER_STOP ('SHAP_FILT          [MAIN LOOP]',myThid)         CALL TIMER_STOP ('SHAP_FILT          [MAIN LOOP]',myThid)
144  #endif  #endif
145    
146    #ifdef ALLOW_OBCS
147  C--    Set Open Boundaries Values  C--    Set Open Boundaries Values
148         IF (openBoundaries) THEN         IF (openBoundaries) THEN
149          CALL TIMER_START('OBCS               [MAIN LOOP]',myThid)          CALL TIMER_START('OBCS               [MAIN LOOP]',myThid)
150          CALL SET_OBCS( myCurrentTime, myThid )          CALL SET_OBCS( myCurrentTime, myThid )
151          CALL TIMER_STOP ('OBCS               [MAIN LOOP]',myThid)          CALL TIMER_STOP ('OBCS               [MAIN LOOP]',myThid)
152         ENDIF         ENDIF
153    #endif
154    
155  C--    Step forward fields and calculate time tendency terms  C--    Step forward fields and calculate time tendency terms
156         CALL TIMER_START('DYNAMICS           [MAIN LOOP]',myThid)         CALL TIMER_START('DYNAMICS           [MAIN LOOP]',myThid)
# Line 226  C--   Final checkpoint (incase the in-lo Line 228  C--   Final checkpoint (incase the in-lo
228       & WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid )       & WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid )
229        CALL TIMER_STOP ('I/O (WRITE)         [SPIN-DOWN]',myThid)        CALL TIMER_STOP ('I/O (WRITE)         [SPIN-DOWN]',myThid)
230    
231    #ifdef ALLOW_OBCS
232  C--   Set Open Boundaries Values  C--   Set Open Boundaries Values
233        IF (openBoundaries) THEN        IF (openBoundaries) THEN
234         CALL TIMER_START('OBCS               [SPIN_DOWN]',myThid)         CALL TIMER_START('OBCS               [SPIN_DOWN]',myThid)
235         CALL SET_OBCS( myCurrentTime, myThid )         CALL SET_OBCS( myCurrentTime, myThid )
236         CALL TIMER_STOP ('OBCS               [SPIN_DOWN]',myThid)         CALL TIMER_STOP ('OBCS               [SPIN_DOWN]',myThid)
237        ENDIF        ENDIF
238    #endif
239    
240  C--   Step-forward U/V/Theta/Salt for purposes of final I/O dump  C--   Step-forward U/V/Theta/Salt for purposes of final I/O dump
241        CALL TIMER_START('DYNAMICS            [SPIN-DOWN]',myThid)        CALL TIMER_START('DYNAMICS            [SPIN-DOWN]',myThid)
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22