/[MITgcm]/MITgcm/pkg/ecco/the_main_loop.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/the_main_loop.F

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

revision 1.17 by heimbach, Mon Feb 28 17:33:02 2005 UTC revision 1.18 by heimbach, Tue Mar 29 20:10:53 2005 UTC
# Line 376  c--     Set the model iteration counter Line 376  c--     Set the model iteration counter
376    
377  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
378          CALL AUTODIFF_INADMODE_UNSET( myThid )          CALL AUTODIFF_INADMODE_UNSET( myThid )
379    # if (defined (ALLOW_AUTODIFF_MONITOR))
380    C       Include call to a dummy routine. Its adjoint will be
381    C       called at the proper place in the adjoint code.
382    C       The adjoint routine will print out adjoint values
383    C       if requested. The location of the call is important,
384    C       it has to be after the adjoint of the exchanges
385    C       (DO_GTERM_BLOCKING_EXCHANGES).
386            CALL DUMMY_IN_STEPPING( myTime, myIter, myThid )
387    # endif
388  #endif  #endif
389    
390    
391  #ifdef ALLOW_COST  #ifdef ALLOW_COST
392    
393  c--     Accumulate time averages of temperature, salinity, and SSH.  c--     Accumulate time averages of temperature, salinity, and SSH.
# Line 432  CADJ STORE ptracer  = comlev1, key = ike Line 442  CADJ STORE ptracer  = comlev1, key = ike
442  # endif  # endif
443  #endif  #endif
444    
 #if (defined (ALLOW_AUTODIFF_TAMC) && \  
      defined (ALLOW_AUTODIFF_MONITOR))  
 C       Include call to a dummy routine. Its adjoint will be  
 C       called at the proper place in the adjoint code.  
 C       The adjoint routine will print out adjoint values  
 C       if requested. The location of the call is important,  
 C       it has to be after the adjoint of the exchanges  
 C       (DO_GTERM_BLOCKING_EXCHANGES).  
         CALL DUMMY_IN_STEPPING( myTime, myIter, myThid )  
 #endif  
   
445  #ifdef ALLOW_EBM  #ifdef ALLOW_EBM
446          IF ( useEBM ) THEN          IF ( useEBM ) THEN
447  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22