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



File Line number Procedure Code
./pkg/diagnostics/DIAGNOSTICS.h 76 NO PROCEDURE
      _RL qdiag(1-OLx:sNx+OLx,1-OLy:sNy+OLy,numDiags,nSx,nSy)
./pkg/diagnostics/DIAGNOSTICS.h 81 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 94 DIAGNOSTICS_CLRDIAG
           qdiag(i,j,kl,bi,bj) = 0.0
./pkg/diagnostics/diagnostics_fill_field.F 231 DIAGNOSTICS_FILL_FIELD
     U                  qdiag(1-OLx,1-OLy,kd,bi,bj),
./pkg/diagnostics/diagnostics_fill_field.F 240 DIAGNOSTICS_FILL_FIELD
     U                  qdiag(1-OLx,1-OLy,kd,bi,bj),
./pkg/diagnostics/diagnostics_fill_field.F 257 DIAGNOSTICS_FILL_FIELD
     U                  qdiag(1-OLx,1-OLy,kd,biArg,bjArg),
./pkg/diagnostics/diagnostics_fill_field.F 266 DIAGNOSTICS_FILL_FIELD
     U                  qdiag(1-OLx,1-OLy,kd,biArg,bjArg),
./pkg/diagnostics/diagnostics_init_varia.F 46 DIAGNOSTICS_INIT_VARIA
                qdiag(i,j,k,bi,bj) = 0. _d 0
./pkg/diagnostics/diagnostics_read_pickup.F 101 DIAGNOSTICS_READ_PICKUP
     &         d_cw_name, qdiag, myThid)
./pkg/diagnostics/diagnostics_read_pickup.F 141 DIAGNOSTICS_READ_PICKUP
     &                         numDiags, qdiag, nIter0, myThid )
./pkg/diagnostics/diagnostics_utils.F 163 DIAGNOSTICS_GET_DIAG
              IF ( qdiag(i,j,ipnt,bi,bj) .LE. undefRL ) THEN
./pkg/diagnostics/diagnostics_utils.F 164 DIAGNOSTICS_GET_DIAG
                qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor
./pkg/diagnostics/diagnostics_utils.F 173 DIAGNOSTICS_GET_DIAG
              qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor
./pkg/diagnostics/diagnostics_utils.F 186 DIAGNOSTICS_GET_DIAG
              IF ( qdiag(i,j,ipCt,bi,bj) .NE. 0. ) THEN
./pkg/diagnostics/diagnostics_utils.F 187 DIAGNOSTICS_GET_DIAG
                qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)
./pkg/diagnostics/diagnostics_utils.F 188 DIAGNOSTICS_GET_DIAG
     &                      / qdiag(i,j,ipCt,bi,bj)
./pkg/diagnostics/diagnostics_write_pickup.F 135 DIAGNOSTICS_WRITE_PICKUP
     &         d_cw_name, qdiag, myThid)
./pkg/diagnostics/diagnostics_write_pickup.F 178 DIAGNOSTICS_WRITE_PICKUP
          CALL WRITE_REC_3D_RL( fn, prec, numDiags, qdiag,