applications/solvers/incompressible/simpleSRFFoam/simpleSRFFoam.C

   1 /*---------------------------------------------------------------------------*\
   2   =========                 |
   3   \\      /  F ield         | foam-extend: Open Source CFD
   4    \\    /   O peration     | Version:     3.2
   5     \\  /    A nd           | Web:         http://www.foam-extend.org
   6      \\/     M anipulation  | For copyright notice see file Copyright
   7 -------------------------------------------------------------------------------
   8 License
   9     This file is part of foam-extend.
  10
  11     foam-extend is free software: you can redistribute it and/or modify it
  12     under the terms of the GNU General Public License as published by the
  13     Free Software Foundation, either version 3 of the License, or (at your
  14     option) any later version.
  15
  16     foam-extend is distributed in the hope that it will be useful, but
  17     WITHOUT ANY WARRANTY; without even the implied warranty of
  18     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19     General Public License for more details.
  20
  21     You should have received a copy of the GNU General Public License
  22     along with foam-extend.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 Application
  25     simpleSRFFoam
  26
  27 Description
  28     Steady-state solver for incompressible, turbulent flow of non-Newtonian
  29     fluids with single rotating frame.
  30
  31 \*---------------------------------------------------------------------------*/
  32
  33 #include "fvCFD.H"
  34 #include "incompressible/singlePhaseTransportModel/singlePhaseTransportModel.H"
  35 #include "incompressible/RAS/RASModel/RASModel.H"
  36 #include "SRFModel.H"
  37
  38 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
  39
  40 int main(int argc, char *argv[])
  41 {
  42
  43 #   include "setRootCase.H"
  44
  45 #   include "createTime.H"
  46 #   include "createMesh.H"
  47 #   include "createFields.H"
  48 #   include "initContinuityErrs.H"
  49
  50     //mesh.clearPrimitives();
  51
  52 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
  53
  54     Info<< "\nStarting time loop\n" << endl;
  55
  56     for (runTime++; !runTime.end(); runTime++)
  57     {
  58         Info<< "Time = " << runTime.timeName() << nl << endl;
  59
  60 #       include "readSIMPLEControls.H"
  61
  62         p.storePrevIter();
  63
  64         // Pressure-velocity SIMPLE corrector
  65         {
  66             // Momentum predictor
  67             tmp<fvVectorMatrix> UrelEqn
  68             (
  69                 fvm::div(phi, Urel)
  70               + turbulence->divDevReff(Urel)
  71               + SRF->Su()
  72             );
  73
  74             UrelEqn().relax();
  75
  76             solve(UrelEqn() == -fvc::grad(p));
  77
  78             p.boundaryField().updateCoeffs();
  79             volScalarField AUrel = UrelEqn().A();
  80             Urel = UrelEqn().H()/AUrel;
  81             UrelEqn.clear();
  82             phi = fvc::interpolate(Urel) & mesh.Sf();
  83             adjustPhi(phi, Urel, p);
  84
  85             // Non-orthogonal pressure corrector loop
  86             for (int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
  87             {
  88                 fvScalarMatrix pEqn
  89                 (
  90                     fvm::laplacian(1.0/AUrel, p) == fvc::div(phi)
  91                 );
  92
  93                 pEqn.setReference(pRefCell, pRefValue);
  94                 pEqn.solve();
  95
  96                 if (nonOrth == nNonOrthCorr)
  97                 {
  98                     phi -= pEqn.flux();
  99                 }
 100             }
 101
 102 #           include "continuityErrs.H"
 103
 104             // Explicitly relax pressure for momentum corrector
 105             p.relax();
 106
 107             // Momentum corrector
 108             Urel -= fvc::grad(p)/AUrel;
 109             Urel.correctBoundaryConditions();
 110         }
 111
 112         turbulence->correct();
 113
 114         // Recalculate Uabs
 115         Uabs = Urel + SRF->U();
 116
 117         runTime.write();
 118
 119         Info<< "ExecutionTime = " << runTime.elapsedCpuTime() << " s"
 120             << "  ClockTime = " << runTime.elapsedClockTime() << " s"
 121             << nl << endl;
 122     }
 123
 124     Info<< "End\n" << endl;
 125
 126     return(0);
 127 }
 128
 129
 130 // ************************************************************************* //