Symbol Description Uses
drF Cell face separation along Z axis ( units of r ). 516


File Line number Procedure Code
./model/inc/GRID.h 426 NO PROCEDURE 
     &  drC, drF, recip_drC, recip_drF, rC, rF,
./model/inc/GRID.h 480 NO PROCEDURE 
      _RS drF            (Nr)
./pkg/exf/exf_monitor.F 110 EXF_MONITOR 
     &             maskInW, maskInW, rAw, drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 112 EXF_MONITOR 
     &             maskInS, maskInS, rAs, drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 115 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 117 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 121 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 125 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 129 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 131 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 135 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 140 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 144 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 148 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 152 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 156 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 162 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 168 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 174 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 178 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 184 EXF_MONITOR 
     &              maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 190 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 195 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 202 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 208 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 214 EXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 220 EXF_MONITOR 
     &             maskInW, maskInW, rAw, drF, dummyRL, myThid )
./pkg/exf/exf_monitor.F 224 EXF_MONITOR 
     &             maskInS, maskInS, rAs, drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 112 ADEXF_MONITOR 
     &             maskInW, maskInW, rAw, drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 114 ADEXF_MONITOR 
     &             maskInS, maskInS, rAs, drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 117 ADEXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 119 ADEXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 122 ADEXF_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 124 ADEXF_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 126 ADEXF_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 132 ADEXF_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 134 ADEXF_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 138 ADEXF_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 140 ADEXF_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 142 ADEXF_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 144 ADEXF_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 148 ADEXF_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 152 ADEXF_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 154 ADEXF_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 186 ADEXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 188 ADEXF_MONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 190 ADEXF_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/exf/exf_monitor_ad.F 192 ADEXF_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/fizhi/fizhi_init_vars.F 119 FIZHI_INIT_VARS 
     &                        drF(L-1)*hfacC(i,j,L-1,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 196 FIZHI_WRAPPER 
     &           drF(L-1)* rStarExpC(i,j,bi,bj)*hfacC(i,j,L-1,bi,bj)
./pkg/fizhi/getpwhere.F 131 GETPWHERE 
        rF_edge(L) = rF_edge(L-1) - (drF(L-1)/100.)
./pkg/fizhi/step_fizhi_corr.F 98 STEP_FIZHI_CORR 
     .               drF(L-1)* rStarExpC(i,j,bi,bj)*hfacC(i,j,L-1,bi,bj)
./pkg/flt/flt_mapping.F 247 FLT_MAP_IJLOCAL2XY 
        FLT_MAP_K2R = rF(k) + ddz*drF(k)*rkSign
./pkg/frazil/frazil_calc_rhs.F 95 FRAZIL_CALC_RHS 
     &            * drF(k) * _hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 278 GAD_ADVECTION 
     &           *drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 280 GAD_ADVECTION 
     &           *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 298 GAD_ADVECTION 
     &                  *rhoFacC(k)*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 358 GAD_IMPLICIT_R 
               div(i,j) = div(i,j)*h0FacC(i,j,k,bi,bj)*drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 366 GAD_IMPLICIT_R 
     &               _hFacC(i,j,k,bi,bj)*drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 375 GAD_IMPLICIT_R 
                div(i,j) = div(i,j)*hFac_surfC(i,j,bi,bj)*drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 377 GAD_IMPLICIT_R 
                div(i,j) = div(i,j)*_hFacC(i,j,k,bi,bj)*drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 389 GAD_IMPLICIT_R 
               div(i,j) = div(i,j)*_hFacC(i,j,k,bi,bj)*drF(k)
./pkg/generic_advdiff/gad_som_advect.F 247 GAD_SOM_ADVECT 
     &            *drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 249 GAD_SOM_ADVECT 
     &            *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 265 GAD_SOM_ADVECT 
     &                *drF(k)*hFacC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 195 GGL90_CALC 
         GGL90mixingLength(i,j,2)=drF(1)
./pkg/ggl90/ggl90_calc.F 252 GGL90_CALC 
     &        GGL90mixingLength(i,j,k-1)+drF(k-1))
./pkg/ggl90/ggl90_calc.F 259 GGL90_CALC 
     &       GGL90mixingLengthMin+drF(Nr))
./pkg/ggl90/ggl90_calc.F 266 GGL90_CALC 
     &        GGL90mixingLength(i,j,k+1)+drF(k))
./pkg/ggl90/ggl90_calc.F 287 GGL90_CALC 
     &        mxLength_Dn(i,j,k-1)+drF(k-1))
./pkg/ggl90/ggl90_calc.F 294 GGL90_CALC 
     &       GGL90mixingLengthMin+drF(Nr))
./pkg/ggl90/ggl90_calc.F 301 GGL90_CALC 
     &        GGL90mixingLength(i,j,k+1)+drF(k))
./pkg/gmredi/gmredi_calc_eigs.F 331 GMREDI_CALC_EIGS 
         vecint(m,i,j) = vecint(m,i,j) + hfac(i,j,k)*vec(m,i,j,k)*drF(k)
./pkg/gmredi/gmredi_calc_eigs.F 368 GMREDI_CALC_EIGS 
     &         mask(i,j,k)*drF(k)*hfac(i,j,k)
./pkg/gmredi/gmredi_calc_tensor.F 1005 GMREDI_CALC_TENSOR 
           tmp1k(i,j) = dxG(i,j,bi,bj)*drF(k)
./pkg/gmredi/gmredi_calc_tensor.F 471 GMREDI_CALC_TENSOR 
        integrDepth = drF(k)
./pkg/gmredi/gmredi_calc_tensor.F 804 GMREDI_CALC_TENSOR 
           tmp1k(i,j) = dyG(i,j,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 1052 GMREDI_K3D 
        psistar(i,j,Nr) = -hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k)
./pkg/gmredi/gmredi_k3d.F 1059 GMREDI_K3D 
     &          - hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k)
./pkg/gmredi/gmredi_k3d.F 1070 GMREDI_K3D 
          GM_PsiX(i,j,k,bi,bj) = -hfacW(i,j,k,bi,bj)*drF(k)*ustar(i,j,k)
./pkg/gmredi/gmredi_k3d.F 1071 GMREDI_K3D 
          GM_PsiY(i,j,k,bi,bj) = -hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k)
./pkg/gmredi/gmredi_k3d.F 1078 GMREDI_K3D 
     &          - hfacW(i,j,k,bi,bj)*drF(k)*ustar(i,j,k)
./pkg/gmredi/gmredi_k3d.F 1080 GMREDI_K3D 
     &          - hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k)
./pkg/gmredi/gmredi_k3d.F 405 GMREDI_K3D 
     &        maskW(i,j,k,bi,bj)*drF(k)*hfacC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 424 GMREDI_K3D 
           BVint(i,j) = BVint(i,j) + hFacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 428 GMREDI_K3D 
           BVint(i,j) = BVint(i,j) + hFacC(i,j,k,bi,bj)*drF(k)*N(i,j,k)
./pkg/gmredi/gmredi_k3d.F 507 GMREDI_K3D 
     &                   + hfacC(i,j,k,bi,bj)*drF(k)*M4onN2(i,j,k)
