/[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.22 by cnh, Fri Nov 6 22:44:49 1998 UTC revision 1.24 by adcroft, Wed Dec 9 16:11:54 1998 UTC
# Line 22  C     | ===== Line 22  C     | =====
22  C     | C*P* comments indicating place holders for which code is |  C     | C*P* comments indicating place holders for which code is |
23  C     |      presently being developed.                          |  C     |      presently being developed.                          |
24  C     \==========================================================/  C     \==========================================================/
25          IMPLICIT NONE
26  C  C
27  C     Call Tree  C     Call Tree
28  C     =========  C     =========
# Line 139  C--    Step forward all tiles, filter an Line 140  C--    Step forward all tiles, filter an
140         CALL TIMER_STOP ('SHAP_FILT          [MAIN LOOP]',myThid)         CALL TIMER_STOP ('SHAP_FILT          [MAIN LOOP]',myThid)
141  #endif  #endif
142    
143    C--    Set Open Boundaries Values
144           IF (openBoundaries) THEN
145            CALL TIMER_START('OBCS               [MAIN LOOP]',myThid)
146            CALL SET_OBCS( myCurrentTime, myThid )
147            CALL TIMER_STOP ('OBCS               [MAIN LOOP]',myThid)
148           ENDIF
149    
150  C--    Step forward fields and calculate time tendency terms  C--    Step forward fields and calculate time tendency terms
151         CALL TIMER_START('DYNAMICS           [MAIN LOOP]',myThid)         CALL TIMER_START('DYNAMICS           [MAIN LOOP]',myThid)
# Line 207  C--   Final checkpoint (incase the in-lo Line 214  C--   Final checkpoint (incase the in-lo
214       & WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid )       & WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid )
215        CALL TIMER_STOP ('I/O (WRITE)         [SPIN-DOWN]',myThid)        CALL TIMER_STOP ('I/O (WRITE)         [SPIN-DOWN]',myThid)
216    
217    C--   Set Open Boundaries Values
218          IF (openBoundaries) THEN
219           CALL TIMER_START('OBCS               [SPIN_DOWN]',myThid)
220           CALL SET_OBCS( myCurrentTime, myThid )
221           CALL TIMER_STOP ('OBCS               [SPIN_DOWN]',myThid)
222          ENDIF
223    
224  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
225        CALL TIMER_START('DYNAMICS            [SPIN-DOWN]',myThid)        CALL TIMER_START('DYNAMICS            [SPIN-DOWN]',myThid)
226        CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )        CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22