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' |
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. |
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. |