--- MITgcm/pkg/diagnostics/diagnostics_switch_onoff.F	2012/06/07 17:13:32	1.18
+++ MITgcm/pkg/diagnostics/diagnostics_switch_onoff.F	2013/08/14 00:57:33	1.19
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/diagnostics/diagnostics_switch_onoff.F,v 1.18 2012/06/07 17:13:32 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/diagnostics/diagnostics_switch_onoff.F,v 1.19 2013/08/14 00:57:33 jmc Exp $
 C $Name:  $
 
 #include "DIAG_OPTIONS.h"
@@ -65,6 +65,16 @@
       dBugFlag = debugLevel.GE.debLevE .AND. myThid.EQ.1
       dBugUnit = errorMessageUnit
 
+C--   Track diagnostics pkg activation status:
+      IF ( myIter.EQ.nIter0 ) THEN
+        _BEGIN_MASTER(myThid)
+c       IF ( diag_pkgStatus.NE.10 ) STOP
+        diag_pkgStatus = ready2fillDiags
+        _END_MASTER(myThid)
+c     ELSEIF
+c       IF ( diag_pkgStatus.NE.ready2fillDiags ) STOP
+      ENDIF
+
 c     newIter = 1 + myIter
       DO n = 1,nlists