Symbol Description Uses
iSdiag list of diag slot number in long-list of available diag. 36



File Line number Procedure Code
./pkg/diagnostics/DIAGNOSTICS.h 184 NO PROCEDURE
      INTEGER   iSdiag(numperList,numLists)
./pkg/diagnostics/DIAGNOSTICS.h 199 NO PROCEDURE
     &     iSdiag, mSdiag, jSdiag, diagSt_region,
./pkg/diagnostics/diag_vegtile_fill.F 191 DIAG_VEGTILE_FILL
        IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diag_vegtile_fill.F 192 DIAG_VEGTILE_FILL
         iSp = iSdiag(m,n)
./pkg/diagnostics/diag_vegtile_fill.F 203 DIAG_VEGTILE_FILL
             IF ( iSdiag(k,l).EQ.-iSp ) THEN
./pkg/diagnostics/diagnostics_fill.F 120 DIAGNOSTICS_FILL
        IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diagnostics_fill.F 121 DIAGNOSTICS_FILL
         iSp = iSdiag(m,n)
./pkg/diagnostics/diagnostics_fill.F 132 DIAGNOSTICS_FILL
             IF ( iSdiag(k,l).EQ.-iSp ) THEN
./pkg/diagnostics/diagnostics_fill_rs.F 120 DIAGNOSTICS_FILL_RS
        IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diagnostics_fill_rs.F 121 DIAGNOSTICS_FILL_RS
         iSp = iSdiag(m,n)
./pkg/diagnostics/diagnostics_fill_rs.F 132 DIAGNOSTICS_FILL_RS
             IF ( iSdiag(k,l).EQ.-iSp ) THEN
./pkg/diagnostics/diagnostics_fract_fill.F 148 DIAGNOSTICS_FRACT_FILL
        IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diagnostics_fract_fill.F 149 DIAGNOSTICS_FRACT_FILL
         iSp = iSdiag(m,n)
./pkg/diagnostics/diagnostics_fract_fill.F 176 DIAGNOSTICS_FRACT_FILL
             IF ( iSdiag(k,l).EQ.-iSp ) THEN
./pkg/diagnostics/diagnostics_is_on.F 58 NO PROCEDURE
     &               .AND.iSdiag(m,n).NE.0 ) THEN
./pkg/diagnostics/diagnostics_is_on.F 59 NO PROCEDURE
           iSp = ABS(iSdiag(m,n))
./pkg/diagnostics/diagnostics_scale_fill.F 122 DIAGNOSTICS_SCALE_FILL
        IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diagnostics_scale_fill.F 123 DIAGNOSTICS_SCALE_FILL
         iSp = iSdiag(m,n)
./pkg/diagnostics/diagnostics_scale_fill.F 134 DIAGNOSTICS_SCALE_FILL
             IF ( iSdiag(k,l).EQ.-iSp ) THEN
./pkg/diagnostics/diagnostics_scale_fill_rs.F 122 DIAGNOSTICS_SCALE_FILL_RS
        IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diagnostics_scale_fill_rs.F 123 DIAGNOSTICS_SCALE_FILL_RS
         iSp = iSdiag(m,n)
./pkg/diagnostics/diagnostics_scale_fill_rs.F 134 DIAGNOSTICS_SCALE_FILL_RS
             IF ( iSdiag(k,l).EQ.-iSp ) THEN
./pkg/diagnostics/diagnostics_summary.F 201 DIAGNOSTICS_SUMMARY
     &       jSdiag(md,ld),' |', diagSt_Flds(md,ld),'|',iSdiag(md,ld),
./pkg/diagnostics/diagnostics_summary.F 203 DIAGNOSTICS_SUMMARY
           ipt = ABS(iSdiag(md,ld))
./pkg/diagnostics/diagnostics_switch_onoff.F 200 DIAGNOSTICS_SWITCH_ONOFF
             iSp = iSdiag(m,n)
./pkg/diagnostics/diagnostics_switch_onoff.F 213 DIAGNOSTICS_SWITCH_ONOFF
             iSp = iSdiag(m,n)
./pkg/diagnostics/diagstats_clear.F 33 DIAGSTATS_CLEAR
       IF ( iSdiag(m,listId).GT.0 ) THEN
./pkg/diagnostics/diagstats_clear.F 35 DIAGSTATS_CLEAR
         iSp  = iSdiag(m,listId)
./pkg/diagnostics/diagstats_output.F 69 DIAGSTATS_OUTPUT
       IF ( iSdiag(m,listId).NE.0 .AND. gcode(5:5).NE.'D' ) THEN
./pkg/diagnostics/diagstats_output.F 82 DIAGSTATS_OUTPUT
            iSp = ABS(iSdiag(m,listId))
./pkg/diagnostics/diagstats_set_pointers.F 104 DIAGSTATS_SET_POINTERS
             iSdiag(mm,ld) = SIGN(mSdiag(md,ld),mate)
./pkg/diagnostics/diagstats_set_pointers.F 49 DIAGSTATS_SET_POINTERS
        iSdiag(md,ld) = 0
./pkg/diagnostics/diagstats_setdiag.F 119 DIAGSTATS_SETDIAG
             mSdiag(mId,listId) = ABS(iSdiag(k,l))
./pkg/diagnostics/diagstats_setdiag.F 74 DIAGSTATS_SETDIAG
           iSdiag(mId,listId) = -ABS(iSdiag(k,l))
./pkg/diagnostics/diagstats_setdiag.F 94 DIAGSTATS_SETDIAG
        iSdiag(mId,listId) = ndiagmx + 1