--- MITgcm/pkg/diagnostics/diagnostics_switch_onoff.F	2015/06/02 20:58:22	1.20
+++ MITgcm/pkg/diagnostics/diagnostics_switch_onoff.F	2017/07/23 00:24:18	1.21
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/diagnostics/diagnostics_switch_onoff.F,v 1.20 2015/06/02 20:58:22 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/diagnostics/diagnostics_switch_onoff.F,v 1.21 2017/07/23 00:24:18 jmc Exp $
 C $Name:  $
 
 #include "DIAG_OPTIONS.h"
@@ -106,7 +106,7 @@
           IF ( time4SnapShot ) THEN
 C--       switch ON diagnostics of output-stream # n
             DO m=1,nActive(n)
-c             nd = jdiag(m,n)
+c             nd = ABS(jdiag(m,n))
 c             IF (ndiag(nd).NE.0) WRITE(0,*) myIter,nd,ndiag(nd),' ->',0
               ip = idiag(m,n)
               IF (ip.GT.0) ndiag(ip,bi,bj) = 0
@@ -114,7 +114,7 @@
           ELSE
 C--       switch OFF diagnostics of output-stream # n
             DO m=1,nActive(n)
-c             nd = jdiag(m,n)
+c             nd = ABS(jdiag(m,n))
 c             IF (ndiag(nd).NE.-1) WRITE(0,*) myIter,nd,ndiag(nd),' ->',-1
               ip = idiag(m,n)
               IF (ip.GT.0) ndiag(ip,bi,bj) = -1