/[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.83 by heimbach, Wed Nov 17 15:23:35 2004 UTC revision 1.84 by heimbach, Sat Dec 4 17:02:26 2004 UTC
# Line 465  C     == Global variables === Line 465  C     == Global variables ===
465    
466  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
467  # include "tamc.h"  # include "tamc.h"
468    #endif
469    #ifdef ALLOW_CTRL
470  # include "optim.h"  # include "optim.h"
471  #endif  #endif
472    
# Line 570  cph      CALL ADTHE_MAIN_LOOP ( mythid ) Line 572  cph      CALL ADTHE_MAIN_LOOP ( mythid )
572        CALL TIMER_STOP ('ADTHE_MAIN_LOOP          [ADJOINT RUN]', mythid)        CALL TIMER_STOP ('ADTHE_MAIN_LOOP          [ADJOINT RUN]', mythid)
573  #  endif /* ALLOW_DIVIDED_ADJOINT */  #  endif /* ALLOW_DIVIDED_ADJOINT */
574  c  c
575    # else /* forward run only within AD setting */
576    
577    #ifdef ALLOW_DEBUG
578          IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid)
579    #endif
580    C--   Call time stepping loop of full model
581          CALL TIMER_START('THE_MAIN_LOOP          [THE_MODEL_MAIN]',myThid)
582          CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid )
583          CALL TIMER_STOP ('THE_MAIN_LOOP          [THE_MODEL_MAIN]',myThid)
584    
585  # endif  # endif
586    
587  # ifndef EXCLUDE_CTRL_PACK  # ifndef EXCLUDE_CTRL_PACK
# Line 598  c Line 610  c
610  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
611        IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid)        IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid)
612  #endif  #endif
   
613  C--   Call time stepping loop of full model  C--   Call time stepping loop of full model
614        CALL TIMER_START('THE_MAIN_LOOP          [THE_MODEL_MAIN]',myThid)        CALL TIMER_START('THE_MAIN_LOOP          [THE_MODEL_MAIN]',myThid)
615        CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid )        CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid )
Legend:
Removed from v.1.83  
changed lines
  Added in v.1.84
  ViewVC Help
Powered by ViewVC 1.1.22