Symbol Description Uses
_hFacC 100


File Line number Procedure Code
./pkg/mom_common/mom_init_fixed.F 50 MOM_INIT_FIXED 
            h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 52 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 66 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)
./model/src/calc_gw.F 222 CALC_GW 
     &        + drF( k )*MIN( _hFacC(i,j, k ,bi,bj), halfRS )
./model/src/calc_gw.F 232 CALC_GW 
     &          drF(k-1)*MAX( _hFacC(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 233 CALC_GW 
     &        + drF( k )*MIN( _hFacC(i,j,k  ,bi,bj), halfRS )
./model/src/calc_ivdc.F 51 CALC_IVDC 
         IF ( _hFacC(i,j,k,bi,bj) .GT. 0. .AND.
./pkg/monitor/mon_ke.F 104 MON_KE 
     &             + tmpWke*rA(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 68 MON_KE 
     &                     *rhoFacC(k)*drF(k)*_hFacC(i,j,k,bi,bj)
./model/src/convective_weights.F 59 CONVECTIVE_WEIGHTS 
         IF ( _hFacC(i,j,k-1,bi,bj)
./model/src/convective_weights.F 60 CONVECTIVE_WEIGHTS 
     &       *_hFacC(i,j,k,bi,bj) .GT. 0.
./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/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)
./pkg/seaice/seaice_init_fixed.F 88 SEAICE_INIT_FIXED 
          IF (_hFacC(i,j,kSurface,bi,bj).eq.0.)
./pkg/shelfice/shelfice_forcing.F 158 SHELFICE_FORCING_S 
          drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 159 SHELFICE_FORCING_S 
          drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 161 SHELFICE_FORCING_S 
     &         /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc )
./pkg/shelfice/shelfice_forcing.F 165 SHELFICE_FORCING_S 
          drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 166 SHELFICE_FORCING_S 
          drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 168 SHELFICE_FORCING_S 
     &         /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc )
./pkg/shelfice/shelfice_forcing.F 66 SHELFICE_FORCING_T 
          drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 67 SHELFICE_FORCING_T 
          drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 69 SHELFICE_FORCING_T 
     &         /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc )
./pkg/shelfice/shelfice_forcing.F 73 SHELFICE_FORCING_T 
          drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 74 SHELFICE_FORCING_T 
          drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 76 SHELFICE_FORCING_T 
     &         /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc )
./pkg/shelfice/shelfice_thermodynamics.F 134 SHELFICE_THERMODYNAMICS 
            drKp1 = drF(K)*( 1. _d 0 - _hFacC(I,J,K,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 136 SHELFICE_THERMODYNAMICS 
            drKp1 = MIN( drKp1, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 138 SHELFICE_THERMODYNAMICS 
     &           ( drF(K)*_hFacC(I,J,K,bi,bj) + drKp1 )
./pkg/shelfice/shelfice_thermodynamics.F 139 SHELFICE_THERMODYNAMICS 
            tLoc(I,J) = ( tLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 142 SHELFICE_THERMODYNAMICS 
            sLoc(I,J) = ( sLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj)
./model/src/external_forcing_surf.F 104 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 109 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 88 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 93 EXTERNAL_FORCING_SURF 
     &         *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)
./verification/global1x1_tot/code/ecco_cost_weights.F 487 ECCO_COST_WEIGHTS 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 565 ECCO_COST_WEIGHTS 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./model/src/ini_nlfs_vars.F 85 INI_NLFS_VARS 
            h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 485 ECCO_COST_WEIGHTS 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 563 ECCO_COST_WEIGHTS 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./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_optim/code_ad/external_forcing_surf.F 104 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 109 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 88 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 93 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/update_r_star.F 100 UPDATE_R_STAR 
     &        / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) )
./model/src/update_r_star.F 107 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 167 COST_ARGO_SALT 
     $              (_hFacC(i,j,k,bi,bj) .ne. 0.) ) then
./pkg/ecco/cost_argo_theta.F 171 COST_ARGO_THETA 
     &             (_hFacC(i,j,k,bi,bj) .ne. 0.) )then
./pkg/ecco/cost_bottomdrag.F 105 COST_BOTTOMDRAG 
                if (_hFacC(i,j,1,bi,bj) .ne. 0.) then
./pkg/ecco/cost_ctds.F 164 COST_CTDS 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_ctdsclim.F 193 COST_CTDSCLIM 
                  if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_ctdt.F 167 COST_CTDT 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_ctdtclim.F 193 COST_CTDTCLIM 
                  if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_diffkr.F 106 COST_DIFFKR 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_drift.F 216 COST_DRIFT 
              if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_drift.F 246 COST_DRIFT 
              if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_drifter.F 193 COST_DRIFTER 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.)
./pkg/ecco/cost_drifter.F 204 COST_DRIFTER 
               if (_hFacC(i,j,13,bi,bj) .eq. 0.) then
./pkg/ecco/cost_driftw.F 188 COST_DRIFTW 
              if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_kapgm.F 109 COST_KAPGM 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_kapredi.F 109 COST_KAPREDI 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_readers.F 131 COST_READERS 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readgfo.F 131 COST_READGFO 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readtopex.F 129 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 194 COST_SALT 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_salt0.F 118 COST_SALT0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_salt0.F 158 COST_SALT0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_salt_ini_fin.F 108 COST_SALT_INI_FIN 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_sla_read.F 136 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 112 COST_TAU_EDDY 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_tau_eddy.F 147 COST_TAU_EDDY 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta.F 193 COST_THETA 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_theta0.F 118 COST_THETA0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta0.F 158 COST_THETA0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta_ini_fin.F 108 COST_THETA_INI_FIN 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_xbt.F 183 COST_XBT 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/ecco_cost_init_varia.F 228 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 236 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 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 267 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 274 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 281 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)