Creation of OpenFOAM-dev repository 15/04/2008

applications/solvers/DNSandLES/channelOodles/FoamX/channelOodles.cfg

@@ -0,0 +1,73 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+description "Incompressible large eddy simulation (LES) code for channel flow";
+
+dictionaries
+{
+    include "$FOAMX_CONFIG/dictionaries/controlDict/controlDict.cfg";
+    fvSchemes;
+    fvSolution;
+    transportProperties;
+    include "$FOAMX_CONFIG/dictionaries/turbulenceProperties/LESmodelsIncompressible.cfg";
+}
+
+fields
+{
+    include "$FOAMX_CONFIG/entries/geometricFields/pKinematic.cfg";
+    include "$FOAMX_CONFIG/entries/geometricFields/U.cfg";
+    include "$FOAMX_CONFIG/entries/geometricFields/k.cfg";
+    include "$FOAMX_CONFIG/entries/geometricFields/nuSgs.cfg";    
+    include "$FOAMX_CONFIG/entries/geometricFields/Bkinematic.cfg";
+    include "$FOAMX_CONFIG/entries/geometricFields/nuTilda.cfg";
+}
+
+patchPhysicalTypes
+{
+    include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/patches.cfg";
+    include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/patches.cfg";
+}
+
+patchFieldsPhysicalTypes
+{
+    U
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/U.cfg";
+    }
+
+    p
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/p.cfg";
+    }
+
+    k
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/k.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/k.cfg";
+    }
+
+    nuSgs
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/nuSgs.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/nuSgs.cfg";
+    }
+
+    B
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/B.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/B.cfg";
+    }
+
+    nuTilda
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/nuTilda.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/nuTilda.cfg";
+    }
+}
+
+// ************************************************************************* //

applications/solvers/DNSandLES/channelOodles/FoamX/defaults/system/fvSchemes

@@ -0,0 +1,76 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+FoamFile
+{
+    version         2.0;
+    format          ascii;
+
+    root            "";
+    case            "";
+    instance        "";
+    local           "";
+
+    class           dictionary;
+    object          fvSchemes;
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+ddtSchemes
+{
+    default backward;
+}
+
+gradSchemes
+{
+    default         Gauss linear;
+    grad(p)         Gauss linear;
+    grad(U)         Gauss linear;
+}
+
+divSchemes
+{
+    default         none;
+    div(phi,U)      Gauss <>;
+    div(phi,k)      Gauss <>;
+    div(phi,B)      Gauss <>;
+    div(B)          Gauss linear;
+    div(phi,nuTilda) Gauss <>;
+    div((nuEff*dev(grad(U).T()))) Gauss linear;
+}
+
+laplacianSchemes
+{
+    default         none;
+    laplacian(nuEff,U) Gauss linear corrected;
+    laplacian((1|A(U)),p) Gauss linear corrected;
+    laplacian(DkEff,k) Gauss linear corrected;
+    laplacian(DBEff,B) Gauss linear corrected;
+    laplacian(DnuTildaEff,nuTilda) Gauss linear corrected;
+}
+
+interpolationSchemes
+{
+    default         linear;
+    interpolate(U)  linear;
+}
+
+snGradSchemes
+{
+    default         corrected;
+}
+
+fluxRequired
+{
+    default         no;
+    p;
+}
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/channelOodles/FoamX/defaults/system/fvSolution

@@ -0,0 +1,44 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+FoamFile
+{
+    version         2.0;
+    format          ascii;
+
+    root            "";
+    case            "";
+    instance        "";
+    local           "";
+
+    class           dictionary;
+    object          fvSolution;
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+solvers
+{
+    p               ICCG 1e-06 0;
+    pFinal          ICCG 1e-06 0;
+    U               BICCG 1e-05 0;
+    k               BICCG 1e-05 0;
+    B               BICCG 1e-05 0;
+    nuTilda         BICCG 1e-05 0;
+}
+
+PISO
+{
+    nCorrectors     2;
+    nNonOrthogonalCorrectors 0;
+    pRefCell        1001;
+    pRefValue       0;
+}
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/channelOodles/FoamX/fvSchemes.cfg

@@ -0,0 +1,28 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+include "$FOAMX_CONFIG/dictionaries/fvSchemes/fvSchemes.cfg";
+
+entries
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/ddt/transient.cfg";
+
+    include "../../../incompressible/turbFoam/FoamX/fvSchemes/gradSchemes.cfg";
+    include "../../oodles/FoamX/fvSchemes/divSchemes.cfg";
+    include "../../oodles/FoamX/fvSchemes/laplacianSchemes.cfg";
+    include "../../../incompressible/turbFoam/FoamX/fvSchemes/interpolationSchemes.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/snGrad/defaultOnly.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/flux/p.cfg";
+}
+
+default
+{
+    include "defaults/system/fvSchemes";
+}
+
+// ************************************************************************* //

applications/solvers/DNSandLES/channelOodles/FoamX/fvSolution.cfg

@@ -0,0 +1,35 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+include "$FOAMX_CONFIG/dictionaries/fvSolution/fvSolution.cfg";
+
+entries
+{
+    solvers
+    {
+        type        dictionary;
+        entries
+        {
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/pSymm.cfg";
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/pFinal.cfg";
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/U.cfg";
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/k.cfg";
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/B.cfg";
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/nuTilda.cfg";
+        }
+    }
+
+    include "$FOAMX_CONFIG/dictionaries/fvSolution/PISO.cfg";
+}
+
+default
+{
+    include "defaults/system/fvSolution";
+}
+
+// ************************************************************************* //

applications/solvers/DNSandLES/channelOodles/FoamX/transportProperties.cfg

@@ -0,0 +1,20 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+include "$FOAMX_CONFIG/dictionaries/transportProperties/transportProperties.cfg";
+
+entries            
+{
+    include "$FOAMX_CONFIG/entries/dimensionedVector/Ubar.cfg";
+    include "$FOAMX_CONFIG/dictionaries/transportProperties/incompressibleTransportModel.cfg";
+    include "$FOAMX_CONFIG/dictionaries/transportProperties/NewtonianViscosity.cfg";
+    include "$FOAMX_CONFIG/dictionaries/transportProperties/CrossPowerLawCoeffs.cfg";
+    include "$FOAMX_CONFIG/dictionaries/transportProperties/BirdCarreauCoeffs.cfg";
+}
+
+// ************************************************************************* //

applications/solvers/DNSandLES/channelOodles/Make/files

@@ -0,0 +1,3 @@
+channelOodles.C
+
+EXE = $(FOAM_APPBIN)/channelOodles

applications/solvers/DNSandLES/channelOodles/Make/options

@@ -0,0 +1,13 @@
+EXE_INC = \
+    -I$(LIB_SRC)/LESmodels \
+    -I$(LIB_SRC)/LESmodels/LESdeltas/lnInclude \
+    -I$(LIB_SRC)/transportModels \
+    -I$(LIB_SRC)/finiteVolume/lnInclude \
+    -I$(LIB_SRC)/sampling/lnInclude \
+    -I../oodles
+
+EXE_LIBS = \
+    -lincompressibleLESmodels \
+    -lincompressibleTransportModels \
+    -lfiniteVolume \
+    -lmeshTools

applications/solvers/DNSandLES/channelOodles/channelOodles.C

@@ -0,0 +1,164 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2007 OpenCFD Ltd.
+     \\/     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
+    oodles
+
+Description
+    Incompressible LES solver for flow in a channel.
+
+\*---------------------------------------------------------------------------*/
+
+#include "fvCFD.H"
+#include "incompressible/singlePhaseTransportModel/singlePhaseTransportModel.H"
+#include "incompressible/LESmodel/LESmodel.H"
+#include "IFstream.H"
+#include "OFstream.H"
+#include "Random.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+int main(int argc, char *argv[])
+{
+
+#   include "setRootCase.H"
+#   include "createTime.H"
+#   include "createMesh.H"
+#   include "readTransportProperties.H"
+#   include "createFields.H"
+#   include "createAverages.H"
+#   include "initContinuityErrs.H"
+#   include "createGradP.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+    Info<< "\nStarting time loop\n" << endl;
+
+    for(runTime++; !runTime.end(); runTime++)
+    {
+        Info<< "Time = " << runTime.timeName() << nl << endl;
+
+#       include "readPISOControls.H"
+
+#       include "CourantNo.H"
+
+        sgsModel->correct();
+
+        fvVectorMatrix UEqn
+        (
+            fvm::ddt(U)
+          + fvm::div(phi, U)
+          + sgsModel->divDevBeff(U)
+         ==
+            flowDirection*gradP
+        );
+
+        if (momentumPredictor)
+        {
+            solve(UEqn == -fvc::grad(p));
+        }
+
+
+        // --- PISO loop
+
+        volScalarField rUA = 1.0/UEqn.A();
+
+        for (int corr=0; corr<nCorr; corr++)
+        {
+            U = rUA*UEqn.H();
+            phi = (fvc::interpolate(U) & mesh.Sf())
+                + fvc::ddtPhiCorr(rUA, U, phi);
+
+            adjustPhi(phi, U, p);
+
+            for (int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
+            {
+                fvScalarMatrix pEqn
+                (
+                    fvm::laplacian(rUA, 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"
+
+            U -= rUA*fvc::grad(p);
+            U.correctBoundaryConditions();
+        }
+
+
+        // Correct driving force for a constant mass flow rate
+
+        // Extract the velocity in the flow direction
+        dimensionedScalar magUbarStar = 
+            (flowDirection & U)().weightedAverage(mesh.V());
+
+        // Calculate the pressure gradient increment needed to 
+        // adjust the average flow-rate to the correct value
+        dimensionedScalar gragPplus = 
+            (magUbar - magUbarStar)/rUA.weightedAverage(mesh.V());
+
+        U += flowDirection*rUA*gragPplus;
+
+        gradP += gragPplus;
+
+        Info<< "Uncorrected Ubar = " << magUbarStar.value() << tab
+            << "pressure gradient = " << gradP.value() << endl;
+
+
+#       include "calculateAverages.H"
+
+        runTime.write();
+
+#       include "writeNaveragingSteps.H"
+
+#       include "writeGradP.H"
+
+        Info<< "ExecutionTime = " << runTime.elapsedCpuTime() << " s"
+            << "  ClockTime = " << runTime.elapsedClockTime() << " s"
+            << nl << endl;
+    }
+
+    Info<< "End\n" << endl;
+
+    return(0);
+}
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/channelOodles/createFields.H

@@ -0,0 +1,43 @@
+    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);
+
+
+    singlePhaseTransportModel laminarTransport(U, phi);
+
+    autoPtr<LESmodel> sgsModel
+    (
+        LESmodel::New(U, phi, laminarTransport)
+    );

applications/solvers/DNSandLES/channelOodles/createGradP.H

@@ -0,0 +1,24 @@
+    dimensionedScalar gradP
+    (
+        "gradP",
+        dimensionSet(0, 1, -2, 0, 0),
+        0.0
+    );
+
+
+    IFstream gradPFile
+    (
+        runTime.path()/runTime.timeName()/"gradP.raw"
+    );
+
+    if(gradPFile.good())
+    {
+        gradPFile >> gradP;
+        Info<< "Reading average pressure gradient" <<endl
+            << endl;
+    }
+    else
+    {
+        Info<< "Initializing with 0 pressure gradient" <<endl
+            << endl;
+    };

applications/solvers/DNSandLES/channelOodles/readTransportProperties.H

@@ -0,0 +1,28 @@
+    Info<< "\nReading transportProperties\n" << endl;
+    IOdictionary transportProperties
+    (
+        IOobject
+        (
+            "transportProperties",
+            runTime.constant(),
+            mesh,
+            IOobject::MUST_READ,
+            IOobject::NO_WRITE
+        )
+    );
+
+
+    dimensionedScalar nu
+    (
+        transportProperties.lookup("nu")
+    );
+
+
+    //  Read centerline velocity for channel simulations
+    dimensionedVector Ubar
+    (
+        transportProperties.lookup("Ubar")
+    );
+
+    dimensionedScalar magUbar = mag(Ubar);
+    vector flowDirection = (Ubar/magUbar).value();

applications/solvers/DNSandLES/channelOodles/writeGradP.H

@@ -0,0 +1,19 @@
+    if (runTime.outputTime())
+    {
+        OFstream gradPFile
+        (
+            runTime.path()/runTime.timeName()/"gradP.raw"
+        );
+
+        if(gradPFile.good())
+        {
+            gradPFile << gradP << endl;
+        }
+        else
+        {
+            FatalErrorIn(args.executable())
+                << "Cannot open file "
+                << runTime.path()/runTime.timeName()/"gradP.raw"
+                << exit(FatalError);
+        };
+    };

applications/solvers/DNSandLES/coodles/FoamX/coodles.cfg

@@ -0,0 +1,91 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+description         "Compressible large eddy simulation (LES) code";
+
+dictionaries
+{
+    include "$FOAMX_CONFIG/dictionaries/controlDict/controlDict.cfg";
+    fvSchemes;
+    fvSolution;
+    include "$FOAMX_CONFIG/dictionaries/thermophysicalProperties/thermophysicalPropertiesMixture.cfg";
+    include "$FOAMX_CONFIG/dictionaries/turbulenceProperties/LESmodelsCompressible.cfg";
+}
+
+fields
+{
+    include "$FOAMX_CONFIG/entries/geometricFields/pDynamic.cfg";
+    include "$FOAMX_CONFIG/entries/geometricFields/U.cfg";
+    include "$FOAMX_CONFIG/entries/geometricFields/k.cfg";
+    include "$FOAMX_CONFIG/entries/geometricFields/T.cfg";
+    include "$FOAMX_CONFIG/entries/geometricFields/muSgs.cfg";    
+    include "$FOAMX_CONFIG/entries/geometricFields/Bkinematic.cfg";
+    include "$FOAMX_CONFIG/entries/geometricFields/muTilda.cfg";
+}
+
+patchPhysicalTypes
+{
+    include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/patches.cfg";
+    include "$FOAMX_CONFIG/entries/patchPhysicalTypes/sonic/patches.cfg";
+    include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/thermal/patches.cfg";
+    include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/patches.cfg";
+    include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/thermal/patches.cfg";
+    turbulentInlet
+    {
+        description "Turbulent inlet";
+        parentType inlet;
+    }
+}
+
+patchFieldsPhysicalTypes
+{
+    U
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/U.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/sonic/U.cfg";
+        turbulentInlet turbulentInlet;
+    }
+
+    p
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/p.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/sonic/p.cfg";
+    }
+
+    T
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/thermal/T.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/thermal/T.cfg";
+    }
+
+    k
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/k.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/k.cfg";
+    }
+
+    muSgs
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/muSgs.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/muSgs.cfg";
+    }
+
+    B
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/B.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/B.cfg";
+    }
+
+    muTilda
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/muTilda.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/muTilda.cfg";
+    }
+}
+
+// ************************************************************************* //

