applications/solvers/heatTransfer/chtMultiRegionFoam/fluid/solveEnthalpyEquation.C

   1 /*---------------------------------------------------------------------------*\
   2   =========                 |
   3   \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
   4    \\    /   O peration     |
   5     \\  /    A nd           | Copyright (C) 1991-2008 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 Description
  26     Solve enthalpy equation
  27
  28 \*---------------------------------------------------------------------------*/
  29
  30 void solveEnthalpyEquation
  31 (
  32     const volScalarField& rho,
  33     const volScalarField& DpDt,
  34     const surfaceScalarField& phi,
  35     const compressible::RASModel& turb,
  36     basicThermo& thermo
  37 )
  38 {
  39     volScalarField& h = thermo.h();
  40
  41     tmp<fvScalarMatrix> hEqn
  42     (
  43         fvm::ddt(rho, h)
  44       + fvm::div(phi, h)
  45       - fvm::laplacian(turb.alphaEff(), h)
  46      ==
  47         DpDt
  48     );
  49     hEqn().relax();
  50     hEqn().solve();
  51
  52     thermo.correct();
  53
  54     Info<< "Min/max T:" << min(thermo.T()) << ' ' << max(thermo.T())
  55         << endl;
  56 }