/[MITgcm]/MITgcm/model/src/main_do_loop.F
ViewVC logotype

Diff of /MITgcm/model/src/main_do_loop.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.18 by gforget, Mon Oct 20 03:09:03 2014 UTC revision 1.19 by heimbach, Fri Jul 3 21:32:48 2015 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    #include "OPENAD_OPTIONS.h"
7  c#ifdef ALLOW_AUTODIFF  c#ifdef ALLOW_AUTODIFF
8  c# include "AUTODIFF_OPTIONS.h"  c# include "AUTODIFF_OPTIONS.h"
9  c#endif  c#endif
# Line 215  CEOP Line 216  CEOP
216  #ifdef ALLOW_OPENAD  #ifdef ALLOW_OPENAD
217  C     >>>>>>>>>>>>>>>>>>>>>>>>>>>   LOOP   <<<<<<<<<<<<<<<<<<<<<<<<<<<<  C     >>>>>>>>>>>>>>>>>>>>>>>>>>>   LOOP   <<<<<<<<<<<<<<<<<<<<<<<<<<<<
218  C     >>>>>>>>>>>>>>>>>>>>>>>>>>>  STARTS  <<<<<<<<<<<<<<<<<<<<<<<<<<<<  C     >>>>>>>>>>>>>>>>>>>>>>>>>>>  STARTS  <<<<<<<<<<<<<<<<<<<<<<<<<<<<
219    #ifdef ALLOW_OPENAD_DIVA
220          DO iloop = 1, nTimeSteps_l2
221    #else
222        DO iloop = 1, nTimeSteps        DO iloop = 1, nTimeSteps
223  #endif  #endif
224    
225    #endif
226    
227  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
228        IF (debugMode) CALL DEBUG_CALL('FORWARD_STEP',myThid)        IF (debugMode) CALL DEBUG_CALL('FORWARD_STEP',myThid)
229  #endif  #endif
230    
231    #ifndef ALLOW_OPENAD
232  #ifdef ALLOW_ATM2D  #ifdef ALLOW_ATM2D
233          CALL TIMER_START('FORWARD_STEP_ATM2D  [MAIN_DO_LOOP]',myThid)          CALL TIMER_START('FORWARD_STEP_ATM2D  [MAIN_DO_LOOP]',myThid)
234          CALL FORWARD_STEP_ATM2D( iloop, myTime, myIter, myThid )          CALL FORWARD_STEP_ATM2D( iloop, myTime, myIter, myThid )
# Line 231  C     >>>>>>>>>>>>>>>>>>>>>>>>>>>  START Line 238  C     >>>>>>>>>>>>>>>>>>>>>>>>>>>  START
238          CALL FORWARD_STEP( iloop, myTime, myIter, myThid )          CALL FORWARD_STEP( iloop, myTime, myIter, myThid )
239          CALL TIMER_STOP ('FORWARD_STEP        [MAIN_DO_LOOP]',myThid)          CALL TIMER_STOP ('FORWARD_STEP        [MAIN_DO_LOOP]',myThid)
240  #endif  #endif
241    #else
242    C#ifdef ALLOW_ATM2D
243    C        CALL TIMER_START('INNER_DO_LOOP_ATM2D  [MAIN_DO_LOOP]',myThid)
244    C        nTimeSteps_l2 = 2
245    C        CALL INNER_DO_LOOP( iloop, myTime, myIter, myThid )
246    C        CALL TIMER_STOP ('INNER_DO_LOOP_ATM2D  [MAIN_DO_LOOP]',myThid)
247    C#else
248    C        CALL TIMER_START('INNER_DO_LOOP        [MAIN_DO_LOOP]',myThid)
249    C        nTimeSteps_l2 = 2
250    C        CALL INNER_DO_LOOP( iloop, myTime, myIter, myThid )
251    C        CALL TIMER_STOP ('INNER_DO_LOOP        [MAIN_DO_LOOP]',myThid)
252    C#endif
253    #ifdef ALLOW_OPENAD_DIVA
254           CALL TIMER_START('INNER_DO_LOOP       [MAIN_DO_LOOP]',myThid)
255           nTimeSteps_l2 = 2
256           CALL INNER_DO_LOOP( iloop, myTime, myIter, myThid )
257           CALL TIMER_STOP ('INNER_DO_LOOP       [MAIN_DO_LOOP]',myThid)
258    #else
259           CALL TIMER_START('FORWARD_STEP        [MAIN_DO_LOOP]',myThid)
260           nTimeSteps_l2 = 2
261           CALL FORWARD_STEP( iloop, myTime, myIter, myThid )
262           CALL TIMER_STOP ('FORWARD_STEP        [MAIN_DO_LOOP]',myThid)
263    #endif
264    #endif
265    
266  #ifdef ALLOW_OPENAD  #ifdef ALLOW_OPENAD
267        ENDDO        ENDDO
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22