applications/solvers/DNSandLES/coodles/FoamX/defaults/system/fvSchemes

@@ -0,0 +1,80 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+FoamFile
+{
+    version         2.0;
+    format          ascii;
+
+    root            "";
+    case            "";
+    instance        "";
+    local           "";
+
+    class           dictionary;
+    object          fvSchemes;
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+ddtSchemes
+{
+    default backward;
+}
+
+gradSchemes
+{
+    default         Gauss linear;
+    grad(p)         Gauss linear;
+    grad(U)         Gauss linear;
+}
+
+divSchemes
+{
+    default         none;
+    div(phi,U)      Gauss <>;
+    div(phi,h)      Gauss <>;
+    div(phiU,p)     Gauss linear;
+    div(phi,k)      Gauss <>;
+    div(phi,B)      Gauss <>;
+    div(phi,muTilda) Gauss <>;
+
+    div(B)          Gauss linear;
+    div((muEff*dev2(grad(U).T()))) Gauss linear;
+}
+
+laplacianSchemes
+{
+    default         none;
+    laplacian(muEff,U) Gauss linear corrected;
+    laplacian((rho*(1|A(U))),p) Gauss linear corrected;
+    laplacian(alphaEff,h) Gauss linear corrected;
+    laplacian(DkEff,k) Gauss linear corrected;
+    laplacian(DBEff,B) Gauss linear corrected;
+    laplacian(DmuTildaEff,muTilda) Gauss linear corrected;
+}
+
+interpolationSchemes
+{
+    default         linear;
+    interpolate(HbyA) linear;
+}
+
+snGradSchemes
+{
+    default         corrected;
+}
+
+fluxRequired
+{
+    default         no;
+    p;
+}
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/coodles/FoamX/defaults/system/fvSolution

@@ -0,0 +1,43 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+FoamFile
+{
+    version         2.0;
+    format          ascii;
+
+    root            "";
+    case            "";
+    instance        "";
+    local           "";
+
+    class           dictionary;
+    object          fvSolution;
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+solvers
+{
+    rho             ICCG  1e-6 0;
+    h               BICCG 1e-6 0;
+    p               ICCG 1e-06 0;
+    U               BICCG 1e-05 0;
+    k               BICCG 1e-05 0;
+    B               BICCG 1e-05 0;
+    nuTilda         BICCG 1e-05 0;
+}
+
+PISO
+{
+    nCorrectors     2;
+    nNonOrthogonalCorrectors 0;
+}
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/coodles/FoamX/fvSchemes.cfg

@@ -0,0 +1,27 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+include "$FOAMX_CONFIG/dictionaries/fvSchemes/fvSchemes.cfg";
+
+entries
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/ddt/transient.cfg";
+    include "fvSchemes/gradSchemes.cfg";
+    include "fvSchemes/divSchemes.cfg";
+    include "fvSchemes/laplacianSchemes.cfg";
+    include "fvSchemes/interpolationSchemes.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/snGrad/defaultOnly.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/flux/p.cfg";
+}
+
+default
+{
+    include "defaults/system/fvSchemes";
+}
+
+// ************************************************************************* //

applications/solvers/DNSandLES/coodles/FoamX/fvSchemes/divSchemes.cfg

@@ -0,0 +1,27 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+divSchemes
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/schemes.cfg"; 
+    entries
+    {
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/default.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/phiU.cfg"; 
+	include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/phih.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/phiUp.cfg"; 
+	include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/phik.cfg";
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/phiBT.cfg";
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/B.cfg";
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/phiMuTilda.cfg";
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/muEffGradUT.cfg"; 
+    }                  
+}
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/coodles/FoamX/fvSchemes/gradSchemes.cfg

@@ -0,0 +1,21 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+gradSchemes
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/grad/schemes.cfg"; 
+    entries
+    {
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/grad/default.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/grad/p.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/grad/U.cfg"; 
+    }
+}
+    
+
+// ************************************************************************* //

applications/solvers/DNSandLES/coodles/FoamX/fvSchemes/interpolationSchemes.cfg

@@ -0,0 +1,19 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+interpolationSchemes
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/interpolation/schemes.cfg"; 
+    entries
+    {
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/interpolation/default.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/interpolation/HbyA.cfg"; 
+    }
+}
+
+// ************************************************************************* //

applications/solvers/DNSandLES/coodles/FoamX/fvSchemes/laplacianSchemes.cfg

@@ -0,0 +1,25 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+laplacianSchemes
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/schemes.cfg"; 
+    entries
+    {
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/default.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/muEffU.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/rhoAUp.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/alphaEffh.cfg";         
+	include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/DkEffk.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/DBEffB.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/DmuTildaEffMuTilda.cfg"; 
+    }
+}
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/coodles/FoamX/fvSolution.cfg

@@ -0,0 +1,35 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+include "$FOAMX_CONFIG/dictionaries/fvSolution/fvSolution.cfg";
+
+entries
+{
+    solvers
+    {
+        type        dictionary;
+        entries
+        {
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/rho.cfg";
+	        include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/h.cfg";
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/pSymm.cfg";
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/U.cfg";
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/k.cfg";
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/B.cfg";
+        }
+    }
+
+    include "$FOAMX_CONFIG/dictionaries/fvSolution/PISO.cfg";
+}
+
+default
+{
+    include "defaults/system/fvSolution";
+}
+
+// ************************************************************************* //

applications/solvers/DNSandLES/coodles/Make/files

@@ -0,0 +1,3 @@
+coodles.C
+
+EXE = $(FOAM_APPBIN)/coodles

applications/solvers/DNSandLES/coodles/Make/options

@@ -0,0 +1,13 @@
+EXE_INC = \
+    -I$(LIB_SRC)/finiteVolume/lnInclude \
+    -I$(LIB_SRC)/thermophysicalModels/specie/lnInclude \
+    -I$(LIB_SRC)/thermophysicalModels/basic/lnInclude \
+    -I$(LIB_SRC)/LESmodels \
+    -I$(LIB_SRC)/LESmodels/LESdeltas/lnInclude
+
+EXE_LIBS = \
+    -lfiniteVolume \
+    -lmeshTools \
+    -lbasicThermophysicalModels \
+    -lspecie \
+    -lcompressibleLESmodels

applications/solvers/DNSandLES/coodles/UEqn.H

@@ -0,0 +1,11 @@
+    fvVectorMatrix UEqn
+    (
+        fvm::ddt(rho, U)
+      + fvm::div(phi, U)
+      + turbulence->divDevRhoReff(U)
+    );
+
+    if (momentumPredictor)
+    {
+        solve(UEqn == -fvc::grad(p));
+    }

applications/solvers/DNSandLES/coodles/coodles.C

@@ -0,0 +1,88 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2007 OpenCFD Ltd.
+     \\/     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
+    coodles
+
+Description
+
+\*---------------------------------------------------------------------------*/
+
+#include "fvCFD.H"
+#include "basicThermo.H"
+#include "compressible/LESmodel/LESmodel.H"
+
+#define divDevRhoReff divDevRhoBeff
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+int main(int argc, char *argv[])
+{
+
+#   include "setRootCase.H"
+
+#   include "createTime.H"
+#   include "createMesh.H"
+#   include "createFields.H"
+#   include "initContinuityErrs.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+    Info<< "\nStarting time loop\n" << endl;
+
+    for (runTime++; !runTime.end(); runTime++)
+    {
+        Info<< "Time = " << runTime.timeName() << nl << endl;
+
+#       include "readPISOControls.H"
+#       include "compressibleCourantNo.H"
+
+#       include "rhoEqn.H"
+#       include "UEqn.H"
+
+        // --- PISO loop
+        for (int corr=1; corr<=nCorr; corr++)
+        {
+#           include "hEqn.H"
+#           include "pEqn.H"
+        }
+
+        turbulence->correct();
+
+        rho = thermo->rho();
+
+        runTime.write();
+
+        Info<< "ExecutionTime = " << runTime.elapsedCpuTime() << " s"
+            << "  ClockTime = " << runTime.elapsedClockTime() << " s"
+            << nl << endl;
+    }
+
+    Info<< "End\n" << endl;
+
+    return(0);
+}
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/coodles/createFields.H

@@ -0,0 +1,50 @@
+    Info<< "Reading thermophysical properties\n" << endl;
+
+    autoPtr<basicThermo> thermo
+    (
+        basicThermo::New(mesh)
+    );
+
+    volScalarField& p = thermo->p();
+    volScalarField& h = thermo->h();
+    const volScalarField& psi = thermo->psi();
+
+    volScalarField rho
+    (
+        IOobject
+        (
+            "rho",
+            runTime.timeName(),
+            mesh,
+            IOobject::NO_READ,
+            IOobject::AUTO_WRITE
+        ),
+        thermo->rho()
+    );
+
+    Info<< "\nReading field U\n" << endl;
+    volVectorField U
+    (
+        IOobject
+        (
+            "U",
+            runTime.timeName(),
+            mesh,
+            IOobject::MUST_READ,
+            IOobject::AUTO_WRITE
+        ),
+        mesh
+    );
+
+#   include "compressibleCreatePhi.H"
+
+
+    Info<< "Creating turbulence model\n" << endl;
+    autoPtr<compressible::LESmodel> turbulence
+    (
+        compressible::LESmodel::New(rho, U, phi, thermo())
+    );
+
+    Info<< "Creating field DpDt\n" << endl;
+    volScalarField DpDt = 
+        fvc::DDt(surfaceScalarField("phiU", phi/fvc::interpolate(rho)), p);

applications/solvers/DNSandLES/coodles/hEqn.H

@@ -0,0 +1,12 @@
+{
+    solve
+    (
+        fvm::ddt(rho, h)
+      + fvm::div(phi, h)
+      - fvm::laplacian(turbulence->alphaEff(), h)
+     ==
+        DpDt
+    );
+
+    thermo->correct();
+}

applications/solvers/DNSandLES/coodles/pEqn.H

