Symbol Description Uses
_hFacC 103


File Line number Procedure Code
./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 366 GAD_IMPLICIT_R 
     &               _hFacC(i,j,k,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/ggl90/ggl90_calc.F 381 GGL90_CALC 
          hFac = min(.5 _d 0,_hFacC(i,j,k-1,bi,bj) ) +
./pkg/ggl90/ggl90_calc.F 382 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)
./pkg/seaice/seaice_cost_weights.F 111 SEAICE_COST_WEIGHTS 
     &                 *frame(i,j)*_hFacC(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_weights.F 122 SEAICE_COST_WEIGHTS 
     &                 *frame(i,j)*_hFacC(i,j,k,bi,bj)
./model/src/freesurf_rescale_g.F 69 FREESURF_RESCALE_G 
     &            *_hFacC(i,j,k,bi,bj)/hFac_surfC(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 71 SEAICE_INIT_VARIA 
          IF (_hFacC(i,j,kSurface,bi,bj).eq.0.)
./model/src/freeze_surface.F 61 FREEZE_SURFACE 
     &                    *drF(k)*_hFacC(i,j,k,bi,bj) / dTtracerLev(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)
./model/src/ini_masks_etc.F 347 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 70 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_argo_salt.F 168 COST_ARGO_SALT 
     $              (_hFacC(i,j,k,bi,bj) .ne. 0.) ) then
./pkg/ecco/cost_argo_theta.F 172 COST_ARGO_THETA 
     &             (_hFacC(i,j,k,bi,bj) .ne. 0.) )then
./pkg/ecco/cost_bottomdrag.F 106 COST_BOTTOMDRAG 
                if (_hFacC(i,j,1,bi,bj) .ne. 0.) then
./pkg/ecco/cost_ctds.F 165 COST_CTDS 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_ctdsclim.F 194 COST_CTDSCLIM 
                  if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_ctdt.F 168 COST_CTDT 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_ctdtclim.F 194 COST_CTDTCLIM 
                  if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_diffkr.F 107 COST_DIFFKR 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_drift.F 210 COST_DRIFT 
              if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_drift.F 247 COST_DRIFT 
              if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_drifter.F 194 COST_DRIFTER 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.)
./pkg/ecco/cost_drifter.F 205 COST_DRIFTER 
               if (_hFacC(i,j,13,bi,bj) .eq. 0.) then
./pkg/ecco/cost_driftw.F 189 COST_DRIFTW 
              if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_etan0.F 118 COST_ETAN0 
                if (_hFacC(i,j,1,bi,bj) .ne. 0.) then
./pkg/ecco/cost_kapgm.F 110 COST_KAPGM 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_kapredi.F 110 COST_KAPREDI 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_readers.F 146 COST_READERS 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readgfo.F 146 COST_READGFO 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readtopex.F 173 COST_READTOPEX 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readtopexmean.F 78 COST_READTOPEXMEAN 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_salt.F 195 COST_SALT 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_salt0.F 119 COST_SALT0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_salt0.F 159 COST_SALT0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_salt_ini_fin.F 109 COST_SALT_INI_FIN 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_sigmar.F 188 COST_SIGMAR 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./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
./pkg/ecco/cost_tau_eddy.F 113 COST_TAU_EDDY 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_tau_eddy.F 148 COST_TAU_EDDY 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta.F 195 COST_THETA 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_theta0.F 119 COST_THETA0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta0.F 159 COST_THETA0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta_ini_fin.F 109 COST_THETA_INI_FIN 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_xbt.F 184 COST_XBT 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/ecco_cost_init_varia.F 244 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 252 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 260 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 268 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 276 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 283 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 290 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 297 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then