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

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

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

revision 1.20 by jmc, Tue Jun 2 20:58:22 2015 UTC revision 1.21 by jmc, Sun Jul 23 00:24:18 2017 UTC
# Line 106  C--    Select diagnostics list that uses Line 106  C--    Select diagnostics list that uses
106            IF ( time4SnapShot ) THEN            IF ( time4SnapShot ) THEN
107  C--       switch ON diagnostics of output-stream # n  C--       switch ON diagnostics of output-stream # n
108              DO m=1,nActive(n)              DO m=1,nActive(n)
109  c             nd = jdiag(m,n)  c             nd = ABS(jdiag(m,n))
110  c             IF (ndiag(nd).NE.0) WRITE(0,*) myIter,nd,ndiag(nd),' ->',0  c             IF (ndiag(nd).NE.0) WRITE(0,*) myIter,nd,ndiag(nd),' ->',0
111                ip = idiag(m,n)                ip = idiag(m,n)
112                IF (ip.GT.0) ndiag(ip,bi,bj) = 0                IF (ip.GT.0) ndiag(ip,bi,bj) = 0
# Line 114  c             IF (ndiag(nd).NE.0) WRITE( Line 114  c             IF (ndiag(nd).NE.0) WRITE(
114            ELSE            ELSE
115  C--       switch OFF diagnostics of output-stream # n  C--       switch OFF diagnostics of output-stream # n
116              DO m=1,nActive(n)              DO m=1,nActive(n)
117  c             nd = jdiag(m,n)  c             nd = ABS(jdiag(m,n))
118  c             IF (ndiag(nd).NE.-1) WRITE(0,*) myIter,nd,ndiag(nd),' ->',-1  c             IF (ndiag(nd).NE.-1) WRITE(0,*) myIter,nd,ndiag(nd),' ->',-1
119                ip = idiag(m,n)                ip = idiag(m,n)
120                IF (ip.GT.0) ndiag(ip,bi,bj) = -1                IF (ip.GT.0) ndiag(ip,bi,bj) = -1
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22