checkAndCollideDEM_DPS Subroutine

public subroutine checkAndCollideDEM_DPS(particleA, particleB, hasCollided, eps, Tc, mu)

checkAndCollideDEM checks if two particles A and B collide This is the case if the continuous representations overlap If there is a collision, a collision force is applied to each particle

Arguments

Type	Intent	Optional	Attributes		Name
type(mus_particle_DPS_type),	intent(inout)			::	particleA	First particle to collide
type(mus_particle_DPS_type),	intent(inout)			::	particleB	Second particle to collide
logical,	intent(out)			::	hasCollided	Logical which indicates whether particles have indeed collided
real(kind=rk),	intent(in)			::	eps	Threshold gap at which to call it a collision
real(kind=rk),	intent(in)			::	Tc	Collision time, used to compute DEM spring and damper constant
real(kind=rk),	intent(in)			::	mu	Dynamic viscosity, in physical units