/[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.38 by jmc, Wed Aug 14 00:57:33 2013 UTC revision 1.39 by jmc, Tue Jun 2 20:58:22 2015 UTC
# Line 149  C-      wait for everyone before setting Line 149  C-      wait for everyone before setting
149          ENDIF          ENDIF
150          IF ( modelEnd ) THEN          IF ( modelEnd ) THEN
151  C-      Track diagnostics pkg activation status:  C-      Track diagnostics pkg activation status:
           _BEGIN_MASTER(myThid)  
152  c         IF ( diag_pkgStatus.NE.ready2fillDiags ) STOP  c         IF ( diag_pkgStatus.NE.ready2fillDiags ) STOP
153              _BARRIER
154              _BEGIN_MASTER(myThid)
155            diag_pkgStatus = 99            diag_pkgStatus = 99
156            _END_MASTER(myThid)            _END_MASTER(myThid)
157              _BARRIER
158  C       Close all Stat-diags output files  C       Close all Stat-diags output files
159            CALL DIAGSTATS_CLOSE_IO( myThid )            CALL DIAGSTATS_CLOSE_IO( myThid )
160          ENDIF          ENDIF
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22