Routine to calculate the drag force according to [1] S. Tenneti, R. Garg, and S. Subramaniam, “Drag law for monodisperse gas–solid systems using particle-resolved direct numerical simulation of flow past fixed assemblies of spheres,” International Journal of Multiphase Flow, vol. 37, no. 9, pp. 1072–1092, Nov. 2011, doi: 10.1016/j.ijmultiphaseflow.2011.05.010.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(mus_particle_DPS_type), | intent(inout) | :: | particle |
Particle to apply force to |
||
| real(kind=rk), | intent(in) | :: | eps_p |
Solid volume fraction interpolated to location of the particle |
||
| real(kind=rk), | intent(in) | :: | nu |
Fluid kinematic viscosity (phy) |
||
| real(kind=rk), | intent(out) | :: | Fd(3) |