Parent Directory | Revision Log | Revision Graph | Patch
revision 1.75 by edhill, Fri Mar 19 03:28:36 2004 UTC | revision 1.76 by edhill, Fri Mar 19 05:09:41 2004 UTC | |
---|---|---|
# | Line 635 C-- Final checkpoint (in case the in-l | Line 635 C-- Final checkpoint (in case the in-l |
635 | CALL TIMER_STOP ('ALL [THE_MODEL_MAIN]',myThid) | CALL TIMER_STOP ('ALL [THE_MODEL_MAIN]',myThid) |
636 | ||
637 | #ifdef ALLOW_MNC | #ifdef ALLOW_MNC |
638 | C Close all open NetCDF files | IF (useMNC) THEN |
639 | _BEGIN_MASTER( mythid ) | C Close all open NetCDF files |
640 | CALL MNC_FILE_CLOSE_ALL( myThid ) | _BEGIN_MASTER( mythid ) |
641 | _END_MASTER( mythid ) | CALL MNC_FILE_CLOSE_ALL( myThid ) |
642 | _END_MASTER( mythid ) | |
643 | ENDIF | |
644 | #endif | #endif |
645 | ||
646 | C-- Write timer statistics | C-- Write timer statistics |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |