/[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.25 by adcroft, Fri Mar 12 16:44:04 1999 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 86  C     == Global variables === Line 87  C     == Global variables ===
87  #include "PARAMS.h"  #include "PARAMS.h"
88  #include "CG2D.h"  #include "CG2D.h"
89  #include "DYNVARS.h"  #include "DYNVARS.h"
 #include "AVER.h"  
90    
91  C     == Routine arguments ==  C     == Routine arguments ==
92  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
# 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    C--    Set Open Boundaries Values
143           IF (openBoundaries) THEN
144            CALL TIMER_START('OBCS               [MAIN LOOP]',myThid)
145            CALL SET_OBCS( myCurrentTime, myThid )
146            CALL TIMER_STOP ('OBCS               [MAIN LOOP]',myThid)
147           ENDIF
148    
149  C--    Step forward fields and calculate time tendency terms  C--    Step forward fields and calculate time tendency terms
150         CALL TIMER_START('DYNAMICS           [MAIN LOOP]',myThid)         CALL TIMER_START('DYNAMICS           [MAIN LOOP]',myThid)
151         CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )         CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )
152         CALL TIMER_STOP ('DYNAMICS           [MAIN LOOP]',myThid)         CALL TIMER_STOP ('DYNAMICS           [MAIN LOOP]',myThid)
153    
154  C--    Do time averages  C--    Do time averages
155  #ifdef ALLOW_DIAGNOSTICS  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE
156         CALL TIMER_START('I/O (WRITE)        [MAIN LOOP]',myThid)         CALL TIMER_START('I/O (WRITE)        [MAIN LOOP]',myThid)
157         IF (taveFreq.GT.0.) THEN         IF (taveFreq.GT.0.) THEN
158          CALL WRITE_TIME_AVERAGES( myCurrentTime, myCurrentIter, myThid )          CALL WRITE_TIME_AVERAGES( myCurrentTime, myCurrentIter, myThid )
# Line 199  C--   Final checkpoint (incase the in-lo Line 213  C--   Final checkpoint (incase the in-lo
213       & WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid )       & WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid )
214        CALL TIMER_STOP ('I/O (WRITE)         [SPIN-DOWN]',myThid)        CALL TIMER_STOP ('I/O (WRITE)         [SPIN-DOWN]',myThid)
215    
216    C--   Set Open Boundaries Values
217          IF (openBoundaries) THEN
218           CALL TIMER_START('OBCS               [SPIN_DOWN]',myThid)
219           CALL SET_OBCS( myCurrentTime, myThid )
220           CALL TIMER_STOP ('OBCS               [SPIN_DOWN]',myThid)
221          ENDIF
222    
223  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
224        CALL TIMER_START('DYNAMICS            [SPIN-DOWN]',myThid)        CALL TIMER_START('DYNAMICS            [SPIN-DOWN]',myThid)
225        CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )        CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22