zhyang-dev/openfoam
1
0
Fork 0
mirror of https://develop.openfoam.com/Development/openfoam.git synced 2025-11-28 03:28:01 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

interDyMFoam, interPhaseChangeDyMFoam : Use 1/A from the previous time-step rather than 1 in the pcorr equation

Browse Source 
This provides better convergence and consistency between p_rgh and pcorr
This commit is contained in:
Henry
2013-12-17 14:59:13 +00:00
parent 160e7ea6dd
commit 267f5cf0f5
5 changed files with 34 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
applications/solvers/multiphase/interFoam/interDyMFoam/correctPhi.H
View File

@ -37,7 +37,8 @@ if (mesh.changing())
pcorrTypes
);
dimensionedScalar rAUf("rAUf", dimTime/rho.dimensions(), 1.0);
// dimensionedScalar rAUf("rAUf", dimTime/rho.dimensions(), 1.0);
surfaceScalarField rAUf("rAUf", fvc::interpolate(rAU));
while (pimple.correctNonOrthogonal())
{

15
applications/solvers/multiphase/interFoam/interDyMFoam/interDyMFoam.C
View File

@ -57,6 +57,21 @@ int main(int argc, char *argv[])
#include "createFields.H"
#include "readTimeControls.H"
#include "createPrghCorrTypes.H"
volScalarField rAU
(
IOobject
(
"rAU",
runTime.timeName(),
mesh,
IOobject::READ_IF_PRESENT,
IOobject::AUTO_WRITE
),
mesh,
dimensionedScalar("rAUf", dimTime/rho.dimensions(), 1.0)
);
#include "correctPhi.H"
#include "createUf.H"
#include "CourantNo.H"

2
applications/solvers/multiphase/interFoam/interDyMFoam/pEqn.H
View File

@ -1,5 +1,5 @@
{
volScalarField rAU("rAU", 1.0/UEqn.A());
rAU = 1.0/UEqn.A();
surfaceScalarField rAUf("rAUf", fvc::interpolate(rAU));
volVectorField HbyA("HbyA", U);

15
applications/solvers/multiphase/interPhaseChangeFoam/interPhaseChangeDyMFoam/interPhaseChangeDyMFoam.C
View File

@ -67,6 +67,21 @@ int main(int argc, char *argv[])
#include "createFields.H"
#include "readTimeControls.H"
#include "createPcorrTypes.H"
volScalarField rAU
(
IOobject
(
"rAU",
runTime.timeName(),
mesh,
IOobject::READ_IF_PRESENT,
IOobject::AUTO_WRITE
),
mesh,
dimensionedScalar("rAUf", dimTime/rho.dimensions(), 1.0)
);
#include "../interFoam/interDyMFoam/correctPhi.H"
#include "createUf.H"
#include "CourantNo.H"

2
applications/solvers/multiphase/interPhaseChangeFoam/interPhaseChangeDyMFoam/pEqn.H
View File

@ -1,5 +1,5 @@
{
volScalarField rAU("rAU", 1.0/UEqn.A());
rAU = 1.0/UEqn.A();
surfaceScalarField rAUf("rAUf", fvc::interpolate(rAU));
volVectorField HbyA("HbyA", U);