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



File Line number Procedure Code
./model/src/calc_surf_dr.F 170 CALC_SURF_DR
           hFac_surfC(i,j,bi,bj) = 
./model/src/calc_surf_dr.F 176 CALC_SURF_DR
     &          hFac_surfC(i,j,bi,bj).GT.hFacSup ) THEN
./model/src/calc_surf_dr.F 183 CALC_SURF_DR
     &          hFac_surfC(i,j,bi,bj), etaFld(i,j,bi,bj)
./model/src/calc_surf_dr.F 243 CALC_SURF_DR
      _EXCH_XY_R4(hFac_surfC, myThid ) 
./model/src/calc_surf_dr.F 77 CALC_SURF_DR
           hFac_surfC(i,j,bi,bj) = 0.
./pkg/thsice/thsice_main.F 100 THSICE_MAIN
             hOceMxL(i,j,bi,bj) = drF(1)*hFac_surfC(i,j,bi,bj)
./model/src/external_forcing_surf.F 118 EXTERNAL_FORCING_SURF
     &             *recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./model/src/external_forcing_surf.F 120 EXTERNAL_FORCING_SURF
     &             *recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./model/src/freesurf_rescale_g.F 55 FREESURF_RESCALE_G
     &           *hFacC(i,j,k,bi,bj)/hFac_surfC(i,j,bi,bj) 
./model/inc/SURFACE.h 58 NO PROCEDURE
     &     hFac_surfC, hFac_surfW, hFac_surfS
./model/inc/SURFACE.h 59 NO PROCEDURE
      _RS  hFac_surfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/aim_v23/aim_dyn2aim.F 124 AIM_DYN2AIM
            dpFac(I2,Katm) = hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 107 AIM_AIM2DYN
     &                            /hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 109 AIM_AIM2DYN
     &                            /hFac_surfC(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F 74 OCN_STORE_MY_DATA
           ocMxlD2cpl(i,j,bi,bj) = hFac_surfC(i,j,bi,bj)*drF(1)
./model/src/update_surf_dr.F 55 UPDATE_SURF_DR
     U                    hFac_surfC, hFac_surfW, hFac_surfS,
./model/src/update_surf_dr.F 64 UPDATE_SURF_DR
           hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj)
./model/src/update_surf_dr.F 65 UPDATE_SURF_DR
           recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj)