All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
MULES.C
Go to the documentation of this file.
1 /*---------------------------------------------------------------------------*\
2  ========= |
3  \\ / F ield | OpenFOAM: The Open Source CFD Toolbox
4  \\ / O peration | Website: https://openfoam.org
5  \\ / A nd | Copyright (C) 2011-2018 OpenFOAM Foundation
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
13  the Free Software Foundation, either version 3 of the License, or
14  (at your 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, see <http://www.gnu.org/licenses/>.
23 
24 \*---------------------------------------------------------------------------*/
25 
26 #include "MULES.H"
27 
28 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
29 
31 {
32  forAll(phiPsiCorrs[0], facei)
33  {
34  scalar sumPos = 0;
35  scalar sumNeg = 0;
36 
37  for (int phasei=0; phasei<phiPsiCorrs.size(); phasei++)
38  {
39  if (phiPsiCorrs[phasei][facei] > 0)
40  {
41  sumPos += phiPsiCorrs[phasei][facei];
42  }
43  else
44  {
45  sumNeg += phiPsiCorrs[phasei][facei];
46  }
47  }
48 
49  scalar sum = sumPos + sumNeg;
50 
51  if (sum > 0 && sumPos > vSmall)
52  {
53  scalar lambda = -sumNeg/sumPos;
54 
55  for (int phasei=0; phasei<phiPsiCorrs.size(); phasei++)
56  {
57  if (phiPsiCorrs[phasei][facei] > 0)
58  {
59  phiPsiCorrs[phasei][facei] *= lambda;
60  }
61  }
62  }
63  else if (sum < 0 && sumNeg < -vSmall)
64  {
65  scalar lambda = -sumPos/sumNeg;
66 
67  for (int phasei=0; phasei<phiPsiCorrs.size(); phasei++)
68  {
69  if (phiPsiCorrs[phasei][facei] < 0)
70  {
71  phiPsiCorrs[phasei][facei] *= lambda;
72  }
73  }
74  }
75  }
76 }
77 
78 
80 (
81  const UPtrList<const scalarField>& alphas,
82  UPtrList<scalarField>& phiPsiCorrs,
83  const labelHashSet& fixed
84 )
85 {
86  labelHashSet notFixed(identity(phiPsiCorrs.size()));
87  notFixed -= fixed;
88 
89  forAll(phiPsiCorrs[0], facei)
90  {
91  scalar alphaNotFixed = 0, corrNotFixed = 0;
92  forAllConstIter(labelHashSet, notFixed, iter)
93  {
94  alphaNotFixed += alphas[iter.key()][facei];
95  corrNotFixed += phiPsiCorrs[iter.key()][facei];
96  }
97 
98  scalar corrFixed = 0;
99  forAllConstIter(labelHashSet, fixed, iter)
100  {
101  corrFixed += phiPsiCorrs[iter.key()][facei];
102  }
103 
104  const scalar sumCorr = corrNotFixed + corrFixed;
105 
106  const scalar lambda = - sumCorr/alphaNotFixed;
107 
108  forAllConstIter(labelHashSet, notFixed, iter)
109  {
110  phiPsiCorrs[iter.key()][facei] += lambda*alphas[iter.key()][facei];
111  }
112  }
113 }
114 
115 
116 // ************************************************************************* //
#define forAll(list, i)
Loop across all elements in list.
Definition: UList.H:434
label phasei
Definition: pEqn.H:27
labelList identity(const label len)
Create identity map (map[i] == i) of given length.
Definition: ListOps.C:104
IOstream & fixed(IOstream &io)
Definition: IOstream.H:576
dimensioned< Type > sum(const DimensionedField< Type, GeoMesh > &df)
void limitSum(UPtrList< scalarField > &phiPsiCorrs)
Definition: MULES.C:30
A templated 1D list of pointers to objects of type <T>, where the size of the array is known and used...
Definition: UPtrList.H:54
forAllConstIter(PtrDictionary< phaseModel >, mixture.phases(), phase)
Definition: pEqn.H:29
label size() const
Return the number of elements in the UPtrList.
Definition: UPtrListI.H:29
dimensionedScalar lambda(laminarTransport.lookup("lambda"))
MULES: Multidimensional universal limiter for explicit solution.