Symbol Description Uses
_hFacC 78


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/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_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)
./model/src/ini_r_star.F 69 INI_R_STAR 
            h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 64 MOM_V_DEL2V 
        fMer(i,j) = drF(k)*_hFacC(i,j,k,bi,bj)
./model/src/freesurf_rescale_g.F 57 FREESURF_RESCALE_G 
     &           *_hFacC(i,j,k,bi,bj)/hFac_surfC(i,j,bi,bj)
./model/src/calc_ivdc.F 51 CALC_IVDC 
         IF ( _hFacC(i,j,k,bi,bj) .GT. 0. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 486 ECCO_COST_WEIGHTS 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 564 ECCO_COST_WEIGHTS 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./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
./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/update_r_star.F 73 UPDATE_R_STAR 
     &        / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) )
./model/src/update_r_star.F 80 UPDATE_R_STAR 
     &      recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj)
./model/src/calc_gw.F 145 CALC_GW 
     &        + drF( k )*MIN( _hFacC(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/freeze_surface.F 61 FREEZE_SURFACE 
     &                    *drF(k)*_hFacC(i,j,k,bi,bj) / dTtracerLev(k)
./model/src/calc_r_star.F 90 CALC_R_STAR 
            h0FacC(i,j,k,bi,bj) = _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/mom_common/mom_init_fixed.F 43 MOM_INIT_FIXED 
            h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 52 MON_KE 
           volTile=volTile+rA(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/sbo/sbo_calc.F 213 SBO_CALC 
              if ( _hFacC(i,j,Kn0,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_theta.F 192 COST_THETA 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_readtopexmean.F 77 COST_READTOPEXMEAN 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readtopexmean.F 97 COST_READTOPEXMEAN 
              if (_hFacC(i,j,13,bi,bj) .eq. 0.) then
./pkg/ecco/cost_ctdt.F 174 COST_CTDT 
     &             (_hFacC(i,j,13,bi,bj) .ne. 0.).and.
./pkg/ecco/cost_ctdt.F 175 COST_CTDT 
     &             (_hFacC(i,j,k,bi,bj) .ne. 0.)) then
./pkg/ecco/cost_readscatxfields.F 128 COST_READSCATXFIELDS 
              else if (_hFacC(i,j,13,bi,bj) .eq. 0.) then
./pkg/ecco/cost_driftw.F 190 COST_DRIFTW 
              if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_readscatyfields.F 126 COST_READSCATYFIELDS 
              else if (_hFacC(i,j,13,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readgfo.F 130 COST_READGFO 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readgfo.F 150 COST_READGFO 
              if (_hFacC(i,j,13,bi,bj) .eq. 0.) then
./pkg/ecco/cost_salt0.F 117 COST_SALT0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_salt0.F 152 COST_SALT0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_kapgm.F 121 COST_KAPGM 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 199 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 207 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 215 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 223 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 231 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 239 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 247 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_ctds.F 171 COST_CTDS 
     &             (_hFacC(i,j,13,bi,bj) .ne. 0.).and.
./pkg/ecco/cost_ctds.F 172 COST_CTDS 
     &             (_hFacC(i,j,k,bi,bj) .ne. 0.)) then
./pkg/ecco/cost_ctdtclim.F 194 COST_CTDTCLIM 
                  if (_hFacC(i,j,13,bi,bj) .eq. 0.) then
./pkg/ecco/cost_ctdtclim.F 204 COST_CTDTCLIM 
                  if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_drifter.F 190 COST_DRIFTER 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.)
./pkg/ecco/cost_drifter.F 201 COST_DRIFTER 
               if (_hFacC(i,j,13,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readtopex.F 128 COST_READTOPEX 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readtopex.F 148 COST_READTOPEX 
              if (_hFacC(i,j,13,bi,bj) .eq. 0.) then
./pkg/ecco/cost_argo_theta.F 169 COST_ARGO_THETA 
     &             (_hFacC(i,j,13,bi,bj) .ne. 0.).and.
./pkg/ecco/cost_argo_theta.F 170 COST_ARGO_THETA 
     &             (_hFacC(i,j,k,bi,bj) .ne. 0.) )then
./pkg/ecco/cost_theta0.F 117 COST_THETA0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta0.F 152 COST_THETA0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_argo_salt.F 165 COST_ARGO_SALT 
     $              (_hFacC(i,j,13,bi,bj) .ne. 0.) .and.
./pkg/ecco/cost_argo_salt.F 166 COST_ARGO_SALT 
     $              (_hFacC(i,j,k,bi,bj) .ne. 0.) ) then
./pkg/ecco/cost_ctdsclim.F 194 COST_CTDSCLIM 
                  if (_hFacC(i,j,13,bi,bj) .eq. 0.) then
./pkg/ecco/cost_ctdsclim.F 205 COST_CTDSCLIM 
                  if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_drift.F 215 COST_DRIFT 
              if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_drift.F 245 COST_DRIFT 
              if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_readers.F 130 COST_READERS 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readers.F 150 COST_READERS 
              if (_hFacC(i,j,13,bi,bj) .eq. 0.) then
./pkg/ecco/cost_salt.F 193 COST_SALT 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_theta_ini_fin.F 107 COST_THETA_INI_FIN 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_salt_ini_fin.F 107 COST_SALT_INI_FIN 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_xbt.F 182 COST_XBT 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. .AND.
./pkg/ecco/cost_xbt.F 183 COST_XBT 
     &                 _hFacC(i,j,13,bi,bj) .ne. 0. ) then
./pkg/seaice/seaice_init.F 95 SEAICE_INIT 
          IF (_hFacC(i,j,1,bi,bj).eq.0.) HEFFM(i,j,bi,bj)=ZERO
./pkg/seaice/seaice_cost_weights.F 103 SEAICE_COST_WEIGHTS 
     &                 *frame(i,j)*_hFacC(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_weights.F 114 SEAICE_COST_WEIGHTS 
     &                 *frame(i,j)*_hFacC(i,j,k,bi,bj)