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

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

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

revision 1.37 by jmc, Fri Jun 8 15:01:19 2012 UTC revision 1.38 by jmc, Wed Aug 14 00:57:33 2013 UTC
# Line 148  C-      wait for everyone before setting Line 148  C-      wait for everyone before setting
148            _BARRIER            _BARRIER
149          ENDIF          ENDIF
150          IF ( modelEnd ) THEN          IF ( modelEnd ) THEN
151    C-      Track diagnostics pkg activation status:
152              _BEGIN_MASTER(myThid)
153    c         IF ( diag_pkgStatus.NE.ready2fillDiags ) STOP
154              diag_pkgStatus = 99
155              _END_MASTER(myThid)
156  C       Close all Stat-diags output files  C       Close all Stat-diags output files
157            CALL DIAGSTATS_CLOSE_IO( myThid )            CALL DIAGSTATS_CLOSE_IO( myThid )
158          ENDIF          ENDIF
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22