78 boost::ignore_unused(time);
81 int nTracePts =
m_fields[0]->GetTrace()->GetNpoints();
82 int nVariables = physarray.num_elements();
85 const Array<OneD, const int> &traceBndMap
90 Array<OneD, NekDouble > Vn (nTracePts, 0.0);
91 Array<OneD, NekDouble > Vel(nTracePts, 0.0);
92 for (i = 0; i < nDimensions; ++i)
94 Vmath::Vdiv(nTracePts, Fwd[i+1], 1, Fwd[0], 1, Vel, 1);
100 Array<OneD, NekDouble > absVel(nTracePts, 0.0);
101 m_varConv->GetAbsoluteVelocity(Fwd, absVel);
104 Array<OneD, NekDouble >
pressure (nTracePts);
105 Array<OneD, NekDouble > soundSpeed(nTracePts);
108 m_varConv->GetSoundSpeed(Fwd, soundSpeed);
111 Array<OneD, NekDouble > Mach(nTracePts, 0.0);
112 Vmath::Vdiv(nTracePts, Vn, 1, soundSpeed, 1, Mach, 1);
116 int e, id1, id2, npts, pnt;
124 GetExp(e)->GetTotPoints();
130 Array<OneD, NekDouble> tmpPressure (npts,
pressure+id2);
131 Array<OneD, NekDouble> rho (npts, Fwd[0]+id2);
132 Array<OneD, NekDouble> e(npts);
133 m_varConv->GetEFromRhoP(rho, tmpPressure, e);
136 for (i = 0; i < npts; i++)
141 if (Mach[pnt] < 0.99)
144 for (j = 0; j < nVariables-1; ++j)
152 for (j = 1; j < nVariables-1; ++j)
159 rhoeb = Fwd[0][pnt] * e[i] + Ek;
162 UpdatePhys())[id1+i] = rhoeb;
167 for (j = 0; j < nVariables; ++j)
171 UpdatePhys())[id1+i] = Fwd[j][pnt];
int m_spacedim
Space dimension.
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
void Vdiv(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Multiply vector z = x/y.
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array of fields.
void Vabs(int n, const T *x, const int incx, T *y, const int incy)
vabs: y = |x|
VariableConverterSharedPtr m_varConv
Auxiliary object to convert variables.
Array< OneD, Array< OneD, NekDouble > > m_traceNormals
Trace normals.
int m_bcRegion
Id of the boundary region.
Array< OneD, Array< OneD, NekDouble > > m_fieldStorage