applications/solvers/compressible/rhopSonicFoam/rhopSonicFoam.C

   1 /*---------------------------------------------------------------------------*\
   2   =========                 |
   3   \\      /  F ield         | foam-extend: Open Source CFD
   4    \\    /   O peration     | Version:     4.0
   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 = readScalar(pimple.dict().lookup("HbyAblend"));
  65
  66 #       include "readTimeControls.H"
  67
  68         scalar CoNum = max
  69         (
  70             mesh.surfaceInterpolation::deltaCoeffs()
  71            *mag(phiv)/mesh.magSf()
  72         ).value()*runTime.deltaT().value();
  73
  74         Info<< "Max Courant Number = " << CoNum << endl;
  75
  76 #       include "setDeltaT.H"
  77
  78         while (pimple.loop())
  79         {
  80             magRhoU = mag(rhoU);
  81             H = (rhoE + p)/rho;
  82
  83             fv::multivariateGaussConvectionScheme<scalar> mvConvection
  84             (
  85                 mesh,
  86                 fields,
  87                 phiv,
  88                 mesh.schemesDict().divScheme("div(phiv,rhoUH)")
  89             );
  90
  91             solve
  92             (
  93                 fvm::ddt(rho)
  94               + mvConvection.fvmDiv(phiv, rho)
  95             );
  96
  97             surfaceScalarField rhoUWeights =
  98                 mvConvection.interpolationScheme()()(magRhoU)()
  99                .weights(magRhoU);
 100
 101             weighted<vector> rhoUScheme(rhoUWeights);
 102
 103             fvVectorMatrix rhoUEqn
 104             (
 105                 fvm::ddt(rhoU)
 106               + fv::gaussConvectionScheme<vector>(mesh, phiv, rhoUScheme)
 107                    .fvmDiv(phiv, rhoU)
 108             );
 109
 110             solve(rhoUEqn == -fvc::grad(p));
 111
 112             solve
 113             (
 114                 fvm::ddt(rhoE)
 115               + mvConvection.fvmDiv(phiv, rhoE)
 116              ==
 117               - mvConvection.fvcDiv(phiv, p)
 118             );
 119
 120             T = (rhoE - 0.5*rho*magSqr(rhoU/rho))/Cv/rho;
 121             psi = 1.0/(R*T);
 122             p = rho/psi;
 123
 124             while (pimple.correct())
 125             {
 126                 volScalarField rrhoUA = 1.0/rhoUEqn.A();
 127                 surfaceScalarField rrhoUAf("rrhoUAf", fvc::interpolate(rrhoUA));
 128                 volVectorField HbyA = rrhoUA*rhoUEqn.H();
 129
 130                 surfaceScalarField HbyAWeights =
 131                     HbyAblend*mesh.weights()
 132                   + (1.0 - HbyAblend)*
 133                     LimitedScheme
 134                         <vector, MUSCLLimiter<NVDTVD>, limitFuncs::magSqr>
 135                         (mesh, phi, IStringStream("HbyA")()).weights(HbyA);
 136
 137                 phi =
 138                     (
 139                         surfaceInterpolationScheme<vector>::interpolate
 140                         (HbyA, HbyAWeights) & mesh.Sf()
 141                     )
 142                   + HbyAblend*fvc::ddtPhiCorr(rrhoUA, rho, rhoU, phi);
 143
 144                 surfaceScalarField phiGradp =
 145                     rrhoUAf*mesh.magSf()*fvc::snGrad(p);
 146
 147                 phi -= phiGradp;
 148
 149 #               include "resetPhiPatches.H"
 150
 151                 surfaceScalarField rhof =
 152                     mvConvection.interpolationScheme()()(rho)()
 153                    .interpolate(rho);
 154
 155                 phiv = phi/rhof;
 156
 157                 fvScalarMatrix pEqn
 158                 (
 159                     fvm::ddt(psi, p)
 160                   + mvConvection.fvcDiv(phiv, rho)
 161                   + fvc::div(phiGradp)
 162                   - fvm::laplacian(rrhoUAf, p)
 163                 );
 164
 165                 pEqn.solve();
 166
 167                 phi += phiGradp + pEqn.flux();
 168                 rho = psi*p;
 169                 rhof =
 170                     mvConvection.interpolationScheme()()(rho)()
 171                    .interpolate(rho);
 172                 phiv = phi/rhof;
 173
 174                 rhoU = HbyA - rrhoUA*fvc::grad(p);
 175                 rhoU.correctBoundaryConditions();
 176             }
 177         }
 178
 179         U = rhoU/rho;
 180
 181         runTime.write();
 182
 183         Info<< "ExecutionTime = " << runTime.elapsedCpuTime() << " s"
 184             << "  ClockTime = " << runTime.elapsedClockTime() << " s"
 185             << nl << endl;
 186     }
 187
 188     Info<< "End\n" << endl;
 189
 190     return 0;
 191 }
 192
 193
 194 // ************************************************************************* //