Symbol Description Uses
hFacC 176


File Line number Procedure Code
./pkg/ecco/ecco_phys.F 100 ECCO_PHYS 
     &            hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj)
./pkg/ecco/ecco_phys.F 248 ECCO_PHYS 
            tmpvol=hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj)
./pkg/ecco/ecco_phys.F 98 ECCO_PHYS 
     &            hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj)
./model/inc/GRID.h 417 NO PROCEDURE 
     &  hFacC, hFacW, hFacS,
./model/inc/GRID.h 446 NO PROCEDURE 
      _RS hFacC          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
./model/inc/HFACC_MACROS.h 36 NO PROCEDURE 
# define _hFacC(i,j,k,bi,bj) hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 302 GAD_ADVECTION 
     &                  *rhoFacC(k)*drF(k)*hFacC(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_idemix.F 182 GGL90_IDEMIX 
     &           +GM_EG_diss(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 447 GMREDI_K3D 
           BVint(i,j) = BVint(i,j) + hFacC(i,j,k,bi,bj)*drF(k)
./model/src/calc_3d_diffusivity.F 255 CALC_3D_DIFFUSIVITY 
     &                *twoRL/(hFacC(i,j,km,bi,bj)+hFacC(i,j,k,bi,bj))
./pkg/layers/layers_fluxcalc.F 613 LAYERS_DIAPYCNAL 
         dzfac = dZZf(kk) * hFacC(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F 615 LAYERS_DIAPYCNAL 
         dzfac = dRf(kci) * hFacC(i,j,kci,bi,bj)
./pkg/monitor/mon_solution.F 45 MON_SOLUTION 
     I                Nr, theta, hFacC, maskInC, rA, drF,
./pkg/monitor/mon_surfcor.F 112 MON_SURFCOR 
     &                *hFacC(i,j,Nr,bi,bj)*_recip_hFacC(i,j,ks,bi,bj)
./pkg/monitor/monitor.F 118 MONITOR 
     &            hFacC, maskInC, rA , thickFacC, statsTemp, myThid )
./pkg/monitor/monitor.F 120 MONITOR 
     &            hFacC, maskInC, rA , thickFacC, 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 168 ADMONITOR 
     &             hFacC, maskInC, rA , drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 170 ADMONITOR 
     &             hFacC, maskInC, rA , 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/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 93 OCN_STORE_MY_DATA 
            ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1)
./pkg/ptracers/ptracers_monitor.F 116 PTRACERS_MONITOR 
     &            hFacC, maskInC, rA ,drF, dummyRL, myThid )
./pkg/ptracers/ptracers_monitor_ad.F 113 ADPTRACERS_MONITOR 
     &            hFacC, maskInC, rA ,drF, dummyRL, myThid )
./pkg/ptracers/ptracers_zonal_filt_apply.F 49 PTRACERS_ZONAL_FILT_APPLY 
     I                       hFacC(1-OLx,1-OLy,1,bi,bj),
./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 348 SBO_CALC 
     &             * maskC(i,j,k,bi,bj)*hFacC(i,j,k,bi,bj)
./pkg/shelfice/shelfice_init_fixed.F 106 SHELFICE_INIT_FIXED 
     &          .AND. hFacC(i,j,k,bi,bj).NE.zeroRS ) THEN
./model/src/ini_masks_etc.F 120 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 122 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj) = hFacMnSz
./model/src/ini_masks_etc.F 125 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj) = hFacCtmp
./model/src/ini_masks_etc.F 140 INI_MASKS_ETC 
           tmpVar1(i,j) = tmpVar1(i,j) + drF(k)*hFacC(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 159 INI_MASKS_ETC 
           hFacCtmp = hFacC(i,j,k,bi,bj) - MAX( hFacCtmp, zeroRL )
./model/src/ini_masks_etc.F 165 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 167 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj) = hFacMnSz
./model/src/ini_masks_etc.F 170 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj) = hFacCtmp
./model/src/ini_masks_etc.F 190 INI_MASKS_ETC 
           tmpVar2(i,j) = tmpVar2(i,j) + drF(k)*hFacC(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 192 INI_MASKS_ETC 
           IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) kLowC(i,j,bi,bj) = k
