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

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

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

revision 1.32 by heimbach, Fri Jan 10 23:41:15 2003 UTC revision 1.33 by heimbach, Thu Feb 6 22:42:11 2003 UTC
# Line 109  C--   Check status of solution (statisti Line 109  C--   Check status of solution (statisti
109        CALL TIMER_STOP ('MONITOR             [THE_MAIN_LOOP]', mythid)        CALL TIMER_STOP ('MONITOR             [THE_MAIN_LOOP]', mythid)
110  #endif /* EXCLUDE_MONITOR */  #endif /* EXCLUDE_MONITOR */
111    
 #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))  
 c--   Add control vector for forcing and parameter fields  
       CALL CTRL_MAP_FORCING (mythid)  
 #endif  
   
112  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
113        CALL TIMER_STOP ('ADJOINT SPIN-UP', mythid)        CALL TIMER_STOP ('ADJOINT SPIN-UP', mythid)
114        _BARRIER        _BARRIER
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22