/[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.48 by dimitri, Sat Dec 28 10:11:10 2002 UTC revision 1.49 by dimitri, Tue Feb 18 05:33:54 2003 UTC
# Line 346  C/\  | | | |-TIMEAVE_STATV_WRITE :: Time Line 346  C/\  | | | |-TIMEAVE_STATV_WRITE :: Time
346  C/\  | | | |-AIM_WRITE_DIAGS     :: Intermed. atmos diags. see pkg/aim  C/\  | | | |-AIM_WRITE_DIAGS     :: Intermed. atmos diags. see pkg/aim
347  C/\  | | | |-GMREDI_DIAGS        :: GM diags. see pkg/gmredi  C/\  | | | |-GMREDI_DIAGS        :: GM diags. see pkg/gmredi
348  C/\  | | | |-KPP_DO_DIAGS        :: KPP diags. see pkg/kpp  C/\  | | | |-KPP_DO_DIAGS        :: KPP diags. see pkg/kpp
349    C/\  | | | |-SBO_CALC            :: SBO diags. see pkg/sbo
350    C/\  | | | |-SBO_DIAGS           :: SBO diags. see pkg/sbo
351  C/\  | | |  C/\  | | |
352  C/\  | | |-WRITE_CHECKPOINT :: Do I/O for restart files.  C/\  | | |-WRITE_CHECKPOINT :: Do I/O for restart files.
353  C/\  | |  C/\  | |
# Line 527  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    
532  C--   Final checkpoint (incase the in-loop checkpoint was missed)  C--   Final checkpoint (in case the in-loop checkpoint was missed)
533        CALL TIMER_START('WRITE_CHECKPOINT       [THE_MODEL_MAIN]',myThid)        CALL TIMER_START('WRITE_CHECKPOINT       [THE_MODEL_MAIN]',myThid)
534        CALL WRITE_CHECKPOINT(        CALL WRITE_CHECKPOINT(
535       &        .TRUE., myCurrentTime, myCurrentIter, myThid )       &        .TRUE., myCurrentTime, myCurrentIter, myThid )
536        CALL TIMER_STOP ('WRITE_CHECKPOINT       [THE_MODEL_MAIN]',myThid)        CALL TIMER_STOP ('WRITE_CHECKPOINT       [THE_MODEL_MAIN]',myThid)
537    
538    C--   Sea-ice checkpoint (in case the in-loop checkpoint was missed)
539    #ifdef ALLOW_SEAICE
540          IF ( useSEAICE )
541         &     CALL SEAICE_WRITE_PICKUP(
542         &     .TRUE., myCurrentTime, myCurrentIter, myThid )
543    #endif
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.48  
changed lines
  Added in v.1.49
  ViewVC Help
Powered by ViewVC 1.1.22