newsoil Subroutine

public subroutine newsoil(nd, csoil_x, frac_x, ifpre_x, csoil_y, frac_y, ifpre_y)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nd
real(kind=r_2), intent(inout), DIMENSION(mvtype,nd) :: csoil_x
real, intent(in), DIMENSION(mvtype) :: frac_x
logical, intent(in), DIMENSION(mvtype) :: ifpre_x
real(kind=r_2), intent(inout), DIMENSION(mvtype,nd) :: csoil_y
real, intent(in), DIMENSION(mvtype) :: frac_y
logical, intent(in), DIMENSION(mvtype) :: ifpre_y