A discrete Boltzmann equation model for two-phase shallow granular flows. (15th April 2018)