From 974746246f34787bcc1eb7e5c281a96c6ba2abb6 Mon Sep 17 00:00:00 2001
From: Hrvoje Jasak <h.jasak@wikki.co.uk>
Date: Wed, 13 Oct 2010 09:45:45 +0100
Subject: [PATCH] Added demonstration code for dynamic mesh

---
 .../icoDyMFoam/.svn/all-wcprops               |  35 +++
 .../icoDyMFoam/.svn/dir-prop-base             |   7 +
 .../incompressible/icoDyMFoam/.svn/entries    | 201 ++++++++++++++++++
 .../incompressible/icoDyMFoam/.svn/format     |   1 +
 .../icoDyMFoam/.svn/prop-base/UEqn.H.svn-base |   5 +
 .../.svn/prop-base/correctPhi.H.svn-base      |   5 +
 .../.svn/prop-base/createFields.H.svn-base    |   5 +
 .../.svn/prop-base/icoDyMFoam.C.svn-base      |   5 +
 .../icoDyMFoam/.svn/text-base/UEqn.H.svn-base |  11 +
 .../.svn/text-base/correctPhi.H.svn-base      |  47 ++++
 .../.svn/text-base/createFields.H.svn-base    |  90 ++++++++
 .../.svn/text-base/icoDyMFoam.C.svn-base      | 144 +++++++++++++
 .../.svn/text-base/readControls.H.svn-base    |  14 ++
 .../icoDyMFoam/Make/.svn/all-wcprops          |  17 ++
 .../icoDyMFoam/Make/.svn/dir-prop-base        |   9 +
 .../icoDyMFoam/Make/.svn/entries              |  96 +++++++++
 .../icoDyMFoam/Make/.svn/format               |   1 +
 .../Make/.svn/text-base/files.svn-base        |   3 +
 .../Make/.svn/text-base/options.svn-base      |  13 ++
 .../incompressible/icoDyMFoam/Make/files      |   3 +
 .../incompressible/icoDyMFoam/Make/options    |  13 ++
 .../solvers/incompressible/icoDyMFoam/UEqn.H  |  11 +
 .../incompressible/icoDyMFoam/correctPhi.H    |  47 ++++
 .../incompressible/icoDyMFoam/createFields.H  |  90 ++++++++
 .../incompressible/icoDyMFoam/icoDyMFoam.C    | 149 +++++++++++++
 .../incompressible/icoDyMFoam/readControls.H  |  14 ++
 26 files changed, 1036 insertions(+)
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/.svn/all-wcprops
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/.svn/dir-prop-base
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/.svn/entries
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/.svn/format
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/.svn/prop-base/UEqn.H.svn-base
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/.svn/prop-base/correctPhi.H.svn-base
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/.svn/prop-base/createFields.H.svn-base
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/.svn/prop-base/icoDyMFoam.C.svn-base
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/.svn/text-base/UEqn.H.svn-base
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/.svn/text-base/correctPhi.H.svn-base
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/.svn/text-base/createFields.H.svn-base
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/.svn/text-base/icoDyMFoam.C.svn-base
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/.svn/text-base/readControls.H.svn-base
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/Make/.svn/all-wcprops
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/Make/.svn/dir-prop-base
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/Make/.svn/entries
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/Make/.svn/format
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/Make/.svn/text-base/files.svn-base
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/Make/.svn/text-base/options.svn-base
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/Make/files
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/Make/options
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/UEqn.H
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/correctPhi.H
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/createFields.H
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/icoDyMFoam.C
 create mode 100644 applications/solvers/incompressible/icoDyMFoam/readControls.H