./pkg/gmredi/gmredi_k3d.F 508 GMREDI_K3D 
           deltaH(i,j) = deltaH(i,j) + drF(k)
./pkg/gmredi/gmredi_k3d.F 865 GMREDI_K3D 
     &           - maskW(i,j,k,bi,bj)*drF(k)*hfacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 916 GMREDI_K3D 
     &           - drF(k)*hfacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 969 GMREDI_K3D 
     &        + centreX*hfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 971 GMREDI_K3D 
     &        + centreY*hfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 973 GMREDI_K3D 
     &        + centreX*centreY*hfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 977 GMREDI_K3D 
     &        + centreX*centreY*hfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 983 GMREDI_K3D 
     &        + centreY*hfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 985 GMREDI_K3D 
     &        + CentreX*hfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 987 GMREDI_K3D 
     &        + centreY*centreX*hfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 991 GMREDI_K3D 
     &        + centreY*centreX*hfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/submeso_calc_psi.F 105 SUBMESO_CALC_PSI 
          dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerU(i,j)+rF(k) ) )
./pkg/gmredi/submeso_calc_psi.F 111 SUBMESO_CALC_PSI 
          dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerV(i,j)+rF(k) ) )
./pkg/gridalt/gridalt_initialise.F 47 GRIDALT_INITIALISE 
         call MAKE_PHYS_GRID(drF,hfacC,im1,im2,jm1,jm2,Nr,Nsx,Nsy,
./pkg/gridalt/make_phys_grid.F 110 MAKE_PHYS_GRID 
        dpstar_accum = dpstar_accum + drF(L)
./pkg/gridalt/make_phys_grid.F 130 MAKE_PHYS_GRID 
     & (dptry_accum(Lnew).gt.(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))))then
./pkg/gridalt/make_phys_grid.F 144 MAKE_PHYS_GRID 
         if((hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)).ge.
./pkg/gridalt/make_phys_grid.F 153 MAKE_PHYS_GRID 
     &             drF(Lbotij)-deltap)) .gt. (dptry(Lnew-1)*1.5) ) then
./pkg/gridalt/make_phys_grid.F 157 MAKE_PHYS_GRID 
     &                      (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))-deltap
./pkg/gridalt/make_phys_grid.F 161 MAKE_PHYS_GRID 
     &                      (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap)
./pkg/gridalt/make_phys_grid.F 163 MAKE_PHYS_GRID 
          deltap = deltap+(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap)
./pkg/gridalt/make_phys_grid.F 178 MAKE_PHYS_GRID 
           if((hfacC(i,j,L,bi,bj)*drF(L)).ge.deltap+dptry(Lnew))then
./pkg/gridalt/make_phys_grid.F 187 MAKE_PHYS_GRID 
            if( (dptry(Lnew-1)+(hfacC(i,j,L,bi,bj)*drF(L)-deltap))
./pkg/gridalt/make_phys_grid.F 192 MAKE_PHYS_GRID 
     &                             (hfacC(i,j,L,bi,bj)*drF(L))-deltap
./pkg/gridalt/make_phys_grid.F 193 MAKE_PHYS_GRID 
             deltap = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F 197 MAKE_PHYS_GRID 
     &                      (hfacC(i,j,L,bi,bj)*drF(L)-deltap)
./pkg/gridalt/make_phys_grid.F 198 MAKE_PHYS_GRID 
             deltap = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F 207 MAKE_PHYS_GRID 
           if(abs(deltap-hfacC(i,j,L-1,bi,bj)*drF(L-1)).gt.0.001)then
./pkg/gridalt/make_phys_grid.F 209 MAKE_PHYS_GRID 
            dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L-1,bi,bj)*drF(L-1)
./pkg/gridalt/make_phys_grid.F 217 MAKE_PHYS_GRID 
          if(abs(deltap-hfacC(i,j,L-1,bi,bj)*drF(L-1)).gt.0.001)then
./pkg/gridalt/make_phys_grid.F 219 MAKE_PHYS_GRID 
           dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L-1,bi,bj)*drF(L-1)
./pkg/gridalt/make_phys_grid.F 222 MAKE_PHYS_GRID 
           dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F 225 MAKE_PHYS_GRID 
           dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F 231 MAKE_PHYS_GRID 
          dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F 52 MAKE_PHYS_GRID 
       _RS drF(Nr)
