Symbol Description Uses
jdiag 24



File Line number Procedure Code
./pkg/diagnostics/DIAGNOSTICS.h 69 NO PROCEDURE
      integer jdiag(numperlist,numlists)
./pkg/diagnostics/DIAGNOSTICS.h 81 NO PROCEDURE
     &     idiag, mdiag, jdiag,
./pkg/diagnostics/diagnostics_out.F 209 DIAGNOSTICS_OUT
        ndId = jdiag(md,listId)
./pkg/diagnostics/diagnostics_fill.F 86 DIAGNOSTICS_FILL
           ndId = jdiag(m,n)
./pkg/diagnostics/diagnostics_clear.F 36 DIAGNOSTICS_CLEAR
         ndId  = jdiag(m,listId)
./pkg/diagnostics/diagnostics_summary.F 103 DIAGNOSTICS_SUMMARY
     &       jdiag(md,ld),' |', flds(md,ld),'|',idiag(md,ld),' |',
./pkg/diagnostics/diagnostics_summary.F 104 DIAGNOSTICS_SUMMARY
     &       mdiag(md,ld),' |', kdiag(jdiag(md,ld)),' |'
./pkg/diagnostics/diag_vegtile_fill.F 78 DIAG_VEGTILE_FILL
         ndiagnum = jdiag(m,n)
./pkg/diagnostics/diagnostics_write_pickup.F 184 DIAGNOSTICS_WRITE_PICKUP
              WRITE(dUnit,'(I10)') ndiag(jdiag(m,n))
./pkg/diagnostics/diagnostics_scale_fill.F 89 DIAGNOSTICS_SCALE_FILL
           ndId = jdiag(m,n)
./pkg/diagnostics/diagnostics_fract_fill.F 101 DIAGNOSTICS_FRACT_FILL
           ndId = jdiag(m,n)
./pkg/diagnostics/diagnostics_utils.F 265 DIAGNOSTICS_GET_POINTERS
          jpoint = jdiag(m,n)
./pkg/diagnostics/diagnostics_read_pickup.F 158 DIAGNOSTICS_READ_PICKUP
              READ(dUnit,'(I10)') ndiag(jdiag(m,n))
./pkg/diagnostics/diagnostics_setdiag.F 119 DIAGNOSTICS_SETDIAG
           IF (flag .AND. jdiag(k,l).GT.0) THEN
./pkg/diagnostics/diagnostics_setdiag.F 120 DIAGNOSTICS_SETDIAG
            IF (cdiag(mate).EQ.cdiag(jdiag(k,l)) ) THEN
./pkg/diagnostics/diagnostics_setdiag.F 71 DIAGNOSTICS_SETDIAG
         IF (flag .AND. jdiag(k,l).GT.0) THEN
./pkg/diagnostics/diagnostics_setdiag.F 72 DIAGNOSTICS_SETDIAG
          IF ( cdiag(ndId).EQ.cdiag(jdiag(k,l)) ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F 130 DIAGNOSTICS_SET_POINTERS
         nd = jdiag(md,ld)
./pkg/diagnostics/diagnostics_set_pointers.F 136 DIAGNOSTICS_SET_POINTERS
            IF ( mdiag(md,ld).EQ.0 .AND. jdiag(i,j).EQ.mate ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F 161 DIAGNOSTICS_SET_POINTERS
            nd = jdiag(md,ld)
./pkg/diagnostics/diagnostics_set_pointers.F 193 DIAGNOSTICS_SET_POINTERS
            nd = jdiag(md,ld)
./pkg/diagnostics/diagnostics_set_pointers.F 50 DIAGNOSTICS_SET_POINTERS
        jdiag(md,ld) = 0
./pkg/diagnostics/diagnostics_set_pointers.F 69 DIAGNOSTICS_SET_POINTERS
            jdiag(md,ld) = nd
./pkg/diagnostics/diagnostics_set_pointers.F 81 DIAGNOSTICS_SET_POINTERS
             jdiag(mm,ld) = mate