Symbol Description Uses
qdiag storage array for 2D/3D diagnostic fields 22



File Line number Procedure Code
./pkg/diagnostics/DIAGNOSTICS.h 54 NO PROCEDURE
      _RL qdiag(1-OLx:sNx+Olx,1-Oly:sNy+Oly,numDiags,nSx,nSy)
./pkg/diagnostics/DIAGNOSTICS.h 59 NO PROCEDURE
      COMMON / DIAG_STORE_R / qdiag, qSdiag
./pkg/diagnostics/diag_vegtile_fill.F 159 DIAG_VEGTILE_FILL
              qdiag(i,j,kd,bi,bj) = undef
./pkg/diagnostics/diag_vegtile_fill.F 160 DIAG_VEGTILE_FILL
             ELSEIF ( qdiag(i,j,kd,bi,bj).NE.undef ) THEN
./pkg/diagnostics/diag_vegtile_fill.F 161 DIAG_VEGTILE_FILL
              qdiag(i,j,kd,bi,bj) = qdiag(i,j,kd,bi,bj)
./pkg/diagnostics/diag_vegtile_fill.F 170 DIAG_VEGTILE_FILL
              qdiag(i,j,kd,bi,bj) = qdiag(i,j,kd,bi,bj)
./pkg/diagnostics/diagnostics_clear.F 91 DIAGNOSTICS_CLRDIAG
           qdiag(i,j,kl,bi,bj) = 0.0
./pkg/diagnostics/diagnostics_fill_field.F 222 DIAGNOSTICS_FILL_FIELD
     U                  qdiag(1-OLx,1-OLy,kd,bi,bj),
./pkg/diagnostics/diagnostics_fill_field.F 237 DIAGNOSTICS_FILL_FIELD
     U                  qdiag(1-OLx,1-OLy,kd,biArg,bjArg),
./pkg/diagnostics/diagnostics_init_varia.F 38 DIAGNOSTICS_INIT_VARIA
                qdiag(i,j,k,bi,bj) = 0. _d 0
./pkg/diagnostics/diagnostics_read_pickup.F 102 DIAGNOSTICS_READ_PICKUP
     &         d_cw_name, qdiag, myThid)
./pkg/diagnostics/diagnostics_read_pickup.F 142 DIAGNOSTICS_READ_PICKUP
     &                         numDiags, qdiag, nIter0, myThid )
./pkg/diagnostics/diagnostics_utils.F 100 GETDIAG
                qtmp(i,j) = qdiag(i,j,ipnt,bi,bj)
./pkg/diagnostics/diagnostics_utils.F 101 GETDIAG
     &                    / qdiag(i,j,ipCt,bi,bj)
./pkg/diagnostics/diagnostics_utils.F 76 GETDIAG
              IF ( qdiag(i,j,ipnt,bi,bj) .LE. undef ) THEN
./pkg/diagnostics/diagnostics_utils.F 77 GETDIAG
                qtmp(i,j) = qdiag(i,j,ipnt,bi,bj)*factor
./pkg/diagnostics/diagnostics_utils.F 86 GETDIAG
              qtmp(i,j) = qdiag(i,j,ipnt,bi,bj)*factor
./pkg/diagnostics/diagnostics_utils.F 99 GETDIAG
              IF ( qdiag(i,j,ipCt,bi,bj) .NE. 0. ) THEN
./pkg/diagnostics/diagnostics_write_pickup.F 135 DIAGNOSTICS_WRITE_PICKUP
     &         d_cw_name, qdiag, myThid)
./pkg/diagnostics/diagnostics_write_pickup.F 179 DIAGNOSTICS_WRITE_PICKUP
          CALL WRITE_REC_3D_RL( fn, prec, numDiags, qdiag,