BUGS REPORT
Type of issue
Possible multiple bugs:
Description
- There is call for Tang drag model (DRAG_TPKKV) when the case is for Tenneti drag model (TGS) inside
des/drag_gp_des.f
CASE (TGS)
CALL DRAG_TPKKV(DgA,EPg,Mu,ROPg,VREL,DPM,DPA,phis)
- Mismatch in equation for Tenneti drag model (
DRAG_TGS
) insidedrag_gs.f
? The code has
F = F + phis**3d0*RE*(0.95D0+0.61D0*phis**(1.0d0/3.0d0)/(1.0-phis)**2)
whereas from Tenneti et al (2011)
The phis**(1.0d0/3.0d0)
term should be phis**3.0d0
?
- The correlation of Tenneti et al (2011) reports drag force including average pressure drop due to buoyancy whereas Tang et al, Beetstra et al, etc report drag force without it. However, upon comparing subroutines
DRAG_TGS(...)
andDRAG_TPKKV(...)
(orDRAG_BVK(...)
), both are just returningF*F_STOKES
. However, ideally F_TGS is equivalent toF_TPKKV/EPg
(likewiseF_BVK/EPg
).
In other words, from Tang et al (2015)
Tenneti reports F_{gs}
whereas Tang / BVK etc report Fd
.