/[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.96 by jmc, Sat Jul 29 21:02:12 2006 UTC revision 1.97 by jmc, Thu Aug 24 01:15:45 2006 UTC
# Line 625  C--   Call time stepping loop of full mo Line 625  C--   Call time stepping loop of full mo
625  #endif /* ALLOW_TANGENTLINEAR_RUN ALLOW_ADJOINT_RUN ALLOW_ADMTLM */  #endif /* ALLOW_TANGENTLINEAR_RUN ALLOW_ADJOINT_RUN ALLOW_ADMTLM */
626    
627  C--   Final checkpoint (in case the in-loop checkpoint was missed)  C--   Final checkpoint (in case the in-loop checkpoint was missed)
628        CALL TIMER_START('WRITE_CHECKPOINT       [THE_MODEL_MAIN]',myThid)        CALL TIMER_START('DO_WRITE_PICKUP        [THE_MODEL_MAIN]',myThid)
629        CALL PACKAGES_WRITE_PICKUP(        CALL DO_WRITE_PICKUP(
630       I        .TRUE., myCurrentTime, myCurrentIter, myThid )       I        .TRUE., myCurrentTime, myCurrentIter, myThid )
631        CALL WRITE_CHECKPOINT(        CALL TIMER_STOP ('DO_WRITE_PICKUP        [THE_MODEL_MAIN]',myThid)
      I        .TRUE., myCurrentTime, myCurrentIter, myThid )  
       CALL TIMER_STOP ('WRITE_CHECKPOINT       [THE_MODEL_MAIN]',myThid)  
632    
633        CALL TIMER_STOP ('ALL                    [THE_MODEL_MAIN]',myThid)        CALL TIMER_STOP ('ALL                    [THE_MODEL_MAIN]',myThid)
634    
Legend:
Removed from v.1.96  
changed lines
  Added in v.1.97
  ViewVC Help
Powered by ViewVC 1.1.22