/[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.3 by heimbach, Mon Nov 17 22:32:33 2003 UTC revision 1.4 by heimbach, Mon Feb 23 19:14:22 2004 UTC
# Line 175  cph Thus, we can only store real values Line 175  cph Thus, we can only store real values
175  cph because we only have active file handling to real available.  cph because we only have active file handling to real available.
176  # endif  # endif
177  # ifdef ALLOW_TAMC_CHECKPOINTING  # ifdef ALLOW_TAMC_CHECKPOINTING
        nIter0 = INT( startTime/deltaTClock )  
178         ikey_dynamics = 1         ikey_dynamics = 1
179  # endif  # endif
180  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
181    
       myTime = startTime  
       myIter = nIter0  
   
182        CALL TIMER_START('ECCO SPIN-UP', mythid)        CALL TIMER_START('ECCO SPIN-UP', mythid)
183    
184  c--   Get the current date.  c--   Get the current date.
# Line 217  C--   Check status of solution (statisti Line 213  C--   Check status of solution (statisti
213        CALL TIMER_STOP ('MONITOR             [THE_MAIN_LOOP]', mythid)        CALL TIMER_STOP ('MONITOR             [THE_MAIN_LOOP]', mythid)
214  #endif /* ALLOW_MONITOR */  #endif /* ALLOW_MONITOR */
215    
216    #ifdef ALLOW_DEBUG
217          IF (debugMode) CALL DEBUG_CALL('DO_THE_MODEL_IO',myThid)
218    #endif
219          CALL TIMER_START('DO_THE_MODEL_IO     [THE_MAIN_LOOP]', mythid)
220          CALL DO_THE_MODEL_IO( myTime, myIter, mythid )
221          CALL TIMER_STOP ('DO_THE_MODEL_IO     [THE_MAIN_LOOP]', mythid)
222    
223    
224  #ifdef ALLOW_COST  #ifdef ALLOW_COST
225  c--   Compute the cost function contribution of the boundary forcing,  c--   Compute the cost function contribution of the boundary forcing,
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22