/[MITgcm]/MITgcm/pkg/diagnostics/diagstats_close_io.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagstats_close_io.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by jmc, Wed Jan 13 01:44:12 2010 UTC revision 1.4 by jmc, Fri Jul 1 18:28:52 2011 UTC
# Line 63  C-      write a conclusion & close the f Line 63  C-      write a conclusion & close the f
63    
64        ENDIF        ENDIF
65    
66    C-    Close also local diagnostics output file
67          IF ( diagLoc_ioUnit.GT.0 ) THEN
68            CLOSE(diagLoc_ioUnit)
69          ENDIF
70    
71        _END_MASTER( myThid )        _END_MASTER( myThid )
72    
73        RETURN        RETURN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22