./model/src/ini_masks_etc.F 199 INI_MASKS_ETC 
           IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) kSurfC(i,j,bi,bj) = k
./model/src/ini_masks_etc.F 261 INI_MASKS_ETC 
     &        MIN( hFacC(i,j,k,bi,bj), hFacC(i-1,j,k,bi,bj) )
./model/src/ini_masks_etc.F 270 INI_MASKS_ETC 
     &        MIN( hFacC(i,j,k,bi,bj), hFacC(i,j-1,k,bi,bj) )
./model/src/ini_masks_etc.F 469 INI_MASKS_ETC 
        CALL PLOT_FIELD_XYZRS( hFacC, 'hFacC' , Nr, 0, myThid )
./model/src/ini_masks_etc.F 480 INI_MASKS_ETC 
           IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) THEN
./model/src/ini_masks_etc.F 481 INI_MASKS_ETC 
            recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / hFacC(i,j,k,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)
./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_nlfs_vars.F 117 INI_NLFS_VARS 
            hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj)
./pkg/zonal_filt/zonal_filt_apply_ts.F 45 ZONAL_FILT_APPLY_TS 
     I                       hFacC(1-OLx,1-OLy,1,bi,bj),
./pkg/zonal_filt/zonal_filt_apply_ts.F 49 ZONAL_FILT_APPLY_TS 
     I                       hFacC(1-OLx,1-OLy,1,bi,bj),
./model/src/ini_sigma_hfac.F 108 INI_SIGMA_HFAC 
             hFacC(i,j,k,bi,bj) = hFactmp
./model/src/ini_sigma_hfac.F 111 INI_SIGMA_HFAC 
             hFacC(i,j,k,bi,bj) = 0.
./verification/fizhi-cs-aqualev20/code/ini_salt.F 128 INI_SALT 
           IF (hFacC(I,J,K,bi,bj).EQ.0) salt(I,J,K,bi,bj) = 0.
./verification/fizhi-cs-aqualev20/code/ini_salt.F 129 INI_SALT 
           IF (hFacC(I,J,K,bi,bj).NE.0.AND.salt(I,J,K,bi,bj).EQ.0.
./verification/hs94.1x64x5/code/ini_theta.F 85 INI_THETA 
     I                       hFacC(1-OLx,1-OLy,1,bi,bj),
./verification/hs94.1x64x5/code_ad/ini_theta.F 85 INI_THETA 
     I                       hFacC(1-OLx,1-OLy,1,bi,bj),
./verification/hs94.1x64x5/code_oad/ini_theta.F 85 INI_THETA 
     I                       hFacC(1-OLx,1-OLy,1,bi,bj),
./verification/hs94.cs-32x32x5/code/ini_theta.F 85 INI_THETA 
     I                       hFacC(1-OLx,1-OLy,1,bi,bj),
./verification/rotating_tank/code/apply_forcing.F 708 APPLY_FORCING_T 
          hC = hFacC(i  ,j  ,k,bi,bj)
./model/src/update_masks_etc.F 105 UPDATE_MASKS_ETC 
            hFacC(I,J,K,bi,bj) = 0. _d 0
./model/src/update_masks_etc.F 107 UPDATE_MASKS_ETC 
            hFacC(I,J,K,bi,bj) = 1. _d 0
./model/src/update_masks_etc.F 109 UPDATE_MASKS_ETC 
            hFacC(I,J,K,bi,bj) = hFacCtmp + hFacMnSz*(
./model/src/update_masks_etc.F 148 UPDATE_MASKS_ETC 
     &                      - drF(K)*hFacC(I,J,K,bi,bj)
./model/src/update_masks_etc.F 225 UPDATE_MASKS_ETC 
     &           SMOOTHMIN_RS(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj))
./model/src/update_masks_etc.F 227 UPDATE_MASKS_ETC 
     &                    MIN(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj))
./model/src/update_masks_etc.F 235 UPDATE_MASKS_ETC 
     &           SMOOTHMIN_RS(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj))
./model/src/update_masks_etc.F 237 UPDATE_MASKS_ETC 
     &                    MIN(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj))
