Symbol Description Uses
drF 289


File Line number Procedure Code
./pkg/ebm/ebm_forcing_surf.F 70 EBM_FORCING_SURF 
     &            *drF(kSurface)*hFacW(i,j,kSurface,bi,bj)
./pkg/ebm/ebm_forcing_surf.F 79 EBM_FORCING_SURF 
     &        *drF(kSurface)*hFacC(i,j,kSurface,bi,bj)
./pkg/ebm/ebm_forcing_surf.F 88 EBM_FORCING_SURF 
     &        *drF(kSurface)*hFacC(i,j,kSurface,bi,bj)
./pkg/exf/exf_monitor.F 105 EXF_MONITOR 
     &       maskH,maskH,rAw,drF,myThid)
./pkg/exf/exf_monitor.F 107 EXF_MONITOR 
     &       maskH,maskH,rAs,drF,myThid)
./pkg/exf/exf_monitor.F 109 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 111 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 114 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 116 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 119 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 122 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 124 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 126 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 128 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 130 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 134 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 138 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 142 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 144 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 148 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 152 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 156 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/exf/exf_monitor.F 160 EXF_MONITOR 
     &       maskH,maskH,rA ,drF,myThid)
./pkg/ptracers/ptracers_monitor.F 107 PTRACERS_MONITOR 
     &        suff, maskC,hFacC,rA ,drF,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 263 GMREDI_CALC_TENSOR 
        deltaH=min(deltaH,drF(k))
./pkg/gmredi/gmredi_calc_tensor.F 456 GMREDI_CALC_TENSOR 
           tmp1k(i,j) = dyG(i,j,bi,bj)*drF(k)
./pkg/gmredi/gmredi_calc_tensor.F 575 GMREDI_CALC_TENSOR 
           tmp1k(i,j) = dxG(i,j,bi,bj)*drF(k)
./pkg/diagnostics/diagstats_local.F 108 DIAGSTATS_LOCAL 
          drLoc = drF(k)
./pkg/diagnostics/diagnostics_fill_state.F 318 DIAGNOSTICS_FILL_STATE 
     &                      + drF(k)*hFacC(i,j,k,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 320 DIAGNOSTICS_FILL_STATE 
     &                      + drF(k)*hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_do_physics.F 74 AIM_DO_PHYSICS 
     &                      + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(k)
./pkg/mom_fluxform/mom_u_del2u.F 101 MOM_U_DEL2U 
     &    )*drF(k)*2.*uFld(i,j)
./pkg/mom_fluxform/mom_u_del2u.F 53 MOM_U_DEL2U 
        fZon(i,j) = drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 66 MOM_U_DEL2U 
        fMer(i,j) = drF(k)*hFacZ(i,j)
./pkg/mom_fluxform/mom_calc_rtrans.F 135 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 142 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 145 MOM_CALC_RTRANS 
     &     - rStarDhSDt(i,j,bi,bj)*drF(k-1)*h0FacS(i,j,k-1,bi,bj)
./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/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_fluxform.F 255 MOM_FLUXFORM 
     &   *drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 257 MOM_FLUXFORM 
     &   *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 51 MOM_V_DEL2V 
        fZon(i,j) = drF(k)*hFacZ(i,j)
./pkg/mom_fluxform/mom_v_del2v.F 64 MOM_V_DEL2V 
        fMer(i,j) = drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 98 MOM_V_DEL2V 
     &    )*drF(k)*2.*vFld(i,j)
./pkg/mom_fluxform/mom_v_xviscflux.F 58 MOM_V_XVISCFLUX 
     &     _dyU(i,j,bi,bj)*drF(k)*hFacZ(i,j)
./pkg/flt/flt_functions.F 168 NO PROCEDURE 
         if (k.eq.0)  zlo = rC(k)-drF(1)*0.5
./pkg/flt/flt_functions.F 170 NO PROCEDURE 
         if (k.eq.Nr) zhi = rC(k)+drF(Nr)*0.5
./model/src/ini_cg2d.F 101 INI_CG2D 
           faceArea = _dxG(I,J,bi,bj)*drF(K)
./model/src/ini_cg2d.F 96 INI_CG2D 
           faceArea = _dyG(I,J,bi,bj)*drF(K)
./model/src/ini_cg3d.F 113 INI_CG3D 
           faceArea = _dyG(I,J,bi,bj)*drF(K)
./model/src/ini_cg3d.F 121 INI_CG3D 
           faceArea = _dxG(I,J,bi,bj)*drF(K)
