applications/solvers/compressible/rhoSonicFoam/rhoSonicFoam.C

   1 /*---------------------------------------------------------------------------*\
   2   =========                 |
   3   \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
   4    \\    /   O peration     |
   5     \\  /    A nd           | Copyright (C) 1991-2009 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 the
  13     Free Software Foundation; either version 2 of the License, or (at your
  14     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, write to the Free Software Foundation,
  23     Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
  24
  25 Application
  26     rhoSonicFoam
  27
  28 Description
  29     Density-based compressible flow solver.
  30
  31 \*---------------------------------------------------------------------------*/
  32
  33 #include "fvCFD.H"
  34
  35 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
  36
  37 int main(int argc, char *argv[])
  38 {
  39
  40 #   include "setRootCase.H"
  41 #   include "createTime.H"
  42 #   include "createMesh.H"
  43 #   include "readThermodynamicProperties.H"
  44 #   include "createFields.H"
  45
  46 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
  47
  48     Info<< "\nStarting time loop\n" << endl;
  49
  50     while (runTime.loop())
  51     {
  52         Info<< "Time = " << runTime.timeName() << nl << endl;
  53
  54         surfaceScalarField phiv
  55         (
  56             IOobject
  57             (
  58                 "phiv",
  59                 runTime.timeName(),
  60                 mesh,
  61                 IOobject::NO_READ,
  62                 IOobject::NO_WRITE
  63             ),
  64             fvc::interpolate(rhoU)/fvc::interpolate(rho) & mesh.Sf()
  65         );
  66
  67         scalar CoNum = max
  68         (
  69             mesh.surfaceInterpolation::deltaCoeffs()
  70            *mag(phiv)/mesh.magSf()
  71         ).value()*runTime.deltaT().value();
  72
  73         Info<< "\nMax Courant Number = " << CoNum << endl;
  74
  75         solve
  76         (
  77             fvm::ddt(rho)
  78           + fvm::div(phiv, rho)
  79         );
  80
  81         p = rho/psi;
  82
  83         solve
  84         (
  85             fvm::ddt(rhoU)
  86           + fvm::div(phiv, rhoU)
  87          ==
  88           - fvc::grad(p)
  89         );
  90
  91         U == rhoU/rho;
  92
  93         surfaceScalarField phiv2
  94         (
  95             IOobject
  96             (
  97                 "phiv2",
  98                 runTime.timeName(),
  99                 mesh,
 100                 IOobject::NO_READ,
 101                 IOobject::NO_WRITE
 102             ),
 103             fvc::interpolate(rhoU)/fvc::interpolate(rho) & mesh.Sf()
 104         );
 105
 106         solve
 107         (
 108             fvm::ddt(rhoE)
 109           + fvm::div(phiv, rhoE)
 110          ==
 111           - fvc::div(phiv2, p)
 112         );
 113
 114         T = (rhoE - 0.5*rho*magSqr(rhoU/rho))/Cv/rho;
 115         psi = 1.0/(R*T);
 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 // ************************************************************************* //