AttouFerschneider: Correction to cube-root of volume fraction ratio

This commit is contained in:
Will Bainbridge
2018-04-12 14:06:38 +01:00
parent c2b169c8dd
commit 8e453f3874
9 changed files with 16 additions and 59 deletions

View File

@ -52,7 +52,10 @@ Foam::dragModels::AttouFerschneider::KGasLiquid
const phaseModel& solid = gas.fluid().phases()[solidName_];
const volScalarField oneMinusGas(max(1 - gas, liquid.residualAlpha()));
const volScalarField cbrtR(solid/oneMinusGas);
const volScalarField cbrtR
(
cbrt(max(solid, solid.residualAlpha())/oneMinusGas)
);
const volScalarField magURel(mag(gas.U() - liquid.U()));
return
@ -70,7 +73,10 @@ Foam::dragModels::AttouFerschneider::KGasSolid
) const
{
const volScalarField oneMinusGas(max(1 - gas, solid.residualAlpha()));
const volScalarField cbrtR(solid/oneMinusGas);
const volScalarField cbrtR
(
cbrt(max(solid, solid.residualAlpha())/oneMinusGas)
);
return
E1_*gas.mu()*sqr(oneMinusGas/solid.d())*sqr(cbrtR)

View File

@ -20,14 +20,7 @@ internalField uniform 300;
boundaryField
{
bottom
{
type inletOutlet;
phi phi.air;
inletValue $internalField;
value $internalField;
}
"(top|walls)"
"(bottom|top|walls)"
{
type zeroGradient;
}

View File

@ -10,7 +10,7 @@ FoamFile
version 2.0;
format ascii;
class volScalarField;
object T.solid;
object T.air;
}
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //

View File

@ -20,14 +20,7 @@ internalField uniform 300;
boundaryField
{
bottom
{
type inletOutlet;
phi phi.water;
inletValue $internalField;
value $internalField;
}
"(top|walls)"
"(bottom|top|walls)"
{
type zeroGradient;
}

View File

@ -20,13 +20,7 @@ internalField uniform (0 0 0);
boundaryField
{
bottom
{
type pressureInletOutletVelocity;
phi phi.air;
value $internalField;
}
"(top|walls)"
"(bottom|top|walls)"
{
type noSlip;
}

View File

@ -20,13 +20,7 @@ internalField uniform (0 0 0);
boundaryField
{
bottom
{
type pressureInletOutletVelocity;
phi phi.water;
value $internalField;
}
"(top|walls)"
"(bottom|top|walls)"
{
type noSlip;
}

View File

@ -20,14 +20,7 @@ internalField uniform 0.5;
boundaryField
{
bottom
{
type inletOutlet;
phi phi.air;
inletValue $internalField;
value $internalField;
}
"(top|walls)"
"(bottom|top|walls)"
{
type zeroGradient;
}

View File

@ -20,14 +20,7 @@ internalField uniform 0;
boundaryField
{
bottom
{
type inletOutlet;
phi phi.water;
inletValue $internalField;
value $internalField;
}
"(top|walls)"
"(bottom|top|walls)"
{
type zeroGradient;
}

View File

@ -20,16 +20,7 @@ internalField uniform 1e5;
boundaryField
{
bottom
{
type prghTotalPressure;
p0 $internalField;
U U.air;
phi phi.air;
rho thermo:rho.air;
value $internalField;
}
"(top|walls)"
"(bottom|top|walls)"
{
type fixedFluxPressure;
value $internalField;