./model/src/integr_continuity.F 85 INTEGR_CONTINUITY 
     &                 *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/integr_continuity.F 87 INTEGR_CONTINUITY 
     &                 *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/mnc/mnc_cw_write_grid_info.F 136 MNC_CW_WRITE_GRID_INFO 
      CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'drF',drF,myThid)
./pkg/dic/car_flux.F 64 CAR_FLUX 
     &           (1.0-DOPfraction)*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/dic/car_flux.F 71 CAR_FLUX 
     &                  drF(ko)*hFacC(i,j,ko,bi,bj)
./pkg/dic/car_flux.F 84 CAR_FLUX 
     &          ( (Flux_u-Flux_l)/(drF(ko)*hFacC(i,j,ko,bi,bj)) )
./pkg/dic/phos_flux.F 67 PHOS_FLUX 
     &                  drF(k)*hFacC(i,j,k,bi,bj)
./pkg/dic/phos_flux.F 74 PHOS_FLUX 
     &                  drF(ko)*hFacC(i,j,ko,bi,bj)
./pkg/dic/phos_flux.F 88 PHOS_FLUX 
     &          ( (Flux_u-Flux_l)/(drF(ko)*hFacC(i,j,ko,bi,bj)) )
./pkg/dic/bio_export.F 77 BIO_EXPORT 
             atten=(k0*drF(k)*hFacC(i,j,k,bi,bj)*.5)
./pkg/dic/bio_export.F 78 BIO_EXPORT 
             if (k.gt.1) atten=atten+(k0*drF(k-1)
./pkg/dic/carbon_chem.F 952 CARBON_COEFFS_PRESSURE_DEP 
            cdepth = bdepth + 0.5d0*drF(k)
./pkg/dic/carbon_chem.F 953 CARBON_COEFFS_PRESSURE_DEP 
            bdepth = bdepth + drF(k)
./pkg/dic/dic_aver_init.F 167 DIC_AVER_INIT 
     &                rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj)
./pkg/dic/dic_aver_init.F 169 DIC_AVER_INIT 
     &                *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj)
./pkg/dic/dic_aver_init.F 171 DIC_AVER_INIT 
     &                *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj)
./pkg/dic/dic_aver_init.F 177 DIC_AVER_INIT 
     &                *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj)
./pkg/dic/dic_aver_init.F 180 DIC_AVER_INIT 
     &                *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj)
./pkg/dic/dic_aver_init.F 183 DIC_AVER_INIT 
     &                *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj)
./pkg/dic/dic_aver_init.F 189 DIC_AVER_INIT 
     &                *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj)
./pkg/dic/dic_aver_init.F 192 DIC_AVER_INIT 
     &                *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj)
./pkg/dic/dic_aver_init.F 195 DIC_AVER_INIT 
     &                *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj)
./pkg/dic/dic_cost.F 101 DIC_COST 
     &          *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj) +
./pkg/dic/dic_cost.F 104 DIC_COST 
     &          *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj) +
./pkg/dic/dic_cost.F 107 DIC_COST 
     &          *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj)
./pkg/dic/dic_cost.F 69 DIC_COST 
     &            rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj)
./pkg/dic/dic_cost.F 73 DIC_COST 
     &          *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj)
./pkg/dic/dic_cost.F 77 DIC_COST 
     &          *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj)
./pkg/dic/dic_cost.F 82 DIC_COST 
     &            rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj)
./pkg/dic/dic_cost.F 88 DIC_COST 
     &          *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj)  +
./pkg/dic/dic_cost.F 91 DIC_COST 
     &          *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj) +
./pkg/dic/dic_cost.F 94 DIC_COST 
     &          *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj)
./pkg/dic/car_flux_omega_top.F 109 CAR_FLUX_OMEGA_TOP 
     &                  ( (flux_l)/(drF(1)*hFacC(i,j,1,bi,bj)) )
./pkg/dic/car_flux_omega_top.F 129 CAR_FLUX_OMEGA_TOP 
                 dumrate = -1.0d0*DissolutionRate*drF(ko)*
./pkg/dic/car_flux_omega_top.F 147 CAR_FLUX_OMEGA_TOP 
     &          ( (flux_u-flux_l)/(drF(ko)*hFacC(i,j,ko,bi,bj)) )
./pkg/dic/car_flux_omega_top.F 162 CAR_FLUX_OMEGA_TOP 
     &                   *drF(k)*hFacC(i,j,k,bi,bj)/