@@ -0,0 +1,68 @@
+rho = thermo->rho();
+
+volScalarField rUA = 1.0/UEqn.A();
+U = rUA*UEqn.H();
+
+if (transonic)
+{
+    surfaceScalarField phid
+    (
+        "phid",
+        fvc::interpolate(thermo->psi())
+       *(
+            (fvc::interpolate(U) & mesh.Sf())
+          + fvc::ddtPhiCorr(rUA, rho, U, phi)
+        )
+    );
+
+    for (int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
+    {
+        fvScalarMatrix pEqn
+        (
+            fvm::ddt(psi, p)
+          + fvm::div(phid, p)
+          - fvm::laplacian(rho*rUA, p)
+        );
+
+        pEqn.solve();
+
+        if (nonOrth == nNonOrthCorr)
+        {
+            phi == pEqn.flux();
+        }
+    }
+}
+else
+{
+    phi = 
+        fvc::interpolate(rho)*
+        (
+            (fvc::interpolate(U) & mesh.Sf())
+          + fvc::ddtPhiCorr(rUA, rho, U, phi)
+        );
+
+    for (int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
+    {
+        fvScalarMatrix pEqn
+        (
+            fvm::ddt(psi, p)
+          + fvc::div(phi)
+          - fvm::laplacian(rho*rUA, p)
+        );
+
+        pEqn.solve();
+
+        if (nonOrth == nNonOrthCorr)
+        {
+            phi += pEqn.flux();
+        }
+    }
+}
+
+#include "rhoEqn.H"
+#include "compressibleContinuityErrs.H"
+
+U -= rUA*fvc::grad(p);
+U.correctBoundaryConditions();
+
+DpDt = fvc::DDt(surfaceScalarField("phiU", phi/fvc::interpolate(rho)), p);

applications/solvers/DNSandLES/dnsFoam/FoamX/defaults/constant/turbulenceProperties

@@ -0,0 +1,34 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+FoamFile
+{
+    version         2.0;
+    format          ascii;
+
+    root            "";
+    case            "";
+    instance        "";
+    local           "";
+
+    class           dictionary;
+    object          transportProperties;
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+UOsigma         0.090295049;
+
+UOalpha         0.81532036;
+
+UOKupper        10;
+
+UOKlower        7;
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/dnsFoam/FoamX/defaults/system/fvSchemes

@@ -0,0 +1,68 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+FoamFile
+{
+    version         2.0;
+    format          ascii;
+
+    root            "";
+    case            "";
+    instance        "";
+    local           "";
+
+    class           dictionary;
+    object          fvSchemes;
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+ddtSchemes
+{
+    default Euler;
+}
+
+gradSchemes
+{
+    default         Gauss linear;
+    grad(p)         Gauss linear;
+    grad(U)         Gauss linear;
+}
+
+divSchemes
+{
+    default         none;
+    div(phi,U)      Gauss cubic;
+}
+
+laplacianSchemes
+{
+    default         none;
+    laplacian(nu,U) Gauss linear corrected;
+    laplacian((1|A(U)),p) Gauss linear corrected;
+}
+
+interpolationSchemes
+{
+    default         linear;
+    interpolate(U)  linear;
+}
+
+snGradSchemes
+{
+    default         corrected;
+}
+
+fluxRequired
+{
+    default         no;
+    p;
+}
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/dnsFoam/FoamX/defaults/system/fvSolution

@@ -0,0 +1,38 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+FoamFile
+{
+    version         2.0;
+    format          ascii;
+
+    root            "";
+    case            "";
+    instance        "";
+    local           "";
+
+    class           dictionary;
+    object          fvSolution;
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+solvers
+{
+    p               ICCG 1e-06 0;
+    U               BICCG 1e-05 0;
+}
+
+PISO
+{
+    nCorrectors     2;
+    nNonOrthogonalCorrectors 0;
+}
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/dnsFoam/FoamX/dnsFoam.cfg

@@ -0,0 +1,69 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+description "Direct numerical simulation (DNS) code";
+
+dictionaries
+{
+    include "$FOAMX_CONFIG/dictionaries/controlDict/controlDict.cfg";
+    fvSchemes;
+    fvSolution;
+    include "$FOAMX_CONFIG/dictionaries/transportProperties/NewtonianSinglePhaseTransportProperties.cfg";
+    turbulenceProperties;
+}
+
+fields
+{
+    include "$FOAMX_CONFIG/entries/geometricFields/pKinematic.cfg";
+    include "$FOAMX_CONFIG/entries/geometricFields/U.cfg";
+}
+
+patchPhysicalTypes
+{
+    include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/patches.cfg";
+    include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/patches.cfg";
+}
+
+patchFieldsPhysicalTypes
+{
+    U
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/U.cfg";
+    }
+
+    p
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/p.cfg";
+    }
+
+    k
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/k.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/k.cfg";
+    }
+
+    nuSgs
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/nuSgs.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/nuSgs.cfg";
+    }
+
+    B
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/B.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/B.cfg";
+    }
+
+    nuTilda
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/nuTilda.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/nuTilda.cfg";
+    }
+}
+
+// ************************************************************************* //

applications/solvers/DNSandLES/dnsFoam/FoamX/fvSchemes.cfg

@@ -0,0 +1,44 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+FoamFile
+{
+    version             1.0;
+    format              ascii;
+
+    root                "";
+    case                "";
+    instance            "";
+    local               "";
+    
+    class               dictionary;
+    object              fvSchemes.cfg;
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+include "$FOAMX_CONFIG/dictionaries/fvSchemes/fvSchemes.cfg";
+
+entries
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/ddt/transient.cfg";
+
+    include "../../../incompressible/turbFoam/FoamX/fvSchemes/gradSchemes.cfg";
+    include "../../../incompressible/icoFoam/FoamX/fvSchemes/divSchemes.cfg";
+    include "../../../incompressible/icoFoam/FoamX/fvSchemes/laplacianSchemes.cfg";
+    include "../../../incompressible/turbFoam/FoamX/fvSchemes/interpolationSchemes.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/snGrad/defaultOnly.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/flux/p.cfg"; 
+}
+
+default
+{
+    include "defaults/system/fvSchemes";
+}
+
+// ************************************************************************* //

applications/solvers/DNSandLES/dnsFoam/FoamX/fvSolution.cfg

@@ -0,0 +1,31 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+include "$FOAMX_CONFIG/dictionaries/fvSolution/fvSolution.cfg";
+
+entries
+{
+    solvers
+    {
+        type        dictionary;
+        entries
+        {
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/pSymm.cfg";
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/U.cfg";
+        }
+    }
+
+    include "$FOAMX_CONFIG/dictionaries/fvSolution/PISO.cfg";
+}
+
+default
+{
+    include "defaults/system/fvSolution";
+}
+
+// ************************************************************************* //

applications/solvers/DNSandLES/dnsFoam/FoamX/turbulenceProperties.cfg

@@ -0,0 +1,43 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+type                dictionary;
+description         "Turbulence properties";
+dictionaryPath      "constant";
+
+entries            
+{
+    UOsigma
+    {
+        type        scalar;
+    }
+
+    UOalpha
+    {
+        type        scalar;
+    }
+
+    UOKupper
+    {
+        type        label;
+        description "Upper wave number";
+    }
+
+    UOKlower
+    {
+        type        label;
+        description "Lower wave number";
+    }
+}
+
+default
+{
+    include "defaults/constant/turbulenceProperties";
+}
+
+// ************************************************************************* //

applications/solvers/DNSandLES/dnsFoam/Make/files

@@ -0,0 +1,3 @@
+dnsFoam.C
+
+EXE = $(FOAM_APPBIN)/dnsFoam

applications/solvers/DNSandLES/dnsFoam/Make/options

@@ -0,0 +1,10 @@
+EXE_INC = \
+    -I$(LIB_SRC)/finiteVolume/lnInclude \
+    -I$(LIB_SRC)/randomProcesses/lnInclude \
+    -I$(LIB_SRC)/sampling/lnInclude
+
+EXE_LIBS = \
+    -lfiniteVolume \
+    -lrandomProcesses \
+    -lsampling \
+    -lmeshTools

applications/solvers/DNSandLES/dnsFoam/createFields.H

@@ -0,0 +1,29 @@
+    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"

applications/solvers/DNSandLES/dnsFoam/dnsFoam.C

@@ -0,0 +1,129 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2007 OpenCFD Ltd.
+     \\/     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
+    dnsFoam
+
+Description
+    Direct numerical simulation solver for boxes of isotropic turbulence
+
+\*---------------------------------------------------------------------------*/
+
+#include "fvCFD.H"
+#include "Kmesh.H"
+#include "UOprocess.H"
+#include "fft.H"
+#include "calcEk.H"
+#include "graph.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+int main(int argc, char *argv[])
+{
+
+#   include "setRootCase.H"
+
+#   include "createTime.H"
+#   include "createMeshNoClear.H"
+#   include "readTransportProperties.H"
+#   include "createFields.H"
+#   include "readTurbulenceProperties.H"
+#   include "initContinuityErrs.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+    Info<< nl << "Starting time loop" << endl;
+
+    for (runTime++; !runTime.end(); runTime++)
+    {
+        Info<< "Time = " << runTime.timeName() << nl << endl;
+
+#       include "readPISOControls.H"
+
+        force.internalField() = ReImSum
+        (
+            fft::reverseTransform
+            (
+                K/(mag(K) + 1.0e-6) ^ forceGen.newField(), K.nn()
+            )
+        );
+
+#       include "globalProperties.H"
+
+        fvVectorMatrix UEqn
+        (
+            fvm::ddt(U) 
+          + fvm::div(phi, U) 
+          - fvm::laplacian(nu, U)
+         ==
+            force
+        );
+
+        solve(UEqn == -fvc::grad(p));
+
+
+        // --- PISO loop
+
+        for (int corr=1; corr<=1; corr++)
+        {
+            volScalarField rUA = 1.0/UEqn.A();
+
+            U = rUA*UEqn.H();
+            phi = (fvc::interpolate(U) & mesh.Sf()) 
+                + fvc::ddtPhiCorr(rUA, U, phi);
+
+            fvScalarMatrix pEqn
+            (
+                fvm::laplacian(rUA, p) == fvc::div(phi)
+            );
+
+            pEqn.solve();
+
+            phi -= pEqn.flux();
+
+#           include "continuityErrs.H"
+
+            U -= rUA*fvc::grad(p);
+            U.correctBoundaryConditions();
+        }
+
+        runTime.write();
+
+        if (runTime.outputTime())
+        {
+            calcEk(U, K).write(runTime.timePath()/"Ek", runTime.graphFormat());
+        }
+
+        Info<< "ExecutionTime = " << runTime.elapsedCpuTime() << " s"
+            << "  ClockTime = " << runTime.elapsedClockTime() << " s"
+            << nl << endl;
+    }
+
+    Info<< "End\n" << endl;
+
+    return(0);
+}
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/dnsFoam/globalProperties.H

@@ -0,0 +1,20 @@
+        Info<< "k("
+             << runTime.timeName()
+             << ") = "
+             << 3.0/2.0*average(magSqr(U)).value() << endl;
+
+        Info<< "epsilon("
+             << runTime.timeName()
+             << ") = "
+             << (
+                     0.5*nu*average
+                     (
+                         magSqr(fvc::grad(U) + fvc::grad(U)().T())
+                     )
+                ).value() << endl;
+
+        Info<< "U.f("
+             << runTime.timeName()
+             << ") = "
+             << 181.0*average(U & force).value() << endl;
+

applications/solvers/DNSandLES/dnsFoam/readTransportProperties.H

@@ -0,0 +1,18 @@
+    Info<< "Reading transportProperties\n" << endl;
+
+    IOdictionary transportProperties
+    (
+        IOobject
+        (
+            "transportProperties",
+            runTime.constant(),
+            mesh,
+            IOobject::MUST_READ,
+            IOobject::NO_WRITE
+        )
+    );
+
+    dimensionedScalar nu
+    (
+        transportProperties.lookup("nu")
+    );

applications/solvers/DNSandLES/dnsFoam/readTurbulenceProperties.H

@@ -0,0 +1,19 @@
+    Info<< "Reading turbulenceProperties\n" << endl;
+
+    IOdictionary turbulenceProperties
+    (
+        IOobject
+        (
+            "turbulenceProperties",
+            runTime.constant(),
+            mesh,
+            IOobject::MUST_READ,
+            IOobject::NO_WRITE
+        )
+    );
+
+    volVectorField force =
+        U/dimensionedScalar("dt", dimTime, runTime.deltaT().value());
+
+    Kmesh K(mesh);
+    UOprocess forceGen(K, runTime.deltaT().value(), turbulenceProperties);

applications/solvers/DNSandLES/oodles/FoamX/defaults/system/fvSchemes

