newplant Subroutine

public subroutine newplant(cplant_x, frac_x, ifpre_x, cplant_y, frac_y, ifpre_y, logc)

Uses

Arguments

Type IntentOptional Attributes Name
real(kind=r_2), intent(inout), DIMENSION(mvtype,mplant) :: cplant_x
real, intent(in), DIMENSION(mvtype) :: frac_x
logical, intent(in), DIMENSION(mvtype) :: ifpre_x
real(kind=r_2), intent(inout), DIMENSION(mvtype,mplant) :: cplant_y
real, intent(in), DIMENSION(mvtype) :: frac_y
logical, intent(in), DIMENSION(mvtype) :: ifpre_y
real(kind=r_2), intent(inout), DIMENSION(mvtype) :: logc