./model/src/update_masks_etc.F 270 UPDATE_MASKS_ETC 
      CALL WRITE_FLD_XYZ_RS( 'hFacC.',suff,hFacC,optimcycle,myThid)
./model/src/update_masks_etc.F 277 UPDATE_MASKS_ETC 
        CALL PLOT_FIELD_XYZRS( hFacC,'hFacC (update_masks_etc)',
./model/src/update_masks_etc.F 297 UPDATE_MASKS_ETC 
           IF (hFacC(I,J,K,bi,bj) .NE. 0. ) THEN
./model/src/update_masks_etc.F 299 UPDATE_MASKS_ETC 
            recip_hFacC(I,J,K,bi,bj) = 1. _d 0 / hFacC(I,J,K,bi,bj)
./model/src/update_r_star.F 58 UPDATE_R_STAR 
            hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj)
./model/src/update_r_star.F 93 UPDATE_R_STAR 
            hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj)
./model/src/update_sigma.F 117 UPDATE_SIGMA 
            hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./model/src/update_surf_dr.F 128 UPDATE_SURF_DR 
           hFacC(i,j,k,bi,bj)=h0FacC(i,j,k,bi,bj)
./model/src/update_surf_dr.F 59 UPDATE_SURF_DR 
           hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj)
./model/src/update_surf_dr.F 95 UPDATE_SURF_DR 
           hFacC(i,j,ks,bi,bj) = hFac_surfNm1C(i,j,bi,bj)
./model/src/write_grid.F 112 WRITE_GRID 
        CALL WRITE_FLD_XYZ_RS( 'hFacC',' ',hFacC, 0,myThid)
./pkg/aim_v23/aim_do_physics.F 102 AIM_DO_PHYSICS 
     &                  *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 129 AIM_DYN2AIM 
            dpFac(I2,Katm) = hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 145 AIM_DYN2AIM 
           dpFac(I2,Katm) = hFacC(i,j,k,bi,bj)
./pkg/atm2d/get_ocnvars.F 100 GET_OCNVARS 
           mlDepth(i,j) = hFacC(i,j,1,1,1)*drF(1)
