shallaketemperature()

subroutine clm_lake::shallaketemperature ( real(kind_lake), dimension(1), intent(in)  t_grnd, real(kind_lake), dimension(1), intent(inout)  h2osno, real(kind_lake), dimension(1), intent(in)  sabg, real(kind_lake), dimension(1,-nlevsnow + 1:nlevsoil), intent(in)  dz, real(kind_lake), dimension(1,nlevlake), intent(in)  dz_lake, real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(in)  z, real(kind_lake), dimension(1,-nlevsnow+0:nlevsoil), intent(in)  zi, real(kind_lake), dimension(1,nlevlake), intent(in)  z_lake, real(kind_lake), dimension(1), intent(in)  ws, real(kind_lake), dimension(1), intent(in)  ks, integer, dimension(1), intent(in)  snl, real(kind_lake), dimension(1), intent(inout)  eflx_gnet, real(kind_lake), dimension(1), intent(in)  lakedepth, real(kind_lake), dimension(1,nlevlake), intent(inout)  lake_icefrac, real(kind_lake), dimension(1), intent(inout)  snowdp, real(kind_lake), dimension(1), intent(out)  eflx_sh_grnd, real(kind_lake), dimension(1), intent(out)  eflx_sh_tot, real(kind_lake), dimension(1), intent(out)  eflx_soil_grnd, real(kind_lake), dimension(1,nlevlake), intent(inout)  t_lake, real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(inout)  t_soisno, real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(inout)  h2osoi_liq, real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(inout)  h2osoi_ice, real(kind_lake), dimension(1), intent(out)  savedtke1, real(kind_lake), dimension(1,nlevsoil), intent(in)  watsat, real(kind_lake), dimension(1,nlevsoil), intent(in)  tksatu, real(kind_lake), dimension(1,nlevsoil), intent(in)  tkmg, real(kind_lake), dimension(1,nlevsoil), intent(in)  tkdry, real(kind_lake), dimension(1,nlevsoil), intent(in)  csol, real(kind_lake), intent(in)  dtime, real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(out)  frac_iceold, real(kind_lake), dimension(1), intent(out)  qflx_snomelt, integer, dimension(1,-nlevsnow+1:nlevsoil), intent(out)  imelt, character(*), intent(inout)  errmsg, integer, intent(inout)  errflg, real(kind_lake), intent(in)  xlat_d, real(kind_lake), intent(in)  xlon_d  )

private

Parameters

[in]	xlat_d	latitude (degrees)
[in]	xlon_d	longitude (degrees)
[in]	watsat	volumetric soil water at saturation (porosity)
[in]	tksatu	thermal conductivity, saturated soil [W/m-K]
[in]	tkmg	thermal conductivity, soil minerals [W/m-K]
[in]	tkdry	thermal conductivity, dry soil (W/m/Kelvin)
[in]	csol	heat capacity, soil solids (J/m**3/Kelvin)
[in]	t_grnd	ground temperature (Kelvin)
[in,out]	h2osno	snow water (mm H2O)
[in]	sabg	solar radiation absorbed by ground (W/m**2)
[in]	dz	layer thickness for snow & soil (m)
[in]	dz_lake	layer thickness for lake (m)
[in]	z	layer depth for snow & soil (m)
[in]	zi	interface level below a "z" level (m) the other z and dz variables
[in]	z_lake	layer depth for lake (m)
[in]	ws	surface friction velocity (m/s)
[in]	ks	coefficient passed to ShalLakeTemperature for calculation of decay of eddy diffusivity with depth
[in]	snl	negative of number of snow layers
[in,out]	eflx_gnet	net heat flux into ground (W/m**2) at the surface interface
[in]	lakedepth	column lake depth (m)
[in,out]	snowdp	snow height (m)
[in]	dtime	timestep
[out]	eflx_sh_grnd	sensible heat flux from ground (W/m**2) [+ to atm]
[out]	eflx_sh_tot	total sensible heat flux (W/m**2) [+ to atm]
[out]	eflx_soil_grnd	heat flux into snow / lake (W/m**2) [+ = into soil] Here this includes the whole lake radiation absorbed.
[in,out]	t_lake	lake temperature (Kelvin)
[in,out]	t_soisno	soil (or snow) temperature (Kelvin)
[in,out]	h2osoi_liq	liquid water (kg/m2) [for snow & soil layers]
[in,out]	h2osoi_ice	ice lens (kg/m2) [for snow & soil layers]
[in,out]	lake_icefrac	mass fraction of lake layer that is frozen
[out]	savedtke1	top level thermal conductivity (W/mK)
[out]	frac_iceold	fraction of ice relative to the tot water
[out]	qflx_snomelt	snow melt (mm H2O /s)
[out]	imelt	flag for melting (=1), freezing (=2), Not=0 (new)