applications/solvers/compressible/rhopSonicFoam/rhopSonicFoam.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     rhopSonicFoam
  26
  27 Description
  28     Pressure-density-based compressible flow solver.
  29
  30 \*---------------------------------------------------------------------------*/
  31
  32 #include "fvCFD.H"
  33 #include "weighted.H"
  34 #include "gaussConvectionScheme.H"
  35 #include "multivariateGaussConvectionScheme.H"
  36 #include "MUSCL.H"
  37 #include "LimitedScheme.H"
  38 #include "boundaryTypes.H"
  39 #include "pimpleControl.H"
  40
  41 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
  42
  43 int main(int argc, char *argv[])
  44 {
  45
  46 #   include "setRootCase.H"
  47 #   include "createTime.H"
  48 #   include "createMesh.H"
  49
  50     pimpleControl pimple(mesh);
  51
  52 #   include "readThermodynamicProperties.H"
  53 #   include "createFields.H"
  54 #   include "createTimeControls.H"
  55
  56 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
  57
  58     Info<< "\nStarting time loop\n" << endl;
  59
  60     while (runTime.loop())
  61     {
  62         Info<< "Time = " << runTime.value() << nl << endl;
  63
  64         scalar HbyAblend =
  65             readScalar
  66             (
  67                 mesh.solutionDict().subDict("PIMPLE").lookup("HbyAblend")
  68             );
  69
  70 #       include "readTimeControls.H"
  71
  72         scalar CoNum = max
  73         (
  74             mesh.surfaceInterpolation::deltaCoeffs()
  75            *mag(phiv)/mesh.magSf()
  76         ).value()*runTime.deltaT().value();
  77
  78         Info<< "Max Courant Number = " << CoNum << endl;
  79
  80 #       include "setDeltaT.H"
  81
  82         while (pimple.loop())
  83         {
  84             magRhoU = mag(rhoU);
  85             H = (rhoE + p)/rho;
  86
  87             fv::multivariateGaussConvectionScheme<scalar> mvConvection
  88             (
  89                 mesh,
  90                 fields,
  91                 phiv,
  92                 mesh.schemesDict().divScheme("div(phiv,rhoUH)")
  93             );
  94
  95             solve
  96             (
  97                 fvm::ddt(rho)
  98               + mvConvection.fvmDiv(phiv, rho)
  99             );
 100
 101             surfaceScalarField rhoUWeights =
 102                 mvConvection.interpolationScheme()()(magRhoU)()
 103                .weights(magRhoU);
 104
 105             weighted<vector> rhoUScheme(rhoUWeights);
 106
 107             fvVectorMatrix rhoUEqn
 108             (
 109                 fvm::ddt(rhoU)
 110               + fv::gaussConvectionScheme<vector>(mesh, phiv, rhoUScheme)
 111                    .fvmDiv(phiv, rhoU)
 112             );
 113
 114             solve(rhoUEqn == -fvc::grad(p));
 115
 116             solve
 117             (
 118                 fvm::ddt(rhoE)
 119               + mvConvection.fvmDiv(phiv, rhoE)
 120              ==
 121               - mvConvection.fvcDiv(phiv, p)
 122             );
 123
 124             T = (rhoE - 0.5*rho*magSqr(rhoU/rho))/Cv/rho;
 125             psi = 1.0/(R*T);
 126             p = rho/psi;
 127
 128             while (pimple.correct())
 129             {
 130                 volScalarField rrhoUA = 1.0/rhoUEqn.A();
 131                 surfaceScalarField rrhoUAf("rrhoUAf", fvc::interpolate(rrhoUA));
 132                 volVectorField HbyA = rrhoUA*rhoUEqn.H();
 133
 134                 surfaceScalarField HbyAWeights =
 135                     HbyAblend*mesh.weights()
 136                   + (1.0 - HbyAblend)*
 137                     LimitedScheme
 138                         <vector, MUSCLLimiter<NVDTVD>, limitFuncs::magSqr>
 139                         (mesh, phi, IStringStream("HbyA")()).weights(HbyA);
 140
 141                 phi =
 142                     (
 143                         surfaceInterpolationScheme<vector>::interpolate
 144                         (HbyA, HbyAWeights) & mesh.Sf()
 145                     )
 146                   + HbyAblend*fvc::ddtPhiCorr(rrhoUA, rho, rhoU, phi);
 147
 148                 p.boundaryField().updateCoeffs();
 149
 150                 surfaceScalarField phiGradp =
 151                     rrhoUAf*mesh.magSf()*fvc::snGrad(p);
 152
 153                 phi -= phiGradp;
 154
 155 #               include "resetPhiPatches.H"
 156
 157                 surfaceScalarField rhof =
 158                     mvConvection.interpolationScheme()()(rho)()
 159                    .interpolate(rho);
 160
 161                 phiv = phi/rhof;
 162
 163                 fvScalarMatrix pEqn
 164                 (
 165                     fvm::ddt(psi, p)
 166                   + mvConvection.fvcDiv(phiv, rho)
 167                   + fvc::div(phiGradp)
 168                   - fvm::laplacian(rrhoUAf, p)
 169                 );
 170
 171                 pEqn.solve();
 172
 173                 phi += phiGradp + pEqn.flux();
 174                 rho = psi*p;
 175                 rhof =
 176                     mvConvection.interpolationScheme()()(rho)()
 177                    .interpolate(rho);
 178                 phiv = phi/rhof;
 179
 180                 rhoU = HbyA - rrhoUA*fvc::grad(p);
 181                 rhoU.correctBoundaryConditions();
 182             }
 183         }
 184
 185         U = rhoU/rho;
 186
 187         runTime.write();
 188
 189         Info<< "ExecutionTime = " << runTime.elapsedCpuTime() << " s"
 190             << "  ClockTime = " << runTime.elapsedClockTime() << " s"
 191             << nl << endl;
 192     }
 193
 194     Info<< "End\n" << endl;
 195
 196     return 0;
 197 }
 198
 199
 200 // ************************************************************************* //