./pkg/bbl/bbl_calc_rhs.F 171 BBL_CALC_RHS 
     &          hFacC(i,d,kLowC(i,d,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 179 BBL_CALC_RHS 
     &                  hFacC(i,r,kLowC(i,r,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 273 BBL_CALC_RHS 
     &              hFacC(i,d,kLowC(i,d,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 281 BBL_CALC_RHS 
     &                   hFacC(i,r,kLowC(i,r,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 376 BBL_CALC_RHS 
     &             hFacC(d,j,kLowC(d,j,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 384 BBL_CALC_RHS 
     &                  hFacC(r,j,kLowC(r,j,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 478 BBL_CALC_RHS 
     &              hFacC(d,j,kLowC(d,j,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 486 BBL_CALC_RHS 
     &                   hFacC(r,j,kLowC(r,j,bi,bj),bi,bj)
./pkg/bling/bling_carbon_chem.F 576 CARBON_COEFFS 
          if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then
./pkg/bling/bling_carbon_chem.F 870 CARBON_COEFFS_PRESSURE_DEP 
          if (hFacC(i,j,Klevel,bi,bj).gt.0.d0) then
./pkg/bling/bling_carbonate_sys.F 110 BLING_CARBONATE_SYS 
             IF ( hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN
./pkg/bling/bling_dvm.F 139 BLING_DVM 
         IF ( hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN
./pkg/bling/bling_dvm.F 202 BLING_DVM 
         IF ( (hFacC(i,j,k,bi,bj).gt.0. _d 0) .and. (tmp.eq.0)) THEN
./pkg/bling/bling_dvm.F 232 BLING_DVM 
         IF ( (hFacC(i,j,k,bi,bj).gt.0. _d 0) .and. (tmp.eq.0)) THEN
./pkg/bling/bling_light.F 172 BLING_LIGHT 
         IF (hFacC(i,j,k,bi,bj).gt.0) THEN
./pkg/bling/bling_light.F 176 BLING_LIGHT 
          atten = k0*drF(1)/2. _d 0*hFacC(i,j,1,bi,bj)
./pkg/bling/bling_light.F 180 BLING_LIGHT 
          atten = k0*drF(k)/2. _d 0*hFacC(i,j,k,bi,bj)
./pkg/bling/bling_light.F 181 BLING_LIGHT 
     &           + k0*drF(k-1)/2. _d 0*hFacC(i,j,k-1,bi,bj)
./pkg/bling/bling_light.F 207 BLING_LIGHT 
         IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN
./pkg/bling/bling_main.F 200 BLING_MAIN 
         IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN
./pkg/bling/bling_mixedlayer.F 98 BLING_MIXEDLAYER 
           IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN
./pkg/bling/bling_production.F 326 BLING_PROD 
         IF (hFacC(i,j,k,bi,bj).gt.0. _d 0) THEN
./pkg/bling/bling_production.F 330 BLING_PROD 
     &                  *hFacC(i,j,k,bi,bj)
./pkg/bling/bling_production.F 332 BLING_PROD 
     &                  *hFacC(i,j,k,bi,bj)
./pkg/bling/bling_production.F 334 BLING_PROD 
     &                  *hFacC(i,j,k,bi,bj)
./pkg/bling/bling_production.F 343 BLING_PROD 
         IF (hFacC(i,j,k,bi,bj).gt.0. _d 0) THEN
./pkg/bling/bling_production.F 389 BLING_PROD 
         IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN
./pkg/bling/bling_production.F 529 BLING_PROD 
         IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN
./pkg/bling/bling_production.F 561 BLING_PROD 
         IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN
./pkg/bling/bling_production.F 595 BLING_PROD 
         IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN
./pkg/bling/bling_production.F 708 BLING_PROD 
         IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN
./pkg/bling/bling_remineralization.F 157 BLING_REMIN 
           IF (hFacC(i,j,k+1,bi,bj).GT.0) bttmlyr = 0
./pkg/bling/bling_remineralization.F 161 BLING_REMIN 
         IF ( hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN
./pkg/bling/bling_remineralization.F 184 BLING_REMIN 
     &           *hFacC(i,j,k,bi,bj))/(1+zremin*drF(k)
./pkg/bling/bling_remineralization.F 185 BLING_REMIN 
     &           *hFacC(i,j,k,bi,bj))
./pkg/bling/bling_remineralization.F 188 BLING_REMIN 
     &           *hFacC(i,j,k,bi,bj))/(1+zremin*drF(k)
./pkg/bling/bling_remineralization.F 189 BLING_REMIN 
     &           *hFacC(i,j,k,bi,bj))
./pkg/bling/bling_remineralization.F 193 BLING_REMIN 
     &           *hFacC(i,j,k,bi,bj))/(1+zremin_caco3*drF(k)
./pkg/bling/bling_remineralization.F 194 BLING_REMIN 
     &           *hFacC(i,j,k,bi,bj))
./pkg/bling/bling_remineralization.F 280 BLING_REMIN 
          NO3_sed(i,j) = PONflux_l*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/bling/bling_remineralization.F 283 BLING_REMIN 
          PO4_sed(i,j) = POPflux_l*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/bling/bling_remineralization.F 290 BLING_REMIN 
          O2_sed(i,j) = -(O2toN * PONflux_l*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/bling/bling_remineralization.F 342 BLING_REMIN 
     &            *hFacC(i,j,k,bi,bj))/(1+zremin*drF(k)
./pkg/bling/bling_remineralization.F 343 BLING_REMIN 
     &            *hFacC(i,j,k,bi,bj))
./pkg/bling/bling_remineralization.F 358 BLING_REMIN 
     &            *hFacC(i,j,k,bi,bj)-PFEflux_l)*recip_drF(k)
./pkg/cost/cost_tracer.F 55 COST_TRACER 
            locfc = locfc + hFacC(i,j,k,bi,bj)*
./pkg/ctrl/ctrl_hfacc_ini.F 105 CTRL_HFACC_INI 
                hFacC(i,j,k,bi,bj)    = 0.
./pkg/ctrl/ctrl_hfacc_ini.F 113 CTRL_HFACC_INI 
      CALL READ_FLD_XYZ_RL( 'hFacC', ' ', hFacC, 0, myThid )
./pkg/ctrl/ctrl_hfacc_ini.F 115 CTRL_HFACC_INI 
      _EXCH_XYZ_RS( hFacC ,myThid )
./pkg/ctrl/ctrl_hfacc_ini.F 130 CTRL_HFACC_INI 
                hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_hfacc_ini.F 147 CTRL_HFACC_INI 
                     hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj)
./pkg/ctrl/ctrl_hfacc_ini.F 159 CTRL_HFACC_INI 
      _EXCH_XYZ_RS( hFacC, myThid )
./pkg/diagnostics/diagnostics_fill_field.F 383 DIAGNOSTICS_HF_CUMUL 
     &                + tmpFld(i,j)*hFacC(i,j,km,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 336 DIAGNOSTICS_FILL_STATE 
     &             + (rF(k+1)-rC(k))*hFacC(i,j,k,bi,bj)*rkSign
./pkg/diagnostics/diagnostics_fill_state.F 340 DIAGNOSTICS_FILL_STATE 
     &                      + drF(k)*hFacC(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 423 DIAGNOSTICS_FILL_STATE 
            tmpMk(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F 139 DIAGNOSTICS_SUM_LEVELS 
     &                               *hFacC(i,j,kLev,bi,bj)
./pkg/diagnostics/diagstats_local.F 159 DIAGSTATS_LOCAL 
     I            hFacC(1-OLx,1-OLy,k,bi,bj), rA(1-OLx,1-OLy,bi,bj),
./pkg/dic/bio_export.F 107 BIO_EXPORT 
         atten = kall*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0
./pkg/dic/bio_export.F 109 BIO_EXPORT 
     &         +( kall*drF(k-1)*hFacC(i,j,k-1,bi,bj)*.5 _d 0 )
./pkg/dic/calcite_saturation.F 84 CALCITE_SATURATION 
           if ( hFacC(i,j,k,bi,bj) .gt. 0. _d 0 ) then
./pkg/dic/car_flux.F 66 CAR_FLUX 
         IF (hFacC(i,j,k,bi,bj).GT.0. _d 0) THEN
./pkg/dic/car_flux_omega_top.F 107 CAR_FLUX_OMEGA_TOP 
                if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0) then
./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 132 CAR_FLUX_OMEGA_TOP 
     &                       hFacC(i,j,ko,bi,bj)/WsinkPIC
./pkg/dic/car_flux_omega_top.F 143 CAR_FLUX_OMEGA_TOP 
                 if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0)
./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 87 CAR_FLUX_OMEGA_TOP 
          if (hFacC(i,j,k,bi,bj).gt.0.d0) then
./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/car_flux_omega_top.F 93 CAR_FLUX_OMEGA_TOP 
            if (hFacC(i,j,ko,bi,bj).gt.0.d0) then
./pkg/dic/carbon_chem.F 588 CARBON_COEFFS 
          if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then
./pkg/dic/carbon_chem.F 868 CARBON_COEFFS_PRESSURE_DEP 
          if (hFacC(i,j,Klevel,bi,bj).gt.0.d0) then
./pkg/dic/dic_atmos.F 120 DIC_ATMOS 
     &                *drF(k)*hFacC(i,j,k,bi,bj)
./pkg/dic/dic_ini_atmos.F 117 DIC_INI_ATMOS 
     &                *drF(k)*hFacC(i,j,k,bi,bj)
./pkg/dic/phos_flux.F 72 PHOS_FLUX 
          ELSEIF (hFacC(i,j,k+1,bi,bj).EQ.0. _d 0) THEN
./pkg/down_slope/dwnslp_init_fixed.F 235 DWNSLP_INIT_FIXED 
     &                       drF(k)*hFacC(ideep,jdeep,k,bi,bj) )
./pkg/ecco/cost_averagesfields.F 623 COST_AVERAGESFIELDS 
                 if (hFacC(i,j,k,bi,bj).gt.0.0) then
./pkg/ecco/cost_averagesfields.F 664 COST_AVERAGESFIELDS 
     &                   + 2*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/ecco/ecco_check.F 68 ECCO_CHECK 
     &          hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj)