Symbol Description Uses
ipnt 6



File Line number Procedure Code
./pkg/diagnostics/diagnostics_utils.F 48 GETDIAG
      INTEGER i, j, ipnt,ipCt
./pkg/diagnostics/diagnostics_utils.F 59 GETDIAG
          ipnt = ip + lev - 1
./pkg/diagnostics/diagnostics_utils.F 65 GETDIAG
              IF ( qdiag(i,j,ipnt,bi,bj) .LE. undef ) THEN
./pkg/diagnostics/diagnostics_utils.F 66 GETDIAG
                qtmp(i,j) = qdiag(i,j,ipnt,bi,bj)*factor
./pkg/diagnostics/diagnostics_utils.F 76 GETDIAG
          ipnt = ip + lev - 1
./pkg/diagnostics/diagnostics_utils.F 82 GETDIAG
                qtmp(i,j) = qdiag(i,j,ipnt,bi,bj)