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/\ | | |
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 |