/[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.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 )
Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71
  ViewVC Help
Powered by ViewVC 1.1.22