applications/solvers/combustion/PDRFoam/PDRFoamAutoRefine.C

   1 /*---------------------------------------------------------------------------*\
   2   =========                 |
   3   \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
   4    \\    /   O peration     |
   5     \\  /    A nd           | Copyright (C) 1991-2010 OpenCFD Ltd.
   6      \\/     M anipulation  |
   7 -------------------------------------------------------------------------------
   8 License
   9     This file is part of OpenFOAM.
  10
  11     OpenFOAM is free software: you can redistribute it and/or modify it
  12     under the terms of the GNU General Public License as published by
  13     the Free Software Foundation, either version 3 of the License, or
  14     (at your option) any later version.
  15
  16     OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
  17     ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  18     FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  19     for more details.
  20
  21     You should have received a copy of the GNU General Public License
  22     along with OpenFOAM.  If not, see <http://www.gnu.org/licenses/>.
  23     Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
  24
  25 Application
  26     PDRFoam
  27
  28 Description
  29     Solver for compressible premixed/partially-premixed combustion with
  30     turbulence modelling.
  31
  32     Combusting RANS code using the b-Xi two-equation model.
  33     Xi may be obtained by either the solution of the Xi transport
  34     equation or from an algebraic exression.  Both approaches are
  35     based on Gulder's flame speed correlation which has been shown
  36     to be appropriate by comparison with the results from the
  37     spectral model.
  38
  39     Strain effects are incorporated directly into the Xi equation
  40     but not in the algebraic approximation.  Further work need to be
  41     done on this issue, particularly regarding the enhanced removal rate
  42     caused by flame compression.  Analysis using results of the spectral
  43     model will be required.
  44
  45     For cases involving very lean Propane flames or other flames which are
  46     very strain-sensitive, a transport equation for the laminar flame
  47     speed is present.  This equation is derived using heuristic arguments
  48     involving the strain time scale and the strain-rate at extinction.
  49     the transport velocity is the same as that for the Xi equation.
  50
  51     For large flames e.g. explosions additional modelling for the flame
  52     wrinkling due to surface instabilities may be applied.
  53
  54     PDR (porosity/distributed resistance) modelling is included to handle
  55     regions containing blockages which cannot be resolved by the mesh.
  56
  57 \*---------------------------------------------------------------------------*/
  58
  59 #include "fvCFD.H"
  60 #include "dynamicFvMesh.H"
  61 #include "hhuCombustionThermo.H"
  62 #include "RASModel.H"
  63 #include "laminarFlameSpeed.H"
  64 #include "XiModel.H"
  65 #include "PDRDragModel.H"
  66 #include "ignition.H"
  67 #include "Switch.H"
  68 #include "bound.H"
  69 #include "dynamicRefineFvMesh.H"
  70
  71 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
  72
  73 int main(int argc, char *argv[])
  74 {
  75     #include "setRootCase.H"
  76
  77     #include "createTime.H"
  78     #include "createDynamicFvMesh.H"
  79     #include "readCombustionProperties.H"
  80     #include "readGravitationalAcceleration.H"
  81     #include "createFields.H"
  82     #include "initContinuityErrs.H"
  83     #include "readTimeControls.H"
  84     #include "CourantNo.H"
  85     #include "setInitialDeltaT.H"
  86
  87     scalar StCoNum = 0.0;
  88
  89     // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
  90
  91     Info<< "\nStarting time loop\n" << endl;
  92
  93     while (runTime.run())
  94     {
  95         #include "readTimeControls.H"
  96         #include "readPISOControls.H"
  97         #include "CourantNo.H"
  98         #include "setDeltaT.H"
  99
 100         // Indicators for refinement. Note: before runTime++
 101         // only for postprocessing reasons.
 102         tmp<volScalarField> tmagGradP = mag(fvc::grad(p));
 103         volScalarField normalisedGradP
 104         (
 105             "normalisedGradP",
 106             tmagGradP()/max(tmagGradP())
 107         );
 108         normalisedGradP.writeOpt() = IOobject::AUTO_WRITE;
 109         tmagGradP.clear();
 110
 111         runTime++;
 112
 113         Info<< "\n\nTime = " << runTime.timeName() << endl;
 114
 115
 116         bool meshChanged = false;
 117         {
 118             // Make the fluxes absolute
 119             fvc::makeAbsolute(phi, rho, U);
 120
 121             // Test : disable refinement for some cells
 122             PackedBoolList& protectedCell =
 123                 refCast<dynamicRefineFvMesh>(mesh).protectedCell();
 124
 125             if (protectedCell.empty())
 126             {
 127                 protectedCell.setSize(mesh.nCells());
 128                 protectedCell = 0;
 129             }
 130
 131             forAll(betav, cellI)
 132             {
 133                 if (betav[cellI] < 0.99)
 134                 {
 135                     protectedCell[cellI] = 1;
 136                 }
 137             }
 138
 139             //volScalarField pIndicator("pIndicator",
 140             //    p*(fvc::laplacian(p))
 141             //  / (
 142             //        magSqr(fvc::grad(p))
 143             //      + dimensionedScalar
 144             //        (
 145             //            "smallish",
 146             //            sqr(p.dimensions()/dimLength),
 147             //            1E-6
 148             //        )
 149             //    ));
 150             //pIndicator.writeOpt() = IOobject::AUTO_WRITE;
 151
 152             // Flux estimate for introduced faces.
 153             volVectorField rhoU("rhoU", rho*U);
 154
 155             // Do any mesh changes
 156             meshChanged = mesh.update();
 157
 158 //        if (mesh.moving() || meshChanged)
 159 //        {
 160 //            #include "correctPhi.H"
 161 //        }
 162
 163             // Make the fluxes relative to the mesh motion
 164             fvc::makeRelative(phi, rho, U);
 165         }
 166
 167
 168         #include "rhoEqn.H"
 169         #include "UEqn.H"
 170
 171         // --- PISO loop
 172         for (int corr=1; corr<=nCorr; corr++)
 173         {
 174             #include "bEqn.H"
 175             #include "ftEqn.H"
 176             #include "huEqn.H"
 177             #include "hEqn.H"
 178
 179             if (!ign.ignited())
 180             {
 181                 hu == h;
 182             }
 183
 184             #include "pEqn.H"
 185         }
 186
 187         turbulence->correct();
 188
 189         runTime.write();
 190
 191         Info<< "\nExecutionTime = "
 192              << runTime.elapsedCpuTime()
 193              << " s\n" << endl;
 194     }
 195
 196     Info<< "\n end\n";
 197
 198     return 0;
 199 }
 200
 201
 202 // ************************************************************************* //