diff --git a/applications/solvers/incompressible/icoDyMFoam/.svn/all-wcprops b/applications/solvers/incompressible/icoDyMFoam/.svn/all-wcprops
new file mode 100644
index 000000000..bceca7b2a
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/.svn/all-wcprops
@@ -0,0 +1,35 @@
+K 25
+svn:wc:ra_dav:version-url
+V 113
+/svnroot/openfoam-extend/!svn/ver/1591/trunk/Core/OpenFOAM-1.5-dev/applications/solvers/incompressible/icoDyMFoam
+END
+createFields.H
+K 25
+svn:wc:ra_dav:version-url
+V 127
+/svnroot/openfoam-extend/!svn/ver/915/trunk/Core/OpenFOAM-1.5-dev/applications/solvers/incompressible/icoDyMFoam/createFields.H
+END
+readControls.H
+K 25
+svn:wc:ra_dav:version-url
+V 127
+/svnroot/openfoam-extend/!svn/ver/915/trunk/Core/OpenFOAM-1.5-dev/applications/solvers/incompressible/icoDyMFoam/readControls.H
+END
+correctPhi.H
+K 25
+svn:wc:ra_dav:version-url
+V 125
+/svnroot/openfoam-extend/!svn/ver/981/trunk/Core/OpenFOAM-1.5-dev/applications/solvers/incompressible/icoDyMFoam/correctPhi.H
+END
+icoDyMFoam.C
+K 25
+svn:wc:ra_dav:version-url
+V 126
+/svnroot/openfoam-extend/!svn/ver/1591/trunk/Core/OpenFOAM-1.5-dev/applications/solvers/incompressible/icoDyMFoam/icoDyMFoam.C
+END
+UEqn.H
+K 25
+svn:wc:ra_dav:version-url
+V 119
+/svnroot/openfoam-extend/!svn/ver/912/trunk/Core/OpenFOAM-1.5-dev/applications/solvers/incompressible/icoDyMFoam/UEqn.H
+END
diff --git a/applications/solvers/incompressible/icoDyMFoam/.svn/dir-prop-base b/applications/solvers/incompressible/icoDyMFoam/.svn/dir-prop-base
new file mode 100644
index 000000000..3b7a2aa5a
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/.svn/dir-prop-base
@@ -0,0 +1,7 @@
+K 10
+svn:ignore
+V 16
+lnInclude
+*.dep
+
+END
diff --git a/applications/solvers/incompressible/icoDyMFoam/.svn/entries b/applications/solvers/incompressible/icoDyMFoam/.svn/entries
new file mode 100644
index 000000000..a302fbbf2
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/.svn/entries
@@ -0,0 +1,201 @@
+9
+
+dir
+1730
+https://openfoam-extend.svn.sourceforge.net/svnroot/openfoam-extend/trunk/Core/OpenFOAM-1.5-dev/applications/solvers/incompressible/icoDyMFoam
+https://openfoam-extend.svn.sourceforge.net/svnroot/openfoam-extend
+
+
+
+2010-01-20T10:44:39.337304Z
+1591
+hjasak
+has-props
+
+svn:special svn:externals svn:needs-lock
+
+
+
+
+
+
+
+
+
+
+
+e4e07f05-0c2f-0410-a05a-b8ba57e0c909
+
+createFields.H
+file
+
+
+
+
+2009-08-11T21:05:38.000000Z
+00e915519b705cad0056a257a3fd2a92
+2009-01-20T00:30:44.740688Z
+915
+hjasak
+has-props
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+1874
+
+readControls.H
+file
+
+
+
+
+2009-08-11T21:05:38.000000Z
+eea361849937e2d7f8dcb00e72a34c00
+2009-01-20T00:30:44.740688Z
+915
+hjasak
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+362
+
+correctPhi.H
+file
+
+
+
+
+2009-08-11T21:05:38.000000Z
+074a2d4fbd974ca63d4207e2d816104f
+2009-02-06T16:17:03.879174Z
+981
+hjasak
+has-props
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+1048
+
+icoDyMFoam.C
+file
+
+
+
+
+2009-12-13T23:44:56.000000Z
+97fc42064b2254262c779f71eabc4991
+2010-01-20T10:44:39.337304Z
+1591
+hjasak
+has-props
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+4049
+
+Make
+dir
+
+UEqn.H
+file
+
+
+
+
+2009-08-11T21:05:38.000000Z
+84ccfd4a6cf96222b86f76eaacb9f17c
+2008-06-19T13:53:26.834514Z
+684
+hjasak
+has-props
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+190
+
diff --git a/applications/solvers/incompressible/icoDyMFoam/.svn/format b/applications/solvers/incompressible/icoDyMFoam/.svn/format
new file mode 100644
index 000000000..ec635144f
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/.svn/format
@@ -0,0 +1 @@
+9
diff --git a/applications/solvers/incompressible/icoDyMFoam/.svn/prop-base/UEqn.H.svn-base b/applications/solvers/incompressible/icoDyMFoam/.svn/prop-base/UEqn.H.svn-base
new file mode 100644
index 000000000..92c8ad747
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/.svn/prop-base/UEqn.H.svn-base
@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 2
+Id
+END
diff --git a/applications/solvers/incompressible/icoDyMFoam/.svn/prop-base/correctPhi.H.svn-base b/applications/solvers/incompressible/icoDyMFoam/.svn/prop-base/correctPhi.H.svn-base
new file mode 100644
index 000000000..92c8ad747
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/.svn/prop-base/correctPhi.H.svn-base
@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 2
+Id
+END
diff --git a/applications/solvers/incompressible/icoDyMFoam/.svn/prop-base/createFields.H.svn-base b/applications/solvers/incompressible/icoDyMFoam/.svn/prop-base/createFields.H.svn-base
new file mode 100644
index 000000000..92c8ad747
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/.svn/prop-base/createFields.H.svn-base
@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 2
+Id
+END
diff --git a/applications/solvers/incompressible/icoDyMFoam/.svn/prop-base/icoDyMFoam.C.svn-base b/applications/solvers/incompressible/icoDyMFoam/.svn/prop-base/icoDyMFoam.C.svn-base
new file mode 100644
index 000000000..92c8ad747
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/.svn/prop-base/icoDyMFoam.C.svn-base
@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 2
+Id
+END
diff --git a/applications/solvers/incompressible/icoDyMFoam/.svn/text-base/UEqn.H.svn-base b/applications/solvers/incompressible/icoDyMFoam/.svn/text-base/UEqn.H.svn-base
new file mode 100644
index 000000000..faf508468
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/.svn/text-base/UEqn.H.svn-base
@@ -0,0 +1,11 @@
+    fvVectorMatrix UEqn
+    (
+        fvm::ddt(U)
+      + fvm::div(phi, U)
+      - fvm::laplacian(nu, U)
+    );
+
+    if (momentumPredictor)
+    {
+        solve(UEqn == -fvc::grad(p));
+    }
diff --git a/applications/solvers/incompressible/icoDyMFoam/.svn/text-base/correctPhi.H.svn-base b/applications/solvers/incompressible/icoDyMFoam/.svn/text-base/correctPhi.H.svn-base
new file mode 100644
index 000000000..69978f0e6
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/.svn/text-base/correctPhi.H.svn-base
@@ -0,0 +1,47 @@
+{
+    wordList pcorrTypes(p.boundaryField().types());
+
+    for (label i=0; i<p.boundaryField().size(); i++)
+    {
+        if (p.boundaryField()[i].fixesValue())
+        {
+            pcorrTypes[i] = fixedValueFvPatchScalarField::typeName;
+        }
+    }
+
+    volScalarField pcorr
+    (
+        IOobject
+        (
+            "pcorr",
+            runTime.timeName(),
+            mesh,
+            IOobject::NO_READ,
+            IOobject::NO_WRITE
+        ),
+        mesh,
+        dimensionedScalar("pcorr", p.dimensions(), 0.0),
+        pcorrTypes
+    );
+
+    for(int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
+    {
+        fvScalarMatrix pcorrEqn
+        (
+            fvm::laplacian(rAU, pcorr) == fvc::div(phi)
+        );
+
+        pcorrEqn.setReference(pRefCell, pRefValue);
+        pcorrEqn.solve();
+
+        if (nonOrth == nNonOrthCorr)
+        {
+            phi -= pcorrEqn.flux();
+        }
+
+        // Fluxes are corrected to absolute velocity and further corrected
+        // later.  HJ, 6/Feb/2009
+    }
+}
+
+#include "continuityErrs.H"
diff --git a/applications/solvers/incompressible/icoDyMFoam/.svn/text-base/createFields.H.svn-base b/applications/solvers/incompressible/icoDyMFoam/.svn/text-base/createFields.H.svn-base
new file mode 100644
index 000000000..561cd7bf4
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/.svn/text-base/createFields.H.svn-base
@@ -0,0 +1,90 @@
+    Info<< "Reading transportProperties\n" << endl;
+
+    IOdictionary transportProperties
+    (
+        IOobject
+        (
+            "transportProperties",
+            runTime.constant(),
+            mesh,
+            IOobject::MUST_READ,
+            IOobject::NO_WRITE
+        )
+    );
+
+    dimensionedScalar nu
+    (
+        transportProperties.lookup("nu")
+    );
+
+
+    Info<< "Reading field p\n" << endl;
+    volScalarField p
+    (
+        IOobject
+        (
+            "p",
+            runTime.timeName(),
+            mesh,
+            IOobject::MUST_READ,
+            IOobject::AUTO_WRITE
+        ),
+        mesh
+    );
+
+
+    Info<< "Reading field U\n" << endl;
+    volVectorField U
+    (
+        IOobject
+        (
+            "U",
+            runTime.timeName(),
+            mesh,
+            IOobject::MUST_READ,
+            IOobject::AUTO_WRITE
+        ),
+        mesh
+    );
+
+#   include "createPhi.H"
+
+
+    label pRefCell = 0;
+    scalar pRefValue = 0.0;
+    setRefCell(p, mesh.solutionDict().subDict("PISO"), pRefCell, pRefValue);
+
+
+    Info<< "Reading field rAU if present\n" << endl;
+    volScalarField rAU
+    (
+        IOobject
+        (
+            "rAU",
+            runTime.timeName(),
+            mesh,
+            IOobject::READ_IF_PRESENT,
+            IOobject::AUTO_WRITE
+        ),
+        mesh,
+        runTime.deltaT(),
+        zeroGradientFvPatchScalarField::typeName
+    );
+
+
+    {
+        const dictionary& piso = mesh.solutionDict().subDict("PISO");
+
+        bool momentumPredictor = true;
+        if (piso.found("momentumPredictor"))
+        {
+            momentumPredictor = Switch(piso.lookup("momentumPredictor"));
+        }
+
+        bool momentumPredictorSave = momentumPredictor;
+        momentumPredictor = false;
+#       include "UEqn.H"
+        momentumPredictor = momentumPredictorSave;
+        
+        rAU = 1.0/UEqn.A();
+    }
diff --git a/applications/solvers/incompressible/icoDyMFoam/.svn/text-base/icoDyMFoam.C.svn-base b/applications/solvers/incompressible/icoDyMFoam/.svn/text-base/icoDyMFoam.C.svn-base
new file mode 100644
index 000000000..1c85fdec5
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/.svn/text-base/icoDyMFoam.C.svn-base
@@ -0,0 +1,144 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 2006-2007 Zeljko Tukovic
+     \\/     M anipulation  |
+-------------------------------------------------------------------------------
+License
+    This file is part of OpenFOAM.
+
+    OpenFOAM is free software; you can redistribute it and/or modify it
+    under the terms of the GNU General Public License as published by the
+    Free Software Foundation; either version 2 of the License, or (at your
+    option) any later version.
+
+    OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
+    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+    FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+    for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with OpenFOAM; if not, write to the Free Software Foundation,
+    Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+
+Application
+    icoDyMFoam
+
+Description
+    Transient solver for incompressible, laminar flow of Newtonian fluids
+    with dynamic mesh.
+
+\*---------------------------------------------------------------------------*/
+
+#include "fvCFD.H"
+#include "dynamicFvMesh.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+int main(int argc, char *argv[])
+{
+#   include "setRootCase.H"
+#   include "createTime.H"
+#   include "createDynamicFvMesh.H"
+#   include "initContinuityErrs.H"
+#   include "initTotalVolume.H"
+#   include "createFields.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+    Info<< "\nStarting time loop\n" << endl;
+
+    while (runTime.run())
+    {
+#       include "readControls.H"
+#       include "checkTotalVolume.H"
+#       include "CourantNo.H"
+
+#       include "setDeltaT.H"
+
+        // Make the fluxes absolute
+        fvc::makeAbsolute(phi, U);
+
+        runTime++;
+
+        Info<< "Time = " << runTime.timeName() << nl << endl;
+
+        bool meshChanged = mesh.update();
+
+#       include "volContinuity.H"
+
+        if (correctPhi && meshChanged)
+        {
+#           include "correctPhi.H"
+        }
+
+        // Make the fluxes relative to the mesh motion
+        fvc::makeRelative(phi, U);
+
+        if (meshChanged)
+        {
+#           include "CourantNo.H"
+        }
+
+#       include "UEqn.H"
+
+        // --- PISO loop
+
+        for (int corr=0; corr<nCorr; corr++)
+        {
+            rAU = 1.0/UEqn.A();
+
+            U = rAU*UEqn.H();
+            phi = (fvc::interpolate(U) & mesh.Sf());
+              //+ fvc::ddtPhiCorr(rAU, U, phi);
+
+            adjustPhi(phi, U, p);
+
+            for (int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
+            {
+                fvScalarMatrix pEqn
+                (
+                    fvm::laplacian(rAU, p) == fvc::div(phi)
+                );
+
+                pEqn.setReference(pRefCell, pRefValue);
+
+                if (corr == nCorr - 1 && nonOrth == nNonOrthCorr)
+                {
+                    pEqn.solve(mesh.solver(p.name() + "Final"));
+                }
+                else
+                {
+                    pEqn.solve(mesh.solver(p.name()));
+                }
+
+                if (nonOrth == nNonOrthCorr)
+                {
+                    phi -= pEqn.flux();
+                }
+            }
+
+#           include "continuityErrs.H"
+
+            // Make the fluxes relative to the mesh motion
+            fvc::makeRelative(phi, U);
+
+            U -= rAU*fvc::grad(p);
+            U.correctBoundaryConditions();
+        }
+
+        runTime.write();
+
+        Info<< "ExecutionTime = " << runTime.elapsedCpuTime() << " s"
+            << "  ClockTime = " << runTime.elapsedClockTime() << " s"
+            << nl << endl;
+    }
+
+    Info<< "End\n" << endl;
+
+    return(0);
+}
+
+
+// ************************************************************************* //
diff --git a/applications/solvers/incompressible/icoDyMFoam/.svn/text-base/readControls.H.svn-base b/applications/solvers/incompressible/icoDyMFoam/.svn/text-base/readControls.H.svn-base
new file mode 100644
index 000000000..9336616a1
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/.svn/text-base/readControls.H.svn-base
@@ -0,0 +1,14 @@
+#   include "readTimeControls.H"
+#   include "readPISOControls.H"
+
+    bool correctPhi = false;
+    if (piso.found("correctPhi"))
+    {
+        correctPhi = Switch(piso.lookup("correctPhi"));
+    }
+
+    bool checkMeshCourantNo = false;
+    if (piso.found("checkMeshCourantNo"))
+    {
+        checkMeshCourantNo = Switch(piso.lookup("checkMeshCourantNo"));
+    }
diff --git a/applications/solvers/incompressible/icoDyMFoam/Make/.svn/all-wcprops b/applications/solvers/incompressible/icoDyMFoam/Make/.svn/all-wcprops
new file mode 100644
index 000000000..d156d8090
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/Make/.svn/all-wcprops
@@ -0,0 +1,17 @@
+K 25
+svn:wc:ra_dav:version-url
+V 117
+/svnroot/openfoam-extend/!svn/ver/912/trunk/Core/OpenFOAM-1.5-dev/applications/solvers/incompressible/icoDyMFoam/Make
+END
+files
+K 25
+svn:wc:ra_dav:version-url
+V 123
+/svnroot/openfoam-extend/!svn/ver/912/trunk/Core/OpenFOAM-1.5-dev/applications/solvers/incompressible/icoDyMFoam/Make/files
+END
+options
+K 25
+svn:wc:ra_dav:version-url
+V 125
+/svnroot/openfoam-extend/!svn/ver/912/trunk/Core/OpenFOAM-1.5-dev/applications/solvers/incompressible/icoDyMFoam/Make/options
+END
diff --git a/applications/solvers/incompressible/icoDyMFoam/Make/.svn/dir-prop-base b/applications/solvers/incompressible/icoDyMFoam/Make/.svn/dir-prop-base
new file mode 100644
index 000000000..91bc687f2
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/Make/.svn/dir-prop-base
@@ -0,0 +1,9 @@
+K 10
+svn:ignore
+V 28
+*Opt
+*Debug
+lnInclude
+*.dep
+
+END
diff --git a/applications/solvers/incompressible/icoDyMFoam/Make/.svn/entries b/applications/solvers/incompressible/icoDyMFoam/Make/.svn/entries
new file mode 100644
index 000000000..0c0be6d7a
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/Make/.svn/entries
@@ -0,0 +1,96 @@
+9
+
+dir
+1730
+https://openfoam-extend.svn.sourceforge.net/svnroot/openfoam-extend/trunk/Core/OpenFOAM-1.5-dev/applications/solvers/incompressible/icoDyMFoam/Make
+https://openfoam-extend.svn.sourceforge.net/svnroot/openfoam-extend
+
+
+
+2007-11-08T17:59:31.038014Z
+280
+hjasak
+has-props
+
+svn:special svn:externals svn:needs-lock
+
+
+
+
+
+
+
+
+
+
+
+e4e07f05-0c2f-0410-a05a-b8ba57e0c909
+
+files
+file
+
+
+
+
+2009-08-11T21:05:38.000000Z
+b327ba4ea7390a276aef34f189cc6ba6
+2007-06-05T22:18:47.316404Z
+3
+oforiginal
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+46
+
+options
+file
+
+
+
+
+2009-08-11T21:05:38.000000Z
+290d08439d3bdbe6dae9992a3d3d9f14
+2007-11-08T17:59:31.038014Z
+280
+hjasak
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+302
+
diff --git a/applications/solvers/incompressible/icoDyMFoam/Make/.svn/format b/applications/solvers/incompressible/icoDyMFoam/Make/.svn/format
new file mode 100644
index 000000000..ec635144f
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/Make/.svn/format
@@ -0,0 +1 @@
+9
diff --git a/applications/solvers/incompressible/icoDyMFoam/Make/.svn/text-base/files.svn-base b/applications/solvers/incompressible/icoDyMFoam/Make/.svn/text-base/files.svn-base
new file mode 100644
index 000000000..22873bb94
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/Make/.svn/text-base/files.svn-base
@@ -0,0 +1,3 @@
+icoDyMFoam.C
+
+EXE = $(FOAM_APPBIN)/icoDyMFoam
diff --git a/applications/solvers/incompressible/icoDyMFoam/Make/.svn/text-base/options.svn-base b/applications/solvers/incompressible/icoDyMFoam/Make/.svn/text-base/options.svn-base
new file mode 100644
index 000000000..460426a5b
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/Make/.svn/text-base/options.svn-base
@@ -0,0 +1,13 @@
+EXE_INC = \
+    -I$(LIB_SRC)/dynamicFvMesh/lnInclude \
+    -I$(LIB_SRC)/dynamicMesh/lnInclude \
+    -I$(LIB_SRC)/meshTools/lnInclude \
+    -I$(LIB_SRC)/finiteVolume/lnInclude
+
+EXE_LIBS = \
+    -ldynamicFvMesh \
+    -ldynamicMesh \
+    -lengine \
+    -lmeshTools \
+    -lfiniteVolume \
+    -llduSolvers
diff --git a/applications/solvers/incompressible/icoDyMFoam/Make/files b/applications/solvers/incompressible/icoDyMFoam/Make/files
new file mode 100644
index 000000000..22873bb94
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/Make/files
@@ -0,0 +1,3 @@
+icoDyMFoam.C
+
+EXE = $(FOAM_APPBIN)/icoDyMFoam
diff --git a/applications/solvers/incompressible/icoDyMFoam/Make/options b/applications/solvers/incompressible/icoDyMFoam/Make/options
new file mode 100644
index 000000000..460426a5b
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/Make/options
@@ -0,0 +1,13 @@
+EXE_INC = \
+    -I$(LIB_SRC)/dynamicFvMesh/lnInclude \
+    -I$(LIB_SRC)/dynamicMesh/lnInclude \
+    -I$(LIB_SRC)/meshTools/lnInclude \
+    -I$(LIB_SRC)/finiteVolume/lnInclude
+
+EXE_LIBS = \
+    -ldynamicFvMesh \
+    -ldynamicMesh \
+    -lengine \
+    -lmeshTools \
+    -lfiniteVolume \
+    -llduSolvers
diff --git a/applications/solvers/incompressible/icoDyMFoam/UEqn.H b/applications/solvers/incompressible/icoDyMFoam/UEqn.H
new file mode 100644
index 000000000..faf508468
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/UEqn.H
@@ -0,0 +1,11 @@
+    fvVectorMatrix UEqn
+    (
+        fvm::ddt(U)
+      + fvm::div(phi, U)
+      - fvm::laplacian(nu, U)
+    );
+
+    if (momentumPredictor)
+    {
+        solve(UEqn == -fvc::grad(p));
+    }
diff --git a/applications/solvers/incompressible/icoDyMFoam/correctPhi.H b/applications/solvers/incompressible/icoDyMFoam/correctPhi.H
new file mode 100644
index 000000000..69978f0e6
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/correctPhi.H
@@ -0,0 +1,47 @@
+{
+    wordList pcorrTypes(p.boundaryField().types());
+
+    for (label i=0; i<p.boundaryField().size(); i++)
+    {
+        if (p.boundaryField()[i].fixesValue())
+        {
+            pcorrTypes[i] = fixedValueFvPatchScalarField::typeName;
+        }
+    }
+
+    volScalarField pcorr
+    (
+        IOobject
+        (
+            "pcorr",
+            runTime.timeName(),
+            mesh,
+            IOobject::NO_READ,
+            IOobject::NO_WRITE
+        ),
+        mesh,
+        dimensionedScalar("pcorr", p.dimensions(), 0.0),
+        pcorrTypes
+    );
+
+    for(int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
+    {
+        fvScalarMatrix pcorrEqn
+        (
+            fvm::laplacian(rAU, pcorr) == fvc::div(phi)
+        );
+
+        pcorrEqn.setReference(pRefCell, pRefValue);
+        pcorrEqn.solve();
+
+        if (nonOrth == nNonOrthCorr)
+        {
+            phi -= pcorrEqn.flux();
+        }
+
+        // Fluxes are corrected to absolute velocity and further corrected
+        // later.  HJ, 6/Feb/2009
+    }
+}
+
+#include "continuityErrs.H"
diff --git a/applications/solvers/incompressible/icoDyMFoam/createFields.H b/applications/solvers/incompressible/icoDyMFoam/createFields.H
new file mode 100644
index 000000000..561cd7bf4
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/createFields.H
@@ -0,0 +1,90 @@
+    Info<< "Reading transportProperties\n" << endl;
+
+    IOdictionary transportProperties
+    (
+        IOobject
+        (
+            "transportProperties",
+            runTime.constant(),
+            mesh,
+            IOobject::MUST_READ,
+            IOobject::NO_WRITE
+        )
+    );
+
+    dimensionedScalar nu
+    (
+        transportProperties.lookup("nu")
+    );
+
+
+    Info<< "Reading field p\n" << endl;
+    volScalarField p
+    (
+        IOobject
+        (
+            "p",
+            runTime.timeName(),
+            mesh,
+            IOobject::MUST_READ,
+            IOobject::AUTO_WRITE
+        ),
+        mesh
+    );
+
+
+    Info<< "Reading field U\n" << endl;
+    volVectorField U
+    (
+        IOobject
+        (
+            "U",
+            runTime.timeName(),
+            mesh,
+            IOobject::MUST_READ,
+            IOobject::AUTO_WRITE
+        ),
+        mesh
+    );
+
+#   include "createPhi.H"
+
+
+    label pRefCell = 0;
+    scalar pRefValue = 0.0;
+    setRefCell(p, mesh.solutionDict().subDict("PISO"), pRefCell, pRefValue);
+
+
+    Info<< "Reading field rAU if present\n" << endl;
+    volScalarField rAU
+    (
+        IOobject
+        (
+            "rAU",
+            runTime.timeName(),
+            mesh,
+            IOobject::READ_IF_PRESENT,
+            IOobject::AUTO_WRITE
+        ),
+        mesh,
+        runTime.deltaT(),
+        zeroGradientFvPatchScalarField::typeName
+    );
+
+
+    {
+        const dictionary& piso = mesh.solutionDict().subDict("PISO");
+
+        bool momentumPredictor = true;
+        if (piso.found("momentumPredictor"))
+        {
+            momentumPredictor = Switch(piso.lookup("momentumPredictor"));
+        }
+
+        bool momentumPredictorSave = momentumPredictor;
+        momentumPredictor = false;
+#       include "UEqn.H"
+        momentumPredictor = momentumPredictorSave;
+        
+        rAU = 1.0/UEqn.A();
+    }
diff --git a/applications/solvers/incompressible/icoDyMFoam/icoDyMFoam.C b/applications/solvers/incompressible/icoDyMFoam/icoDyMFoam.C
new file mode 100644
index 000000000..4a0d628fb
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/icoDyMFoam.C
@@ -0,0 +1,149 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright held by original author
+     \\/     M anipulation  |
+-------------------------------------------------------------------------------
+License
+    This file is part of OpenFOAM.
+
+    OpenFOAM is free software; you can redistribute it and/or modify it
+    under the terms of the GNU General Public License as published by the
+    Free Software Foundation; either version 2 of the License, or (at your
+    option) any later version.
+
+    OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
+    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+    FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+    for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with OpenFOAM; if not, write to the Free Software Foundation,
+    Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+
+Application
+    icoDyMFoam
+
+Description
+    Transient solver for incompressible, laminar flow of Newtonian fluids
+    with dynamic mesh.
+
+Author
+    Hrvoje Jasak, Wikki Ltd.  All rights reserved.
+
+\*---------------------------------------------------------------------------*/
+
+#include "fvCFD.H"
+#include "dynamicFvMesh.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+int main(int argc, char *argv[])
+{
+#   include "setRootCase.H"
+#   include "createTime.H"
+#   include "createDynamicFvMesh.H"
+#   include "initContinuityErrs.H"
+#   include "initTotalVolume.H"
+#   include "createFields.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+    Info<< "\nStarting time loop\n" << endl;
+
+    while (runTime.run())
+    {
+#       include "readControls.H"
+#       include "checkTotalVolume.H"
+#       include "CourantNo.H"
+
+#       include "setDeltaT.H"
+
+        // Make the fluxes absolute
+        fvc::makeAbsolute(phi, U);
+
+        runTime++;
+
+        Info<< "Time = " << runTime.timeName() << nl << endl;
+
+        bool meshChanged = mesh.update();
+
+#       include "volContinuity.H"
+
+        if (correctPhi && meshChanged)
+        {
+            // Fluxes will be corrected to absolute velocity
+            // HJ, 6/Feb/2009
+#           include "correctPhi.H"
+        }
+
+        // Make the fluxes relative to the mesh motion
+        fvc::makeRelative(phi, U);
+
+        if (meshChanged)
+        {
+#           include "CourantNo.H"
+        }
+
+#       include "UEqn.H"
+
+        // --- PISO loop
+
+        for (int corr=0; corr<nCorr; corr++)
+        {
+            rAU = 1.0/UEqn.A();
+
+            U = rAU*UEqn.H();
+            phi = (fvc::interpolate(U) & mesh.Sf());
+              //+ fvc::ddtPhiCorr(rAU, U, phi);
+
+            adjustPhi(phi, U, p);
+
+            for (int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
+            {
+                fvScalarMatrix pEqn
+                (
+                    fvm::laplacian(rAU, p) == fvc::div(phi)
+                );
+
+                pEqn.setReference(pRefCell, pRefValue);
+
+                if (corr == nCorr - 1 && nonOrth == nNonOrthCorr)
+                {
+                    pEqn.solve(mesh.solver(p.name() + "Final"));
+                }
+                else
+                {
+                    pEqn.solve(mesh.solver(p.name()));
+                }
+
+                if (nonOrth == nNonOrthCorr)
+                {
+                    phi -= pEqn.flux();
+                }
+            }
+
+#           include "continuityErrs.H"
+
+            // Make the fluxes relative to the mesh motion
+            fvc::makeRelative(phi, U);
+
+            U -= rAU*fvc::grad(p);
+            U.correctBoundaryConditions();
+        }
+
+        runTime.write();
+
+        Info<< "ExecutionTime = " << runTime.elapsedCpuTime() << " s"
+            << "  ClockTime = " << runTime.elapsedClockTime() << " s"
+            << nl << endl;
+    }
+
+    Info<< "End\n" << endl;
+
+    return(0);
+}
+
+
+// ************************************************************************* //
diff --git a/applications/solvers/incompressible/icoDyMFoam/readControls.H b/applications/solvers/incompressible/icoDyMFoam/readControls.H
new file mode 100644
index 000000000..9336616a1
--- /dev/null
+++ b/applications/solvers/incompressible/icoDyMFoam/readControls.H
@@ -0,0 +1,14 @@
+#   include "readTimeControls.H"
+#   include "readPISOControls.H"
+
+    bool correctPhi = false;
+    if (piso.found("correctPhi"))
+    {
+        correctPhi = Switch(piso.lookup("correctPhi"));
+    }
+
+    bool checkMeshCourantNo = false;
+    if (piso.found("checkMeshCourantNo"))
+    {
+        checkMeshCourantNo = Switch(piso.lookup("checkMeshCourantNo"));
+    }