SetMatrix_Soil Subroutine

public subroutine SetMatrix_Soil(bounds, num_nolakec, filter_nolakec, nband, dhsdT, tk, tk_h2osfc, dz_h2osfc, fact, frac_h2osfc, frac_sno_eff, bmatrix_soil)

Arguments

Type	Intent	Optional	Attributes		Name
type(bounds_type),	intent(in)			::	bounds
integer,	intent(in)			::	num_nolakec
integer,	intent(in)			::	filter_nolakec(:)
integer,	intent(in)			::	nband
real(kind=r8),	intent(in)			::	dhsdT(bounds%begc:)
real(kind=r8),	intent(in)			::	tk(bounds%begc:,-nlevsno+1:)
real(kind=r8),	intent(in)			::	tk_h2osfc(bounds%begc:)
real(kind=r8),	intent(in)			::	dz_h2osfc(bounds%begc:)
real(kind=r8),	intent(in)			::	fact(bounds%begc:,-nlevsno+1:)
real(kind=r8),	intent(in)			::	frac_h2osfc(bounds%begc:)
real(kind=r8),	intent(in)			::	frac_sno_eff(bounds%begc:)
real(kind=r8),	intent(out)			::	bmatrix_soil(bounds%begc:,1:,1:)