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

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

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

revision 1.13 by adcroft, Fri Jul 20 15:53:10 2001 UTC revision 1.14 by heimbach, Wed Aug 1 22:12:12 2001 UTC
# Line 56  C     == local variables == Line 56  C     == local variables ==
56    
57    
58  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
59  C--     Set the model iteration counter and the model time.  C--     Reset the model iteration counter and the model time.
60          myiter = nIter0 + (iloop-1)          myiter = nIter0 + (iloop-1)
61          mytime = startTime + float(iloop-1)*deltaTclock          mytime = startTime + float(iloop-1)*deltaTclock
   
 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 )  
62  #endif  #endif
63    
64  C--     Load forcing/external data fields.  C--     Load forcing/external data fields.
# Line 156  C--   Check status of solution (statisti Line 148  C--   Check status of solution (statisti
148        CALL MONITOR( myIter, myTime, myThid )        CALL MONITOR( myIter, myTime, myThid )
149  #endif /* EXCLUDE_MONITOR */  #endif /* EXCLUDE_MONITOR */
150    
151  #ifndef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
152    C     Include call to a dummy routine. Its adjoint will be
153    C     called at the proper place in the adjoint code.
154    C     The adjoint routine will print out adjoint values
155    C     if requested. The location of the call is important,
156    C     it has to be after the adjoint of the exchanges
157    C     (DO_GTERM_BLOCKING_EXCHANGES).
158          CALL DUMMY_IN_STEPPING( myTime, myIter, myThid )
159    #else
160  C--   Do IO if needed.  C--   Do IO if needed.
161        CALL TIMER_START('DO_THE_MODEL_IO     [THE_MAIN_LOOP]',myThid)        CALL TIMER_START('DO_THE_MODEL_IO     [THE_MAIN_LOOP]',myThid)
162        CALL DO_THE_MODEL_IO( myTime, myIter, myThid )        CALL DO_THE_MODEL_IO( myTime, myIter, myThid )
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22