./pkg/gridalt/make_phys_grid.F 6 MAKE_PHYS_GRID 
       SUBROUTINE MAKE_PHYS_GRID(drF,hfacC,im1,im2,jm1,jm2,Nr,
./pkg/kl10/kl10_calc.F 179 KL10_CALC 
                        dz = 0.5*(drF(K)*hfacW(I+di,J-1,K,bi,bj)
./pkg/kl10/kl10_calc.F 180 KL10_CALC 
     &                       +drF(Km1)*hfacW(I+di,J-1,Km1,bi,bj))
./pkg/kl10/kl10_calc.F 192 KL10_CALC 
                        dz=0.5*(drF(Km1)*hfacW(I+di,J-1,Km1,bi ,bj))
./pkg/kl10/kl10_calc.F 198 KL10_CALC 
                        dz = 0.5*(drF(K)*hfacS(I-1,J+di,K,bi,bj)
./pkg/kl10/kl10_calc.F 199 KL10_CALC 
     &                       +drF(Km1)*hfacS(I-1,J+di,Km1,bi,bj))
./pkg/kl10/kl10_calc.F 211 KL10_CALC 
                        dz=+0.5*(drF(Km1)*hfacS(I-1,J+di,Km1 ,bi,bj))
./pkg/kpp/kpp_forcing_surf.F 195 KPP_FORCING_SURF 
        if ( work3(i,j) .lt. (phepsi*phepsi*drF(1)*drF(1)) ) then
./pkg/kpp/kpp_forcing_surf.F 196 KPP_FORCING_SURF 
           ustar(i,j) = SQRT( phepsi * p5 * drF(1) )
./pkg/kpp/kpp_forcing_surf.F 315 KPP_FORCING_SURF 
         zRef(i,j) = drF(1) * dB_dz / dBdz2
./pkg/kpp/kpp_forcing_surf.F 319 KPP_FORCING_SURF 
         zRef(i,j) = rF(k) + drF(k) * (dB_dz - dBdz1) /
./pkg/kpp/kpp_forcing_surf.F 349 KPP_FORCING_SURF 
        zRef(i,j) = MIN ( zRef(i,j), drF(1) )
./pkg/kpp/kpp_forcing_surf.F 354 KPP_FORCING_SURF 
        IF ( zRef(i,j) .LT. drF(1) ) THEN
./pkg/kpp/kpp_init_fixed.F 179 KPP_INIT_FIXED 
         hwide(k) = drF(k)
./pkg/layers/layers_init_fixed.F 78 LAYERS_INIT_FIXED 
        Zf(k) = Zf(k-1) + drF(k-1)
./pkg/layers/layers_init_fixed.F 81 LAYERS_INIT_FIXED 
      Zf(Nr+1) = Zf(Nr) + drF(Nr)
./model/src/calc_adv_flow.F 76 CALC_ADV_FLOW 
     &           *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/calc_adv_flow.F 78 CALC_ADV_FLOW 
     &           *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 68 CALC_DIV_GHAT 
     &              *drF(k)*_hFacW(i,j,k,bi,bj)*rhoFacC(k)
./model/src/calc_div_ghat.F 70 CALC_DIV_GHAT 
     &              *drF(k)*_hFacS(i,j,k,bi,bj)*rhoFacC(k)
./model/src/calc_gw.F 248 CALC_GW 
     &        ( drF(k-1)*halfRS
./model/src/calc_gw.F 249 CALC_GW 
     &        + drF( k )*MIN( _hFacC(i,j, k ,bi,bj), halfRS )
./model/src/calc_gw.F 255 CALC_GW 
     &          drF(k-1)*MAX( h0FacC(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 256 CALC_GW 
     &        + drF( k )*MIN( h0FacC(i,j,k  ,bi,bj), halfRS )
./model/src/calc_gw.F 259 CALC_GW 
     &          drF(k-1)*MAX( _hFacC(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 260 CALC_GW 
     &        + drF( k )*MIN( _hFacC(i,j,k  ,bi,bj), halfRS )
./model/src/calc_gw.F 263 CALC_GW 
     &          drF(k-1)*MAX( _hFacW(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 264 CALC_GW 
     &        + drF( k )*MIN( _hFacW(i,j,k  ,bi,bj), halfRS )
./model/src/calc_gw.F 266 CALC_GW 
     &          drF(k-1)*MAX( _hFacS(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 267 CALC_GW 
     &        + drF( k )*MIN( _hFacS(i,j, k ,bi,bj), halfRS )
./model/src/calc_gw.F 500 CALC_GW 
     &          drF(km1)*_hFacW(i,j,km1,bi,bj)*uVel(i,j,km1,bi,bj)
./model/src/calc_gw.F 502 CALC_GW 
     &        + drF( k )*_hFacW(i,j, k ,bi,bj)*uVel(i,j, k ,bi,bj)
./model/src/calc_gw.F 515 CALC_GW 
     &          drF(km1)*_hFacS(i,j,km1,bi,bj)*vVel(i,j,km1,bi,bj)
./model/src/calc_gw.F 517 CALC_GW 
     &         +drF( k )*_hFacS(i,j, k ,bi,bj)*vVel(i,j, k ,bi,bj)
./pkg/mnc/mnc_cw_write_grid_info.F 141 MNC_CW_WRITE_GRID_INFO 
      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'drF',drF,myThid)
./model/src/calc_oce_mxlayer.F 146 CALC_OCE_MXLAYER 
            hMixLayer(i,j,bi,bj) = drF(1)
./model/src/calc_oce_mxlayer.F 179 CALC_OCE_MXLAYER 
     &                              - drF(k)*tmpFac*0.5 _d 0
./pkg/mom_common/mom_calc_smag_3d.F 123 MOM_CALC_SMAG_3D 
      tmpFac = smag3D_coeff*twoRL*SQRT(twoRL)*drF(kl)**twoThird
./model/src/calc_phi_hyd.F 232 CALC_PHI_HYD 
     &          + halfRL*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 234 CALC_PHI_HYD 
     &                 + drF(k)*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 248 CALC_PHI_HYD 
     &            + halfRL*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 251 CALC_PHI_HYD 
     &            + halfRL*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 380 CALC_PHI_HYD 
             phiHydC(i,j) = phiHydF(i,j) + halfRL*drF(k)*alphaRho(i,j)
./model/src/calc_phi_hyd.F 384 CALC_PHI_HYD 
             phiHydF(i,j) = phiHydC(i,j) + halfRL*drF(k)*alphaRho(i,j)
./pkg/mom_common/mom_u_sidedrag.F 143 MOM_U_SIDEDRAG 
     &    )*drF(k)*sideDragFactor
./pkg/mom_common/mom_u_sidedrag.F 87 MOM_U_SIDEDRAG 
     &   *drF(k)*2.*(
./pkg/mom_common/mom_v_sidedrag.F 130 MOM_V_SIDEDRAG 
     &    )*drF(k)*sideDragFactor
./pkg/mom_common/mom_v_sidedrag.F 89 MOM_V_SIDEDRAG 
     &   *drF(k)*2.*(
./pkg/mom_fluxform/mom_calc_rtrans.F 140 MOM_CALC_RTRANS 
     &     - rStarDhCDt(i,j,bi,bj)*drF(k-1)*h0FacC(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 147 MOM_CALC_RTRANS 
     &     - rStarDhWDt(i,j,bi,bj)*drF(k-1)*h0FacW(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 150 MOM_CALC_RTRANS 
     &     - rStarDhSDt(i,j,bi,bj)*drF(k-1)*h0FacS(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 271 MOM_FLUXFORM 
     &          *drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 273 MOM_FLUXFORM 
     &          *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 55 MOM_U_DEL2U 
        fZon(i,j) = drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 73 MOM_U_DEL2U 
        fMer(i,j) = drF(k)*hFacZ(i,j)
./pkg/mom_fluxform/mom_u_xviscflux.F 57 MOM_U_XVISCFLUX 
     &    _dyF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_yviscflux.F 58 MOM_U_YVISCFLUX 
     &    _dxV(i,j,bi,bj)*drF(k)*hFacZ(i,j)
./pkg/mom_fluxform/mom_uv_boundary.F 100 MOM_UV_BOUNDARY 
     &                * drF(k)*hFacS(i,j,k,bi,bj)*rhoFacC(k)
./pkg/mom_fluxform/mom_uv_boundary.F 97 MOM_UV_BOUNDARY 
     &                * drF(k)*hFacW(i,j,k,bi,bj)*rhoFacC(k)
./pkg/mom_fluxform/mom_v_del2v.F 54 MOM_V_DEL2V 
        fZon(i,j) = drF(k)*hFacZ(i,j)
./pkg/mom_fluxform/mom_v_del2v.F 69 MOM_V_DEL2V 
        fMer(i,j) = drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_xviscflux.F 58 MOM_V_XVISCFLUX 
     &    _dyU(i,j,bi,bj)*drF(k)*hFacZ(i,j)
./pkg/mom_fluxform/mom_v_yviscflux.F 57 MOM_V_YVISCFLUX 
     &    _dxF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 107 MON_KE 
     &                     + tmpVal*deepFac2C(k)*rhoFacC(k)*drF(k)
./pkg/monitor/mon_ke.F 119 MON_KE 
     &             + tmpWke*rA(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 191 MON_KE 
     &                   *rhoFacC(k)*drF(k)
./pkg/monitor/mon_ke.F 230 MON_KE 
     &                   *rhoFacC(k)*drF(k)
./pkg/monitor/mon_ke.F 82 MON_KE 
     &                     *rhoFacC(k)*drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/monitor/mon_solution.F 45 MON_SOLUTION 
     I                Nr, theta, hFacC, maskInC, rA, drF,
./pkg/monitor/mon_surfcor.F 111 MON_SURFCOR 
     &               + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks)
./pkg/monitor/mon_surfcor.F 154 MON_SURFCOR 
              tmpVol  = rA(i,j,bi,bj)*h0FacC(i,j,k,bi,bj)*drF(k)
./pkg/monitor/mon_vort3.F 291 MON_VORT3 
            tmpAre = rAz(i,j,bi,bj)*drF(k)
./pkg/monitor/mon_vort3.F 292 MON_VORT3 
            tmpVol = rAz(i,j,bi,bj)*drF(k)*hFacZ(i,j)
./pkg/monitor/monitor.F 110 MONITOR 
     &            maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor.F 131 MONITOR 
     &            maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor.F 133 MONITOR 
     &            maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor.F 140 MONITOR 
     &            maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor.F 142 MONITOR 
     &            maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor.F 144 MONITOR 
     &            maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor.F 146 MONITOR 
     &            maskInW, maskInW, rAw, drF, dummyRL, myThid )
./pkg/monitor/monitor.F 148 MONITOR 
     &            maskInS, maskInS, rAs, drF, dummyRL, myThid )
./pkg/monitor/monitor.F 97 MONITOR 
          thickFacC(k) = drF(k)*deepFac2C(k)*rhoFacC(k)
./pkg/monitor/monitor_ad.F 128 ADMONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 130 ADMONITOR 
     &             hFacW, maskInW, rAw, drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 132 ADMONITOR 
     &             hFacS, maskInS, rAs, drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 136 ADMONITOR 
     &             hFacC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 138 ADMONITOR 
     &             hFacC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 145 ADMONITOR 
     &          '_adsst', maskInC, maskInC, rA, drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 147 ADMONITOR 
     &          '_adsss', maskInC, maskInC, rA, drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 153 ADMONITOR 
     &             maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 158 ADMONITOR 
     &             hFacW, maskInW, rAw, drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 160 ADMONITOR 
     &             hFacS, maskInS, rAs, drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 168 ADMONITOR 
     &             hFacC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 170 ADMONITOR 
     &             hFacC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 177 ADMONITOR 
     &          '_adsst', maskInC, maskInC, rA, drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 179 ADMONITOR 
     &          '_adsss', maskInC, maskInC, rA, drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 188 ADMONITOR 
     &              maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 191 ADMONITOR 
     &              maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 194 ADMONITOR 
     &              maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 196 ADMONITOR 
     &              maskInW, maskInW, rAw, drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 198 ADMONITOR 
     &              maskInS, maskInS, rAs, drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 203 ADMONITOR 
     &              maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 207 ADMONITOR 
     &              maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 211 ADMONITOR 
     &              maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 215 ADMONITOR 
     &              maskInW, maskInW, rAw, drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 217 ADMONITOR 
     &              maskInS, maskInS, rAs, drF, dummyRL, myThid )
./pkg/monitor/monitor_g.F 115 G_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_g.F 117 G_MONITOR 
     &           hFacW, maskInW, rAw, drF, dummyRL, myThid )
./pkg/monitor/monitor_g.F 119 G_MONITOR 
     &           hFacS, maskInS, rAs, drF, dummyRL, myThid )
./pkg/monitor/monitor_g.F 123 G_MONITOR 
     &           hFacC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_g.F 125 G_MONITOR 
     &           hFacC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_g.F 131 G_MONITOR 
     &            maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_g.F 133 G_MONITOR 
     &            maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_g.F 140 G_MONITOR 
     &            maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_g.F 143 G_MONITOR 
     &            maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_g.F 146 G_MONITOR 
     &            maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_g.F 148 G_MONITOR 
     &            maskInW, maskInW, rAw, drF, dummyRL, myThid )
./pkg/monitor/monitor_g.F 150 G_MONITOR 
     &            maskInS, maskInS, rAs, drF, dummyRL, myThid )
./model/src/cg3d.F 186 CG3D 
     &         +cg3d_x(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 223 CG3D 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 368 CG3D 
     &         +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 398 CG3D 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 418 CG3D 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 440 CG3D 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 462 CG3D 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 179 CG3D_EX0 
     &         +cg3d_x(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 216 CG3D_EX0 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 352 CG3D_EX0 
     &         +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 382 CG3D_EX0 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 402 CG3D_EX0 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 424 CG3D_EX0 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 446 CG3D_EX0 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F 101 OBCS_BALANCE_FLOW 
            tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj)
./pkg/obcs/obcs_balance_flow.F 150 OBCS_BALANCE_FLOW 
            tmpA = drF(k)*hFacW(1+iB,j,k,bi,bj)*dyG(1+iB,j,bi,bj)
./pkg/obcs/obcs_balance_flow.F 199 OBCS_BALANCE_FLOW 
            tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj)
./pkg/obcs/obcs_balance_flow.F 248 OBCS_BALANCE_FLOW 
            tmpA = drF(k)*hFacS(i,1+jB,k,bi,bj)*dxG(i,1+jB,bi,bj)
./model/src/config_summary.F 760 CONFIG_SUMMARY 
      CALL WRITE_COPY1D_RS( bufRL, drF, Nr, INDEX_K, 'drF = ',
./pkg/obcs/obcs_calc_stevens.F 187 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacW(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 188 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacW(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 204 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacW(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 205 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacW(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 325 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacW(I+1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 326 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacW(I+1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 342 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacW(I+1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 343 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacW(I+1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 462 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 463 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 479 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 480 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 600 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacS(I,J+1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 601 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacS(I,J+1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 617 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacS(I,J+1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 618 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacS(I,J+1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 729 OBCS_CALC_STEVENS 
     &         *drF(k)* _hFacW(I,J,K,bi,bj)*dyG(I,J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 733 OBCS_CALC_STEVENS 
     &         *drF(k)* _hFacW(I+1,J,K,bi,bj)*dyG(I+1,J,bi,bj)
./pkg/obcs/obcs_diag_balance.F 112 OBCS_DIAG_BALANCE 
            tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 158 OBCS_DIAG_BALANCE 
            tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 203 OBCS_DIAG_BALANCE 
            tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj)
./pkg/obcs/obcs_diag_balance.F 249 OBCS_DIAG_BALANCE 
            tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj)
./pkg/obcs/obcs_diag_balance.F 325 OBCS_DIAG_BALANCE 
     &                    + flowE*drF(k)*hFacW(iB,j,k,bi,bj)
./pkg/obcs/obcs_diag_balance.F 344 OBCS_DIAG_BALANCE 
     &                    + flowW*drF(k)*hFacW(iB,j,k,bi,bj)
./pkg/obcs/obcs_diag_balance.F 363 OBCS_DIAG_BALANCE 
     &                    + flowN*drF(k)*hFacS(i,jB,k,bi,bj)
./pkg/obcs/obcs_diag_balance.F 382 OBCS_DIAG_BALANCE 
     &                    + flowS*drF(k)*hFacS(i,jB,k,bi,bj)
./pkg/obcs/obcs_monitor.F 110 OBCS_MONITOR 
     I             Nr, Nr, 1, uVel, hFacW, dyG, drF, maskInC,
./pkg/obcs/obcs_monitor.F 116 OBCS_MONITOR 
     I             Nr, Nr, 2, vVel, hFacS, dxG, drF, maskInC,
./pkg/obcs/obcs_monitor.F 132 OBCS_MONITOR 
     I             Nr, Nr, 0, theta, hFacW, dyG, drF, maskInC,
./pkg/obcs/obcs_monitor.F 138 OBCS_MONITOR 
     I             Nr, Nr, 0, theta, hFacS, dxG, drF, maskInC,
./pkg/obcs/obcs_monitor.F 154 OBCS_MONITOR 
     I             Nr, Nr, 0, salt, hFacW, dyG, drF, maskInC,
./pkg/obcs/obcs_monitor.F 160 OBCS_MONITOR 
     I             Nr, Nr, 0, salt, hFacS, dxG, drF, maskInC,
./model/src/convective_weights.F 65 CONVECTIVE_WEIGHTS 
          d1 = _hFacC(i,j,k-1,bi,bj)*drF(k-1)
./model/src/convective_weights.F 66 CONVECTIVE_WEIGHTS 
          d2 = _hFacC(i,j, k ,bi,bj)*drF( k )
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F 45 OCN_EXPORT_OCNCONFIG 
          ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1)
./pkg/ocn_compon_interf/ocn_store_my_data.F 71 OCN_STORE_MY_DATA 
     &          h0FacC(i,j,1,bi,bj)*rStarFacC(i,j,bi,bj)*drF(1)
./pkg/ocn_compon_interf/ocn_store_my_data.F 77 OCN_STORE_MY_DATA 
           ocMxlD2cpl(i,j,bi,bj) = hFac_surfC(i,j,bi,bj)*drF(1)
./pkg/ocn_compon_interf/ocn_store_my_data.F 87 OCN_STORE_MY_DATA 
           ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1)
./pkg/opps/opps_calc.F 328 OPPS_CALC 
         IF ( Wd(K2) .NE. 0. _d 0 ) dt = min(dt,drF(k2)/Wd(k2))
./pkg/opps/opps_calc.F 342 OPPS_CALC 
         mda(k2) = (md(k2)*drF(k2)+md(k2+1)*drF(k2+1))/
./pkg/opps/opps_calc.F 343 OPPS_CALC 
     *        (drF(k2)+drF(k2+1))
./pkg/opps/opps_calc.F 345 OPPS_CALC 
         wda(k2) = (wd(k2)*drF(k2)+wd(k2+1)*drF(k2+1))/
./pkg/opps/opps_calc.F 346 OPPS_CALC 
     *        (drF(k2)+drF(k2+1))
./pkg/ptracers/ptracers_forcing_surf.F 82 PTRACERS_FORCING_SURF 
        cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks)
./pkg/ptracers/ptracers_monitor.F 116 PTRACERS_MONITOR 
     &            hFacC, maskInC, rA ,drF, dummyRL, myThid )
./pkg/ptracers/ptracers_monitor_ad.F 112 ADPTRACERS_MONITOR 
     &            hFacC, maskInC, rA ,drF, dummyRL, myThid )
./pkg/sbo/sbo_calc.F 236 SBO_CALC 
               dvolume = rA(i,j,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/sbo/sbo_calc.F 260 SBO_CALC 
     &           rhoInSitu(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/sbo/sbo_calc.F 347 SBO_CALC 
                 dvolume = rA(i,j,bi,bj)*drF(k)
./pkg/seaice/cost_ice_test.F 151 COST_ICE_TEST 
     &                 drF(1) * 3996. _d 0 * 1026. _d 0 -
./pkg/seaice/cost_ice_test.F 167 COST_ICE_TEST 
     &                 drF(1) * 3996. _d 0 * 1026. _d 0 )
./pkg/seaice/cost_ice_test.F 182 COST_ICE_TEST 
     &                 drF(1) * 3996. _d 0 * 1026. _d 0 +
./model/src/forcing_surf_relax.F 102 FORCING_SURF_RELAX 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/forcing_surf_relax.F 107 FORCING_SURF_RELAX 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/forcing_surf_relax.F 86 FORCING_SURF_RELAX 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/forcing_surf_relax.F 91 FORCING_SURF_RELAX 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./pkg/seaice/seaice_check.F 115 SEAICE_CHECK 
      SEAICE_mcphee_max=drF(kSurface)/SEAICE_deltaTtherm
./pkg/seaice/seaice_fake.F 76 SEAICE_FAKE 
     &        SEAICE_mcPheePiston/drF(1)*SEAICE_deltaTtherm
./pkg/seaice/seaice_growth.F 1027 SEAICE_GROWTH 
           tmpscal1 =SEAICE_frazilFrac*drF(kSurface)/SEAICE_deltaTtherm
./pkg/seaice/seaice_growth.F 338 SEAICE_GROWTH 
      heffTooHeavy=drF(kSurface) / 5. _d 0
./pkg/seaice/seaice_init_fixed.F 92 SEAICE_INIT_FIXED 
     &                        * drF(kSurface)/SEAICE_deltaTtherm
./pkg/seaice/seaice_init_fixed.F 97 SEAICE_INIT_FIXED 
     &                          drF(kSurface)/SEAICE_deltaTtherm )
./model/src/freeze_surface.F 61 FREEZE_SURFACE 
     &                    *drF(k)*_hFacC(i,j,k,bi,bj) / dTtracerLev(k)
./pkg/seaice/seaice_monitor.F 105 SEAICE_MONITOR 
     &           maskInW, maskInW, rAw, drF, dummyRL, myThid )
./pkg/seaice/seaice_monitor.F 108 SEAICE_MONITOR 
     &                   UVM, UVM, rAz, drF, dummyRL, myThid )
./pkg/seaice/seaice_monitor.F 112 SEAICE_MONITOR 
     &           maskInS, maskInS, rAs, drF, dummyRL, myThid )
./pkg/seaice/seaice_monitor.F 115 SEAICE_MONITOR 
     &                   UVM, UVM, rAz, drF, dummyRL, myThid )
./pkg/seaice/seaice_monitor.F 119 SEAICE_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/seaice/seaice_monitor.F 121 SEAICE_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/seaice/seaice_monitor.F 123 SEAICE_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/seaice/seaice_monitor.F 126 SEAICE_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/seaice/seaice_monitor.F 134 SEAICE_MONITOR 
     &          maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/seaice/seaice_monitor_ad.F 111 ADSEAICE_MONITOR 
     &           maskInW, maskInW, rAw, drF, dummyRL, myThid )
./pkg/seaice/seaice_monitor_ad.F 114 ADSEAICE_MONITOR 
     &                   UVM, UVM, rAz, drF, dummyRL, myThid )
./pkg/seaice/seaice_monitor_ad.F 118 ADSEAICE_MONITOR 
     &           maskInS, maskInS, rAs, drF, dummyRL, myThid )
./pkg/seaice/seaice_monitor_ad.F 121 ADSEAICE_MONITOR 
     &                   UVM, UVM, rAz, drF, dummyRL, myThid )
./pkg/seaice/seaice_monitor_ad.F 124 ADSEAICE_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/seaice/seaice_monitor_ad.F 126 ADSEAICE_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/seaice/seaice_monitor_ad.F 128 ADSEAICE_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/seaice/seaice_monitor_ad.F 131 ADSEAICE_MONITOR 
     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
./pkg/shap_filt/shap_filt_apply_uv.F 168 SHAP_FILT_APPLY_UV 
     &                           - dKE_shap(i,j)*drF(k)*rUnit2mass
./model/src/ini_cg2d.F 103 INI_CG2D 
           faceArea = _dyG(i,j,bi,bj)*drF(k)
./model/src/ini_cg2d.F 108 INI_CG2D 
           faceArea = _dxG(i,j,bi,bj)*drF(k)
./model/src/ini_cg3d.F 111 INI_CG3D 
           faceArea = _dyG(i,j,bi,bj)*drF(k)
./model/src/ini_cg3d.F 124 INI_CG3D 
           faceArea = _dxG(i,j,bi,bj)*drF(K)
./pkg/shelfice/shelfice_forcing.F 166 SHELFICE_FORCING_S 
          drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 167 SHELFICE_FORCING_S 
          drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 169 SHELFICE_FORCING_S 
     &         /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc )
./pkg/shelfice/shelfice_forcing.F 173 SHELFICE_FORCING_S 
          drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 174 SHELFICE_FORCING_S 
          drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 176 SHELFICE_FORCING_S 
     &         /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc )
./pkg/shelfice/shelfice_forcing.F 76 SHELFICE_FORCING_T 
          drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 77 SHELFICE_FORCING_T 
          drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 79 SHELFICE_FORCING_T 
     &         /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc )
./pkg/shelfice/shelfice_forcing.F 83 SHELFICE_FORCING_T 
          drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 84 SHELFICE_FORCING_T 
          drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 86 SHELFICE_FORCING_T 
     &         /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc )
