/[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.88 by heimbach, Wed Feb 23 21:15:59 2005 UTC revision 1.89 by jmc, Fri May 20 07:30:18 2005 UTC
# Line 629  C--   Final checkpoint (in case the in-l Line 629  C--   Final checkpoint (in case the in-l
629    
630        CALL TIMER_STOP ('ALL                    [THE_MODEL_MAIN]',myThid)        CALL TIMER_STOP ('ALL                    [THE_MODEL_MAIN]',myThid)
631    
632    #ifdef ALLOW_DIAGNOSTICS
633          IF (useDiagnostics) THEN
634    C       Close all diagnostics output files
635            CALL DIAGSTATS_CLOSE_IO( myThid )
636          ENDIF
637    #endif
638    
639  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
640        IF (useMNC) THEN        IF (useMNC) THEN
641  C       Close all open NetCDF files  C       Close all open NetCDF files
Legend:
Removed from v.1.88  
changed lines
  Added in v.1.89
  ViewVC Help
Powered by ViewVC 1.1.22