FDICSmoother.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-2015 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 "FDICSmoother.H"
30 #include "DICPreconditioner.H"
31 #include "PrecisionAdaptor.H"
32 
33 // * * * * * * * * * * * * * * Static Data Members * * * * * * * * * * * * * //
34 
35 namespace Foam
36 {
38 
39  lduMatrix::smoother::addsymMatrixConstructorToTable<FDICSmoother>
41 }
42 
43 
44 // * * * * * * * * * * * * * * * * Constructors * * * * * * * * * * * * * * //
45 
47 (
48  const word& fieldName,
49  const lduMatrix& matrix,
50  const FieldField<Field, scalar>& interfaceBouCoeffs,
51  const FieldField<Field, scalar>& interfaceIntCoeffs,
52  const lduInterfaceFieldPtrsList& interfaces,
53  const dictionary& solverControls
54 )
55 :
56  lduMatrix::smoother
57  (
58  fieldName,
59  matrix,
60  interfaceBouCoeffs,
61  interfaceIntCoeffs,
62  interfaces
63  ),
64  rD_(matrix_.diag().size()),
65  rDuUpper_(matrix_.upper().size()),
66  rDlUpper_(matrix_.upper().size())
67 {
68  solveScalar* __restrict__ rDPtr = rD_.begin();
69  solveScalar* __restrict__ rDuUpperPtr = rDuUpper_.begin();
70  solveScalar* __restrict__ rDlUpperPtr = rDlUpper_.begin();
71 
72  const label* const __restrict__ uPtr =
74  const label* const __restrict__ lPtr =
76  const scalar* const __restrict__ upperPtr =
77  matrix_.upper().begin();
78 
79  const label nFaces = matrix_.upper().size();
80 
81  const scalarField& diag = matrix_.diag();
82  std::copy(diag.begin(), diag.end(), rD_.begin());
83 
85 
86  for (label face=0; face<nFaces; face++)
87  {
88  rDuUpperPtr[face] = rDPtr[uPtr[face]]*upperPtr[face];
89  rDlUpperPtr[face] = rDPtr[lPtr[face]]*upperPtr[face];
90  }
91 }
92 
93 
94 // * * * * * * * * * * * * * * * Member Functions * * * * * * * * * * * * * //
95 
97 (
99  const scalarField& source,
100  const direction cmpt,
101  const label nSweeps
102 ) const
103 {
104  const solveScalar* const __restrict__ rDuUpperPtr = rDuUpper_.begin();
105  const solveScalar* const __restrict__ rDlUpperPtr = rDlUpper_.begin();
106 
107  const label* const __restrict__ uPtr =
108  matrix_.lduAddr().upperAddr().begin();
109  const label* const __restrict__ lPtr =
110  matrix_.lduAddr().lowerAddr().begin();
111 
112  // Temporary storage for the residual
113  solveScalarField rA(rD_.size());
114  solveScalar* __restrict__ rAPtr = rA.begin();
115 
116  for (label sweep=0; sweep<nSweeps; sweep++)
117  {
118  matrix_.residual
119  (
120  rA,
121  psi,
122  source,
123  interfaceBouCoeffs_,
124  interfaces_,
125  cmpt
126  );
127 
128  forAll(rA, i)
129  {
130  rA[i] *= rD_[i];
131  }
132 
133  const label nFaces = matrix_.upper().size();
134  for (label face=0; face<nFaces; face++)
135  {
136  rAPtr[uPtr[face]] -= rDuUpperPtr[face]*rAPtr[lPtr[face]];
137  }
138 
139  const label nFacesM1 = nFaces - 1;
140  for (label face=nFacesM1; face>=0; face--)
141  {
142  rAPtr[lPtr[face]] -= rDlUpperPtr[face]*rAPtr[uPtr[face]];
143  }
145  psi += rA;
146  }
147 }
148 
149 
151 (
153  const solveScalarField& source,
154  const direction cmpt,
155  const label nSweeps
156 ) const
157 {
158  smooth
159  (
160  psi,
161  ConstPrecisionAdaptor<scalar, solveScalar>(source),
162  cmpt,
163  nSweeps
164  );
165 }
166 
167 
168 // ************************************************************************* //
const scalarField & diag() const
Definition: lduMatrix.C:195
void size(const label n)
Older name for setAddressableSize.
Definition: UList.H:119
uint8_t direction
Definition: direction.H:46
lduMatrix::smoother::addsymMatrixConstructorToTable< FDICSmoother > addFDICSmootherSymMatrixConstructorToTable_
Definition: FDICSmoother.C:33
static void calcReciprocalD(solveScalarField &, const lduMatrix &)
Calculate the reciprocal of the preconditioned diagonal.
A face is a list of labels corresponding to mesh vertices.
Definition: face.H:68
Field< solveScalar > solveScalarField
A list of keyword definitions, which are a keyword followed by a number of values (eg...
Definition: dictionary.H:130
void smooth(solveScalarField &psi, const scalarField &source, const direction cmpt, const label nSweeps) const
Smooth the solution for a given number of sweeps.
Definition: FDICSmoother.C:90
virtual const labelUList & lowerAddr() const =0
Return lower addressing.
A field of fields is a PtrList of fields with reference counting.
Definition: FieldField.H:51
void smooth(volScalarField &field, const scalar coeff)
Definition: fvcSmooth.C:37
#define forAll(list, i)
Loop across all elements in list.
Definition: stdFoam.H:400
void diag(pointPatchField< vector > &, const pointPatchField< tensor > &)
const lduMatrix & matrix_
Definition: lduMatrix.H:416
void sweep(volScalarField &field, const volScalarField &alpha, const label nLayers, const scalar alphaDiff=0.2)
Definition: fvcSmooth.C:224
A class for handling words, derived from Foam::string.
Definition: word.H:63
Field< scalar > scalarField
Specialisation of Field<T> for scalar.
virtual const labelUList & upperAddr() const =0
Return upper addressing.
iterator begin() noexcept
Return an iterator to begin traversing the UList.
Definition: UListI.H:403
Simplified diagonal-based incomplete Cholesky smoother for symmetric matrices.
Definition: FDICSmoother.H:51
defineTypeNameAndDebug(combustionModel, 0)
string upper(const std::string &s)
Return string copy transformed with std::toupper on each character.
lduMatrix is a general matrix class in which the coefficients are stored as three arrays...
Definition: lduMatrix.H:80
const scalarField & upper() const
Definition: lduMatrix.C:235
const lduAddressing & lduAddr() const
Return the LDU addressing.
Definition: lduMatrix.H:769
const volScalarField & psi
virtual void scalarSmooth(solveScalarField &psi, const solveScalarField &source, const direction cmpt, const label nSweeps) const
Smooth the solution for a given number of sweeps.
Definition: FDICSmoother.C:144
FDICSmoother(const word &fieldName, const lduMatrix &matrix, const FieldField< Field, scalar > &interfaceBouCoeffs, const FieldField< Field, scalar > &interfaceIntCoeffs, const lduInterfaceFieldPtrsList &interfaces, const dictionary &solverControls)
Construct from matrix components.
Definition: FDICSmoother.C:40
Namespace for OpenFOAM.