SetRHSVec_SnowUrban Subroutine

public subroutine SetRHSVec_SnowUrban(bounds, num_nolakec, filter_nolakec, hs_top_snow, hs_top, dhsdT, sabg_lyr_col, fact, fn, t_soisno, t_h2osfc, rt)

Arguments

Type IntentOptional Attributes Name
type(bounds_type), intent(in) :: bounds
integer, intent(in) :: num_nolakec
integer, intent(in) :: filter_nolakec(:)
real(kind=r8), intent(in) :: hs_top_snow(bounds%begc:)
real(kind=r8), intent(in) :: hs_top(bounds%begc:)
real(kind=r8), intent(in) :: dhsdT(bounds%begc:)
real(kind=r8), intent(in) :: sabg_lyr_col(bounds%begc:,-nlevsno+1:)
real(kind=r8), intent(in) :: fact(bounds%begc:,-nlevsno+1:)
real(kind=r8), intent(in) :: fn(bounds%begc:,-nlevsno+1:)
real(kind=r8), intent(in) :: t_soisno(bounds%begc:,-nlevsno+1:)
real(kind=r8), intent(in) :: t_h2osfc(bounds%begc:)
real(kind=r8), intent(inout) :: rt(bounds%begc:,-nlevsno:)