Symbol Description Uses
ipt diagnostic pointer to storage array 55


File Line number Procedure Code
./pkg/diagnostics/diagnostics_clear.F 32 DIAGNOSTICS_CLEAR 
      INTEGER m, ndId, ipt, nLev
./pkg/diagnostics/diagnostics_clear.F 37 DIAGNOSTICS_CLEAR 
         ipt   = idiag(m,listId)
./pkg/diagnostics/diagnostics_clear.F 39 DIAGNOSTICS_CLEAR 
         CALL DIAGNOSTICS_CLRDIAG( ipt, nLev, myThid )
./pkg/diagnostics/diagnostics_clear.F 51 DIAGNOSTICS_CLRDIAG 
      SUBROUTINE DIAGNOSTICS_CLRDIAG ( ipt, nLev, myThid )
./pkg/diagnostics/diagnostics_clear.F 71 DIAGNOSTICS_CLRDIAG 
      INTEGER ipt, nLev
./pkg/diagnostics/diagnostics_clear.F 87 DIAGNOSTICS_CLRDIAG 
         kl = ipt+k-1
./pkg/diagnostics/diagnostics_fill.F 66 DIAGNOSTICS_FILL 
      INTEGER ndId, ipt, iSp
./pkg/diagnostics/diagnostics_fill.F 89 DIAGNOSTICS_FILL 
         ipt = idiag(m,n)
./pkg/diagnostics/diagnostics_fill.F 90 DIAGNOSTICS_FILL 
         IF ( ndiag(ipt,bi,bj).GE.0 ) THEN
./pkg/diagnostics/diagnostics_fill.F 92 DIAGNOSTICS_FILL 
           ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId)
./pkg/diagnostics/diagnostics_fill.F 97 DIAGNOSTICS_FILL 
     I              ndId, ipt, kLev, nLevs,
./pkg/diagnostics/diagnostics_fill_rs.F 66 DIAGNOSTICS_FILL_RS 
      INTEGER ndId, ipt, iSp
./pkg/diagnostics/diagnostics_fill_rs.F 89 DIAGNOSTICS_FILL_RS 
         ipt = idiag(m,n)
./pkg/diagnostics/diagnostics_fill_rs.F 90 DIAGNOSTICS_FILL_RS 
         IF ( ndiag(ipt,bi,bj).GE.0 ) THEN
./pkg/diagnostics/diagnostics_fill_rs.F 92 DIAGNOSTICS_FILL_RS 
           ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId)
./pkg/diagnostics/diagnostics_fill_rs.F 97 DIAGNOSTICS_FILL_RS 
     I              ndId, ipt, kLev, nLevs,
./pkg/diagnostics/diagnostics_fract_fill.F 102 DIAGNOSTICS_FRACT_FILL 
         ipt = idiag(m,n)
./pkg/diagnostics/diagnostics_fract_fill.F 103 DIAGNOSTICS_FRACT_FILL 
         IF ( ndiag(ipt,bi,bj).GE.0 ) THEN
./pkg/diagnostics/diagnostics_fract_fill.F 105 DIAGNOSTICS_FRACT_FILL 
           ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId)
./pkg/diagnostics/diagnostics_fract_fill.F 126 DIAGNOSTICS_FRACT_FILL 
     I              ndId, ipt, kLev, nLevs,
./pkg/diagnostics/diagnostics_fract_fill.F 79 DIAGNOSTICS_FRACT_FILL 
      INTEGER ndId, ipt, iSp
./pkg/diagnostics/diagnostics_scale_fill.F 70 DIAGNOSTICS_SCALE_FILL 
      INTEGER ndId, ipt, iSp
./pkg/diagnostics/diagnostics_scale_fill.F 91 DIAGNOSTICS_SCALE_FILL 
         ipt = idiag(m,n)
./pkg/diagnostics/diagnostics_scale_fill.F 92 DIAGNOSTICS_SCALE_FILL 
         IF ( ndiag(ipt,bi,bj).GE.0 ) THEN
