applications/solvers/multiphase/interPhaseChangeFoam/phaseChangeTwoPhaseMixtures/SchnerrSauer/SchnerrSauer.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 \*---------------------------------------------------------------------------*/
  26
  27 #include "SchnerrSauer.H"
  28 #include "mathematicalConstants.H"
  29 #include "addToRunTimeSelectionTable.H"
  30
  31 // * * * * * * * * * * * * * * Static Data Members * * * * * * * * * * * * * //
  32
  33 namespace Foam
  34 {
  35 namespace phaseChangeTwoPhaseMixtures
  36 {
  37     defineTypeNameAndDebug(SchnerrSauer, 0);
  38     addToRunTimeSelectionTable
  39     (
  40         phaseChangeTwoPhaseMixture,
  41         SchnerrSauer,
  42         components
  43     );
  44 }
  45 }
  46
  47
  48 // * * * * * * * * * * * * * * * * Constructors  * * * * * * * * * * * * * * //
  49
  50 Foam::phaseChangeTwoPhaseMixtures::SchnerrSauer::SchnerrSauer
  51 (
  52     const volVectorField& U,
  53     const surfaceScalarField& phi,
  54     const word& alpha1Name
  55 )
  56 :
  57     phaseChangeTwoPhaseMixture(typeName, U, phi, alpha1Name),
  58
  59     n_(phaseChangeTwoPhaseMixtureCoeffs_.lookup("n")),
  60     dNuc_(phaseChangeTwoPhaseMixtureCoeffs_.lookup("dNuc")),
  61     Cc_(phaseChangeTwoPhaseMixtureCoeffs_.lookup("Cc")),
  62     Cv_(phaseChangeTwoPhaseMixtureCoeffs_.lookup("Cv")),
  63
  64     p0_("0", pSat().dimensions(), 0.0)
  65 {
  66     correct();
  67 }
  68
  69
  70 // * * * * * * * * * * * * * * Member Functions  * * * * * * * * * * * * * * //
  71
  72 Foam::tmp<Foam::volScalarField>
  73 Foam::phaseChangeTwoPhaseMixtures::SchnerrSauer::rRb
  74 (
  75     const volScalarField& limitedAlpha1
  76 ) const
  77 {
  78     return pow
  79     (
  80         ((4*mathematicalConstant::pi*n_)/3)
  81        *limitedAlpha1/(1.0 + alphaNuc() - limitedAlpha1),
  82         1.0/3.0
  83     );
  84 }
  85
  86
  87 Foam::dimensionedScalar
  88 Foam::phaseChangeTwoPhaseMixtures::SchnerrSauer::alphaNuc() const
  89 {
  90     dimensionedScalar Vnuc = n_*mathematicalConstant::pi*pow3(dNuc_)/6;
  91     return Vnuc/(1 + Vnuc);
  92 }
  93
  94
  95 Foam::tmp<Foam::volScalarField>
  96 Foam::phaseChangeTwoPhaseMixtures::SchnerrSauer::pCoeff
  97 (
  98     const volScalarField& p
  99 ) const
 100 {
 101     volScalarField limitedAlpha1 = min(max(alpha1_, scalar(0)), scalar(1));
 102     volScalarField rho =
 103         (limitedAlpha1*rho1() + (scalar(1) - limitedAlpha1)*rho2());
 104
 105     return
 106         (3*rho1()*rho2())*sqrt(2/(3*rho1()))
 107        *rRb(limitedAlpha1)/(rho*sqrt(mag(p - pSat()) + 0.01*pSat()));
 108 }
 109
 110
 111 Foam::Pair<Foam::tmp<Foam::volScalarField> >
 112 Foam::phaseChangeTwoPhaseMixtures::SchnerrSauer::mDotAlphal() const
 113 {
 114     const volScalarField& p = alpha1_.db().lookupObject<volScalarField>("p");
 115     volScalarField limitedAlpha1 = min(max(alpha1_, scalar(0)), scalar(1));
 116
 117     volScalarField pCoeff = this->pCoeff(p);
 118
 119     return Pair<tmp<volScalarField> >
 120     (
 121         Cc_*limitedAlpha1*pCoeff*max(p - pSat(), p0_),
 122
 123         Cv_*(1.0 + alphaNuc() - limitedAlpha1)*pCoeff*min(p - pSat(), p0_)
 124     );
 125 }
 126
 127
 128 Foam::Pair<Foam::tmp<Foam::volScalarField> >
 129 Foam::phaseChangeTwoPhaseMixtures::SchnerrSauer::mDotP() const
 130 {
 131     const volScalarField& p = alpha1_.db().lookupObject<volScalarField>("p");
 132     volScalarField limitedAlpha1 = min(max(alpha1_, scalar(0)), scalar(1));
 133
 134     volScalarField apCoeff = limitedAlpha1*pCoeff(p);
 135
 136     return Pair<tmp<volScalarField> >
 137     (
 138         Cc_*(1.0 - limitedAlpha1)*pos(p - pSat())*apCoeff,
 139
 140         (-Cv_)*(1.0 + alphaNuc() - limitedAlpha1)*neg(p - pSat())*apCoeff
 141     );
 142 }
 143
 144
 145 void Foam::phaseChangeTwoPhaseMixtures::SchnerrSauer::correct()
 146 {}
 147
 148
 149 bool Foam::phaseChangeTwoPhaseMixtures::SchnerrSauer::read()
 150 {
 151     if (phaseChangeTwoPhaseMixture::read())
 152     {
 153         phaseChangeTwoPhaseMixtureCoeffs_ = subDict(type() + "Coeffs");
 154
 155         phaseChangeTwoPhaseMixtureCoeffs_.lookup("n") >> n_;
 156         phaseChangeTwoPhaseMixtureCoeffs_.lookup("dNuc") >> dNuc_;
 157         phaseChangeTwoPhaseMixtureCoeffs_.lookup("Cc") >> Cc_;
 158         phaseChangeTwoPhaseMixtureCoeffs_.lookup("Cv") >> Cv_;
 159
 160         return true;
 161     }
 162     else
 163     {
 164         return false;
 165     }
 166 }
 167
 168
 169 // ************************************************************************* //