Symbol Description Uses
_hFacC 71


File Line number Procedure Code
./pkg/ecco/ecco_cost_init_varia.F 264 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 272 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 280 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 288 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 296 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 303 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 310 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 317 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./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/frazil/frazil_calc_rhs.F 95 FRAZIL_CALC_RHS 
     &            * drF(k) * _hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 393 GAD_IMPLICIT_R 
     &               _hFacC(i,j,k,bi,bj)*drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 404 GAD_IMPLICIT_R 
                div(i,j) = div(i,j)*_hFacC(i,j,k,bi,bj)*drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 416 GAD_IMPLICIT_R 
               div(i,j) = div(i,j)*_hFacC(i,j,k,bi,bj)*drF(k)
./pkg/ggl90/ggl90_calc.F 156 GGL90_CALC 
     &         MIN(.5 _d 0,_hFacC(i,j,km1,bi,bj) ) +
./pkg/ggl90/ggl90_calc.F 157 GGL90_CALC 
     &         MIN(.5 _d 0,_hFacC(i,j,k  ,bi,bj) )
./model/src/calc_gw.F 249 CALC_GW 
     &        + drF( k )*MIN( _hFacC(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 )
./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_xviscflux.F 57 MOM_U_XVISCFLUX 
     &    _dyF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj)
./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_yviscflux.F 57 MOM_V_YVISCFLUX 
     &    _dxF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj)
./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 82 MON_KE 
     &                     *rhoFacC(k)*drF(k)*_hFacC(i,j,k,bi,bj)
./model/src/convective_weights.F 60 CONVECTIVE_WEIGHTS 
         IF ( _hFacC(i,j,k-1,bi,bj)* _hFacC(i,j,k,bi,bj) .GT. 0. .AND.
./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/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)
./model/src/freesurf_rescale_g.F 69 FREESURF_RESCALE_G 
     &            *_hFacC(i,j,k,bi,bj)/hFac_surfC(i,j,bi,bj)
./model/src/freeze_surface.F 61 FREEZE_SURFACE 
     &                    *drF(k)*_hFacC(i,j,k,bi,bj) / dTtracerLev(k)
./pkg/seaice/seaice_cost_weights.F 116 SEAICE_COST_WEIGHTS 
     &                 *frame(i,j)*_hFacC(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_weights.F 127 SEAICE_COST_WEIGHTS 
     &                 *frame(i,j)*_hFacC(i,j,k,bi,bj)
./pkg/seaice/seaice_init_varia.F 73 SEAICE_INIT_VARIA 
          IF (_hFacC(i,j,kSurface,bi,bj).eq.0.)
./pkg/shelfice/shelfice_forcing.F 168 SHELFICE_FORCING_S 
          drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 169 SHELFICE_FORCING_S 
          drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 172 SHELFICE_FORCING_S 
     &         /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc )
./pkg/shelfice/shelfice_forcing.F 176 SHELFICE_FORCING_S 
          drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 177 SHELFICE_FORCING_S 
          drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 180 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 80 SHELFICE_FORCING_T 
     &         /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc )
./pkg/shelfice/shelfice_forcing.F 84 SHELFICE_FORCING_T 
          drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 85 SHELFICE_FORCING_T 
          drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 88 SHELFICE_FORCING_T 
     &         /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc )
./pkg/shelfice/shelfice_thermodynamics.F 312 SHELFICE_THERMODYNAMICS 
            drKp1 = drF(K)*( 1. _d 0 - _hFacC(I,J,K,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 314 SHELFICE_THERMODYNAMICS 
            drKp1 = MIN( drKp1, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 317 SHELFICE_THERMODYNAMICS 
     &           ( drF(K)*_hFacC(I,J,K,bi,bj) + drKp1 )
./pkg/shelfice/shelfice_thermodynamics.F 318 SHELFICE_THERMODYNAMICS 
            tLoc(I,J) = ( tLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 321 SHELFICE_THERMODYNAMICS 
            sLoc(I,J) = ( sLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 324 SHELFICE_THERMODYNAMICS 
            uLoc(I,J) = ( uLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 329 SHELFICE_THERMODYNAMICS 
            vLoc(I,J) = ( vLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj)
./model/src/ini_masks_etc.F 511 INI_MASKS_ETC 
           h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 73 PTRACERS_FORCING_SURF 
     &                  * drF(ks) * _hFacC(i,j,ks,bi,bj)
./model/src/update_masks_etc.F 343 UPDATE_MASKS_ETC 
           h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj)
./model/src/update_r_star.F 103 UPDATE_R_STAR 
     &        / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) )
./model/src/update_r_star.F 110 UPDATE_R_STAR 
     &      recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj)
./model/src/update_r_star.F 68 UPDATE_R_STAR 
     &        / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) )
./model/src/update_r_star.F 75 UPDATE_R_STAR 
     &      recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj)
./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 71 CAR_FLUX 
          ELSEIF ( _hFacC(i,j,k+1,bi,bj).EQ.0. _d 0 ) THEN
./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/phos_flux.F 111 PHOS_FLUX 
           depth_l  = -rF(ko) + drF(ko) * _hFacC(i,j,ko,bi,bj)
./pkg/dic/phos_flux.F 67 PHOS_FLUX 
         IF ( _hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN
./pkg/dic/phos_flux.F 77 PHOS_FLUX 
     &          *drF(k) * _hFacC(i,j,k,bi,bj)
./pkg/ecco/cost_sla_read.F 142 COST_SLA_READ 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_sla_read_yd.F 121 COST_SLA_READ_YD 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then