/[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.25 by adcroft, Fri Mar 12 16:44:04 1999 UTC revision 1.26 by adcroft, Mon Mar 22 15:54:05 1999 UTC
# Line 85  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 "CG2D.h"
90    #include "CG3D.h"
91    
92  C     == Routine arguments ==  C     == Routine arguments ==
93  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
# Line 103  C     myCurrentTime - Time counter for t Line 104  C     myCurrentTime - Time counter for t
104  C     I             - Loop counter  C     I             - Loop counter
105        INTEGER I, myCurrentIter        INTEGER I, myCurrentIter
106        REAL    myCurrentTime        REAL    myCurrentTime
107          CHARACTER*(30) suff
108    
109  C--   This timer encompasses the whole code  C--   This timer encompasses the whole code
110        CALL TIMER_START('ALL',myThid)        CALL TIMER_START('ALL',myThid)
# Line 151  C--    Step forward fields and calculate Line 153  C--    Step forward fields and calculate
153         CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )         CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )
154         CALL TIMER_STOP ('DYNAMICS           [MAIN LOOP]',myThid)         CALL TIMER_STOP ('DYNAMICS           [MAIN LOOP]',myThid)
155    
156    #ifdef ALLOW_NONHYDROSTATIC
157    C--    Step forward W field in N-H algorithm
158           IF ( nonHydrostatic ) THEN
159            CALL TIMER_START('CALC_GW            [MAIN LOOP]',myThid)
160            CALL CALC_GW( myThid)
161            CALL TIMER_STOP ('CALC_GW            [MAIN LOOP]',myThid)
162           ENDIF
163    #endif
164    
165  C--    Do time averages  C--    Do time averages
166  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE
167         CALL TIMER_START('I/O (WRITE)        [MAIN LOOP]',myThid)         CALL TIMER_START('I/O (WRITE)        [MAIN LOOP]',myThid)
# Line 170  C      By convention this is taken to be Line 181  C      By convention this is taken to be
181         CALL DO_THE_MODEL_IO( myCurrentTime, myCurrentIter, myThid )         CALL DO_THE_MODEL_IO( myCurrentTime, myCurrentIter, myThid )
182         CALL TIMER_STOP ('I/O (WRITE)        [MAIN LOOP]',myThid)         CALL TIMER_STOP ('I/O (WRITE)        [MAIN LOOP]',myThid)
183    
184    Caja
185           WRITE(suff,'(I10.10)') myCurrentIter
186           CALL WRITE_FLD_XY_RL('B2d.',suff,cg2d_b,
187         &            myCurrentIter,myThid)
188           CALL WRITE_FLD_XYZ_RL('B3d.',suff,cg3d_b,
189         &            myCurrentIter,myThid)
190    Caja
191    
192  C--    Solve elliptic equation(s).  C--    Solve elliptic equation(s).
193  C      Two-dimensional only for conventional hydrostatic or  C      Two-dimensional only for conventional hydrostatic or
194  C      three-dimensional for non-hydrostatic and/or IGW scheme.  C      three-dimensional for non-hydrostatic and/or IGW scheme.
# Line 225  C--   Step-forward U/V/Theta/Salt for pu Line 244  C--   Step-forward U/V/Theta/Salt for pu
244        CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )        CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )
245        CALL TIMER_STOP ('DYNAMICS            [SPIN-DOWN]',myThid)        CALL TIMER_STOP ('DYNAMICS            [SPIN-DOWN]',myThid)
246    
247    #ifdef ALLOW_NONHYDROSTATIC
248          IF ( nonHydrostatic ) THEN
249    C--    Step forward W field in N-H algorithm
250           CALL TIMER_START('CALC_GW            [SPIN-DOWN]',myThid)
251           CALL CALC_GW( myThid)
252           CALL TIMER_STOP ('CALC_GW            [SPIN-DOWN]',myThid)
253          ENDIF
254    #endif
255    
256  C--   Do time averages  C--   Do time averages
257  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
258        IF (taveFreq.GT.0.) THEN        IF (taveFreq.GT.0.) THEN
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22