CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches

◆ phasechange_lake()

subroutine clm_lake::phasechange_lake ( integer, dimension(1), intent(in) snl,
real(kind_lake), dimension(1), intent(inout) h2osno,
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(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,nlevlake), intent(inout) lake_icefrac,
real(kind_lake), dimension(1,nlevlake), intent(inout) t_lake,
real(kind_lake), dimension(1), intent(inout) snowdp,
real(kind_lake), dimension(1), intent(out) qflx_snomelt,
real(kind_lake), dimension(1), intent(out) eflx_snomelt,
integer, dimension(1,-nlevsnow+1:nlevsoil), intent(out) imelt,
real(kind_lake), dimension(lbc:ubc,-nlevsnow+1:nlevsoil), intent(inout) cv,
real(kind_lake), dimension (lbc:ubc,1:nlevlake), intent(inout) cv_lake,
real(kind_lake), dimension(lbc:ubc), intent(out) lhabs )
private

The specific heats are assumed constant. Potential cycling errors resulting from this assumption will be trapped at the end of ShalLakeTemperature.

Parameters
[in]snlnumber of snow layers
[in,out]h2osnosnow water (mm H2O)
[in]dzlayer thickness (m)
[in]dz_lakelake layer thickness (m)
[in,out]snowdpsnow height (m)
[in,out]t_soisnosoil temperature (Kelvin)
[in,out]h2osoi_liqliquid water (kg/m2)
[in,out]h2osoi_iceice lens (kg/m2)
[in,out]lake_icefracmass fraction of lake layer that is frozen
[in,out]t_lakelake temperature (Kelvin)
[out]qflx_snomeltsnow melt (mm H2O /s)
[out]eflx_snomeltsnow melt heat flux (W/m**2)
[out]imeltflag for melting (=1), freezing (=2), Not=0 (new)
[in,out]cvheat capacity [J/(m2 K)]
[in,out]cv_lakeheat capacity [J/(m2 K)]
[out]lhabstotal per-column latent heat abs. (J/m^2)

Definition at line 2874 of file clm_lake.f90.