/[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.31 by adcroft, Mon Aug 30 18:29:27 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 84  C     == Global variables === Line 85  C     == Global variables ===
85  #include "SIZE.h"  #include "SIZE.h"
86  #include "EEPARAMS.h"  #include "EEPARAMS.h"
87  #include "PARAMS.h"  #include "PARAMS.h"
 #include "CG2D.h"  
88  #include "DYNVARS.h"  #include "DYNVARS.h"
89  #include "AVER.h"  #include "CG2D.h"
90    #ifdef ALLOW_NONHYDROSTATIC
91    #include "CG3D.h"
92    #endif
93    
94  C     == Routine arguments ==  C     == Routine arguments ==
95  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
# Line 102  C     myCurrentIter - Iteration counter Line 105  C     myCurrentIter - Iteration counter
105  C     myCurrentTime - Time counter for this thread  C     myCurrentTime - Time counter for this thread
106  C     I             - Loop counter  C     I             - Loop counter
107        INTEGER I, myCurrentIter        INTEGER I, myCurrentIter
108        REAL    myCurrentTime        _RL     myCurrentTime
109    
110  C--   This timer encompasses the whole code  C--   This timer encompasses the whole code
111        CALL TIMER_START('ALL',myThid)        CALL TIMER_START('ALL',myThid)
# Line 139  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    
   
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 )
148         CALL TIMER_STOP ('DYNAMICS           [MAIN LOOP]',myThid)         CALL TIMER_STOP ('DYNAMICS           [MAIN LOOP]',myThid)
149    
150    #ifdef ALLOW_NONHYDROSTATIC
151    C--    Step forward W field in N-H algorithm
152           IF ( nonHydrostatic ) THEN
153            CALL TIMER_START('CALC_GW            [MAIN LOOP]',myThid)
154            CALL CALC_GW( myThid)
155            CALL TIMER_STOP ('CALC_GW            [MAIN LOOP]',myThid)
156           ENDIF
157    #endif
158    
159  C--    Do time averages  C--    Do time averages
160  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE
161         CALL TIMER_START('I/O (WRITE)        [MAIN LOOP]',myThid)         CALL TIMER_START('I/O (WRITE)        [MAIN LOOP]',myThid)
# Line 212  C--   Step-forward U/V/Theta/Salt for pu Line 223  C--   Step-forward U/V/Theta/Salt for pu
223        CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )        CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )
224        CALL TIMER_STOP ('DYNAMICS            [SPIN-DOWN]',myThid)        CALL TIMER_STOP ('DYNAMICS            [SPIN-DOWN]',myThid)
225    
226    #ifdef ALLOW_NONHYDROSTATIC
227          IF ( nonHydrostatic ) THEN
228    C--    Step forward W field in N-H algorithm
229           CALL TIMER_START('CALC_GW            [SPIN-DOWN]',myThid)
230           CALL CALC_GW( myThid)
231           CALL TIMER_STOP ('CALC_GW            [SPIN-DOWN]',myThid)
232          ENDIF
233    #endif
234    
235  C--   Do time averages  C--   Do time averages
236  #ifdef ALLOW_DIAGNOSTICS  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE
237        IF (taveFreq.GT.0.) THEN        IF (taveFreq.GT.0.) THEN
238         CALL TIMER_START('I/O (WRITE)        [SPIN-DOWN]',myThid)         CALL TIMER_START('I/O (WRITE)        [SPIN-DOWN]',myThid)
239         CALL WRITE_TIME_AVERAGES( myCurrentTime, myCurrentIter, myThid )         CALL WRITE_TIME_AVERAGES( myCurrentTime, myCurrentIter, myThid )
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22