/[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.30 by adcroft, Fri Jul 30 15:46:49 1999 UTC revision 1.31 by adcroft, Mon Aug 30 18:29:27 1999 UTC
# Line 142  C--    Step forward all tiles, filter an Line 142  C--    Step forward all tiles, filter an
142         CALL TIMER_STOP ('SHAP_FILT          [MAIN LOOP]',myThid)         CALL TIMER_STOP ('SHAP_FILT          [MAIN LOOP]',myThid)
143  #endif  #endif
144    
 #ifdef ALLOW_OBCS  
 C--    Set Open Boundaries Values  
        IF (openBoundaries) THEN  
         CALL TIMER_START('OBCS               [MAIN LOOP]',myThid)  
         CALL SET_OBCS( myCurrentTime, myThid )  
         CALL TIMER_STOP ('OBCS               [MAIN LOOP]',myThid)  
        ENDIF  
 #endif  
   
145  C--    Step forward fields and calculate time tendency terms  C--    Step forward fields and calculate time tendency terms
146         CALL TIMER_START('DYNAMICS           [MAIN LOOP]',myThid)         CALL TIMER_START('DYNAMICS           [MAIN LOOP]',myThid)
147         CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )         CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )
# Line 227  C--   Final checkpoint (incase the in-lo Line 218  C--   Final checkpoint (incase the in-lo
218       & WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid )       & WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid )
219        CALL TIMER_STOP ('I/O (WRITE)         [SPIN-DOWN]',myThid)        CALL TIMER_STOP ('I/O (WRITE)         [SPIN-DOWN]',myThid)
220    
 #ifdef ALLOW_OBCS  
 C--   Set Open Boundaries Values  
       IF (openBoundaries) THEN  
        CALL TIMER_START('OBCS               [SPIN_DOWN]',myThid)  
        CALL SET_OBCS( myCurrentTime, myThid )  
        CALL TIMER_STOP ('OBCS               [SPIN_DOWN]',myThid)  
       ENDIF  
 #endif  
   
221  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
222        CALL TIMER_START('DYNAMICS            [SPIN-DOWN]',myThid)        CALL TIMER_START('DYNAMICS            [SPIN-DOWN]',myThid)
223        CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )        CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22