Parent Directory | Revision Log | Revision Graph | Patch
revision 1.70 by jmc, Mon Dec 15 18:40:10 2003 UTC | revision 1.71 by edhill, Sun Jan 18 23:23:15 2004 UTC | |
---|---|---|
# | Line 632 C-- Final checkpoint (in case the in-l | Line 632 C-- Final checkpoint (in case the in-l |
632 | ||
633 | CALL TIMER_STOP ('ALL [THE_MODEL_MAIN]',myThid) | CALL TIMER_STOP ('ALL [THE_MODEL_MAIN]',myThid) |
634 | ||
635 | #ifdef ALLOW_MNC | |
636 | C Close all open NetCDF files | |
637 | _BEGIN_MASTER( mythid ) | |
638 | CALL MNC_FILE_CLOSE_ALL() | |
639 | _END_MASTER( mythid ) | |
640 | #endif | |
641 | ||
642 | C-- Write timer statistics | C-- Write timer statistics |
643 | IF ( myThid .EQ. 1 ) THEN | IF ( myThid .EQ. 1 ) THEN |
644 | CALL TIMER_PRINTALL( myThid ) | CALL TIMER_PRINTALL( myThid ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |