dimensionSets.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) 2011-2016 OpenFOAM Foundation
9  Copyright (C) 2019 OpenCFD Ltd.
10 -------------------------------------------------------------------------------
11 License
12  This file is part of OpenFOAM.
13 
14  OpenFOAM is free software: you can redistribute it and/or modify it
15  under the terms of the GNU General Public License as published by
16  the Free Software Foundation, either version 3 of the License, or
17  (at your option) any later version.
18 
19  OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
20  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
21  FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
22  for more details.
23 
24  You should have received a copy of the GNU General Public License
25  along with OpenFOAM. If not, see <http://www.gnu.org/licenses/>.
26 
27 \*---------------------------------------------------------------------------*/
28 
29 #include "dimensionSet.H"
30 #include "dimensionedScalar.H"
31 #include "simpleRegIOobject.H"
32 #include "demandDrivenData.H"
33 
34 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
35 
36 namespace Foam
37 {
38 
39 /* * * * * * * * * * * * * * * Static Member Data * * * * * * * * * * * * * */
40 
41 // Since dimensionSystems() can be reread we actually store a copy of
42 // the controlDict subDict (v.s. a reference to the subDict for e.g.
43 // dimensionedConstants)
45 HashTable<dimensionedScalar>* unitSetPtr_(nullptr);
46 dimensionSets* writeUnitSetPtr_(nullptr);
47 
49 
50 // Helper class to
51 // register re-reader
52 // deallocate demand-driven data
53 class addDimensionSetsToDebug
54 :
56 {
57 public:
58 
59  addDimensionSetsToDebug(const addDimensionSetsToDebug&) = delete;
60  void operator=(const addDimensionSetsToDebug&) = delete;
61 
62  explicit addDimensionSetsToDebug(const char* name)
63  :
64  ::Foam::simpleRegIOobject(Foam::debug::addDimensionSetObject, name)
65  {}
66 
67  virtual ~addDimensionSetsToDebug()
68  {
72  }
73 
74  virtual void readData(Foam::Istream& is)
75  {
80  }
81 
82  virtual void writeData(Foam::Ostream& os) const
83  {
84  os << dimensionSystems();
85  }
86 };
87 
88 addDimensionSetsToDebug addDimensionSetsToDebug_("DimensionSets");
89 
91 
92 
94 {
96  {
97  dictionary* cachedPtr(nullptr);
99  (
101  (
102  "DimensionSets",
103  cachedPtr
104  )
105  );
106  }
107  return *dimensionSystemsPtr_;
108 }
109 
110 
111 const HashTable<dimensionedScalar>& unitSet()
112 {
113  if (!unitSetPtr_)
114  {
115  const dictionary& dict = dimensionSystems();
116 
117  if (!dict.found("unitSet"))
118  {
120  << "Cannot find unitSet in dictionary " << dict.name()
121  << exit(FatalIOError);
122  }
123 
124  const word unitSetCoeffs(dict.get<word>("unitSet") + "Coeffs");
125 
126  const dictionary* unitDictPtr = dict.findDict(unitSetCoeffs);
127 
128  if (!unitDictPtr)
129  {
131  << "Cannot find " << unitSetCoeffs << " in dictionary "
132  << dict.name() << nl
133  << exit(FatalIOError);
134  }
135 
136  const dictionary& unitDict = *unitDictPtr;
137 
138  unitSetPtr_ = new HashTable<dimensionedScalar>(2*unitDict.size());
139 
140  wordList writeUnitNames;
141 
142  for (const entry& dEntry : unitDict)
143  {
144  if ("writeUnits" == dEntry.keyword())
145  {
146  dEntry.readEntry(writeUnitNames);
147  }
148  else
149  {
151  dt.read(dEntry.stream(), unitDict);
152 
153  bool ok = unitSetPtr_->insert(dEntry.keyword(), dt);
154  if (!ok)
155  {
157  << "Duplicate unit " << dEntry.keyword()
158  << " in DimensionSets dictionary"
159  << exit(FatalIOError);
160  }
161  }
162  }
163 
164  if (writeUnitNames.size() != 0 && writeUnitNames.size() != 7)
165  {
167  << "Cannot find entry \"writeUnits\" in " << unitDict.name()
168  << " or it is not a wordList of size 7"
169  << exit(FatalIOError);
170  }
171 
172  writeUnitSetPtr_ = new dimensionSets(*unitSetPtr_, writeUnitNames);
173  }
174 
175  return *unitSetPtr_;
176 }
177 
178 
179 const dimensionSets& writeUnitSet()
180 {
181  if (!writeUnitSetPtr_)
182  {
183  (void)unitSet();
184  }
185  return *writeUnitSetPtr_;
186 }
187 
188 
189 const dimensionSet dimless;
190 
191 const dimensionSet dimMass(1, 0, 0, 0, 0, 0, 0);
192 const dimensionSet dimLength(0, 1, 0, 0, 0, 0, 0);
193 const dimensionSet dimTime(0, 0, 1, 0, 0, 0, 0);
194 const dimensionSet dimTemperature(0, 0, 0, 1, 0, 0, 0);
195 const dimensionSet dimMoles(0, 0, 0, 0, 1, 0, 0);
196 const dimensionSet dimCurrent(0, 0, 0, 0, 0, 1, 0);
197 const dimensionSet dimLuminousIntensity(0, 0, 0, 0, 0, 0, 1);
198 
199 const dimensionSet dimArea(sqr(dimLength));
200 const dimensionSet dimVolume(pow3(dimLength));
201 const dimensionSet dimVol(dimVolume);
202 
203 const dimensionSet dimVelocity(dimLength/dimTime);
204 const dimensionSet dimAcceleration(dimVelocity/dimTime);
205 
206 const dimensionSet dimDensity(dimMass/dimVolume);
207 const dimensionSet dimForce(dimMass*dimAcceleration);
208 const dimensionSet dimEnergy(dimForce*dimLength);
209 const dimensionSet dimPower(dimEnergy/dimTime);
210 
211 const dimensionSet dimPressure(dimForce/dimArea);
212 const dimensionSet dimCompressibility(dimDensity/dimPressure);
213 const dimensionSet dimGasConstant(dimEnergy/dimMass/dimTemperature);
214 const dimensionSet dimSpecificHeatCapacity(dimGasConstant);
215 const dimensionSet dimViscosity(dimArea/dimTime);
216 const dimensionSet dimDynamicViscosity(dimDensity*dimViscosity);
217 
218 
219 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
221 } // End namespace Foam
222 
223 
224 // * * * * * * * * * * * * * * * * Constructors * * * * * * * * * * * * * * //
225 
227 (
228  const HashTable<dimensionedScalar>& units,
229  const wordList& unitNames
230 )
231 :
232  units_(unitNames.size()),
233  conversion_(unitNames.size()),
234  conversionPivots_(unitNames.size()),
235  valid_(false)
236 {
237  forAll(unitNames, i)
238  {
239  units_.set
240  (
241  i,
243  (
244  units[unitNames[i]]
245  )
246  );
247  }
248 
249  if (unitNames.size() == 7)
250  {
251  valid_ = true;
252 
253  // Determine conversion from basic units to write units
254  for (label rowI = 0; rowI < conversion_.m(); rowI++)
255  {
256  scalar* row = conversion_[rowI];
257 
258  for (label columnI = 0; columnI < conversion_.n(); columnI++)
259  {
260  const dimensionedScalar& dSet = units_[columnI];
261  row[columnI] = dSet.dimensions()[rowI];
262  }
263  }
264  conversionPivots_.setSize(conversion_.m());
265  LUDecompose(conversion_, conversionPivots_);
266  }
267 }
268 
269 
270 void Foam::dimensionSets::coefficients(scalarField& exponents) const
271 {
272  LUBacksubstitute(conversion_, conversionPivots_, exponents);
273 }
274 
275 
276 // ************************************************************************* //
Abstract base class for registered object with I/O. Used in debug symbol registration.
dictionary dict
void size(const label n)
Older name for setAddressableSize.
Definition: UList.H:116
errorManipArg< error, int > exit(error &err, const int errNo=1)
Definition: errorManip.H:125
static void writeData(Ostream &os, const Type &val)
dictionary & switchSet(const char *subDictName, dictionary *&subDictPtr)
Internal function to lookup a sub-dictionary from controlDict.
Definition: debug.C:179
void LUDecompose(scalarSquareMatrix &matrix, labelList &pivotIndices)
LU decompose the matrix with pivoting.
dimensionedSymmTensor sqr(const dimensionedVector &dv)
An Istream is an abstract base class for all input systems (streams, files, token lists etc)...
Definition: Istream.H:57
constexpr char nl
The newline &#39;\n&#39; character (0x0a)
Definition: Ostream.H:50
const dimensionSet dimViscosity
HashTable< dimensionedScalar > * unitSetPtr_(nullptr)
const dimensionSet dimSpecificHeatCapacity(dimGasConstant)
Definition: dimensionSets.H:77
void coefficients(scalarField &exponents) const
(if valid) obtain set of coefficients of unitNames
const dimensionSet dimVol(dimVolume)
Older spelling for dimVolume.
Definition: dimensionSets.H:65
const dimensionSet dimless
Dimensionless.
T get(const word &keyword, enum keyType::option matchOpt=keyType::REGEX) const
Find and return a T. FatalIOError if not found, or if the number of tokens is incorrect.
const dimensionSet dimDynamicViscosity
const fileName & name() const noexcept
The dictionary name.
Definition: dictionaryI.H:41
dimensionSets(const HashTable< dimensionedScalar > &, const wordList &unitNames)
Construct from all units and set of units to use for inversion (writing)
bool found(const word &keyword, enum keyType::option matchOpt=keyType::REGEX) const
Find an entry (const access) with the given keyword.
Definition: dictionaryI.H:104
dimensionSets * writeUnitSetPtr_(nullptr)
#define forAll(list, i)
Loop across all elements in list.
Definition: stdFoam.H:421
label n() const noexcept
The number of columns.
Definition: Matrix.H:258
const dimensionSet dimVolume(pow3(dimLength))
Definition: dimensionSets.H:58
const dimensionSet dimAcceleration
void setSize(const label n)
Alias for resize()
Definition: List.H:316
word name(const expressions::valueTypeCode typeCode)
A word representation of a valueTypeCode. Empty for expressions::valueTypeCode::INVALID.
Definition: exprTraits.C:127
Field< scalar > scalarField
Specialisation of Field<T> for scalar.
const dimensionSet dimTemperature(0, 0, 0, 1, 0, 0, 0)
Definition: dimensionSets.H:52
const HashTable< dimensionedScalar > & unitSet()
Set of all dimensions.
A HashTable similar to std::unordered_map.
Definition: HashTable.H:108
const dimensionSet dimPressure
const dimensionSet dimPower
bool read(const dictionary &dict)
Update the value of dimensioned<Type>, lookup in dictionary with the name().
An Ostream is an abstract base class for all output systems (streams, files, token lists...
Definition: Ostream.H:56
const dimensionSet dimForce
int debug
Static debugging option.
OBJstream os(runTime.globalPath()/outputName)
const dimensionSet dimMoles(0, 0, 0, 0, 1, 0, 0)
Definition: dimensionSets.H:53
const dimensionSet dimEnergy
label m() const noexcept
The number of rows.
Definition: Matrix.H:248
const dimensionSet dimDensity
List< word > wordList
List of word.
Definition: fileName.H:59
dimensionedScalar pow3(const dimensionedScalar &ds)
dictionary & dimensionSystems()
Top level dictionary.
Definition: dimensionSets.C:86
Template functions to aid in the implementation of demand driven data.
const PtrList< dimensionedScalar > & units() const noexcept
Return the units.
const dimensionSet dimLength(0, 1, 0, 0, 0, 0, 0)
Definition: dimensionSets.H:50
#define FatalIOErrorInFunction(ios)
Report an error message using Foam::FatalIOError.
Definition: error.H:627
dimensioned< scalar > dimensionedScalar
Dimensioned scalar obtained from generic dimensioned type.
const dimensionSet dimCurrent(0, 0, 0, 0, 0, 1, 0)
Definition: dimensionSets.H:54
const dimensionSet dimGasConstant
const dimensionSet dimTime(0, 0, 1, 0, 0, 0, 0)
Definition: dimensionSets.H:51
const dimensionSet dimMass(1, 0, 0, 0, 0, 0, 0)
Definition: dimensionSets.H:49
const dimensionSet dimLuminousIntensity(0, 0, 0, 0, 0, 0, 1)
Definition: dimensionSets.H:55
const dimensionSets & writeUnitSet()
Set of units.
void addDimensionSetObject(const char *name, simpleRegIOobject *obj)
Register DimensionSets read/write object.
Definition: debug.C:269
const dimensionSet dimCompressibility
dictionary * dimensionSystemsPtr_(nullptr)
void deleteDemandDrivenData(DataPtr &dataPtr)
const dimensionSet dimArea(sqr(dimLength))
Definition: dimensionSets.H:57
Namespace for OpenFOAM.
void LUBacksubstitute(const scalarSquareMatrix &luMmatrix, const labelList &pivotIndices, List< Type > &source)
LU back-substitution with given source, returning the solution in the source.
const dictionary * findDict(const word &keyword, enum keyType::option matchOpt=keyType::REGEX) const
Find and return a sub-dictionary pointer if present (and a sub-dictionary) otherwise return nullptr...
Definition: dictionaryI.H:124
IOerror FatalIOError
Error stream (stdout output on all processes), with additional &#39;FOAM FATAL IO ERROR&#39; header text and ...
const dimensionSet dimVelocity
Construction of unit sets.
Definition: dimensionSets.H:89