sphereSurfactantFoam.C
Go to the documentation of this file.
1/*---------------------------------------------------------------------------*\
2 ========= |
3 \\ / F ield | OpenFOAM: The Open Source CFD Toolbox
4 \\ / O peration |
5 \\ / A nd | www.openfoam.com
6 \\/ M anipulation |
7-------------------------------------------------------------------------------
8 Copyright (C) 2016-2017 Wikki Ltd
9-------------------------------------------------------------------------------
10License
11 This file is part of OpenFOAM.
12
13 OpenFOAM is free software: you can redistribute it and/or modify it
14 under the terms of the GNU General Public License as published by
15 the Free Software Foundation, either version 3 of the License, or
16 (at your option) any later version.
17
18 OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
19 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
20 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
21 for more details.
22
23 You should have received a copy of the GNU General Public License
24 along with OpenFOAM. If not, see <http://www.gnu.org/licenses/>.
25
26Application
27 surfactantFoam for sphere transport
28
29Group
30 grpFiniteAreaSolvers
31
32Description
33 Passive scalar transport equation solver on a sphere
34
35\*---------------------------------------------------------------------------*/
36
37#include "fvCFD.H"
38#include "faCFD.H"
39
40// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
41
42int main(int argc, char *argv[])
43{
44 argList::addNote
45 (
46 "Passive finiteArea scalar transport on a sphere"
47 );
48
49 #include "setRootCaseLists.H"
50 #include "createTime.H"
51 #include "createMesh.H"
52 #include "createFaMesh.H"
53 #include "createFaFields.H"
54 #include "createVolFields.H"
55
56 Info<< "Total mass of surfactant: "
57 << sum(Cs.internalField()*aMesh.S()) << endl;
58
59 Info<< "\nStarting time loop\n" << endl;
60
61 while (runTime.loop())
62 {
63 Info<< "Time = " << runTime.value() << endl;
64
65 faScalarMatrix CsEqn
66 (
67 fam::ddt(Cs)
68 + fam::div(phis, Cs)
69 - fam::laplacian(Ds, Cs)
70 );
71
72 CsEqn.solve();
73
74 if (runTime.writeTime())
75 {
76 vsm.mapToVolume(Cs, Cvf.boundaryFieldRef());
77
78 runTime.write();
79 }
80
81 Info<< "Total mass of surfactant: "
82 << sum(Cs.internalField()*aMesh.S()) << endl;
83
84 runTime.printExecutionTime(Info);
85 }
86
87 Info<< "End\n" << endl;
88
89 return 0;
90}
91
92
93// ************************************************************************* //
Template specialisation for scalar faMatrix.
engineTime & runTime
volSurfaceMapping vsm(aMesh)
Required Variables.
dimensioned< Type > sum(const DimensionedField< Type, GeoMesh > &df)
messageStream Info
Information stream (stdout output on master, null elsewhere)
Ostream & endl(Ostream &os)
Add newline and flush stream.
Definition: Ostream.H:372
const scalarField & Cs
edgeScalarField phis(IOobject("phis", runTime.timeName(), mesh, IOobject::NO_READ, IOobject::NO_WRITE), linearEdgeInterpolate(Us) &aMesh.Le())
volScalarField Cvf(IOobject("Cvf", runTime.timeName(), mesh, IOobject::NO_READ, IOobject::AUTO_WRITE), mesh, dimensionedScalar(dimless/dimLength, Zero))
faMesh aMesh(mesh)