@@ -0,0 +1,77 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+FoamFile
+{
+    version         2.0;
+    format          ascii;
+
+    root            "";
+    case            "";
+    instance        "";
+    local           "";
+
+    class           dictionary;
+    object          fvSchemes;
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+ddtSchemes
+{
+    default backward;
+}
+
+gradSchemes
+{
+    default         Gauss linear;
+    grad(p)         Gauss linear;
+    grad(U)         Gauss linear;
+}
+
+divSchemes
+{
+    default         none;
+    div(phi,U)      Gauss <>;
+    div(phi,k)      Gauss <>;
+    div(phi,B)      Gauss <>;
+    div(phi,nuTilda) Gauss <>;
+
+    div(B)          Gauss linear;
+    div((nuEff*dev(grad(U).T()))) Gauss linear;
+}
+
+laplacianSchemes
+{
+    default         none;
+    laplacian(nuEff,U) Gauss linear corrected;
+    laplacian((1|A(U)),p) Gauss linear corrected;
+    laplacian(DkEff,k) Gauss linear corrected;
+    laplacian(DBEff,B) Gauss linear corrected;
+    laplacian(DnuTildaEff,nuTilda) Gauss linear corrected;
+}
+
+interpolationSchemes
+{
+    default         linear;
+    interpolate(U)  linear;
+}
+
+snGradSchemes
+{
+    default         corrected;
+}
+
+fluxRequired
+{
+    default         no;
+    p;
+}
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/oodles/FoamX/defaults/system/fvSolution

@@ -0,0 +1,42 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+FoamFile
+{
+    version         2.0;
+    format          ascii;
+
+    root            "";
+    case            "";
+    instance        "";
+    local           "";
+
+    class           dictionary;
+    object          fvSolution;
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+solvers
+{
+    p               ICCG 1e-06 0;
+    pFinal          ICCG 1e-06 0;
+    U               BICCG 1e-05 0;
+    k               BICCG 1e-05 0;
+    B               BICCG 1e-05 0;
+    nuTilda         BICCG 1e-05 0;
+}
+
+PISO
+{
+    nCorrectors     2;
+    nNonOrthogonalCorrectors 0;
+}
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/oodles/FoamX/fvSchemes.cfg

@@ -0,0 +1,28 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+include "$FOAMX_CONFIG/dictionaries/fvSchemes/fvSchemes.cfg";
+
+entries
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/ddt/transient.cfg";
+
+    include "../../../incompressible/turbFoam/FoamX/fvSchemes/gradSchemes.cfg";
+    include "fvSchemes/divSchemes.cfg";
+    include "fvSchemes/laplacianSchemes.cfg";
+    include "../../../incompressible/turbFoam/FoamX/fvSchemes/interpolationSchemes.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/snGrad/defaultOnly.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/flux/p.cfg";
+}
+
+default
+{
+    include "defaults/system/fvSchemes";
+}
+
+// ************************************************************************* //

applications/solvers/DNSandLES/oodles/FoamX/fvSchemes/divSchemes.cfg

@@ -0,0 +1,25 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+divSchemes
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/schemes.cfg"; 
+    entries
+    {
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/default.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/phiU.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/phik.cfg";
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/phiBT.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/B.cfg";
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/phiNuTilda.cfg";
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/nuEffGradUT.cfg"; 
+    }                  
+}
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/oodles/FoamX/fvSchemes/laplacianSchemes.cfg

@@ -0,0 +1,24 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+laplacianSchemes
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/schemes.cfg"; 
+    entries
+    {
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/default.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/nuEffU.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/1AUp.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/DkEffk.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/DBEffB.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/DnuTildaEffNuTilda.cfg"; 
+    }
+}
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/oodles/FoamX/fvSolution.cfg

@@ -0,0 +1,35 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+include "$FOAMX_CONFIG/dictionaries/fvSolution/fvSolution.cfg";
+
+entries
+{
+    solvers
+    {
+        type        dictionary;
+        entries
+        {
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/pSymm.cfg";
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/pFinal.cfg";
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/U.cfg";
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/k.cfg";
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/B.cfg";
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/nuTilda.cfg";
+        }
+    }
+
+    include "$FOAMX_CONFIG/dictionaries/fvSolution/PISO.cfg";
+}
+
+default
+{
+    include "defaults/system/fvSolution";
+}
+
+// ************************************************************************* //

applications/solvers/DNSandLES/oodles/FoamX/oodles.cfg

@@ -0,0 +1,79 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+description "Incompressible large eddy simulation (LES) code";
+
+dictionaries
+{
+    include "$FOAMX_CONFIG/dictionaries/controlDict/controlDict.cfg";
+    fvSchemes;
+    fvSolution;
+    include "$FOAMX_CONFIG/dictionaries/transportProperties/singlePhaseTransportProperties.cfg";
+    include "$FOAMX_CONFIG/dictionaries/turbulenceProperties/LESmodelsIncompressible.cfg";
+}
+
+fields
+{
+    include "$FOAMX_CONFIG/entries/geometricFields/U.cfg";
+    include "$FOAMX_CONFIG/entries/geometricFields/pKinematic.cfg";
+    include "$FOAMX_CONFIG/entries/geometricFields/k.cfg";
+    include "$FOAMX_CONFIG/entries/geometricFields/nuSgs.cfg";    
+    include "$FOAMX_CONFIG/entries/geometricFields/Bkinematic.cfg";
+    include "$FOAMX_CONFIG/entries/geometricFields/nuTilda.cfg";
+}
+
+patchPhysicalTypes
+{
+    include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/patches.cfg";
+    include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/patches.cfg";
+    turbulentInlet
+    {
+        description "Turbulent inlet";
+        parentType inlet;
+    }
+}
+
+patchFieldsPhysicalTypes
+{
+    U
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/U.cfg";
+        turbulentInlet turbulentInlet;
+    }
+
+    p
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/p.cfg";
+    }
+
+    k
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/k.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/k.cfg";
+    }
+
+    nuSgs
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/nuSgs.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/nuSgs.cfg";
+    }
+
+    B
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/B.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/B.cfg";
+    }
+
+    nuTilda
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/nuTilda.cfg";
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/wallFunctions/nuTilda.cfg";
+    }
+}
+
+// ************************************************************************* //

applications/solvers/DNSandLES/oodles/Make/files

@@ -0,0 +1,3 @@
+oodles.C
+
+EXE = $(FOAM_APPBIN)/oodles

applications/solvers/DNSandLES/oodles/Make/options

@@ -0,0 +1,13 @@
+EXE_INC = \
+    -I$(LIB_SRC)/LESmodels \
+    -I$(LIB_SRC)/LESmodels/LESdeltas/lnInclude \
+    -I$(LIB_SRC)/transportModels \
+    -I$(LIB_SRC)/finiteVolume/lnInclude \
+    -I$(LIB_SRC)/meshTools/lnInclude \
+    -I$(LIB_SRC)/sampling/lnInclude
+
+EXE_LIBS = \
+    -lincompressibleLESmodels \
+    -lincompressibleTransportModels \
+    -lfiniteVolume \
+    -lmeshTools

applications/solvers/DNSandLES/oodles/calculateAverages.H

@@ -0,0 +1,14 @@
+    nAveragingSteps++;
+
+    scalar nm1Coeff = scalar(nAveragingSteps - 1)/nAveragingSteps;
+    scalar nCoeff = 1.0/nAveragingSteps;
+
+    R += sqr(Umean);
+    Umean = nm1Coeff*Umean + nCoeff*U;
+    R = nm1Coeff*R + nCoeff*sqr(U) - sqr(Umean);
+    Bmean = nm1Coeff*Bmean + nCoeff*sgsModel->B();
+    epsilonMean = nm1Coeff*epsilonMean + nCoeff*sgsModel->epsilon();
+
+    pPrime2Mean += sqr(pMean);
+    pMean = nm1Coeff*pMean + nCoeff*p;
+    pPrime2Mean = nm1Coeff*pPrime2Mean + nCoeff*sqr(p) - sqr(pMean);

applications/solvers/DNSandLES/oodles/createAverages.H

@@ -0,0 +1,234 @@
+    label nAveragingSteps = 1;
+
+    IFstream nAveragingStepsFile
+    (
+        runTime.path()/runTime.timeName()/"uniform"/"nAveragingSteps.raw"
+    );
+
+
+    autoPtr<volVectorField> UmeanPtr;
+    autoPtr<volSymmTensorField> RPtr;
+    autoPtr<volSymmTensorField> BmeanPtr;
+    autoPtr<volScalarField> epsilonMeanPtr;
+
+    autoPtr<volScalarField> pMeanPtr;
+    autoPtr<volScalarField> pPrime2MeanPtr;
+
+    if (nAveragingStepsFile.good())
+    {
+        nAveragingStepsFile >> nAveragingSteps;
+
+        Info<< "Reading field Umean\n" << endl;
+        UmeanPtr.reset
+        (
+            new volVectorField
+            (
+                IOobject
+                (
+                    "Umean",
+                    runTime.timeName(),
+                    mesh,
+                    IOobject::MUST_READ,
+                    IOobject::AUTO_WRITE
+                ),
+                mesh
+            )
+        );
+
+        Info<< "\nReading field R\n" << endl;
+        RPtr.reset
+        (
+            new volSymmTensorField
+            (
+                IOobject
+                (
+                    "R",
+                    runTime.timeName(),
+                    mesh,
+                    IOobject::MUST_READ,
+                    IOobject::AUTO_WRITE
+                ),
+                mesh
+            )
+        );
+
+        Info<< "\nReading field Bmean\n" << endl;
+        BmeanPtr.reset
+        (
+            new volSymmTensorField
+            (
+                IOobject
+                (
+                    "Bmean",
+                    runTime.timeName(),
+                    mesh,
+                    IOobject::MUST_READ,
+                    IOobject::AUTO_WRITE
+                ),
+                mesh
+            )
+        );
+
+        Info<< "\nReading field epsilonMean\n" << endl;
+        epsilonMeanPtr.reset
+        (
+            new volScalarField
+            (
+                IOobject
+                (
+                    "epsilonMean",
+                    runTime.timeName(),
+                    mesh,
+                    IOobject::MUST_READ,
+                    IOobject::AUTO_WRITE
+                ),
+                mesh
+            )
+        );
+
+        Info<< "Reading field pMean\n" << endl;
+        pMeanPtr.reset
+        (
+            new volScalarField
+            (
+                IOobject
+                (
+                    "pMean",
+                    runTime.timeName(),
+                    mesh,
+                    IOobject::MUST_READ,
+                    IOobject::AUTO_WRITE
+                ),
+                mesh
+            )
+        );
+
+        Info<< "Reading field pPrime2Mean\n" << endl;
+        pPrime2MeanPtr.reset
+        (
+            new volScalarField
+            (
+                IOobject
+                (
+                    "pPrime2Mean",
+                    runTime.timeName(),
+                    mesh,
+                    IOobject::MUST_READ,
+                    IOobject::AUTO_WRITE
+                ),
+                mesh
+            )
+        );
+    }
+    else
+    {
+        Info<< "Creating field Umean\n" << endl;
+        UmeanPtr.reset
+        (
+            new volVectorField
+            (
+                IOobject
+                (
+                    "Umean",
+                    runTime.timeName(),
+                    mesh,
+                    IOobject::NO_READ,
+                    IOobject::AUTO_WRITE
+                ),
+                U
+            )
+        );
+
+        Info<< "Creating field R\n" << endl;
+        RPtr.reset
+        (
+            new volSymmTensorField
+            (
+                IOobject
+                (
+                    "R",
+                    runTime.timeName(),
+                    mesh,
+                    IOobject::NO_READ,
+                    IOobject::AUTO_WRITE
+                ),
+                sqr(U) - sqr(UmeanPtr())
+            )
+        );
+
+        Info<< "Creating field Bmean\n" << endl;
+        BmeanPtr.reset
+        (
+            new volSymmTensorField
+            (
+                IOobject
+                (
+                    "Bmean",
+                    runTime.timeName(),
+                    mesh,
+                    IOobject::NO_READ,
+                    IOobject::AUTO_WRITE
+                ),
+                sgsModel->B()
+            )
+        );
+
+        Info<< "Creating field epsilonMean\n" << endl;
+        epsilonMeanPtr.reset
+        (
+            new volScalarField
+            (
+                IOobject
+                (
+                    "epsilonMean",
+                    runTime.timeName(),
+                    mesh,
+                    IOobject::NO_READ,
+                    IOobject::AUTO_WRITE
+                ),
+                sgsModel->epsilon()
+            )
+        );
+
+        Info<< "Creating field pMean\n" << endl;
+        pMeanPtr.reset
+        (
+            new volScalarField
+            (
+                IOobject
+                (
+                    "pMean",
+                    runTime.timeName(),
+                    mesh,
+                    IOobject::NO_READ,
+                    IOobject::AUTO_WRITE
+                ),
+                p
+            )
+        );
+
+        Info<< "Creating field pPrime2Mean\n" << endl;
+        pPrime2MeanPtr.reset
+        (
+            new volScalarField
+            (
+                IOobject
+                (
+                    "pPrime2Mean",
+                    runTime.timeName(),
+                    mesh,
+                    IOobject::NO_READ,
+                    IOobject::AUTO_WRITE
+                ),
+                sqr(p) - sqr(pMeanPtr())
+            )
+        );
+    }
+
+    volVectorField& Umean = UmeanPtr();
+    volSymmTensorField& R = RPtr();
+    volSymmTensorField& Bmean = BmeanPtr();
+    volScalarField& epsilonMean = epsilonMeanPtr();
+
+    volScalarField& pMean = pMeanPtr();
+    volScalarField& pPrime2Mean = pPrime2MeanPtr();

applications/solvers/DNSandLES/oodles/createFields.H

@@ -0,0 +1,43 @@
+    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);
+
+
+    singlePhaseTransportModel laminarTransport(U, phi);
+
+    autoPtr<LESmodel> sgsModel
+    (
+        LESmodel::New(U, phi, laminarTransport)
+    );

applications/solvers/DNSandLES/oodles/oodles.C