./pkg/dic/car_flux_omega_top.F 163 CAR_FLUX_OMEGA_TOP 
     &                    (drF(1)*hFacC(i,j,1,bi,bj) )
./pkg/dic/car_flux_omega_top.F 87 CAR_FLUX_OMEGA_TOP 
     &           (1.0-DOPfraction)*drF(k)*hFacC(i,j,k,bi,bj)
./model/src/ini_surf_dr.F 78 INI_SURF_DR 
     &        MAX( MAX(rF(ks+1),R_low(i,j,bi,bj)) + hFacInf*drF(ks),
./model/src/ini_surf_dr.F 79 INI_SURF_DR 
     &                                Rmin_tmp + hFacInfMOM*drF(ks)
./pkg/fizhi/fizhi_init_vars.F 99 FIZHI_INIT_VARS 
     .                        drF(L-1)*hfacC(i,j,L-1,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 98 STEP_FIZHI_CORR 
     .                        drF(L-1)*hfacC(i,j,L-1,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 197 FIZHI_WRAPPER 
     .                        drF(L-1)*hfacC(i,j,L-1,bi,bj)
./pkg/fizhi/getpwhere.F 84 GETPWHERE 
        rF_edge(L) = rF_edge(L-1) - (drF(L-1)/100.)
./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/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)
./verification/rotating_tank/code/external_forcing.F 385 EXTERNAL_FORCING_T 
           faceArea = drF(kLev)*dyG(i,j,bi,bj)
./verification/rotating_tank/code/external_forcing.F 392 EXTERNAL_FORCING_T 
           faceArea = drF(kLev)*dyG(i+1,j,bi,bj)
./verification/rotating_tank/code/external_forcing.F 399 EXTERNAL_FORCING_T 
           faceArea = drF(kLev)*dxG(i,j+1,bi,bj)
./verification/rotating_tank/code/external_forcing.F 406 EXTERNAL_FORCING_T 
           faceArea = drF(kLev)*dxG(i,j,bi,bj)
./verification/fizhi-cs-aqualev20/code/ini_salt.F 61 INI_SALT 
        pedyn(K) = pedyn(K-1) - drF(K-1)
./model/src/ini_masks_etc.F 169 INI_MASKS_ETC 
     &                        + drF(k)*hFacC(I,J,K,bi,bj)
./model/src/ini_masks_etc.F 378 INI_MASKS_ETC 
         hFacUpper=drF(Km1)/(drF(Km1)+drF(K))
./model/src/ini_masks_etc.F 380 INI_MASKS_ETC 
         hFacLower=drF(K)/(drF(Km1)+drF(K))
./model/src/ini_masks_etc.F 93 INI_MASKS_ETC 
     &                      - drF(k)*hFacC(I,J,K,bi,bj)
./model/src/write_grid.F 109 WRITE_GRID 
        CALL MDSWRITEVEC_LOC_RS('DRF',writeBinaryPrec, Nr, drF,
./model/src/write_grid.F 132 WRITE_GRID 
        CALL MNC_CW_RL_W('D',bfname,0,0,'drF',drF,myThid)
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 143 INI_MASKS_ETC 
     &                        + drF(k)*hFacC(I,J,K,bi,bj)
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 363 INI_MASKS_ETC 
         hFacUpper=drF(Km1)/(drF(Km1)+drF(K))
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 365 INI_MASKS_ETC 
         hFacLower=drF(K)/(drF(Km1)+drF(K))
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 96 INI_MASKS_ETC 
     &                      - drF(k)*hFacC(I,J,K,bi,bj)
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 138 INI_MASKS_ETC 
     &                        + drF(k)*hFacC(I,J,K,bi,bj)
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 354 INI_MASKS_ETC 
         hFacUpper=drF(Km1)/(drF(Km1)+drF(K))
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 356 INI_MASKS_ETC 
         hFacLower=drF(K)/(drF(Km1)+drF(K))
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 91 INI_MASKS_ETC 
     &                      - drF(k)*hFacC(I,J,K,bi,bj)
./verification/internal_wave/code/obcs_calc.F 56 OBCS_CALC 
       tmpsum=tmpsum+vertStructWst(K)*drF(K)
./model/src/calc_phi_hyd.F 200 CALC_PHI_HYD 
     &       + half*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 202 CALC_PHI_HYD 
     &            + drF(k)*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 293 CALC_PHI_HYD 
             phiHydC(i,j) = phiHydF(i,j) + half*drF(k)*alphaRho(i,j)
./model/src/calc_phi_hyd.F 297 CALC_PHI_HYD 
             phiHydF(i,j) = phiHydC(i,j) + half*drF(k)*alphaRho(i,j)
./verification/bottom_ctrl_5x5/code_ad/cost_test.F 63 COST_TEST 
     &             *dyG(I,J,BI,BJ)*drF(K)
./model/src/update_masks_etc.F 139 UPDATE_MASKS_ETC 
     &                      - drF(k)*hFacC(I,J,K,bi,bj)
./model/src/update_masks_etc.F 380 UPDATE_MASKS_ETC 
            hFacUpper=drF(Km1)/(drF(Km1)+drF(K))
./model/src/update_masks_etc.F 382 UPDATE_MASKS_ETC 
         hFacLower=drF(K)/(drF(Km1)+drF(K))
./model/src/external_forcing_surf.F 80 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 85 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 91 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 96 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/calc_gw.F 144 CALC_GW 
     &        ( drF(k-1)*halfRS
./model/src/calc_gw.F 145 CALC_GW 
     &        + drF( k )*MIN( _hFacC(i,j, k ,bi,bj), halfRS )
./model/src/calc_gw.F 151 CALC_GW 
     &          drF(k-1)*MAX( h0FacC(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 152 CALC_GW 
     &        + drF( k )*MIN( h0FacC(i,j,k  ,bi,bj), halfRS )
./model/src/calc_gw.F 155 CALC_GW 
     &          drF(k-1)*MAX( _hFacC(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 156 CALC_GW 
     &        + drF( k )*MIN( _hFacC(i,j,k  ,bi,bj), halfRS )
./model/src/calc_gw.F 159 CALC_GW 
     &          drF(k-1)*MAX( _hFacW(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 160 CALC_GW 
     &        + drF( k )*MIN( _hFacW(i,j,k  ,bi,bj), halfRS )
./model/src/calc_gw.F 162 CALC_GW 
     &          drF(k-1)*MAX( _hFacS(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 163 CALC_GW 
     &        + drF( k )*MIN( _hFacS(i,j, k ,bi,bj), halfRS )
./model/src/calc_gw.F 341 CALC_GW 
     &          drF(k-1)*_hFacW(i,j,k-1,bi,bj)*uVel(i,j,k-1,bi,bj)
./model/src/calc_gw.F 342 CALC_GW 
     &        + drF( k )*_hFacW(i,j, k ,bi,bj)*uVel(i,j, k ,bi,bj)
./model/src/calc_gw.F 354 CALC_GW 
     &          drF(k-1)*_hFacS(i,j,k-1,bi,bj)*vVel(i,j,k-1,bi,bj)
./model/src/calc_gw.F 355 CALC_GW 
     &         +drF( k )*_hFacS(i,j, k ,bi,bj)*vVel(i,j, k ,bi,bj)
./model/src/solve_for_pressure.F 171 SOLVE_FOR_PRESSURE 
     &      *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/solve_for_pressure.F 173 SOLVE_FOR_PRESSURE 
     &      *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/solve_for_pressure.F 405 SOLVE_FOR_PRESSURE 
     &       +drF(K)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j)
./model/src/solve_for_pressure.F 406 SOLVE_FOR_PRESSURE 
     &       -drF(K)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j)
./model/src/solve_for_pressure.F 407 SOLVE_FOR_PRESSURE 
     &       +drF(K)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1)
./model/src/solve_for_pressure.F 408 SOLVE_FOR_PRESSURE 
     &       -drF(K)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j )
./model/src/solve_for_pressure.F 421 SOLVE_FOR_PRESSURE 
     &       +drF(K)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j)
./model/src/solve_for_pressure.F 422 SOLVE_FOR_PRESSURE 
     &       -drF(K)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j)
./model/src/solve_for_pressure.F 423 SOLVE_FOR_PRESSURE 
     &       +drF(K)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1)
./model/src/solve_for_pressure.F 424 SOLVE_FOR_PRESSURE 
     &       -drF(K)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j )
./model/src/freeze_surface.F 61 FREEZE_SURFACE 
     &                    *drF(k)*_hFacC(i,j,k,bi,bj) / dTtracerLev(k)
./model/src/integrate_for_w.F 105 INTEGRATE_FOR_W 
     &          - rStarDhCDt(i,j,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 117 INTEGRATE_FOR_W 
     &          - rStarDhCDt(i,j,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 54 INTEGRATE_FOR_W 
     &     *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/integrate_for_w.F 57 INTEGRATE_FOR_W 
     &     *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/config_summary.F 542 CONFIG_SUMMARY 
      CALL WRITE_1D_R8( drF,Nr, INDEX_K,'drF = ',
./model/src/ini_vertical_grid.F 105 INI_VERTICAL_GRID 
       recip_drF(K)   = 1. _d 0/drF(K)
./model/src/ini_vertical_grid.F 58 INI_VERTICAL_GRID 
        drF(1) = delRc(1)
./model/src/ini_vertical_grid.F 61 INI_VERTICAL_GRID 
        drF(K-1) =  drF(K-1) + 0.5 _d 0*delRc(K)
./model/src/ini_vertical_grid.F 62 INI_VERTICAL_GRID 
        drF(K)   = 0.5 _d 0*delRc(K)
./model/src/ini_vertical_grid.F 64 INI_VERTICAL_GRID 
        rF(K)    = rF(K-1) + rkSign*drF(K-1)
./model/src/ini_vertical_grid.F 66 INI_VERTICAL_GRID 
        drF(Nr)  = drF(Nr) + delRc(Nr+1)
./model/src/ini_vertical_grid.F 67 INI_VERTICAL_GRID 
        rF(Nr+1) = rF(Nr) + rkSign*drF(Nr)
./model/src/ini_vertical_grid.F 88 INI_VERTICAL_GRID 
       drF(K)     = delR(K)
./model/src/do_oceanic_phys.F 216 DO_OCEANIC_PHYS 
     &        CALL REMOVE_MEAN_RS( 1, EmPmR, maskH, maskH, rA, drF,
./model/src/do_oceanic_phys.F 219 DO_OCEANIC_PHYS 
     &        CALL REMOVE_MEAN_RS( 1, Qnet,  maskH, maskH, rA, drF,
./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 )
./model/src/calc_common_factors.F 80 CALC_COMMON_FACTORS 
         xA(i,j) = _dyG(i,j,bi,bj)*drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/calc_common_factors.F 81 CALC_COMMON_FACTORS 
         yA(i,j) = _dxG(i,j,bi,bj)*drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 217 GGL90_CALC 
     &         *drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 219 GGL90_CALC 
     &         *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/cost/cost_tracer.F 56 COST_TRACER 
     &           rA(i,j,bi,bj)*drF(k)*dTtracerLev(k)
./pkg/cost/cost_vector.F 69 COST_VECTOR 
     &             * drF(k)
./pkg/cost/cost_atlantic_heat.F 120 COST_ATLANTIC_HEAT 
     &            + vVel_bar(k) * theta_bar(k) * drF(k)
./pkg/cost/cost_atlantic_heat.F 164 COST_ATLANTIC_HEAT 
     &            + uVel_bar(k) * theta_bar(k) * drF(k)
./pkg/cost/cost_atlantic_heat.F 77 COST_ATLANTIC_HEAT 
     &            * drF(k))**2
./pkg/kpp/kpp_calc.F 379 KPP_CALC 
        if ( work3(i,j) .lt. (phepsi*phepsi*drF(1)*drF(1)) ) then
./pkg/kpp/kpp_calc.F 380 KPP_CALC 
           ustar(i,j) = SQRT( phepsi * p5 * drF(1) )
./pkg/kpp/kpp_calc.F 452 KPP_CALC 
               zRef(i,j) = drF(1) * dB_dz / dBdz2
./pkg/kpp/kpp_calc.F 456 KPP_CALC 
               zRef(i,j) = rF(k) + drF(k) * (dB_dz - dBdz1) /
./pkg/kpp/kpp_calc.F 486 KPP_CALC 
               zRef(i,j) = MIN ( zRef(i,j), drF(1) )
./pkg/kpp/kpp_calc.F 493 KPP_CALC 
               IF ( zRef(i,j) .LT. drF(1) ) THEN
./pkg/kpp/kpp_init.F 117 KPP_INIT 
         hwide(k) = drF(k)
./pkg/gridalt/make_phys_grid.F 104 MAKE_PHYS_GRID 
        dpstar_accum = dpstar_accum + drF(L)
./pkg/gridalt/make_phys_grid.F 124 MAKE_PHYS_GRID 
     . (dptry_accum(Lnew).gt.(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))))then
./pkg/grida