Advects a vector field.
95 int nqtot = fields[0]->GetTotPoints();
96 ASSERTL1(nConvectiveFields == inarray.size(),
"Number of convective fields and Inarray are not compatible");
99 int ndim = advVel.size();
100 Array<OneD, Array<OneD, NekDouble> > AdvVel (advVel.size());
102 Array<OneD, Array<OneD, NekDouble> > velocity(ndim);
104 LibUtilities::Timer timer;
106 for(
int i = 0; i < ndim; ++i)
111 velocity[i] = Array<OneD, NekDouble>(nqtot,0.0);
112 fields[i]->HomogeneousBwdTrans(advVel[i],velocity[i]);
116 velocity[i] = advVel[i];
120 int nPointsTot = fields[0]->GetNpoints();
121 Array<OneD, NekDouble> grad0,grad1,grad2,wkSp;
128 nPointsTot = fields[0]->Get1DScaledTotPoints(OneDptscale);
135 for(
int i = 0; i < ndim; ++i)
137 AdvVel[i] = Array<OneD, NekDouble> (nPointsTot);
140 fields[0]->PhysInterp1DScaled(OneDptscale,velocity[i],AdvVel[i]);
142 timer.AccumulateRegion(
"Interp1DScaled");
147 for(
int i = 0; i < ndim; ++i)
149 AdvVel[i] = velocity[i];
153 wkSp = Array<OneD, NekDouble> (nPointsTot);
159 grad0 = Array<OneD, NekDouble> (fields[0]->GetNpoints());
160 for(
int n = 0; n < nConvectiveFields; ++n)
162 fields[0]->PhysDeriv(inarray[n],grad0);
165 Array<OneD, NekDouble> Outarray(nPointsTot);
166 fields[0]->PhysInterp1DScaled(OneDptscale,grad0,wkSp);
167 Vmath::Vmul (nPointsTot,wkSp,1,AdvVel[0],1,Outarray,1);
170 fields[0]->PhysGalerkinProjection1DScaled(OneDptscale,Outarray,outarray[n]);
172 timer.AccumulateRegion(
"GalerinProject");
176 Vmath::Vmul(nPointsTot,grad0,1,AdvVel[0],1,outarray[n],1);
181 grad0 = Array<OneD, NekDouble> (fields[0]->GetNpoints());
182 grad1 = Array<OneD, NekDouble> (fields[0]->GetNpoints());
183 for(
int n = 0; n < nConvectiveFields; ++n)
185 fields[0]->PhysDeriv(inarray[n],grad0,grad1);
189 Array<OneD, NekDouble> Outarray(nPointsTot);
190 fields[0]->PhysInterp1DScaled(OneDptscale,grad0,wkSp);
191 Vmath::Vmul (nPointsTot,wkSp,1,AdvVel[0],1,Outarray,1);
193 fields[0]->PhysInterp1DScaled(OneDptscale,grad1,wkSp);
195 timer.AccumulateRegion(
"Interp1DScaled");
196 Vmath::Vvtvp(nPointsTot,wkSp,1,AdvVel[1],1,Outarray,1,Outarray,1);
199 fields[0]->PhysGalerkinProjection1DScaled(OneDptscale,Outarray,outarray[n]);
201 timer.AccumulateRegion(
"GalerinProject");
205 Vmath::Vmul (nPointsTot,grad0,1,AdvVel[0],1,outarray[n],1);
206 Vmath::Vvtvp(nPointsTot,grad1,1,AdvVel[1],1,outarray[n],1,outarray[n],1);
213 Array<OneD, Array<OneD, NekDouble> > grad (ndim);
214 Array<OneD, Array<OneD, NekDouble> > gradScaled (ndim*nConvectiveFields);
215 Array<OneD, Array<OneD, NekDouble> > Outarray (nConvectiveFields);
216 for (
int i = 0; i < ndim; i++)
218 grad[i] = Array<OneD, NekDouble>(fields[0]->GetNpoints());
220 for (
int i = 0; i < ndim*nConvectiveFields; i++)
222 gradScaled[i] = Array<OneD, NekDouble>(nPointsTot);
224 for (
int i = 0; i < nConvectiveFields; i++)
226 Outarray[i] = Array<OneD, NekDouble>(nPointsTot);
229 for (
int n = 0; n < nConvectiveFields; n++)
231 fields[0]->PhysDeriv(inarray[n],grad[0],grad[1],grad[2]);
232 for (
int i = 0; i < ndim; i++)
235 fields[0]->PhysInterp1DScaled(OneDptscale,grad[i],
236 gradScaled[n*ndim+i]);
238 timer.AccumulateRegion(
"Interp1DScaled");
242 fields[0]->DealiasedDotProd(AdvVel,gradScaled,Outarray);
245 for (
int n = 0; n < nConvectiveFields; n++)
247 fields[0]->PhysGalerkinProjection1DScaled(OneDptscale,
248 Outarray[n],outarray[n]);
251 timer.AccumulateRegion(
"GalerinProject");
255 Array<OneD, Array<OneD, NekDouble> > grad (ndim*nConvectiveFields);
256 Array<OneD, Array<OneD, NekDouble> > Outarray (nConvectiveFields);
257 for (
int i = 0; i < ndim*nConvectiveFields; i++)
259 grad[i] = Array<OneD, NekDouble>(nPointsTot);
261 for (
int i = 0; i < nConvectiveFields; i++)
263 Outarray[i] = Array<OneD, NekDouble>(nPointsTot);
266 for (
int n = 0; n < nConvectiveFields; n++)
268 fields[0]->PhysDeriv(inarray[n],grad[n*ndim+0],
273 fields[0]->DealiasedDotProd(AdvVel,grad,outarray);
277 grad0 = Array<OneD, NekDouble> (fields[0]->GetNpoints());
278 grad1 = Array<OneD, NekDouble> (fields[0]->GetNpoints());
279 grad2 = Array<OneD, NekDouble> (fields[0]->GetNpoints());
280 Array<OneD, NekDouble> tmp = grad2;
281 for(
int n = 0; n < nConvectiveFields; ++n)
283 if (fields[0]->GetWaveSpace() ==
true &&
286 fields[0]->HomogeneousBwdTrans(inarray[n],tmp);
287 fields[0]->PhysDeriv(tmp,grad0,grad1);
292 fields[0]->HomogeneousBwdTrans(outarray[n],grad2);
294 else if (fields[0]->GetWaveSpace() ==
true &&
297 fields[0]->HomogeneousBwdTrans(inarray[n],tmp);
298 fields[0]->PhysDeriv(tmp,grad0);
302 fields[0]->HomogeneousBwdTrans(outarray[n],grad1);
306 fields[0]->HomogeneousBwdTrans(outarray[n],grad2);
310 fields[0]->PhysDeriv(inarray[n],grad0,grad1,grad2);
314 Array<OneD, NekDouble> Outarray(nPointsTot);
316 fields[0]->PhysInterp1DScaled(OneDptscale,grad0,wkSp);
318 timer.AccumulateRegion(
"Interp1DScaled");
319 Vmath::Vmul(nPointsTot,wkSp,1,AdvVel[0],1,Outarray,1);
322 fields[0]->PhysInterp1DScaled(OneDptscale,grad1,wkSp);
324 timer.AccumulateRegion(
"Interp1DScaled");
329 fields[0]->PhysInterp1DScaled(OneDptscale,grad2,wkSp);
331 timer.AccumulateRegion(
"Interp1DScaled");
335 fields[0]->PhysGalerkinProjection1DScaled(OneDptscale,
336 Outarray,outarray[n]);
338 timer.AccumulateRegion(
"GalerinProject");
342 Vmath::Vmul(nPointsTot,grad0,1,AdvVel[0],1,outarray[n],1);
343 Vmath::Vvtvp(nPointsTot,grad1,1,AdvVel[1],1,outarray[n],1,
345 Vmath::Vvtvp(nPointsTot,grad2,1,AdvVel[2],1,outarray[n],1,
349 if(fields[0]->GetWaveSpace() ==
true)
351 fields[0]->HomogeneousFwdTrans(outarray[n],outarray[n]);
357 ASSERTL0(
false,
"dimension unknown");
360 for(
int n = 0; n < nConvectiveFields; ++n)
#define ASSERTL0(condition, msg)
#define ASSERTL1(condition, msg)
Assert Level 1 – Debugging which is used whether in FULLDEBUG or DEBUG compilation mode....
bool m_homogen_dealiasing
MultiRegions::Direction const DirCartesianMap[]
void Vmul(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Multiply vector z = x*y.
void Neg(int n, T *x, const int incx)
Negate x = -x.
void Vvtvp(int n, const T *w, const int incw, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
vvtvp (vector times vector plus vector): z = w*x + y