Implamented Rasmus' corrections to the particle force.

This commit is contained in:
henry
2008-05-28 22:38:03 +01:00
parent f1bcfe95b6
commit dd22a8d8a0
8 changed files with 50 additions and 54 deletions

View File

@ -24,12 +24,18 @@
if (g0.value() > 0.0)
{
surfaceScalarField alphaf = fvc::interpolate(alpha);
ppMagf = rUaAf*fvc::interpolate
(
(1.0/(rhoa*(alpha + scalar(0.0001))))
*g0*min(exp(preAlphaExp*(alpha - alphaMax)), expMax)
);
// Correct the particle-particle force magnitude
ppMagf = g0*rUaAf*min(exp(preAlphaExp*(alphaf - alphaMax)), expMax);
alphaEqn -= fvm::laplacian(ppMagf, alpha);
alphaEqn -= fvm::laplacian
(
(fvc::interpolate(alpha) + scalar(0.0001))*ppMagf,
alpha,
"laplacian(alphaPpMag,alpha)"
);
}
alphaEqn.relax();