./pkg/diagnostics/diagnostics_scale_fill.F 94 DIAGNOSTICS_SCALE_FILL 
           ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId)
./pkg/diagnostics/diagnostics_scale_fill.F 99 DIAGNOSTICS_SCALE_FILL 
     I              ndId, ipt, kLev, nLevs,
./pkg/diagnostics/diagnostics_scale_fill_rs.F 70 DIAGNOSTICS_SCALE_FILL_RS 
      INTEGER ndId, ipt, iSp
./pkg/diagnostics/diagnostics_scale_fill_rs.F 91 DIAGNOSTICS_SCALE_FILL_RS 
         ipt = idiag(m,n)
./pkg/diagnostics/diagnostics_scale_fill_rs.F 92 DIAGNOSTICS_SCALE_FILL_RS 
         IF ( ndiag(ipt,bi,bj).GE.0 ) THEN
./pkg/diagnostics/diagnostics_scale_fill_rs.F 94 DIAGNOSTICS_SCALE_FILL_RS 
           ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId)
./pkg/diagnostics/diagnostics_scale_fill_rs.F 99 DIAGNOSTICS_SCALE_FILL_RS 
     I              ndId, ipt, kLev, nLevs,
./pkg/diagnostics/diagnostics_summary.F 116 DIAGNOSTICS_SUMMARY 
           ipt = ABS(idiag(md,ld))
./pkg/diagnostics/diagnostics_summary.F 117 DIAGNOSTICS_SUMMARY 
           IF (ipt.NE.0 .AND. averageCycle(ld).GT.1) THEN
./pkg/diagnostics/diagnostics_summary.F 118 DIAGNOSTICS_SUMMARY 
             xOld=ndiag(ipt,1,1)
./pkg/diagnostics/diagnostics_summary.F 122 DIAGNOSTICS_SUMMARY 
               ii = ipt+l*kdiag(jdiag(md,ld))
./pkg/diagnostics/diagnostics_summary.F 144 DIAGNOSTICS_SUMMARY 
           ELSEIF (ipt.NE.0) THEN
./pkg/diagnostics/diagnostics_summary.F 147 DIAGNOSTICS_SUMMARY 
            WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(ipt,1,1),' |'
./pkg/diagnostics/diagnostics_summary.F 202 DIAGNOSTICS_SUMMARY 
           ipt = ABS(iSdiag(md,ld))
./pkg/diagnostics/diagnostics_summary.F 203 DIAGNOSTICS_SUMMARY 
           IF (ipt.NE.0) THEN
./pkg/diagnostics/diagnostics_summary.F 207 DIAGNOSTICS_SUMMARY 
     &                         qSdiag(0,0,ipt,1,1),' |'
./pkg/diagnostics/diagnostics_summary.F 33 DIAGNOSTICS_SUMMARY 
      INTEGER md, ld, ipt, im
./pkg/diagnostics/diagnostics_utils.F 154 DIAGNOSTICS_COUNT 
      INTEGER ipt, ndId
./pkg/diagnostics/diagnostics_utils.F 170 DIAGNOSTICS_COUNT 
         ipt = idiag(m,n)
./pkg/diagnostics/diagnostics_utils.F 171 DIAGNOSTICS_COUNT 
         IF (ndiag(ipt,bi,bj).GE.0) THEN
./pkg/diagnostics/diagnostics_utils.F 173 DIAGNOSTICS_COUNT 
          ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId)
./pkg/diagnostics/diagnostics_utils.F 178 DIAGNOSTICS_COUNT 
             ndiag(ipt,bi,bj) = ndiag(ipt,bi,bj) + 1
./pkg/diagnostics/diagnostics_utils.F 182 DIAGNOSTICS_COUNT 
             ndiag(ipt,bi,bj) = ndiag(ipt,bi,bj) + 1