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

◆ lakemain()

subroutine clm_lake::lakemain ( real(kind_lake), dimension(1), intent(in) forc_t,
real(kind_lake), dimension(1), intent(in) forc_pbot,
real(kind_lake), dimension(1), intent(in) forc_psrf,
real(kind_lake), dimension(1), intent(in) forc_hgt,
real(kind_lake), dimension(1), intent(in) forc_hgt_q,
real(kind_lake), dimension(1), intent(in) forc_hgt_t,
real(kind_lake), dimension(1), intent(in) forc_hgt_u,
real(kind_lake), dimension(1), intent(in) forc_q,
real(kind_lake), dimension(1), intent(in) forc_u,
real(kind_lake), dimension(1), intent(in) forc_v,
real(kind_lake), dimension(1), intent(in) forc_lwrad,
real(kind_lake), dimension(1), intent(in) prec,
real(kind_lake), dimension(1), intent(in) sabg,
real(kind_lake), dimension(1), intent(in) lat,
real(kind_lake), dimension(1,nlevlake), intent(in) z_lake,
real(kind_lake), dimension(1,nlevlake), intent(in) dz_lake,
real(kind_lake), dimension(1), intent(in) lakedepth,
logical, dimension(1), intent(in) do_capsnow,
real(kind_lake), dimension(1), intent(inout) h2osno,
real(kind_lake), dimension(1), intent(inout) snowdp,
integer, dimension(1), intent(inout) snl,
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(inout) z,
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(inout) dz,
real(kind_lake), dimension(1,-nlevsnow+0:nlevsoil), intent(inout) zi,
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(inout) h2osoi_vol,
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(inout) t_grnd,
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(inout) t_soisno,
real(kind_lake), dimension(1,nlevlake), intent(inout) t_lake,
real(kind_lake), dimension(1), intent(inout) savedtke1,
real(kind_lake), dimension(1,nlevlake), intent(inout) lake_icefrac,
real(kind_lake), dimension(1), intent(out) eflx_lwrad_net,
real(kind_lake), dimension(1), intent(out) eflx_gnet,
real(kind_lake), dimension(1), intent(out) eflx_sh_tot,
real(kind_lake), dimension(1), intent(out) eflx_lh_tot,
real(kind_lake), dimension(1), intent(out) t_ref2m,
real(kind_lake), dimension(1), intent(out) q_ref2m,
real(kind_lake), intent(in) dtime,
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), dimension(1), intent(out) taux,
real(kind_lake), dimension(1), intent(out) tauy,
real(kind_lake), dimension(1), intent(out) ram1,
real(kind_lake), dimension(1), intent(out) z0mg,
real(kind_lake), dimension(1), intent(out) ustar_out,
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]dtimetimestep
[in]xlon_dgrid location for debugging
[in]forc_tatmospheric temperature (Kelvin)
[in]forc_pbotatm bottom level pressure (Pa)
[in]forc_psrfatmospheric surface pressure (Pa)
[in]forc_hgtatmospheric reference height (m)
[in]forc_hgt_qobservational height of humidity [m]
[in]forc_hgt_tobservational height of temperature [m]
[in]forc_hgt_uobservational height of wind [m]
[in]forc_qatmospheric specific humidity (kg/kg)
[in]forc_uatmospheric wind speed in east direction (m/s)
[in]forc_vatmospheric wind speed in north direction (m/s)
[in]forc_lwraddownward infrared (longwave) radiation (W/m**2)
[in]precsnow or rain rate [mm/s]
[in]sabgsolar radiation absorbed by ground (W/m**2)
[in]latlatitude (radians)
[in]z_lakelayer depth for lake (m)
[in]dz_lakelayer thickness for lake (m)
[out]ustar_outfriction velocity [m/s]
[in]lakedepthcolumn lake depth (m) tep(in),hydro(in)
[in]do_capsnowtrue => do snow capping
[in]watsatvolumetric soil water at saturation (porosity)
[in]tksatuthermal conductivity, saturated soil [W/m-K]
[in]tkmgthermal conductivity, soil minerals [W/m-K]
[in]tkdrythermal conductivity, dry soil (W/m/Kelvin)
[in]csolheat capacity, soil solids (J/m**3/Kelvin)
[in,out]h2osoi_volvolumetric soil water (0<=h2osoi_vol<=watsat)[m3/m3]
[in,out]t_grndground temperature (Kelvin)
[in,out]h2osnosnow water (mm H2O)
[in,out]snowdpsnow height (m)
[in,out]zlayer depth for snow & soil (m)
[in,out]dzlayer thickness for soil or snow (m)
[in,out]t_soisnosoil (or snow) temperature (Kelvin)
[in,out]t_lakelake temperature (Kelvin)
[in,out]snlnumber of snow layers
[in,out]h2osoi_liqliquid water (kg/m2)
[in,out]h2osoi_iceice lens (kg/m2)
[in,out]savedtke1top level eddy conductivity from previous timestep (W/m.K)
[in,out]ziinterface level below a "z" level (m)
[in,out]lake_icefracmass fraction of lake layer that is frozen
[out]eflx_gnetnet heat flux into ground (W/m**2)
[out]eflx_lwrad_netnet infrared (longwave) rad (W/m**2) [+ = to atm]
[out]eflx_sh_tottotal sensible heat flux (W/m**2) [+ to atm]
[out]eflx_lh_tottotal latent heat flux (W/m8*2) [+ to atm]
[out]t_ref2m2 m height surface air temperature (Kelvin)
[out]q_ref2m2 m height surface specific humidity (kg/kg)
[out]tauxwind (shear) stress: e-w (kg/m/s**2)
[out]tauywind (shear) stress: n-s (kg/m/s**2)
[out]ram1aerodynamical resistance (s/m) for calculation of decay of eddy diffusivity with depth Change the type variable to pass back to WRF.
[out]z0mgroughness length over ground, momentum (m(

Definition at line 824 of file clm_lake.f90.