Symbol Description Uses
h0FacS initial (and fixed in time) hFacS factor 23



File Line number Procedure Code
./model/inc/SURFACE.h 109 NO PROCEDURE
     & h0FacC, h0FacW, h0FacS
./model/inc/SURFACE.h 112 NO PROCEDURE
      _RS h0FacS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
./model/src/calc_surf_dr.F 179 CALC_SURF_DR
            hFac_surfS(i,j,bi,bj) = h0FacS(i,j,ks,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 107 MOM_V_SIDEDRAG
        hFacZClosedW = h0FacS(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_v_sidedrag.F 108 MOM_V_SIDEDRAG
        hFacZClosedE = h0FacS(i,j,k,bi,bj) - hFacZ(i+1,j)
./pkg/mom_common/mom_v_sidedrag.F 68 MOM_V_SIDEDRAG
        hFacZClosedW = h0FacS(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_v_sidedrag.F 69 MOM_V_SIDEDRAG
        hFacZClosedE = h0FacS(i,j,k,bi,bj) - hFacZ(i+1,j)
./pkg/mom_fluxform/mom_calc_rtrans.F 150 MOM_CALC_RTRANS
     &     - rStarDhSDt(i,j,bi,bj)*drF(k-1)*h0FacS(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 285 MOM_FLUXFORM
     &       MIN( h0FacS(i,j,k,bi,bj), h0FacS(i-1,j,k,bi,bj) ) )
./pkg/mom_fluxform/mom_v_del2v.F 104 MOM_V_DEL2V
         hFacZClosedW = h0FacS(i,j,k,bi,bj) - h0FacZ(i,j)
./pkg/mom_fluxform/mom_v_del2v.F 105 MOM_V_DEL2V
         hFacZClosedE = h0FacS(i,j,k,bi,bj) - h0FacZ(i+1,j)
./pkg/mom_vecinv/mom_vecinv.F 317 MOM_VECINV
     &       MIN( h0FacS(i,j,k,bi,bj), h0FacS(i-1,j,k,bi,bj) ) )
./pkg/obcs/obcs_apply_surf_dr.F 77 OBCS_APPLY_SURF_DR
           hFactmp = h0FacS(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 80 OBCS_APPLY_SURF_DR
           hFactmp = h0FacS(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 96 OBCS_APPLY_SURF_DR
           hFactmp = h0FacS(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 99 OBCS_APPLY_SURF_DR
           hFactmp = h0FacS(i,j,ks,bi,bj)
./model/src/ini_masks_etc.F 513 INI_MASKS_ETC
           h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj)
./model/src/ini_nlfs_vars.F 119 INI_NLFS_VARS
            hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj)
./model/src/update_masks_etc.F 345 UPDATE_MASKS_ETC
           h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj)
./model/src/update_r_star.F 62 UPDATE_R_STAR
            hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj)
./model/src/update_r_star.F 97 UPDATE_R_STAR
            hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj)