/[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.49 by dimitri, Tue Feb 18 05:33:54 2003 UTC revision 1.50 by dimitri, Thu Feb 27 22:34:38 2003 UTC
# Line 529  C--   Call time stepping loop of full mo Line 529  C--   Call time stepping loop of full mo
529        end if        end if
530  #endif  #endif
531    
 C--   Final checkpoint (in case the in-loop checkpoint was missed)  
       CALL TIMER_START('WRITE_CHECKPOINT       [THE_MODEL_MAIN]',myThid)  
       CALL WRITE_CHECKPOINT(  
      &        .TRUE., myCurrentTime, myCurrentIter, myThid )  
       CALL TIMER_STOP ('WRITE_CHECKPOINT       [THE_MODEL_MAIN]',myThid)  
   
532  C--   Sea-ice checkpoint (in case the in-loop checkpoint was missed)  C--   Sea-ice checkpoint (in case the in-loop checkpoint was missed)
533  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
534        IF ( useSEAICE )        IF ( useSEAICE )
# Line 542  C--   Sea-ice checkpoint (in case the in Line 536  C--   Sea-ice checkpoint (in case the in
536       &     .TRUE., myCurrentTime, myCurrentIter, myThid )       &     .TRUE., myCurrentTime, myCurrentIter, myThid )
537  #endif  #endif
538    
539    C--   Final checkpoint (in case the in-loop checkpoint was missed)
540          CALL TIMER_START('WRITE_CHECKPOINT       [THE_MODEL_MAIN]',myThid)
541          CALL WRITE_CHECKPOINT(
542         &        .TRUE., myCurrentTime, myCurrentIter, myThid )
543          CALL TIMER_STOP ('WRITE_CHECKPOINT       [THE_MODEL_MAIN]',myThid)
544    
545        CALL TIMER_STOP ('ALL                    [THE_MODEL_MAIN]',myThid)        CALL TIMER_STOP ('ALL                    [THE_MODEL_MAIN]',myThid)
546    
547  C--   Write timer statistics  C--   Write timer statistics
Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50
  ViewVC Help
Powered by ViewVC 1.1.22