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



File Line number Procedure Code
./model/inc/SURFACE.h 57 NO PROCEDURE
     &     hFac_surfC, hFac_surfW, hFac_surfS
./model/inc/SURFACE.h 58 NO PROCEDURE
      _RS  hFac_surfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./model/src/calc_surf_dr.F 113 CALC_SURF_DR
           hFac_surfC(i,j,bi,bj) =
./model/src/calc_surf_dr.F 119 CALC_SURF_DR
     &          hFac_surfC(i,j,bi,bj).GT.hFacSup ) THEN
./model/src/calc_surf_dr.F 126 CALC_SURF_DR
     &          hFac_surfC(i,j,bi,bj), etaFld(i,j,bi,bj)
./model/src/calc_surf_dr.F 186 CALC_SURF_DR
      _EXCH_XY_RS(hFac_surfC, myThid )
./pkg/ocn_compon_interf/ocn_store_my_data.F 78 OCN_STORE_MY_DATA
           ocMxlD2cpl(i,j,bi,bj) = hFac_surfC(i,j,bi,bj)*drF(1)
./model/src/external_forcing_surf.F 154 EXTERNAL_FORCING_SURF
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./model/src/external_forcing_surf.F 156 EXTERNAL_FORCING_SURF
     &             *_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_main.F 131 THSICE_MAIN
             hOceMxL(i,j,bi,bj) = drF(1)*hFac_surfC(i,j,bi,bj)
./model/src/ini_nlfs_vars.F 59 INI_NLFS_VARS
           hFac_surfC(i,j,bi,bj) = 0.
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 137 EXTERNAL_FORCING_SURF
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 139 EXTERNAL_FORCING_SURF
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./model/src/update_surf_dr.F 81 UPDATE_SURF_DR
     U                    hFac_surfC, hFac_surfW, hFac_surfS,
./model/src/update_surf_dr.F 91 UPDATE_SURF_DR
           hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj)
./model/src/update_surf_dr.F 92 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 144 AIM_AIM2DYN
     &                            /hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 146 AIM_AIM2DYN
     &                            /hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 124 AIM_DYN2AIM
            dpFac(I2,Katm) = hFac_surfC(i,j,bi,bj)
./pkg/atm2d/get_ocnvars.F 91 GET_OCNVARS
           mlDepth(i,j) = hFac_surfC(i,j,1,1)*drF(1)