SetMatrix Subroutine

public subroutine SetMatrix(bounds, num_nolakec, filter_nolakec, dtime, nband, dhsdT, tk, tk_h2osfc, fact, c_h2osfc, dz_h2osfc, waterstate_inst, bmatrix)

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) :: dtime
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) :: fact(bounds%begc:,-nlevsno+1:)
real(kind=r8), intent(in) :: c_h2osfc(bounds%begc:)
real(kind=r8), intent(in) :: dz_h2osfc(bounds%begc:)
type(waterstate_type), intent(in) :: waterstate_inst
real(kind=r8), intent(out) :: bmatrix(bounds%begc:,1:,-nlevsno:)