Fortran runtime error: Index '33849' of dimension 1 of array 'dg_pic' above upper bound of 33152

Hi when I use DEM to simulate the heat transfer process, it shows “Fortran runtime error: Index ‘33849’ of dimension 1 of array ‘dg_pic’ above upper bound of 33152”. I am wondering how can I modify it.
dem.mfx (35.8 KB)

Try to increase the spring stiffness to see if this helps.