!--------------------------------------------------------------------------------------------------
    INTEGER(KIND=I4KIND), PARAMETER :: NSOIL = 4
    INTEGER(KIND=I4KIND), PARAMETER :: NROOT = 3
