Symbol Description Uses
hFac_surfC New thickness factor of the surface level 23



File Line number Procedure Code
./pkg/generic_advdiff/gad_implicit_r.F 402 GAD_IMPLICIT_R
                div(i,j) = div(i,j)*hFac_surfC(i,j,bi,bj)*drF(k)
./model/inc/SURFACE.h 58 NO PROCEDURE
     &     hFac_surfC, hFac_surfW, hFac_surfS,
./model/inc/SURFACE.h 60 NO PROCEDURE
      _RS  hFac_surfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/longstep/longstep_thermodynamics.F 171 LONGSTEP_THERMODYNAMICS
              recip_hFacNew(i,j,k) = 1. _d 0 / hFac_surfC(i,j,bi,bj)
./model/src/calc_surf_dr.F 121 CALC_SURF_DR
           hFac_surfC(i,j,bi,bj) = h0FacC(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F 127 CALC_SURF_DR
     &          hFac_surfC(i,j,bi,bj).GT.hFacSup ) THEN
./model/src/calc_surf_dr.F 134 CALC_SURF_DR
     &          hFac_surfC(i,j,bi,bj), etaFld(i,j,bi,bj)
./model/src/calc_surf_dr.F 192 CALC_SURF_DR
     U                    hFac_surfC, hFac_surfW, hFac_surfS,
./model/src/calc_surf_dr.F 214 CALC_SURF_DR
      _EXCH_XY_RS(hFac_surfC, myThid )
./model/src/calc_surf_dr.F 72 CALC_SURF_DR
           hFac_surfNm1C(i,j,bi,bj) = hFac_surfC(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F 83 OCN_STORE_MY_DATA
            ocMxlD2cpl(i,j,bi,bj) = hFac_surfC(i,j,bi,bj)*drF(1)
./model/src/forcing_surf_relax.F 152 FORCING_SURF_RELAX
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./model/src/forcing_surf_relax.F 154 FORCING_SURF_RELAX
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,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/thsice/thsice_get_ocean.F 76 THSICE_GET_OCEAN
             hOceMxL(i,j,bi,bj) = drF(ks)*hFac_surfC(i,j,bi,bj)
./model/src/ini_nlfs_vars.F 74 INI_NLFS_VARS
           hFac_surfC(i,j,bi,bj) = 0.
./model/src/thermodynamics.F 232 THERMODYNAMICS
              recip_hFacNew(i,j,k) = 1. _d 0 / hFac_surfC(i,j,bi,bj)
./model/src/update_surf_dr.F 59 UPDATE_SURF_DR
           hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj)
./model/src/update_surf_dr.F 60 UPDATE_SURF_DR
           recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 165 AIM_AIM2DYN
     &                             /hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 167 AIM_AIM2DYN
     &                             /hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 127 AIM_DYN2AIM
            dpFac(I2,Katm) = hFac_surfC(i,j,bi,bj)
./pkg/atm2d/get_ocnvars.F 90 GET_OCNVARS
           mlDepth(i,j) = hFac_surfC(i,j,1,1)*drF(1)