/[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.15 by jmc, Tue Aug 21 16:09:31 2007 UTC revision 1.17 by jmc, Mon Jun 6 15:42:58 2011 UTC
# Line 61  c     INTEGER newIter Line 61  c     INTEGER newIter
61    
62  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
63    
64        dBugFlag = debugLevel.GT.debLevB .AND. myThid.EQ.1        dBugFlag = debugLevel.GE.debLevE .AND. myThid.EQ.1
65        dBugUnit = errorMessageUnit        dBugUnit = errorMessageUnit
66    
67  c     newIter = 1 + myIter  c     newIter = 1 + myIter
# Line 120  C--    Select diagnostics list that uses Line 120  C--    Select diagnostics list that uses
120    
121  C-     check future value of pdiag:  C-     check future value of pdiag:
122          IF (dBugFlag.AND.pdiag(n,1,1).NE.nInterval)          IF (dBugFlag.AND.pdiag(n,1,1).NE.nInterval)
123       &    WRITE(dBugUnit,'(A,I8,3(A,I3),F17.6)')       &    WRITE(dBugUnit,'(A,I8,3(A,I4),F17.6)')
124       &     'DIAG_SWITCH_ONOFF: at it=', myIter, ', list:', n,       &     'DIAG_SWITCH_ONOFF: at it=', myIter, ', list:', n,
125       &     ' switch', pdiag(n,1,1),' ->', nInterval, xInterval       &     ' switch', pdiag(n,1,1),' ->', nInterval, xInterval
126          IF ( nInterval.LT.0 .OR. nInterval.GE.averageCycle(n) ) THEN          IF ( nInterval.LT.0 .OR. nInterval.GE.averageCycle(n) ) THEN
127            WRITE(msgBuf,'(2A,I2,A,I4)') 'DIAGNOSTICS_SWITCH_ONOFF:',            WRITE(msgBuf,'(2A,I3,A,I4)') 'DIAGNOSTICS_SWITCH_ONOFF:',
128       &       ' error setting pdiag(n=',n,') to:', nInterval       &       ' error setting pdiag(n=',n,') to:', nInterval
129            CALL PRINT_ERROR( msgBuf , myThid )            CALL PRINT_ERROR( msgBuf , myThid )
130            WRITE(msgBuf,'(2A,I3,A,F17.6)') 'DIAGNOSTICS_SWITCH_ONOFF:',            WRITE(msgBuf,'(2A,I4,A,F17.6)') 'DIAGNOSTICS_SWITCH_ONOFF:',
131       &       ' cycle=', averageCycle(n), ', xInt=', xInterval       &       ' cycle=', averageCycle(n), ', xInt=', xInterval
132            CALL PRINT_ERROR( msgBuf , myThid )            CALL PRINT_ERROR( msgBuf , myThid )
133            STOP 'ABNORMAL END: S/R DIAGNOSTICS_SWITCH_ONOFF'            STOP 'ABNORMAL END: S/R DIAGNOSTICS_SWITCH_ONOFF'
# Line 150  C---+----1----+----2----+----3----+----4 Line 150  C---+----1----+----2----+----3----+----4
150         IF ( diagSt_freq(n).LT.0. ) THEN         IF ( diagSt_freq(n).LT.0. ) THEN
151  C--    Select diagnostics list that uses instantaneous output  C--    Select diagnostics list that uses instantaneous output
152    
153          dBugFlag = debugLevel.GT.debLevB          dBugFlag = debugLevel.GE.debLevE
154    
155          freqSec = diagSt_freq(n)          freqSec = diagSt_freq(n)
156          phiSec = diagSt_phase(n)          phiSec = diagSt_phase(n)
# Line 174  C--     switch ON diagnostics of output- Line 174  C--     switch ON diagnostics of output-
174               IF (iSp.GT.0) THEN               IF (iSp.GT.0) THEN
175                 nd = jSdiag(m,n)                 nd = jSdiag(m,n)
176                 IF (dBugFlag.AND.qSdiag(0,0,iSp,bi,bj).NE. 0.)                 IF (dBugFlag.AND.qSdiag(0,0,iSp,bi,bj).NE. 0.)
177       &          WRITE(dBugUnit,'(A,I8,A,I4,3A,1PE10.3,A,I3)')       &          WRITE(dBugUnit,'(A,I8,A,I6,3A,1PE10.3,A,I3)')
178       &           'DIAG_SWITCH_ONOFF: at it=', myIter, ' diag:', nd,       &           'DIAG_SWITCH_ONOFF: at it=', myIter, ' diag:', nd,
179       &           ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', 0       &           ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', 0
180                 qSdiag(0,0,iSp,bi,bj) = 0.                 qSdiag(0,0,iSp,bi,bj) = 0.
# Line 187  C--     switch OFF diagnostics of output Line 187  C--     switch OFF diagnostics of output
187               IF (iSp.GT.0) THEN               IF (iSp.GT.0) THEN
188                 nd = jSdiag(m,n)                 nd = jSdiag(m,n)
189                 IF (dBugFlag.AND.qSdiag(0,0,iSp,bi,bj).NE.-1.)                 IF (dBugFlag.AND.qSdiag(0,0,iSp,bi,bj).NE.-1.)
190       &          WRITE(dBugUnit,'(A,I8,A,I4,3A,1PE10.3,A,I3)')       &          WRITE(dBugUnit,'(A,I8,A,I6,3A,1PE10.3,A,I3)')
191       &           'DIAG_SWITCH_ONOFF: at it=', myIter, ' diag:', nd,       &           'DIAG_SWITCH_ONOFF: at it=', myIter, ' diag:', nd,
192       &           ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', -1       &           ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', -1
193                 qSdiag(0,0,iSp,bi,bj) = -1.                 qSdiag(0,0,iSp,bi,bj) = -1.
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22