set_root_fraction Subroutine

public subroutine set_root_fraction(root_fraction, ft, zi, icontext)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(inout)			::	root_fraction(:)
integer,	intent(in)			::	ft
real(kind=r8),	intent(in)			::	zi(0:)
integer,	intent(in)			::	icontext