    INTEGER, PARAMETER :: NSOIL=4,NROOT=3