@@ -0,0 +1,140 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2007 OpenCFD Ltd.
+     \\/     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
+    oodles
+
+Description
+    Incompressible LES solver.
+
+\*---------------------------------------------------------------------------*/
+
+#include "fvCFD.H"
+#include "incompressible/singlePhaseTransportModel/singlePhaseTransportModel.H"
+#include "incompressible/transportModel/transportModel.H"
+#include "incompressible/LESmodel/LESmodel.H"
+#include "IFstream.H"
+#include "OFstream.H"
+#include "Random.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+int main(int argc, char *argv[])
+{
+
+#   include "setRootCase.H"
+#   include "createTime.H"
+#   include "createMeshNoClear.H"
+#   include "createFields.H"
+#   include "createAverages.H"
+#   include "initContinuityErrs.H"
+
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+    Info<< "\nStarting time loop\n" << endl;
+
+    for (runTime++; !runTime.end(); runTime++)
+    {
+        Info<< "Time = " << runTime.timeName() << nl << endl;
+
+#       include "readPISOControls.H"
+#       include "CourantNo.H"
+
+        sgsModel->correct();
+
+        fvVectorMatrix UEqn
+        (
+            fvm::ddt(U)
+          + fvm::div(phi, U)
+          + sgsModel->divDevBeff(U)
+        );
+
+        if (momentumPredictor)
+        {
+            solve(UEqn == -fvc::grad(p));
+        }
+
+
+        // --- PISO loop
+
+        for (int corr=0; corr<nCorr; corr++)
+        {
+            volScalarField rUA = 1.0/UEqn.A();
+
+            U = rUA*UEqn.H();
+            phi = (fvc::interpolate(U) & mesh.Sf())
+                + fvc::ddtPhiCorr(rUA, U, phi);
+
+            adjustPhi(phi, U, p);
+
+            for (int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
+            {
+                fvScalarMatrix pEqn
+                (
+                    fvm::laplacian(rUA, 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"
+
+            U -= rUA*fvc::grad(p);
+            U.correctBoundaryConditions();
+        }
+
+
+#       include "calculateAverages.H"
+
+        runTime.write();
+
+#       include "writeNaveragingSteps.H"
+
+        Info<< "ExecutionTime = " << runTime.elapsedCpuTime() << " s"
+            << "  ClockTime = " << runTime.elapsedClockTime() << " s"
+            << nl << endl;
+    }
+
+    Info<< "End\n" << endl;
+
+    return(0);
+}
+
+
+// ************************************************************************* //

applications/solvers/DNSandLES/oodles/writeNaveragingSteps.H

@@ -0,0 +1,18 @@
+    if (runTime.outputTime())
+    {
+        OFstream nAveragingStepsFile
+        (
+            runTime.path()/runTime.timeName()/"uniform"/"nAveragingSteps.raw"
+        );
+
+        if (nAveragingStepsFile.good())
+        {
+            nAveragingStepsFile << nAveragingSteps << endl;
+        }
+        else
+        {
+            FatalErrorIn(args.executable())
+                << "Cannot open file " << nAveragingStepsFile.name()
+                << abort(FatalError);
+        }
+    }

applications/solvers/basic/laplacianFoam/FoamX/defaults/system/fvSchemes

@@ -0,0 +1,64 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+FoamFile
+{
+    version         2.0;
+    format          ascii;
+
+    root            "";
+    case            "";
+    instance        "";
+    local           "";
+
+    class           dictionary;
+    object          fvSchemes;
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+ddtSchemes
+{
+    default Euler;
+}
+
+gradSchemes
+{
+    default         Gauss linear;
+    grad(T)         Gauss linear;
+}
+
+divSchemes
+{
+    default         none;
+}
+
+laplacianSchemes
+{
+    default         none;
+    laplacian(DT,T)  Gauss linear corrected;
+}
+
+interpolationSchemes
+{
+    default         linear;
+}
+
+snGradSchemes
+{
+    default         corrected;
+}
+
+fluxRequired
+{
+    default         no;
+    T;
+}
+
+
+// ************************************************************************* //

applications/solvers/basic/laplacianFoam/FoamX/defaults/system/fvSolution

@@ -0,0 +1,36 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+FoamFile
+{
+    version         2.0;
+    format          ascii;
+
+    root            "";
+    case            "";
+    instance        "";
+    local           "";
+
+    class           dictionary;
+    object          fvSolution;
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+solvers
+{
+    T               ICCG 1e-06 0;
+}
+
+SIMPLE
+{
+    nNonOrthogonalCorrectors 2;
+}
+
+
+// ************************************************************************* //

applications/solvers/basic/laplacianFoam/FoamX/fvSchemes.cfg

@@ -0,0 +1,29 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+include "$FOAMX_CONFIG/dictionaries/fvSchemes/fvSchemes.cfg";
+
+entries
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/ddt/transient.cfg";
+
+    include "fvSchemes/gradSchemes.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/noneOnly.cfg";
+    include "fvSchemes/laplacianSchemes.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/interpolation/defaultOnly.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/snGrad/defaultOnly.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/flux/T.cfg"
+;
+}
+
+default
+{
+    include "defaults/system/fvSchemes";
+}
+
+// ************************************************************************* //

applications/solvers/basic/laplacianFoam/FoamX/fvSchemes/gradSchemes.cfg

@@ -0,0 +1,20 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+gradSchemes
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/grad/schemes.cfg"; 
+    entries
+    {
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/grad/default.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/grad/T.cfg"; 
+    }
+}
+    
+
+// ************************************************************************* //

applications/solvers/basic/laplacianFoam/FoamX/fvSchemes/laplacianSchemes.cfg

@@ -0,0 +1,20 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+laplacianSchemes
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/schemes.cfg"; 
+    entries
+    {
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/default.cfg"; 
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/DTT.cfg";
+    }
+}
+
+
+// ************************************************************************* //

applications/solvers/basic/laplacianFoam/FoamX/fvSolution.cfg

@@ -0,0 +1,30 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+include "$FOAMX_CONFIG/dictionaries/fvSolution/fvSolution.cfg";
+
+entries
+{
+    solvers
+    {
+        type        dictionary;
+        entries
+        {
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/Tsymm.cfg";
+        }
+    }
+
+    include "$FOAMX_CONFIG/dictionaries/fvSolution/SIMPLE.cfg";
+}
+
+default
+{
+    include "defaults/system/fvSolution";
+}
+
+// ************************************************************************* //

applications/solvers/basic/laplacianFoam/FoamX/laplacianFoam.cfg

@@ -0,0 +1,52 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+description "Solves a simple Laplace equation, e.g. for thermal diffusion in a solid.";
+
+dictionaries
+{
+    include "$FOAMX_CONFIG/dictionaries/controlDict/controlDictSteady.cfg";
+    fvSchemes;
+    fvSolution;
+    transportProperties;
+}
+
+fields
+{
+    include "$FOAMX_CONFIG/entries/geometricFields/T.cfg";
+}
+
+patchPhysicalTypes
+{
+    fixedTemp
+    {
+        description "Fixed T boundary condition";
+    }
+
+    fixedFlux
+    {
+        description "Fixed heat flux boundary bondition";
+    }
+
+    adiabatic
+    {
+        description "Adiabatic boundary condition";
+    }
+}
+
+patchFieldsPhysicalTypes
+{
+    T
+    {
+        fixedTemp fixedValue;
+        fixedFlux fixedGradient;
+        adiabatic zeroGradient;
+    }
+}
+
+// ************************************************************************* //

applications/solvers/basic/laplacianFoam/FoamX/transportProperties.cfg

@@ -0,0 +1,16 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+include "$FOAMX_CONFIG/dictionaries/transportProperties/transportProperties.cfg";
+
+entries            
+{
+    include "$FOAMX_CONFIG/entries/dimensionedScalar/DT.cfg";
+}
+
+// ************************************************************************* //

applications/solvers/basic/laplacianFoam/Make/files

@@ -0,0 +1,3 @@
+laplacianFoam.C
+
+EXE = $(FOAM_APPBIN)/laplacianFoam

applications/solvers/basic/laplacianFoam/Make/options

@@ -0,0 +1,3 @@
+EXE_INC = -I$(LIB_SRC)/finiteVolume/lnInclude
+
+EXE_LIBS = -lfiniteVolume

applications/solvers/basic/laplacianFoam/createFields.H

@@ -0,0 +1,37 @@
+    Info<< "Reading field T\n" << endl;
+
+    volScalarField T
+    (
+        IOobject
+        (
+            "T",
+            runTime.timeName(),
+            mesh,
+            IOobject::MUST_READ,
+            IOobject::AUTO_WRITE
+        ),
+        mesh
+    );
+
+
+    Info<< "Reading transportProperties\n" << endl;
+
+    IOdictionary transportProperties
+    (
+        IOobject
+        (
+            "transportProperties",
+            runTime.constant(),
+            mesh,
+            IOobject::MUST_READ,
+            IOobject::NO_WRITE
+        )
+    );
+
+
+    Info<< "Reading diffusivity DT\n" << endl;
+
+    dimensionedScalar DT
+    (
+        transportProperties.lookup("DT")
+    );

applications/solvers/basic/laplacianFoam/laplacianFoam.C

@@ -0,0 +1,78 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2007 OpenCFD Ltd.
+     \\/     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
+    laplacianFoam
+
+Description
+    Solves a simple Laplace equation, e.g. for thermal diffusion in a solid.
+
+\*---------------------------------------------------------------------------*/
+
+#include "fvCFD.H"
+
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+int main(int argc, char *argv[])
+{
+
+#   include "setRootCase.H"
+
+#   include "createTime.H"
+#   include "createMesh.H"
+#   include "createFields.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+    Info<< "\nCalculating temperature distribution\n" << endl;
+
+    for (runTime++; !runTime.end(); runTime++)
+    {
+        Info<< "Time = " << runTime.timeName() << nl << endl;
+
+#       include "readSIMPLEControls.H"
+
+        for (int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
+        {
+            solve
+            (
+                fvm::ddt(T) - fvm::laplacian(DT, T)
+            );
+        }
+
+#       include "write.H"
+
+        Info<< "ExecutionTime = " << runTime.elapsedCpuTime() << " s"
+            << "  ClockTime = " << runTime.elapsedClockTime() << " s"
+            << nl << endl;
+    }
+
+    Info<< "End\n" << endl;
+
+    return(0);
+}
+
+
+// ************************************************************************* //

applications/solvers/basic/laplacianFoam/write.H

@@ -0,0 +1,46 @@
+    if (runTime.outputTime())
+    {
+        volVectorField gradT = fvc::grad(T);
+
+        volScalarField gradTx
+        (
+            IOobject
+            (
+                "gradTx",
+                runTime.timeName(),
+                mesh,
+                IOobject::NO_READ,
+                IOobject::AUTO_WRITE
+            ),
+            gradT.component(vector::X)
+        );
+
+        volScalarField gradTy
+        (
+            IOobject
+            (
+                "gradTy",
+                runTime.timeName(),
+                mesh,
+                IOobject::NO_READ,
+                IOobject::AUTO_WRITE
+            ),
+            gradT.component(vector::Y)
+        );
+
+        volScalarField gradTz
+        (
+            IOobject
+            (
+                "gradTz",
+                runTime.timeName(),
+                mesh,
+                IOobject::NO_READ,
+                IOobject::AUTO_WRITE
+            ),
+            gradT.component(vector::Z)
+        );
+
+
+        runTime.write();
+    }

applications/solvers/basic/potentialFoam/FoamX/defaults/system/fvSchemes

@@ -0,0 +1,63 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+FoamFile
+{
+    version         2.0;
+    format          ascii;
+
+    root            "";
+    case            "";
+    instance        "";
+    local           "";
+
+    class           dictionary;
+    object          fvSchemes;
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+ddtSchemes
+{
+    default steadyState;
+}
+
+gradSchemes
+{
+    default         Gauss linear;
+}
+
+divSchemes
+{
+    default         none;
+}
+
+laplacianSchemes
+{
+    default         none;
+    laplacian(1,p)  Gauss linear corrected;
+}
+
+interpolationSchemes
+{
+    default         linear;
+}
+
+snGradSchemes
+{
+    default         corrected;
+}
+
+fluxRequired
+{
+    default         no;
+    p;
+}
+
+
+// ************************************************************************* //

applications/solvers/basic/potentialFoam/FoamX/defaults/system/fvSolution

@@ -0,0 +1,36 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+FoamFile
+{
+    version         2.0;
+    format          ascii;
+
+    root            "";
+    case            "";
+    instance        "";
+    local           "";
+
+    class           dictionary;
+    object          fvSolution;
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+solvers
+{
+    p               ICCG 1e-06 0;
+}
+
+SIMPLE
+{
+    nNonOrthogonalCorrectors 3;
+}
+
+
+// ************************************************************************* //

applications/solvers/basic/potentialFoam/FoamX/fvSchemes.cfg

@@ -0,0 +1,29 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+include "$FOAMX_CONFIG/dictionaries/fvSchemes/fvSchemes.cfg";
+
+entries
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/ddt/steady.cfg";
+
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/grad/defaultOnly.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/noneOnly.cfg";
+    include "fvSchemes/laplacianSchemes.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/interpolation/defaultOnly.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/snGrad/defaultOnly.cfg";
+
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/flux/p.cfg";
+}
+
+default
+{
+    include "defaults/system/fvSchemes";
+}
+
+// ************************************************************************* //

applications/solvers/basic/potentialFoam/FoamX/fvSchemes/laplacianSchemes.cfg

@@ -0,0 +1,20 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+laplacianSchemes
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/schemes.cfg"; 
+    entries
+    {
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/default.cfg";
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/laplacian/1p.cfg"; 
+    }
+}
+
+
+// ************************************************************************* //

applications/solvers/basic/potentialFoam/FoamX/fvSolution.cfg

@@ -0,0 +1,30 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+include "$FOAMX_CONFIG/dictionaries/fvSolution/fvSolution.cfg";
+
+entries
+{
+    solvers
+    {
+        type        dictionary;
+        entries
+        {
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/pSymm.cfg";
+        }
+    }
+
+    include "$FOAMX_CONFIG/dictionaries/fvSolution/SIMPLE.cfg";
+}
+
+default
+{
+    include "defaults/system/fvSolution";
+}
+
+// ************************************************************************* //

applications/solvers/basic/potentialFoam/FoamX/potentialFoam.cfg

@@ -0,0 +1,42 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+description "Simple potential flow code.";
+
+dictionaries
+{
+    include "$FOAMX_CONFIG/dictionaries/controlDict/controlDictSteady.cfg";
+    fvSchemes;
+    fvSolution;
+}
+
+fields
+{
+    include "$FOAMX_CONFIG/entries/geometricFields/U.cfg";
+    include "$FOAMX_CONFIG/entries/geometricFields/pKinematic.cfg";
+}
+
+patchPhysicalTypes
+{
+    include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/patches.cfg";
+}
+
+patchFieldsPhysicalTypes
+{
+    U
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/U.cfg";
+    }
+
+    p
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/p.cfg";
+    }
+}
+
+// ************************************************************************* //

applications/solvers/basic/potentialFoam/Make/files

@@ -0,0 +1,3 @@
+potentialFoam.C
+
+EXE = $(FOAM_APPBIN)/potentialFoam

applications/solvers/basic/potentialFoam/Make/options

@@ -0,0 +1,4 @@
+EXE_INC = \
+    -I$(LIB_SRC)/finiteVolume/lnInclude
+
+EXE_LIBS = -lfiniteVolume

applications/solvers/basic/potentialFoam/createFields.H

@@ -0,0 +1,50 @@
+    Info<< "Reading field p\n" << endl;
+    volScalarField p
+    (
+        IOobject
+        (
+            "p",
+            runTime.timeName(),
+            mesh,
+            IOobject::MUST_READ,
+            IOobject::NO_WRITE
+        ),
+        mesh
+    );
+
+    p = dimensionedScalar("zero", p.dimensions(), 0.0);
+
+
+    Info<< "Reading field U\n" << endl;
+    volVectorField U
+    (
+        IOobject
+        (
+            "U",
+            runTime.timeName(),
+            mesh,
+            IOobject::MUST_READ,
+            IOobject::AUTO_WRITE
+        ),
+        mesh
+    );
+
+    U = dimensionedVector("0", U.dimensions(), vector::zero);
+
+    surfaceScalarField phi
+    (
+        IOobject
+        (
+            "phi",
+            runTime.timeName(),
+            mesh,
+            IOobject::NO_READ,
+            IOobject::AUTO_WRITE
+        ),
+        fvc::interpolate(U) & mesh.Sf()
+    );
+
+
+    label pRefCell = 0;
+    scalar pRefValue = 0.0;
+    setRefCell(p, mesh.solutionDict().subDict("SIMPLE"), pRefCell, pRefValue);

applications/solvers/basic/potentialFoam/potentialFoam.C

@@ -0,0 +1,115 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2007 OpenCFD Ltd.
+     \\/     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
+    potentialFoam
+
+Description
+    Simple potential flow solver which can be used to generate starting fields
+    for full Navier-Stokes codes.
+
+\*---------------------------------------------------------------------------*/
+
+#include "fvCFD.H"
+
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+int main(int argc, char *argv[])
+{
+
+    argList::validOptions.insert("writep", "");
+
+#   include "setRootCase.H"
+
+#   include "createTime.H"
+#   include "createMesh.H"
+#   include "createFields.H"
+#   include "readSIMPLEControls.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+    Info<< nl << "Calculating potential flow" << endl;
+
+    adjustPhi(phi, U, p);
+
+    for (int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
+    {
+        fvScalarMatrix pEqn
+        (
+            fvm::laplacian
+            (
+                dimensionedScalar
+                (
+                    "1",
+                    dimTime/p.dimensions()*dimensionSet(0, 2, -2, 0, 0),
+                    1
+                ),
+                p
+            )
+         ==
+            fvc::div(phi)
+        );
+
+        pEqn.setReference(pRefCell, pRefValue);
+        pEqn.solve();
+
+        if (nonOrth == nNonOrthCorr)
+        {
+            phi -= pEqn.flux();
+        }
+    }
+
+    Info<< "continuity error = "
+        << mag(fvc::div(phi))().weightedAverage(mesh.V()).value()
+        << endl;
+
+    U = fvc::reconstruct(phi);
+    U.correctBoundaryConditions();
+
+    Info<< "Interpolated U error = "
+        << (sqrt(sum(sqr((fvc::interpolate(U) & mesh.Sf()) - phi)))
+          /sum(mesh.magSf())).value()
+        << endl;
+
+    // Force the write
+    U.write();
+    phi.write();
+
+    if (args.options().found("writep"))
+    {
+        p.write();
+    }
+
+    Info<< "ExecutionTime = " << runTime.elapsedCpuTime() << " s"
+        << "  ClockTime = " << runTime.elapsedClockTime() << " s"
+        << nl << endl;
+
+    Info<< "End\n" << endl;
+
+    return(0);
+}
+
+
+// ************************************************************************* //

applications/solvers/basic/scalarTransportFoam/FoamX/defaults/system/fvSchemes

@@ -0,0 +1,64 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+FoamFile
+{
+    version         2.0;
+    format          ascii;
+
+    root            "";
+    case            "";
+    instance        "";
+    local           "";
+
+    class           dictionary;
+    object          fvSchemes;
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+ddtSchemes
+{
+    default Euler;
+}
+
+gradSchemes
+{
+    default         Gauss linear;
+}
+
+divSchemes
+{
+    default         none;
+    div(phi,T)      Gauss <>;
+}
+
+laplacianSchemes
+{
+    default         none;
+    laplacian(DT,T) Gauss linear corrected;
+}
+
+interpolationSchemes
+{
+    default         linear;
+}
+
+snGradSchemes
+{
+    default         corrected;
+}
+
+fluxRequired
+{
+    default         no;
+    T;
+}
+
+
+// ************************************************************************* //

applications/solvers/basic/scalarTransportFoam/FoamX/defaults/system/fvSolution

@@ -0,0 +1,36 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+FoamFile
+{
+    version         2.0;
+    format          ascii;
+
+    root            "";
+    case            "";
+    instance        "";
+    local           "";
+
+    class           dictionary;
+    object          fvSolution;
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+solvers
+{
+    T           BICCG 1e-06 0;
+}
+
+SIMPLE
+{
+    nNonOrthogonalCorrectors 0;
+}
+
+
+// ************************************************************************* //

applications/solvers/basic/scalarTransportFoam/FoamX/fvSchemes.cfg

@@ -0,0 +1,28 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+include "$FOAMX_CONFIG/dictionaries/fvSchemes/fvSchemes.cfg";
+
+entries
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/ddt/transient.cfg";
+
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/grad/defaultOnly.cfg";
+    include "fvSchemes/divSchemes.cfg";
+    include "../../laplacianFoam/FoamX/fvSchemes/laplacianSchemes.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/interpolation/defaultOnly.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/snGrad/defaultOnly.cfg";
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/flux/T.cfg";
+}
+
+default
+{
+    include "defaults/system/fvSchemes";
+}
+
+// ************************************************************************* //

applications/solvers/basic/scalarTransportFoam/FoamX/fvSchemes/divSchemes.cfg

@@ -0,0 +1,20 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+divSchemes
+{
+    include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/schemes.cfg"; 
+    entries
+    {
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/default.cfg";
+        include "$FOAMX_CONFIG/dictionaries/fvSchemes/div/phiT.cfg";
+    }                  
+}
+
+
+// ************************************************************************* //

applications/solvers/basic/scalarTransportFoam/FoamX/fvSolution.cfg

@@ -0,0 +1,30 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+include "$FOAMX_CONFIG/dictionaries/fvSolution/fvSolution.cfg";
+
+entries
+{
+    solvers
+    {
+        type        dictionary;
+        entries
+        {
+            include "$FOAMX_CONFIG/dictionaries/fvSolution/solvers/T.cfg";
+        }
+    }
+
+    include "$FOAMX_CONFIG/dictionaries/fvSolution/SIMPLE.cfg";
+}
+
+default
+{
+    include "defaults/system/fvSolution";
+}
+
+// ************************************************************************* //

applications/solvers/basic/scalarTransportFoam/FoamX/scalarTransportFoam.cfg

@@ -0,0 +1,44 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+description "Simple scalar transport flow code.";
+
+dictionaries
+{
+    include "$FOAMX_CONFIG/dictionaries/controlDict/controlDict.cfg";
+    fvSchemes;
+    fvSolution;
+    transportProperties;
+}
+
+fields
+{
+    include "$FOAMX_CONFIG/entries/geometricFields/U.cfg";
+    include "$FOAMX_CONFIG/entries/geometricFields/T.cfg";
+}
+
+patchPhysicalTypes
+{
+    include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/patches.cfg";
+    include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/thermal/patches.cfg";
+}
+
+patchFieldsPhysicalTypes
+{
+    U
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/U.cfg";
+    }
+
+    T
+    {
+        include "$FOAMX_CONFIG/entries/patchPhysicalTypes/standard/thermal/T.cfg";
+    }
+}
+
+// ************************************************************************* //

applications/solvers/basic/scalarTransportFoam/FoamX/transportProperties.cfg

@@ -0,0 +1,16 @@
+/*---------------------------------------------------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  1.4                                   |
+|   \\  /    A nd           | Web:      http://www.openfoam.org               |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+
+include "$FOAMX_CONFIG/dictionaries/transportProperties/transportProperties.cfg";
+
+entries            
+{
+    include "$FOAMX_CONFIG/entries/dimensionedScalar/DT.cfg";
+}
+
+// ************************************************************************* //

applications/solvers/basic/scalarTransportFoam/Make/files

@@ -0,0 +1,3 @@
+scalarTransportFoam.C
+
+EXE = $(FOAM_APPBIN)/scalarTransportFoam

applications/solvers/basic/scalarTransportFoam/Make/options

@@ -0,0 +1,4 @@
+EXE_INC = \
+    -I$(LIB_SRC)/finiteVolume/lnInclude
+
+EXE_LIBS = -lfiniteVolume

applications/solvers/basic/scalarTransportFoam/createFields.H

@@ -0,0 +1,55 @@
+    Info<< "Reading field T\n" << endl;
+
+    volScalarField T
+    (
+        IOobject
+        (
+            "T",
+            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
+    );
+
+
+    Info<< "Reading transportProperties\n" << endl;
+
+    IOdictionary transportProperties
+    (
+        IOobject
+        (
+            "transportProperties",
+            runTime.constant(),
+            mesh,
+            IOobject::MUST_READ,
+            IOobject::NO_WRITE
+        )
+    );
+
+
+    Info<< "Reading diffusivity D\n" << endl;
+
+    dimensionedScalar DT
+    (
+        transportProperties.lookup("DT")
+    );
+
+#   include "createPhi.H"

applications/solvers/basic/scalarTransportFoam/scalarTransportFoam.C

@@ -0,0 +1,78 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2007 OpenCFD Ltd.
+     \\/     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
+    scalarTransportFoam
+
+Description
+    Solves a transport equation for a passive scalar
+
+\*---------------------------------------------------------------------------*/
+
+#include "fvCFD.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+int main(int argc, char *argv[])
+{
+
+#   include "setRootCase.H"
+
+#   include "createTime.H"
+#   include "createMesh.H"
+#   include "createFields.H"
+
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+    Info<< "\nCalculating scalar transport\n" << endl;
+
+#   include "CourantNo.H"
+
+    for (runTime++; !runTime.end(); runTime++)
+    {
+        Info<< "Time = " << runTime.timeName() << nl << endl;
+
+#       include "readSIMPLEControls.H"
+
+        for (int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
+        {
+            solve
+            (
+                fvm::ddt(T)
+              + fvm::div(phi, T)
+              - fvm::laplacian(DT, T)
+            );
+        }
+
+        runTime.write();
+    }
+
+    Info<< "End\n" << endl;
+
+    return(0);
+}
+
+
+// ************************************************************************* //

applications/solvers/combustion/PDRFoam/Make/files

@@ -0,0 +1,32 @@
+XiModels/XiModel/XiModel.C
+XiModels/XiModel/newXiModel.C
+XiModels/fixed/fixed.C
+XiModels/algebraic/algebraic.C
+XiModels/transport/transport.C
+
+XiModels/XiEqModels/XiEqModel/XiEqModel.C
+XiModels/XiEqModels/XiEqModel/newXiEqModel.C
+XiModels/XiEqModels/Gulder/Gulder.C
+XiModels/XiEqModels/instabilityXiEq/instabilityXiEq.C
+XiModels/XiEqModels/SCOPEBlendXiEq/SCOPEBlendXiEq.C
+XiModels/XiEqModels/SCOPEXiEq/SCOPEXiEq.C
+
+XiModels/XiGModels/XiGModel/XiGModel.C
+XiModels/XiGModels/XiGModel/newXiGModel.C
+XiModels/XiGModels/KTS/KTS.C
+XiModels/XiGModels/instabilityG/instabilityG.C
+
+PDRModels/turbulence/PDRkEpsilon/PDRkEpsilon.C
+
+PDRModels/dragModels/PDRDragModel/PDRDragModel.C
+PDRModels/dragModels/PDRDragModel/newPDRDragModel.C
+PDRModels/dragModels/basic/basic.C
+
+PDRModels/XiEqModels/basicXiSubXiEq/basicXiSubXiEq.C
+PDRModels/XiGModels/basicXiSubG/basicXiSubG.C
+
+laminarFlameSpeed/SCOPE/SCOPELaminarFlameSpeed.C
+
+PDRFoam.C
+
+EXE = $(FOAM_USER_APPBIN)/PDRFoam

applications/solvers/combustion/PDRFoam/Make/options

@@ -0,0 +1,29 @@
+EXE_INC = \
+    -IXiModels/XiModel \
+    -IXiModels/XiEqModels/XiEqModel \
+    -IXiModels/XiGModels/XiGModel \
+    -IPDRModels/dragModels/PDRDragModel \
+    -IlaminarFlameSpeed/SCOPE \
+    -I$(LIB_SRC)/engine/lnInclude \
+    -I$(LIB_SRC)/sampling/lnInclude \
+    -I$(LIB_SRC)/thermophysicalModels/specie/lnInclude \
+    -I$(LIB_SRC)/thermophysicalModels/basic/lnInclude \
+    -I$(LIB_SRC)/thermophysicalModels/combustion/lnInclude \
+    -I$(LIB_SRC)/turbulenceModels/compressible/lnInclude \
+    -I$(LIB_SRC)/thermophysicalModels/laminarFlameSpeed/lnInclude \
+    -I$(LIB_SRC)/finiteVolume/lnInclude \
+    -I$(LIB_SRC)/dynamicFvMesh/lnInclude \
+    -I$(LIB_SRC)/dynamicMesh/lnInclude \
+    -I$(LIB_SRC)/meshTools/lnInclude \
+    -I$(LIB_SRC)/triSurface/lnInclude
+
+EXE_LIBS = \
+    -lengine \
+    -lmeshTools \
+    -lcompressibleTurbulenceModels \
+    -lbasicThermophysicalModels \
+    -lcombustionThermophysicalModels \
+    -lspecie \
+    -llaminarFlameSpeedModels \
+    -lfiniteVolume \
+    -ldynamicFvMesh

applications/solvers/combustion/PDRFoam/PDRFoam.C

@@ -0,0 +1,137 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2007 OpenCFD Ltd.
+     \\/     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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+Application
+    PDRFoam
+
+Description
+    Compressible premixed/partially-premixed combustion solver with turbulence
+    modelling.
+
+    Combusting RANS code using the b-Xi two-equation model.
+    Xi may be obtained by either the solution of the Xi transport
+    equation or from an algebraic exression.  Both approaches are
+    based on Gulder's flame speed correlation which has been shown
+    to be appropriate by comparison with the results from the
+    spectral model.
+
+    Strain effects are encorporated directly into the Xi equation
+    but not in the algebraic approximation.  Further work need to be
+    done on this issue, particularly regarding the enhanced removal rate
+    caused by flame compression.  Analysis using results of the spectral
+    model will be required.
+
+    For cases involving very lean Propane flames or other flames which are
+    very strain-sensitive, a transport equation for the laminar flame
+    speed is present.  This equation is derived using heuristic arguments
+    involving the strain time scale and the strain-rate at extinction.
+    the transport velocity is the same as that for the Xi equation.
+
+    For large flames e.g. explosions additional modelling for the flame
+    wrinkling due to surface instabilities may be applied.
+
+    PDR (porosity/distributed resistance) modelling is included to handle
+    regions containing blockages which cannot be resolved by the mesh.
+
+\*---------------------------------------------------------------------------*/
+
+#include "fvCFD.H"
+#include "hhuCombustionThermo.H"
+#include "turbulenceModel.H"
+#include "laminarFlameSpeed.H"
+#include "XiModel.H"
+#include "PDRDragModel.H"
+#include "ignition.H"
+#include "Switch.H"
+#include "bound.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+int main(int argc, char *argv[])
+{
+#   include "setRootCase.H"
+
+#   include "createTime.H"
+#   include "createMesh.H"
+#   include "readCombustionProperties.H"
+#   include "readEnvironmentalProperties.H"
+#   include "createFields.H"
+#   include "readPISOControls.H"
+#   include "initContinuityErrs.H"
+#   include "readTimeControls.H"
+#   include "CourantNo.H"
+#   include "setInitialDeltaT.H"
+
+scalar StCoNum = 0.0;
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+    Info<< "\nStarting time loop\n" << endl;
+
+    while (runTime.run())
+    {
+#       include "readTimeControls.H"
+#       include "readPISOControls.H"
+#       include "CourantNo.H"
+#       include "setDeltaT.H"
+
+        runTime++;
+
+        Info<< "\n\nTime = " << runTime.timeName() << endl;
+
+#       include "rhoEqn.H"
+#       include "UEqn.H"
+
+        // --- PISO loop
+        for (int corr=1; corr<=nCorr; corr++)
+        {
+#           include "bEqn.H"
+#           include "ftEqn.H"
+#           include "huEqn.H"
+#           include "hEqn.H"
+
+            if (!ign.ignited())
+            {
+                hu == h;
+            }
+
+#           include "pEqn.H"
+        }
+
+        turbulence->correct();
+
+        runTime.write();
+
+        Info<< "\nExecutionTime = "
+             << runTime.elapsedCpuTime()
+             << " s\n" << endl;
+    }
+
+    Info<< "\n end\n";
+
+    return(0);
+}
+
+
+// ************************************************************************* //

applications/solvers/combustion/PDRFoam/PDRFoamAutoRefine.C

@@ -0,0 +1,201 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2007 OpenCFD Ltd.
+     \\/     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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+Application
+    PDRFoam
+
+Description
+    Compressible premixed/partially-premixed combustion solver with turbulence 
+    modelling.
+
+    Combusting RANS code using the b-Xi two-equation model.
+    Xi may be obtained by either the solution of the Xi transport
+    equation or from an algebraic exression.  Both approaches are
+    based on Gulder's flame speed correlation which has been shown
+    to be appropriate by comparison with the results from the
+    spectral model.
+
+    Strain effects are encorporated directly into the Xi equation
+    but not in the algebraic approximation.  Further work need to be
+    done on this issue, particularly regarding the enhanced removal rate
+    caused by flame compression.  Analysis using results of the spectral
+    model will be required.
+
+    For cases involving very lean Propane flames or other flames which are
+    very strain-sensitive, a transport equation for the laminar flame
+    speed is present.  This equation is derived using heuristic arguments
+    involving the strain time scale and the strain-rate at extinction.
+    the transport velocity is the same as that for the Xi equation.
+
+    For large flames e.g. explosions additional modelling for the flame
+    wrinkling due to surface instabilities may be applied.
+
+    PDR (porosity/distributed resistance) modelling is included to handle
+    regions containing blockages which cannot be resolved by the mesh.
+
+\*---------------------------------------------------------------------------*/
+
+#include "fvCFD.H"
+#include "dynamicFvMesh.H"
+#include "hhuCombustionThermo.H"
+#include "turbulenceModel.H"
+#include "laminarFlameSpeed.H"
+#include "XiModel.H"
+#include "PDRDragModel.H"
+#include "ignition.H"
+#include "Switch.H"
+#include "bound.H"
+#include "dynamicRefineFvMesh.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+int main(int argc, char *argv[])
+{
+#   include "setRootCase.H"
+
+#   include "createTime.H"
+#   include "createDynamicFvMesh.H"
+#   include "readCombustionProperties.H"
+#   include "readEnvironmentalProperties.H"
+#   include "createFields.H"
+#   include "readPISOControls.H"
+#   include "initContinuityErrs.H"
+#   include "readTimeControls.H"
+#   include "setInitialDeltaT.H"
+
+scalar StCoNum = 0.0;
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+    Info<< "\nStarting time loop\n" << endl;
+
+    while (runTime.run())
+    {
+#       include "readTimeControls.H"
+#       include "readPISOControls.H"
+#       include "CourantNo.H"
+
+#       include "setDeltaT.H"
+
+        runTime++;
+
+        Info<< "\n\nTime = " << runTime.timeName() << endl;
+
+        // Indicators for refinement. Note: before runTime++
+        // only for postprocessing reasons.
+        tmp<volScalarField> tmagGradP = mag(fvc::grad(p));
+        volScalarField normalisedGradP
+        (
+            "normalisedGradP",
+            tmagGradP()/max(tmagGradP())
+        );
+        normalisedGradP.writeOpt() = IOobject::AUTO_WRITE;
+        tmagGradP.clear();
+
+        bool meshChanged = false;
+        {
+            // Make the fluxes absolute
+            fvc::makeAbsolute(phi, rho, U);
+
+            // Test : disable refinement for some cells
+            PackedList<1>& protectedCell =
+                refCast<dynamicRefineFvMesh>(mesh).protectedCell();
+            if (protectedCell.size() == 0)
+            {
+                protectedCell.setSize(mesh.nCells());
+                protectedCell = 0;
+            }
+
+            forAll(betav, cellI)
+            {
+                if (betav[cellI] < 0.99)
+                {
+                    protectedCell[cellI] = 1;
+                }
+            }
+
+            //volScalarField pIndicator("pIndicator", 
+            //    p*(fvc::laplacian(p))
+            //  / (
+            //        magSqr(fvc::grad(p))
+            //      + dimensionedScalar
+            //        (
+            //            "smallish",
+            //            sqr(p.dimensions()/dimLength),
+            //            1E-6
+            //        )
+            //    ));
+            //pIndicator.writeOpt() = IOobject::AUTO_WRITE;
+
+            // Flux estimate for introduced faces.
+            volVectorField rhoU("rhoU", rho*U);
+
+            // Do any mesh changes
+            meshChanged = mesh.update();
+
+//        if (mesh.moving() || meshChanged)
+//        {
+//#           include "correctPhi.H"
+//        }
+
+            // Make the fluxes relative to the mesh motion
+            fvc::makeRelative(phi, rho, U);
+        }
+
+
+#       include "rhoEqn.H"
+#       include "UEqn.H"
+
+        // --- PISO loop
+        for (int corr=1; corr<=nCorr; corr++)
+        {
+#           include "bEqn.H"
+#           include "ftEqn.H"
+#           include "huEqn.H"
+#           include "hEqn.H"
+
+            if (!ign.ignited())
+            {
+                hu == h;
+            }
+
+#           include "pEqn.H"
+        }
+
+        turbulence->correct();
+
+        runTime.write();
+
+        Info<< "\nExecutionTime = "
+             << runTime.elapsedCpuTime()
+             << " s\n" << endl;
+    }
+
+    Info<< "\n end\n";
+
+    return(0);
+}
+
+
+// ************************************************************************* //

applications/solvers/combustion/PDRFoam/PDRModels/XiEqModels/basicXiSubXiEq/basicXiSubXiEq.C

@@ -0,0 +1,154 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2007 OpenCFD Ltd.
+     \\/     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
+
+\*---------------------------------------------------------------------------*/
+
+#include "basicXiSubXiEq.H"
+#include "addToRunTimeSelectionTable.H"
+
+// * * * * * * * * * * * * * * Static Data Members * * * * * * * * * * * * * //
+
+namespace Foam
+{
+namespace XiEqModels
+{
+    defineTypeNameAndDebug(basicSubGrid, 0);
+    addToRunTimeSelectionTable(XiEqModel, basicSubGrid, dictionary);
+};
+};
+
+
+// * * * * * * * * * * * * * * * * Constructors  * * * * * * * * * * * * * * //
+
+Foam::XiEqModels::basicSubGrid::basicSubGrid
+(
+    const dictionary& XiEqProperties,
+    const hhuCombustionThermo& thermo,
+    const compressible::turbulenceModel& turbulence,
+    const volScalarField& Su
+)
+:
+    XiEqModel(XiEqProperties, thermo, turbulence, Su),
+
+    N_
+    (
+        IOobject
+        (
+            "N",
+            Su.mesh().time().findInstance(polyMesh::meshSubDir, "N"),
+            polyMesh::meshSubDir,
+            Su.mesh(),
+            IOobject::MUST_READ,
+            IOobject::NO_WRITE
+        ),
+        Su.mesh()
+    ),
+
+    ns_
+    (
+        IOobject
+        (
+            "ns",
+            Su.mesh().time().findInstance(polyMesh::meshSubDir, "ns"),
+            polyMesh::meshSubDir,
+            Su.mesh(),
+            IOobject::MUST_READ,
+            IOobject::NO_WRITE
+        ),
+        Su.mesh()
+    ),
+
+    B_
+    (
+        IOobject
+        (
+            "B",
+            Su.mesh().time().findInstance(polyMesh::meshSubDir, "B"),
+            polyMesh::meshSubDir,
+            Su.mesh(),
+            IOobject::MUST_READ,
+            IOobject::NO_WRITE
+        ),
+        Su.mesh()
+    ),
+
+    Lobs_
+    (
+        IOobject
+        (
+            "Lobs",
+            Su.mesh().time().findInstance(polyMesh::meshSubDir, "Lobs"),
+            polyMesh::meshSubDir,
+            Su.mesh(),
+            IOobject::MUST_READ,
+            IOobject::NO_WRITE
+        ),
+        Su.mesh()
+    ),
+
+    XiEqModel_(XiEqModel::New(XiEqModelCoeffs_, thermo, turbulence, Su))
+{}
+
+
+// * * * * * * * * * * * * * * * * Destructors * * * * * * * * * * * * * * * //
+
+Foam::XiEqModels::basicSubGrid::~basicSubGrid()
+{}
+
+
+// * * * * * * * * * * * * * * Member Functions  * * * * * * * * * * * * * * //
+
+Foam::tmp<Foam::volScalarField> Foam::XiEqModels::basicSubGrid::XiEq() const
+{
+    const objectRegistry& db = Su_.db();
+    const volVectorField& U = db.lookupObject<volVectorField>("U");
+
+    volScalarField magU = mag(U);
+    volVectorField Uhat =
+    U/(mag(U) + dimensionedScalar("Usmall", U.dimensions(), 1e-4));
+
+    volScalarField n = max(N_ - (Uhat & ns_ & Uhat), scalar(1e-4));
+
+    volScalarField b = (Uhat & B_ & Uhat)/n;
+
+    volScalarField up = sqrt((2.0/3.0)*turbulence_.k());
+
+    volScalarField XiSubEq =
+        scalar(1)
+      + max(2.2*sqrt(b), min(0.34*magU/up, scalar(1.6)))
+       *min(0.25*n, scalar(1));
+
+    return XiSubEq*XiEqModel_->XiEq();
+}
+
+
+bool Foam::XiEqModels::basicSubGrid::read(const dictionary& XiEqProperties)
+{
+    XiEqModel::read(XiEqProperties);
+
+    return XiEqModel_->read(XiEqModelCoeffs_);
+}
+
+
+// ************************************************************************* //

applications/solvers/combustion/PDRFoam/PDRModels/XiEqModels/basicXiSubXiEq/basicXiSubXiEq.H

@@ -0,0 +1,126 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2007 OpenCFD Ltd.
+     \\/     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
+
+Class
+    basicSubGrid
+
+Description
+    Basic sub-grid obstacle flame-wrinking enhancement factor model.
+    Details supplied by J Puttock 2/7/06.
+
+SourceFiles
+    basicSubGrid.C
+
+\*---------------------------------------------------------------------------*/
+
+#ifndef basicSubGrid_H
+#define basicSubGrid_H
+
+#include "XiEqModel.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+namespace Foam
+{
+namespace XiEqModels
+{
+
+/*---------------------------------------------------------------------------*\
+                          Class basicSubGrid Declaration
+\*---------------------------------------------------------------------------*/
+
+class basicSubGrid
+:
+    public XiEqModel
+{
+    // Private data
+
+        //- Count
+        volScalarField N_;
+
+        //- Sub-count
+        volSymmTensorField ns_;
+
+        //- tblock
+        volSymmTensorField B_;
+
+        //- Typical obstacle diameters per cell
+        volScalarField Lobs_;
+
+        //- Equilibrium Xi model due to turbulence
+        autoPtr<XiEqModel> XiEqModel_;
+
+
+    // Private Member Functions
+
+        //- Disallow copy construct
+        basicSubGrid(const basicSubGrid&);
+
+        //- Disallow default bitwise assignment
+        void operator=(const basicSubGrid&);
+
+
+public:
+
+    //- Runtime type information
+    TypeName("basicSubGrid");
+
+
+    // Constructors
+
+        //- Construct from components
+        basicSubGrid
+        (
+            const dictionary& XiEqProperties,
+            const hhuCombustionThermo& thermo,
+            const compressible::turbulenceModel& turbulence,
+            const volScalarField& Su
+        );
+
+
+    // Destructor
+
+        virtual ~basicSubGrid();
+
+
+    // Member Functions
+
+        //- Return the flame-wrinking XiEq
+        virtual tmp<volScalarField> XiEq() const;
+
+        //- Update properties from given dictionary
+        virtual bool read(const dictionary& XiEqProperties);
+};
+
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+} // End namespace XiEqModels
+} // End namespace Foam
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+#endif
+
+// ************************************************************************* //

applications/solvers/combustion/PDRFoam/PDRModels/XiGModels/basicXiSubG/basicXiSubG.C

@@ -0,0 +1,111 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2007 OpenCFD Ltd.
+     \\/     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
+
+\*---------------------------------------------------------------------------*/
+
+#include "basicXiSubG.H"
+#include "addToRunTimeSelectionTable.H"
+
+// * * * * * * * * * * * * * * Static Data Members * * * * * * * * * * * * * //
+
+namespace Foam
+{
+namespace XiGModels
+{
+    defineTypeNameAndDebug(basicSubGrid, 0);
+    addToRunTimeSelectionTable(XiGModel, basicSubGrid, dictionary);
+};
+};
+
+
+// * * * * * * * * * * * * * * * * Constructors  * * * * * * * * * * * * * * //
+
+Foam::XiGModels::basicSubGrid::basicSubGrid
+(
+    const dictionary& XiGProperties,
+    const hhuCombustionThermo& thermo,
+    const compressible::turbulenceModel& turbulence,
+    const volScalarField& Su
+)
+:
+    XiGModel(XiGProperties, thermo, turbulence, Su),
+    k1(readScalar(XiGModelCoeffs_.lookup("k1"))),
+    XiGModel_(XiGModel::New(XiGModelCoeffs_, thermo, turbulence, Su))
+{}
+
+
+// * * * * * * * * * * * * * * * * Destructors * * * * * * * * * * * * * * * //
+
+Foam::XiGModels::basicSubGrid::~basicSubGrid()
+{}
+
+
+// * * * * * * * * * * * * * * Member Functions  * * * * * * * * * * * * * * //
+
+Foam::tmp<Foam::volScalarField> Foam::XiGModels::basicSubGrid::G() const
+{
+    const objectRegistry& db = Su_.db();
+    const volVectorField& U = db.lookupObject<volVectorField>("U");
+    const volScalarField& N = db.lookupObject<volScalarField>("N");
+    const volScalarField& Lobs = db.lookupObject<volScalarField>("Lobs");
+
+    tmp<volScalarField> tGtot = XiGModel_->G();
+    volScalarField& Gtot = tGtot();
+
+    forAll(N, celli)
+    {
+        if (N[celli] > 1e-3)
+        {
+            Gtot[celli] += k1*mag(U[celli])/Lobs[celli];
+        }
+    }
+
+    return tGtot;
+}
+
+
+Foam::tmp<Foam::volScalarField> Foam::XiGModels::basicSubGrid::Db() const
+{
+    const objectRegistry& db = Su_.db();
+    const volScalarField& Xi = db.lookupObject<volScalarField>("Xi");
+    const volScalarField& rho = db.lookupObject<volScalarField>("rho");
+    const volScalarField& mgb = db.lookupObject<volScalarField>("mgb");
+    const volScalarField& Lobs = db.lookupObject<volScalarField>("Lobs");
+
+    return XiGModel_->Db()
+        + rho*Su_*(Xi - 1.0)*mgb*(0.5*Lobs)*Lobs/(mgb*Lobs + 1.0);
+}
+
+
+bool Foam::XiGModels::basicSubGrid::read(const dictionary& XiGProperties)
+{
+    XiGModel::read(XiGProperties);
+
+    XiGModelCoeffs_.lookup("k1") >> k1;
+
+    return true;
+}
+
+
+// ************************************************************************* //

applications/solvers/combustion/PDRFoam/PDRModels/XiGModels/basicXiSubG/basicXiSubG.H

@@ -0,0 +1,120 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2007 OpenCFD Ltd.
+     \\/     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
+
+Class
+    basicSubGrid
+
+Description
+    Basic sub-grid obstacle flame-wrinking generation rate coefficient model.
+    Details supplied by J Puttock 2/7/06.
+
+SourceFiles
+    basicSubGrid.C
+
+\*---------------------------------------------------------------------------*/
+
+#ifndef basicSubGrid_H
+#define basicSubGrid_H
+
+#include "XiGModel.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+namespace Foam
+{
+namespace XiGModels
+{
+
+/*---------------------------------------------------------------------------*\
+                          Class basicSubGrid Declaration
+\*---------------------------------------------------------------------------*/
+
+class basicSubGrid
+:
+    public XiGModel
+{
+    // Private data
+
+        //- Sub-grid generation rate coefficient
+        scalar k1;
+
+        //- Xi generation rate model due to turbulence
+        autoPtr<XiGModel> XiGModel_;
+
+
+    // Private Member Functions
+
+        //- Disallow copy construct
+        basicSubGrid(const basicSubGrid&);
+
+        //- Disallow default bitwise assignment
+        void operator=(const basicSubGrid&);
+
+
+public:
+
+    //- Runtime type information
+    TypeName("basicSubGridG");
+
+
+    // Constructors
+
+        //- Construct from components
+        basicSubGrid
+        (
+            const dictionary& XiGProperties,
+            const hhuCombustionThermo& thermo,
+            const compressible::turbulenceModel& turbulence,
+            const volScalarField& Su
+        );
+
+
+    // Destructor
+
+        virtual ~basicSubGrid();
+
+
+    // Member Functions
+
+        //- Return the flame-wrinking generation rate
+        virtual tmp<volScalarField> G() const;
+
+        //- Return the flame diffusivity
+        virtual tmp<volScalarField> Db() const;
+
+        //- Update properties from given dictionary
+        virtual bool read(const dictionary& XiGProperties);
+};
+
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+} // End namespace XiGModels
+} // End namespace Foam
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+#endif
+
+// ************************************************************************* //

applications/solvers/combustion/PDRFoam/PDRModels/dragModels/PDRDragModel/PDRDragModel.C

@@ -0,0 +1,91 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2007 OpenCFD Ltd.
+     \\/     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
+
+\*---------------------------------------------------------------------------*/
+
+#include "PDRDragModel.H"
+
+// * * * * * * * * * * * * * * Static Data Members * * * * * * * * * * * * * //
+
+namespace Foam
+{
+    defineTypeNameAndDebug(PDRDragModel, 0);
+    defineRunTimeSelectionTable(PDRDragModel, dictionary);
+};
+
+
+// * * * * * * * * * * * * * * * * Constructors  * * * * * * * * * * * * * * //
+
+Foam::PDRDragModel::PDRDragModel
+(
+    const dictionary& PDRProperties,
+    const compressible::turbulenceModel& turbulence,
+    const volScalarField& rho,
+    const volVectorField& U,
+    const surfaceScalarField& phi
+)
+:
+    regIOobject
+    (
+        IOobject
+        (
+            "PDRDragModel",
+            U.time().constant(),
+            U.db()
+        )
+    ),
+    PDRDragModelCoeffs_
+    (
+        PDRProperties.subDict
+        (
+            word(PDRProperties.lookup("PDRDragModel")) + "Coeffs"
+        )
+    ),
+    turbulence_(turbulence),
+    rho_(rho),
+    U_(U),
+    phi_(phi),
+    on_(PDRDragModelCoeffs_.lookup("drag"))
+{}
+
+
+// * * * * * * * * * * * * * * * * Destructors * * * * * * * * * * * * * * * //
+
+Foam::PDRDragModel::~PDRDragModel()
+{}
+
+
+// * * * * * * * * * * * * * * Member Functions  * * * * * * * * * * * * * * //
+
+bool Foam::PDRDragModel::read(const dictionary& PDRProperties)
+{
+    PDRDragModelCoeffs_ = PDRProperties.subDict(type() + "Coeffs");
+
+    PDRDragModelCoeffs_.lookup("PDRDragModel") >> on_;
+
+    return true;
+}
+
+
+// ************************************************************************* //