./pkg/shelfice/shelfice_thermodynamics.F 258 SHELFICE_THERMODYNAMICS 
            drKp1 = drF(K)*( 1. _d 0 - _hFacC(I,J,K,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 260 SHELFICE_THERMODYNAMICS 
            drKp1 = MIN( drKp1, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 262 SHELFICE_THERMODYNAMICS 
     &           ( drF(K)*_hFacC(I,J,K,bi,bj) + drKp1 )
./pkg/shelfice/shelfice_thermodynamics.F 263 SHELFICE_THERMODYNAMICS 
            tLoc(I,J) = ( tLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 266 SHELFICE_THERMODYNAMICS 
            sLoc(I,J) = ( sLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 269 SHELFICE_THERMODYNAMICS 
            uLoc(I,J) = ( uLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 274 SHELFICE_THERMODYNAMICS 
            vLoc(I,J) = ( vLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj)
./pkg/smooth/smooth_rhs.F 97 SMOOTH_RHS 
     &      *drF(k)*smooth_hFacW(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 99 SMOOTH_RHS 
     &      *drF(k)*smooth_hFacS(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 155 INI_MASKS_ETC 
     &                        + drF(k)*hFacC(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 93 INI_MASKS_ETC 
     &                      - drF(k)*hFacC(i,j,k,bi,bj)
./pkg/thsice/thsice_get_ocean.F 68 THSICE_GET_OCEAN 
             hOceMxL(i,j,bi,bj) = drF(ks)*h0FacC(i,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F 76 THSICE_GET_OCEAN 
             hOceMxL(i,j,bi,bj) = drF(ks)*hFac_surfC(i,j,bi,bj)
./pkg/thsice/thsice_get_ocean.F 78 THSICE_GET_OCEAN 
             hOceMxL(i,j,bi,bj) = drF(ks)*hFacC(i,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F 89 THSICE_GET_OCEAN 
             hOceMxL(i,j,bi,bj) = drF(ks)*hFacC(i,j,ks,bi,bj)
./model/src/ini_nh_fields.F 109 INI_NH_FIELDS 
     &          + phi_nh(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj)
./model/src/ini_nlfs_vars.F 153 INI_NLFS_VARS 
     &        MAX( MAX(rF(ks+1),R_low(i,j,bi,bj)) + hFacInf*drF(ks),
./model/src/ini_nlfs_vars.F 154 INI_NLFS_VARS 
     &                                Rmin_tmp + hFacInfMOM*drF(ks)
./verification/bottom_ctrl_5x5/code_ad/cost_test.F 60 COST_TEST 
     &             *dyG(I,J,BI,BJ)*drF(K)
./model/src/ini_vertical_grid.F 100 INI_VERTICAL_GRID 
         drF( k ) = 0.5 _d 0 *delRc(k)
./model/src/ini_vertical_grid.F 101 INI_VERTICAL_GRID 
         drF(k-1) = 0.5 _d 0 *delRc(k) + drF(k-1)
./model/src/ini_vertical_grid.F 103 INI_VERTICAL_GRID 
       drF(Nr) = delRc(Nr+1) + drF(Nr)
./model/src/ini_vertical_grid.F 136 INI_VERTICAL_GRID 
       rF(k+1) = rF(k)  + rkSign*drF(k)
./model/src/ini_vertical_grid.F 172 INI_VERTICAL_GRID 
       recip_drF(k)   = 1. _d 0/drF(k)
./model/src/ini_vertical_grid.F 77 INI_VERTICAL_GRID 
         drF(k) = delR(k)
./model/src/ini_vertical_grid.F 94 INI_VERTICAL_GRID 
       drF(1) = delRc(1)
./verification/fizhi-cs-aqualev20/code/ini_salt.F 61 INI_SALT 
        pedyn(K) = pedyn(K-1) - drF(K-1)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 99 FIZHI_INIT_VARS 
     &                        drF(L-1)*hfacC(i,j,L-1,bi,bj)
./model/src/integr_continuity.F 111 INTEGR_CONTINUITY 
     &                 *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/integr_continuity.F 114 INTEGR_CONTINUITY 
     &                 *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/integrate_for_w.F 131 INTEGRATE_FOR_W 
     &         -rStarDhDt(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 142 INTEGRATE_FOR_W 
     &         -rStarDhDt(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 68 INTEGRATE_FOR_W 
     &                *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/integrate_for_w.F 71 INTEGRATE_FOR_W 
     &                *drF(k)*_hFacS(i,j,k,bi,bj)
./verification/internal_wave/code/obcs_calc.F 65 OBCS_CALC 
       tmpsum=tmpsum+vertStructWst(K)*drF(K)
./model/src/post_cg3d.F 93 POST_CG3D 
     &         + phi_nh(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 715 APPLY_FORCING_T 
           faceArea = drF(k)*dyG(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 722 APPLY_FORCING_T 
           faceArea = drF(k)*dyG(i+1,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 729 APPLY_FORCING_T 
           faceArea = drF(k)*dxG(i,j+1,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 736 APPLY_FORCING_T 
           faceArea = drF(k)*dxG(i,j,bi,bj)
./model/src/pre_cg3d.F 135 PRE_CG3D 
     &          + tmpVar(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/pre_cg3d.F 189 PRE_CG3D 
     &       +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j)
./model/src/pre_cg3d.F 190 PRE_CG3D 
     &       -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j)
./model/src/pre_cg3d.F 191 PRE_CG3D 
     &       +drF(k)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1)
./model/src/pre_cg3d.F 192 PRE_CG3D 
     &       -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j )
./model/src/pre_cg3d.F 208 PRE_CG3D 
     &       +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j)
./model/src/pre_cg3d.F 209 PRE_CG3D 
     &       -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j)
./model/src/pre_cg3d.F 210 PRE_CG3D 
     &       +drF(k)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1)
./model/src/pre_cg3d.F 211 PRE_CG3D 
     &       -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j )
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F 57 COST_TRACER 
     &           rA(i,j,bi,bj)*drF(k)
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F 57 COST_TRACER 
     &           rA(i,j,bi,bj)*drF(k)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 70 PTRACERS_FORCING_SURF 
     &                  * drF(ks) * _hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 81 PTRACERS_FORCING_SURF 
        cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 80 PTRACERS_FORCING_SURF 
        cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks)
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 80 PTRACERS_FORCING_SURF 
        cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks)
./model/src/set_ref_state.F 296 SET_REF_STATE 
          rhoFacF(k) = (rhoFacC(k-1)*drF(k)+rhoFacC(k)*drF(k-1))
./model/src/set_ref_state.F 297 SET_REF_STATE 
     &               / (drF(k)+drF(k-1))
./model/src/update_cg2d.F 82 UPDATE_CG2D 
           faceArea = _dyG(i,j,bi,bj)*drF(k)
./model/src/update_cg2d.F 86 UPDATE_CG2D 
           faceArea = _dxG(i,j,bi,bj)*drF(k)
./model/src/update_masks_etc.F 148 UPDATE_MASKS_ETC 
     &                      - drF(K)*hFacC(I,J,K,bi,bj)
./model/src/update_sigma.F 121 UPDATE_SIGMA 
            recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)*drF(k)
./model/src/update_sigma.F 147 UPDATE_SIGMA 
            recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)*drF(k)
./model/src/update_sigma.F 173 UPDATE_SIGMA 
            recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)*drF(k)
./model/src/write_grid.F 127 WRITE_GRID 
        CALL WRITE_GLVEC_RS( 'DRF',' ', drF, Nr, -1, myThid )
./model/src/write_grid.F 169 WRITE_GRID 
        CALL MNC_CW_RS_W('D',bfname,0,0,'drF',drF,myThid)
./pkg/aim_v23/aim_do_physics.F 101 AIM_DO_PHYSICS 
     &                      + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(k)
./pkg/aim_v23/aim_tendency_apply.F 102 AIM_TENDENCY_APPLY_U 
     &                       *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass
./pkg/aim_v23/aim_tendency_apply.F 289 AIM_TENDENCY_APPLY_V 
     &                       *hFacS(i,j,k,bi,bj)*drF(k)*rUnit2mass
./pkg/atm2d/get_ocnvars.F 100 GET_OCNVARS 
           mlDepth(i,j) = hFacC(i,j,1,1,1)*drF(1)
./pkg/atm2d/get_ocnvars.F 84 GET_OCNVARS 
     &          h0FacC(i,j,1,1,1)*rStarFacC(i,j,1,1)*drF(1)
./pkg/atm2d/get_ocnvars.F 90 GET_OCNVARS 
           mlDepth(i,j) = hFac_surfC(i,j,1,1)*drF(1)
./pkg/atm2d/relax_add.F 127 RELAX_ADD 
     &            * (HeatCapacity_Cp*rhoNil*drF(1))*nearIce
./pkg/atm_phys/atm_phys_tendency_apply.F 163 ATM_PHYS_TENDENCY_APPLY_V 
     &                        *hFacS(i,j,k,bi,bj)*drF(k)*rUnit2mass
./pkg/atm_phys/atm_phys_tendency_apply.F 77 ATM_PHYS_TENDENCY_APPLY_U 
     &                       *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass
./pkg/bbl/bbl_calc_rhs.F 170 BBL_CALC_RHS 
           thk_d = drF(kLowC(i,d,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 178 BBL_CALC_RHS 
           thk_r      = drF(kLowC(i,r,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 272 BBL_CALC_RHS 
            thk_d = drF(kLowC(i,d,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 280 BBL_CALC_RHS 
            thk_r      = drF(kLowC(i,r,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 375 BBL_CALC_RHS 
           thk_d = drF(kLowC(d,j,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 383 BBL_CALC_RHS 
           thk_r      = drF(kLowC(r,j,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 477 BBL_CALC_RHS 
            thk_d = drF(kLowC(d,j,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 485 BBL_CALC_RHS 
            thk_r      = drF(kLowC(r,j,bi,bj)) *
./pkg/cost/cost_atlantic_heat.F 122 COST_ATLANTIC_HEAT 
     &            + vVel_bar(k)*drF(k)/countV(k)
./pkg/cost/cost_atlantic_heat.F 127 COST_ATLANTIC_HEAT 
     &            + thetaVVel_bar(k)*drF(k)/countTV(k)
./pkg/cost/cost_atlantic_heat.F 175 COST_ATLANTIC_HEAT 
     &            + uVel_bar(k) * theta_bar(k) * drF(k)
./pkg/cost/cost_atlantic_heat.F 80 COST_ATLANTIC_HEAT 
     &            * drF(k))**2
./pkg/cost/cost_tracer.F 57 COST_TRACER 
     &           rA(i,j,bi,bj)*drF(k)*dTtracerLev(k)
./pkg/cost/cost_vector.F 71 COST_VECTOR 
     &             * drF(k)
./pkg/diagnostics/diagnostics_calc_phivel.F 112 DIAGNOSTICS_CALC_PHIVEL 
     &                         *drF(k)*hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 115 DIAGNOSTICS_CALC_PHIVEL 
     &                         *drF(k)*hFacS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 125 DIAGNOSTICS_CALC_PHIVEL 
              uTrans(i,j,bi,bj) = dyG(i,j,bi,bj)*drF(k)
./pkg/diagnostics/diagnostics_calc_phivel.F 127 DIAGNOSTICS_CALC_PHIVEL 
              vTrans(i,j,bi,bj) = dxG(i,j,bi,bj)*drF(k)
./pkg/diagnostics/diagnostics_calc_phivel.F 245 DIAGNOSTICS_CALC_PHIVEL 
     &                         *drF(k)*hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 250 DIAGNOSTICS_CALC_PHIVEL 
     &                         *drF(k)*hFacS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 340 DIAGNOSTICS_FILL_STATE 
     &                      + drF(k)*hFacC(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F 106 DIAGNOSTICS_SUM_LEVELS 
                tmpFac = drF(kLev)
./pkg/diagnostics/diagnostics_sum_levels.F 130 DIAGNOSTICS_SUM_LEVELS 
                 tmpFac = drF(kLev)
./pkg/diagnostics/diagnostics_sum_levels.F 146 DIAGNOSTICS_SUM_LEVELS 
                 tmpFac = drF(kLev)
./pkg/diagnostics/diagnostics_sum_levels.F 162 DIAGNOSTICS_SUM_LEVELS 
                 tmpFac = drF(kLev)
./pkg/diagnostics/diagnostics_sum_levels.F 178 DIAGNOSTICS_SUM_LEVELS 
                 tmpFac = drF(kLev)
./pkg/diagnostics/diagstats_local.F 122 DIAGSTATS_LOCAL 
          drLoc = drF(k)
./pkg/dic/bio_export.F 105 BIO_EXPORT 
         atten=(k0*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0)
./pkg/dic/bio_export.F 106 BIO_EXPORT 
         if (k.gt.1) atten=atten+(k0*drF(k-1)
./pkg/dic/car_flux.F 107 CAR_FLUX 
           depth_l  = -rF(ko) + drF(ko) * _hFacC(i,j,ko,bi,bj)
./pkg/dic/car_flux.F 75 CAR_FLUX 
           caexport(i,j) = CAR_S(i,j,k)*drF(k) * _hFacC(i,j,k,bi,bj)
./pkg/dic/car_flux.F 99 CAR_FLUX 
        depth_l  = -rF(ko) + drF(ko)
./pkg/dic/car_flux_omega_top.F 111 CAR_FLUX_OMEGA_TOP 
     &                  ( (flux_l)/(drF(1)*hFacC(i,j,1,bi,bj)) )
./pkg/dic/car_flux_omega_top.F 131 CAR_FLUX_OMEGA_TOP 
                 dumrate = -1.0d0*DissolutionRate*drF(ko)*
./pkg/dic/car_flux_omega_top.F 149 CAR_FLUX_OMEGA_TOP 
     &          ( (flux_u-flux_l)/(drF(ko)*hFacC(i,j,ko,bi,bj)) )
./pkg/dic/car_flux_omega_top.F 164 CAR_FLUX_OMEGA_TOP 
     &                   *drF(k)*hFacC(i,j,k,bi,bj)/
./pkg/dic/car_flux_omega_top.F 165 CAR_FLUX_OMEGA_TOP 
     &                    (drF(1)*hFacC(i,j,1,bi,bj) )
./pkg/dic/car_flux_omega_top.F 89 CAR_FLUX_OMEGA_TOP 
     &           (1.0-DOPfraction)*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/dic/carbon_chem.F 856 CARBON_COEFFS_PRESSURE_DEP 
            cdepth = bdepth + 0.5d0*drF(k)
./pkg/dic/carbon_chem.F 857 CARBON_COEFFS_PRESSURE_DEP 
            bdepth = bdepth + drF(k)
./pkg/dic/dic_atmos.F 119 DIC_ATMOS 
     &                *drF(k)*hFacC(i,j,k,bi,bj)
./pkg/dic/dic_ini_atmos.F 136 DIC_INI_ATMOS 
     &                *drF(k)*hFacC(i,j,k,bi,bj)
./pkg/dic/phos_flux.F 101 PHOS_FLUX 
        depth_l  = -rF(ko) + drF(ko)
./pkg/dic/phos_flux.F 111 PHOS_FLUX 
           depth_l  = -rF(ko) + drF(ko) * _hFacC(i,j,ko,bi,bj)
./pkg/dic/phos_flux.F 77 PHOS_FLUX 
     &          *drF(k) * _hFacC(i,j,k,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 235 DWNSLP_INIT_FIXED 
     &                       drF(k)*hFacC(ideep,jdeep,k,bi,bj) )
./pkg/down_slope/dwnslp_init_fixed.F 243 DWNSLP_INIT_FIXED 
     &       *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin )
./pkg/down_slope/dwnslp_init_fixed.F 247 DWNSLP_INIT_FIXED 
     &       *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin )
./pkg/down_slope/dwnslp_init_fixed.F 264 DWNSLP_INIT_FIXED 
     &       *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin )
./pkg/down_slope/dwnslp_init_fixed.F 269 DWNSLP_INIT_FIXED 
     &       *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin )
./pkg/ebm/ebm_wind_perturb.F 135 EBM_WIND_PERTURB 
     &                     *drF(1)*hFacW(i,j,1,bi,bj)
./pkg/ecco/cost_atlantic.F 168 COST_ATLANTIC 
     &                     *  drF(k)*maskS(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F 216 COST_ATLANTIC 
     &                     *  drF(k)*maskS(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 650 COST_AVERAGESFIELDS 
     &                   + 2*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 714 COST_AVERAGESFIELDS 
     &              *_dxG(i,j,bi,bj)*drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F 162 COST_GENCOST_BOXMEAN 
     &            hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F 165 COST_GENCOST_BOXMEAN 
     &            hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F 171 COST_GENCOST_BOXMEAN 
     &            hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F 174 COST_GENCOST_BOXMEAN 
     &            hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj)
./pkg/ecco/cost_gencost_seaicev4.F 432 COST_GENCOST_SEAICEV4 
     &                 HeatCapacity_Cp*rhoNil*drF(1)
./pkg/ecco/cost_gencost_seaicev4.F 435 COST_GENCOST_SEAICEV4 
     &              - (epsilonTemp*HeatCapacity_Cp*rhoNil*drF(1)))
./pkg/ecco/cost_gencost_seaicev4.F 459 COST_GENCOST_SEAICEV4 
     &                  HeatCapacity_Cp*rhoNil*drF(1) )
./pkg/ecco/cost_gencost_sshv4.F 1035 COST_GENCOST_SSHV4 
        CALL REMOVE_MEAN_RL( 1, psbar, maskInC, maskInC, rA, drF,
./pkg/ecco/cost_gencost_sshv4.F 410 COST_GENCOST_SSHV4 
        CALL REMOVE_MEAN_RL( 1, psbar, maskInC, maskInC, rA, drF,
./pkg/ecco/cost_gencost_sshv4.F 761 COST_GENCOST_SSHV4 
        CALL REMOVE_MEAN_RL( 1, psbar, maskInC, maskInC, rA, drF,
./pkg/ecco/cost_obcsvol.F 212 COST_OBCSVOL 
                    fctile = fctile - tmpx* drF(k) *dxg(i,j,bi,bj)
./pkg/ecco/cost_obcsvol.F 254 COST_OBCSVOL 
                    fctile = fctile + tmpx* drF(k) *dxg(i,j+1,bi,bj)
./pkg/ecco/cost_obcsvol.F 297 COST_OBCSVOL 
                    fctile = fctile + tmpy* drF(k) *dyg(i+1,j,bi,bj)
./pkg/ecco/cost_obcsvol.F 340 COST_OBCSVOL 
                    fctile = fctile - tmpy* drF(k) *dyg(i,j,bi,bj)
./pkg/ecco/cost_trans_merid.F 207 COST_TRANS_MERID 
     &                     * drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 212 COST_TRANS_MERID 
     &                     *  drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 217 COST_TRANS_MERID 
     &                     *  drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 196 COST_TRANS_ZONAL 
     &                     * drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 201 COST_TRANS_ZONAL 
     &                     *  drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 206 COST_TRANS_ZONAL 
     &                     *  drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/ecco_phys.F 84 ECCO_PHYS 
     &            hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj)
./pkg/ecco/ecco_phys.F 86 ECCO_PHYS 
     &            hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj)