Nektar++
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
Functions
ExtractSurface2DCFS.cpp File Reference
#include <cstdio>
#include <cstdlib>
#include <string>
#include <iostream>
#include <iomanip>
#include <MultiRegions/ExpList.h>
#include <MultiRegions/ExpList1D.h>
#include <MultiRegions/ExpList2D.h>
#include <MultiRegions/ExpList2DHomogeneous1D.h>
#include <MultiRegions/ExpList3DHomogeneous1D.h>
#include <MultiRegions/ExpList3DHomogeneous2D.h>
#include <MultiRegions/AssemblyMap/AssemblyMapDG.h>
#include <MultiRegions/DisContField2D.h>
#include <LocalRegions/MatrixKey.h>
#include <LocalRegions/Expansion2D.h>
#include <LocalRegions/Expansion.h>
#include <LibUtilities/BasicUtils/FieldIO.h>
#include <LibUtilities/BasicUtils/NekFactory.hpp>
#include <LibUtilities/BasicUtils/SessionReader.h>
#include <LibUtilities/BasicUtils/SharedArray.hpp>
#include <LibUtilities/Communication/Comm.h>
#include <LibUtilities/Memory/NekMemoryManager.hpp>
#include <MultiRegions/ContField2D.h>
#include <SpatialDomains/MeshGraph2D.h>
#include <SolverUtils/SolverUtilsDeclspec.h>
Include dependency graph for ExtractSurface2DCFS.cpp:

Go to the source code of this file.

Functions

int main (int argc, char *argv[])

Function Documentation

int main ( int  argc,
char *  argv[] 
)

Evaluation of the velocity gradient in the cartesian directions Du_x: traceFieldsAdded[10] Du_y: traceFieldsAdded[11] Dv_x: traceFieldsAdded[12] Dv_y: traceFieldsAdded[13]

Definition at line 72 of file ExtractSurface2DCFS.cpp.

References Nektar::MemoryManager< DataType >::AllocateSharedPtr(), ASSERTL0, Nektar::LibUtilities::SessionReader::CreateInstance(), Nektar::LibUtilities::ePolyEvenlySpaced, Nektar::SpatialDomains::eWall, Nektar::SpatialDomains::eWallViscous, Vmath::Fill(), Nektar::StdRegions::StdExpansion::GetTotPoints(), Nektar::LibUtilities::Import(), Vmath::Neg(), Nektar::SpatialDomains::MeshGraph::Read(), Vmath::Smul(), Vmath::Vadd(), Vmath::Vcopy(), Vmath::Vdiv(), Vmath::Vmul(), Vmath::Vsqrt(), Vmath::Vsub(), and Vmath::Vvtvp().

{
string fname = std::string(argv[2]);
int fdot = fname.find_last_of('.');
if (fdot != std::string::npos)
{
string ending = fname.substr(fdot);
// If .chk or .fld we exchange the extension in the output file.
// For all other files (e.g. .bse) we append the extension to avoid
// conflicts.
if (ending == ".chk" || ending == ".fld")
{
fname = fname.substr(0,fdot);
}
}
fname = fname + ".txt";
int cnt;
int id1 = 0;
int id2 = 0;
int i, j, n, e, b;
Array<OneD, NekDouble> auxArray;
int nBndEdgePts, nBndEdges, nBndRegions;
if (argc < 3)
{
fprintf(stderr,
"Usage: ExtractSurface2DCFS meshfile fieldFile\n");
fprintf(stderr,
"Extracts a surface from a 2D fld file"
"(only for CompressibleFlowSolver and purely 2D .fld files)\n");
exit(1);
}
= LibUtilities::SessionReader::CreateInstance(3, argv);
std::string m_ViscosityType;
NekDouble m_gamma;
NekDouble m_pInf;
NekDouble m_rhoInf;
NekDouble m_uInf;
NekDouble m_vInf;
NekDouble m_wInf;
NekDouble m_gasConstant;
NekDouble m_Twall;
NekDouble m_mu;
NekDouble m_thermalConductivity;
int m_spacedim = 2;
int nDimensions = m_spacedim;
int phys_offset;
// Get gamma parameter from session file.
ASSERTL0(vSession->DefinesParameter("Gamma"),
"Compressible flow sessions must define a Gamma parameter.");
vSession->LoadParameter("Gamma", m_gamma, 1.4);
// Get E0 parameter from session file.
ASSERTL0(vSession->DefinesParameter("pInf"),
"Compressible flow sessions must define a pInf parameter.");
vSession->LoadParameter("pInf", m_pInf, 101325);
// Get rhoInf parameter from session file.
ASSERTL0(vSession->DefinesParameter("rhoInf"),
"Compressible flow sessions must define a rhoInf parameter.");
vSession->LoadParameter("rhoInf", m_rhoInf, 1.225);
// Get uInf parameter from session file.
ASSERTL0(vSession->DefinesParameter("uInf"),
"Compressible flow sessions must define a uInf parameter.");
vSession->LoadParameter("uInf", m_uInf, 0.1);
// Get vInf parameter from session file.
if (m_spacedim == 2 || m_spacedim == 3)
{
ASSERTL0(vSession->DefinesParameter("vInf"),
"Compressible flow sessions must define a vInf parameter"
"for 2D/3D problems.");
vSession->LoadParameter("vInf", m_vInf, 0.0);
}
// Get wInf parameter from session file.
if (m_spacedim == 3)
{
ASSERTL0(vSession->DefinesParameter("wInf"),
"Compressible flow sessions must define a wInf parameter"
"for 3D problems.");
vSession->LoadParameter("wInf", m_wInf, 0.0);
}
vSession->LoadParameter ("GasConstant", m_gasConstant, 287.058);
vSession->LoadParameter ("Twall", m_Twall, 300.15);
vSession->LoadSolverInfo("ViscosityType", m_ViscosityType, "Constant");
vSession->LoadParameter ("mu", m_mu, 1.78e-05);
vSession->LoadParameter ("thermalConductivity",
m_thermalConductivity, 0.0257);
//--------------------------------------------------------------------------
// Read in mesh from input file
string meshfile(argv[1]);
SpatialDomains::MeshGraph::Read(vSession);
//--------------------------------------------------------------------------
//--------------------------------------------------------------------------
// Import field file
string fieldFile(argv[2]);
vector<LibUtilities::FieldDefinitionsSharedPtr> fieldDef;
vector<vector<NekDouble> > fieldData;
LibUtilities::Import(fieldFile, fieldDef, fieldData);
//--------------------------------------------------------------------------
//--------------------------------------------------------------------------
// Set up Expansion information
vector< vector<LibUtilities::PointsType> > pointsType;
for (i = 0; i < fieldDef.size(); ++i)
{
vector<LibUtilities::PointsType> ptype;
for (j = 0; j < 2; ++j)
{
}
pointsType.push_back(ptype);
}
graphShPt->SetExpansions(fieldDef, pointsType);
//--------------------------------------------------------------------------
//--------------------------------------------------------------------------
// Define Expansion
int nfields = fieldDef[0]->m_fields.size();
Array<OneD, MultiRegions::ExpListSharedPtr> Exp(nfields);
Array<OneD, MultiRegions::ExpListSharedPtr> pFields(nfields);
for(i = 0; i < pFields.num_elements(); i++)
{
pFields[i] = MemoryManager<
MultiRegions::DisContField2D>::AllocateSharedPtr(
vSession, graphShPt, vSession->GetVariable(i));
}
::AllocateSharedPtr(vSession, graphShPt);
Exp[0] = Exp2D;
for (i = 1; i < nfields; ++i)
{
}
int nSolutionPts = pFields[0]->GetNpoints();
int nTracePts = pFields[0]->GetTrace()->GetTotPoints();
int nElements = pFields[0]->GetExpSize();
Array<OneD, NekDouble> tmp(nSolutionPts, 0.0);
Array<OneD, NekDouble> x(nSolutionPts);
Array<OneD, NekDouble> y(nSolutionPts);
Array<OneD, NekDouble> z(nSolutionPts);
Array<OneD, NekDouble> traceX(nTracePts);
Array<OneD, NekDouble> traceY(nTracePts);
Array<OneD, NekDouble> traceZ(nTracePts);
Array<OneD, NekDouble> surfaceX(nTracePts);
Array<OneD, NekDouble> surfaceY(nTracePts);
Array<OneD, NekDouble> surfaceZ(nTracePts);
pFields[0]->GetCoords(x, y, z);
pFields[0]->ExtractTracePhys(x, traceX);
pFields[0]->ExtractTracePhys(y, traceY);
pFields[0]->ExtractTracePhys(z, traceZ);
//--------------------------------------------------------------------------
//--------------------------------------------------------------------------
// Copy data from field file
Array<OneD, Array<OneD, NekDouble> > uFields(nfields);
Array<OneD, Array<OneD, NekDouble> > traceFields(nfields);
Array<OneD, Array<OneD, NekDouble> > surfaceFields(nfields);
// Extract the physical values of the solution at the boundaries
for (j = 0; j < nfields; ++j)
{
uFields[j] = Array<OneD, NekDouble>(nSolutionPts, 0.0);
traceFields[j] = Array<OneD, NekDouble>(nTracePts, 0.0);
surfaceFields[j] = Array<OneD, NekDouble>(nTracePts, 0.0);
for (i = 0; i < fieldData.size(); ++i)
{
Exp[j]->ExtractDataToCoeffs(fieldDef[i], fieldData[i],
fieldDef[i]->m_fields[j],
Exp[j]->UpdateCoeffs());
}
Exp[j]->BwdTrans(Exp[j]->GetCoeffs(), Exp[j]->UpdatePhys());
Vmath::Vcopy(nSolutionPts, Exp[j]->GetPhys(), 1, uFields[j], 1);
pFields[0]->ExtractTracePhys(uFields[j], traceFields[j]);
}
//Fields to add in the output file
int nfieldsAdded = 20;
Array<OneD, Array<OneD, NekDouble> > traceFieldsAdded(nfieldsAdded);
Array<OneD, Array<OneD, NekDouble> > surfaceFieldsAdded(nfieldsAdded);
for (j = 0; j < nfieldsAdded; ++j)
{
traceFieldsAdded[j] = Array<OneD, NekDouble>(nTracePts, 0.0);
surfaceFieldsAdded[j] = Array<OneD, NekDouble>(nTracePts, 0.0);
}
/******** Evaluation of normals and tangents on the trace *****************
* nx -> traceFieldsAdded[0];
* ny -> traceFieldsAdded[1];
* tx -> traceFieldsAdded[2];
* ty -> traceFieldsAdded[3];
***************************************************************************/
Array<OneD, Array<OneD, NekDouble> > m_traceNormals (nDimensions);
for(i = 0; i < nDimensions; ++i)
{
m_traceNormals[i] = Array<OneD, NekDouble> (nTracePts, 0.0);
}
pFields[0]->GetTrace()->GetNormals(m_traceNormals);
Array<OneD, Array<OneD, NekDouble> > m_traceTangents (nDimensions);
for(i = 0; i < nDimensions; ++i)
{
m_traceTangents[i] = Array<OneD, NekDouble> (nTracePts, 0.0);
}
// nx
Vmath::Vcopy(nTracePts,
&m_traceNormals[0][0], 1,
&traceFieldsAdded[0][0], 1);
// ny
Vmath::Vcopy(nTracePts,
&m_traceNormals[1][0], 1,
&traceFieldsAdded[1][0], 1);
// t_x = - n_y
Vmath::Vcopy(nTracePts,
&m_traceNormals[1][0], 1,
&m_traceTangents[0][0], 1);
Vmath::Neg(nTracePts, &m_traceTangents[0][0], 1);
Vmath::Vcopy(nTracePts,
&m_traceTangents[0][0], 1,
&traceFieldsAdded[2][0], 1);
// t_y = n_x
Vmath::Vcopy(nTracePts,
&m_traceNormals[0][0], 1,
&m_traceTangents[1][0], 1);
Vmath::Vcopy(nTracePts,
&m_traceTangents[1][0], 1,
&traceFieldsAdded[3][0], 1);
/******** Evaluation of the pressure ***************************************
* P = (E-1/2.*rho.*((rhou./rho).^2+(rhov./rho).^2))*(gamma - 1);
* P -> traceFieldsAdded[4];
***************************************************************************/
Array<OneD, NekDouble> pressure(nSolutionPts, 0.0);
NekDouble gammaMinusOne = m_gamma - 1.0;
for (i = 0; i < m_spacedim; i++)
{
Vmath::Vmul(nSolutionPts,
&uFields[i + 1][0], 1,
&uFields[i + 1][0], 1,
&tmp[0],1);
Vmath::Smul(nSolutionPts, 0.5,
&tmp[0], 1,
&tmp[0], 1);
Vmath::Vadd(nSolutionPts,
&pressure[0], 1,
&tmp[0], 1,
&pressure[0], 1);
}
Vmath::Vdiv(nSolutionPts,
&pressure[0], 1,
&uFields[0][0], 1,
&pressure[0],1);
Vmath::Vsub(nSolutionPts,
&uFields[nfields - 1][0], 1,
&pressure[0], 1,
&pressure[0],1);
Vmath::Smul(nSolutionPts, gammaMinusOne,
&pressure[0], 1,
&pressure[0], 1);
// Extract trace
pFields[0]->ExtractTracePhys(pressure, traceFieldsAdded[4]);
/******** Evaluation of the temperature ************************************
* T = P/(R*rho);
* T -> traceFieldsAdded[5];
***************************************************************************/
Array<OneD, NekDouble> temperature(nSolutionPts, 0.0);
Vmath::Vdiv(nSolutionPts,
&pressure[0], 1,
&uFields[0][0], 1,
&temperature[0],1);
NekDouble GasConstantInv = 1.0/m_gasConstant;
Vmath::Smul(nSolutionPts, GasConstantInv,
&temperature[0], 1,
&temperature[0], 1);
// Extract trace
pFields[0]->ExtractTracePhys(temperature, traceFieldsAdded[5]);
/*** Evaluation of the temperature gradient in the normal direction ********
* DT_n -> traceFieldsAdded[6]
***************************************************************************/
Array<OneD, Array<OneD, NekDouble> > Dtemperature(nDimensions);
Array<OneD, Array<OneD, NekDouble> > traceDtemperature(nDimensions);
for (i = 0; i < nDimensions; ++ i)
{
Dtemperature[i] = Array<OneD, NekDouble>(nSolutionPts, 0.0);
traceDtemperature[i] = Array<OneD, NekDouble>(nTracePts, 0.0);
}
for (i = 0; i < nDimensions; ++ i)
{
for (n = 0; n < nElements; n++)
{
phys_offset = pFields[0]->GetPhys_Offset(n);
pFields[i]->GetExp(n)->PhysDeriv(
i, temperature + phys_offset,
auxArray = Dtemperature[i] + phys_offset);
}
// Extract trace
pFields[0]->ExtractTracePhys(Dtemperature[i], traceDtemperature[i]);
}
for(i = 0; i < nDimensions; ++i)
{
Vmath::Vmul(nTracePts,
&m_traceNormals[i][0], 1,
&traceDtemperature[i][0], 1,
&tmp[0],1);
Vmath::Vadd(nTracePts,
&traceFieldsAdded[6][0], 1,
&tmp[0], 1,
&traceFieldsAdded[6][0], 1);
}
/*** Evaluation of the pressure gradient ***********************************
* DP_t -> traceFieldsAdded[7] tangent direction
* DP_x -> traceFieldsAdded[8]
* DP_y -> traceFieldsAdded[9]
***************************************************************************/
Array<OneD, Array<OneD, NekDouble> > Dpressure(nDimensions);
Array<OneD, Array<OneD, NekDouble> > traceDpressure(nDimensions);
for (i = 0; i < nDimensions; ++ i)
{
Dpressure[i] = Array<OneD, NekDouble>(nSolutionPts, 0.0);
traceDpressure[i] = Array<OneD, NekDouble>(nTracePts, 0.0);
}
for (i = 0; i < nDimensions; ++ i)
{
for (n = 0; n < nElements; n++)
{
phys_offset = pFields[0]->GetPhys_Offset(n);
pFields[i]->GetExp(n)->PhysDeriv(
i, pressure + phys_offset,
auxArray = Dpressure[i] + phys_offset);
}
// Extract trace
pFields[0]->ExtractTracePhys(Dpressure[i], traceDpressure[i]);
}
// Dp_t
for(i = 0; i < nDimensions; ++i)
{
Vmath::Vmul(nTracePts,
&m_traceTangents[i][0], 1,
&traceDpressure[i][0], 1,
&tmp[0],1);
Vmath::Vadd(nTracePts,
&traceFieldsAdded[7][0], 1,
&tmp[0], 1,
&traceFieldsAdded[7][0], 1);
}
// Dp_x
Vmath::Vcopy(nTracePts,
&traceDpressure[0][0], 1,
&traceFieldsAdded[8][0], 1);
// Dp_y
Vmath::Vcopy(nTracePts,
&traceDpressure[1][0], 1,
&traceFieldsAdded[9][0], 1);
/** Evaluation of the velocity gradient in the cartesian directions
* Du_x: traceFieldsAdded[10]
* Du_y: traceFieldsAdded[11]
* Dv_x: traceFieldsAdded[12]
* Dv_y: traceFieldsAdded[13]
**/
Array<OneD, Array<OneD, Array<OneD, NekDouble> > > Dvelocity(nDimensions);
Array<OneD, Array<OneD, Array<OneD, NekDouble> > > traceDvelocity(nDimensions);
Array<OneD, Array<OneD, NekDouble> > velocity(nDimensions);
for (i = 0; i < nDimensions; ++ i)
{
Dvelocity[i] = Array<OneD, Array<OneD, NekDouble> >(nDimensions);
traceDvelocity[i] = Array<OneD, Array<OneD, NekDouble> >(nDimensions);
velocity[i] = Array<OneD, NekDouble>(nSolutionPts, 0.0);
Vmath::Vdiv(nSolutionPts, uFields[i+1], 1, uFields[0], 1,
velocity[i], 1);
for (j = 0; j < nDimensions; ++j)
{
Dvelocity[i][j] = Array<OneD, NekDouble>(nSolutionPts, 0.0);
traceDvelocity[i][j] = Array<OneD, NekDouble>(nTracePts, 0.0);
}
}
for (i = 0; i < nDimensions; ++i)
{
for (j = 0; j < nDimensions; ++j)
{
for (n = 0; n < nElements; n++)
{
phys_offset = pFields[0]->GetPhys_Offset(n);
pFields[i]->GetExp(n)->PhysDeriv(
j, velocity[i] + phys_offset,
auxArray = Dvelocity[i][j] + phys_offset);
}
// Extract trace
pFields[0]->ExtractTracePhys(Dvelocity[i][j], traceDvelocity[i][j]);
}
}
Vmath::Vcopy(nTracePts,
&traceDvelocity[0][0][0], 1,
&traceFieldsAdded[10][0], 1);
Vmath::Vcopy(nTracePts,
&traceDvelocity[0][1][0], 1,
&traceFieldsAdded[11][0], 1);
Vmath::Vcopy(nTracePts,
&traceDvelocity[1][0][0], 1,
&traceFieldsAdded[12][0], 1);
Vmath::Vcopy(nTracePts,
&traceDvelocity[1][1][0], 1,
&traceFieldsAdded[13][0], 1);
/*** Evaluation of shear stresses ******************************************
* tau_xx -> traceFieldsAdded[14]
* tau_yy -> traceFieldsAdded[15]
* tau_xy -> traceFieldsAdded[16]
***************************************************************************/
// Stokes hypotesis
const NekDouble lambda = -2.0/3.0;
// Auxiliary variables
Array<OneD, NekDouble > mu (nSolutionPts, 0.0);
Array<OneD, NekDouble > mu2 (nSolutionPts, 0.0);
Array<OneD, NekDouble > divVel(nSolutionPts, 0.0);
// Variable viscosity through the Sutherland's law
if (m_ViscosityType == "Variable")
{
NekDouble mu_star = m_mu;
NekDouble T_star = m_pInf / (m_rhoInf * m_gasConstant);
NekDouble ratio;
for (int i = 0; i < nSolutionPts; ++i)
{
ratio = temperature[i] / T_star;
mu[i] = mu_star * ratio * sqrt(ratio) *
(T_star + 110.0) / (temperature[i] + 110.0);
}
}
else
{
Vmath::Fill(nSolutionPts, m_mu, &mu[0], 1);
}
// Computing diagonal terms of viscous stress tensor
Array<OneD, Array<OneD, NekDouble> > temp(m_spacedim);
Array<OneD, Array<OneD, NekDouble> > Sgg(m_spacedim);
// mu2 = 2 * mu
Vmath::Smul(nSolutionPts, 2.0, &mu[0], 1, &mu2[0], 1);
// Velocity divergence
Vmath::Vadd(nSolutionPts, &divVel[0], 1,
&Dvelocity[0][0][0], 1, &divVel[0], 1);
Vmath::Vadd(nSolutionPts, &divVel[0], 1,
&Dvelocity[1][1][0], 1, &divVel[0], 1);
// Velocity divergence scaled by lambda * mu
Vmath::Smul(nSolutionPts, lambda, &divVel[0], 1, &divVel[0], 1);
Vmath::Vmul(nSolutionPts, &mu[0], 1, &divVel[0], 1, &divVel[0], 1);
// Diagonal terms of viscous stress tensor (Sxx, Syy)
// Sjj = 2 * mu * du_j/dx_j - (2 / 3) * mu * sum_j(du_j/dx_j)
for (j = 0; j < m_spacedim; ++j)
{
temp[j] = Array<OneD, NekDouble>(nSolutionPts, 0.0);
Sgg[j] = Array<OneD, NekDouble>(nSolutionPts, 0.0);
Vmath::Vmul(nSolutionPts, &mu2[0], 1, &Dvelocity[j][j][0], 1,
&temp[j][0], 1);
Vmath::Vadd(nSolutionPts, &temp[j][0], 1, &divVel[0], 1, &Sgg[j][0], 1);
}
// Extra diagonal terms of viscous stress tensor (Sxy = Syx)
Array<OneD, NekDouble > Sxy(nSolutionPts, 0.0);
// Sxy = (du/dy + dv/dx)
Vmath::Vadd(nSolutionPts, &Dvelocity[0][1][0], 1,
&Dvelocity[1][0][0], 1, &Sxy[0], 1);
// Sxy = mu * (du/dy + dv/dx)
Vmath::Vmul(nSolutionPts, &mu[0], 1, &Sxy[0], 1, &Sxy[0], 1);
pFields[0]->ExtractTracePhys(Sgg[0], traceFieldsAdded[14]);
pFields[0]->ExtractTracePhys(Sgg[1], traceFieldsAdded[15]);
pFields[0]->ExtractTracePhys(Sxy, traceFieldsAdded[16]);
/*** Evaluation of the shear stress in tangent direction *******************
* tau_t -> traceFieldsAdded[17]
***************************************************************************/
Array<OneD, NekDouble > sigma_diff (nTracePts, 0.0);
Array<OneD, NekDouble > cosTeta (nTracePts, 0.0);
Array<OneD, NekDouble > sinTeta (nTracePts, 0.0);
Array<OneD, NekDouble > cos2Teta (nTracePts, 0.0);
Array<OneD, NekDouble > sin2Teta (nTracePts, 0.0);
Array<OneD, NekDouble > tau_t (nTracePts, 0.0);
Array<OneD, NekDouble > tmpTeta (nTracePts, 0.0);
// cos(teta) = nx
Vmath::Vcopy(nTracePts, &m_traceNormals[0][0], 1, &cosTeta[0], 1);
// sin(teta) = ny
Vmath::Vcopy(nTracePts, &m_traceNormals[1][0], 1, &sinTeta[0], 1);
// sigma_diff = sigma_x - sigma_y
Vmath::Vsub(nTracePts, &traceFieldsAdded[14][0], 1,
&traceFieldsAdded[15][0], 1, &sigma_diff[0], 1);
// sin(2*teta)
Vmath::Vmul(nTracePts, &cosTeta[0], 1, &sinTeta[0], 1, &tmpTeta[0], 1);
Vmath::Smul(nTracePts, 2.0, &tmpTeta[0], 1, &sin2Teta[0], 1);
// cos(2*teta)
Vmath::Vmul(nTracePts, &cosTeta[0], 1, &cosTeta[0], 1, &cos2Teta[0], 1);
Vmath::Vmul(nTracePts, &sinTeta[0], 1, &sinTeta[0], 1, &tmpTeta[0], 1);
Vmath::Vsub(nTracePts, &cos2Teta[0], 1, &tmpTeta[0], 1, &cos2Teta[0], 1);
// tau_t = -0.5*sigma_diff * sin(2*teta) + tau_xy * cos(2*teta)
Vmath::Smul(nTracePts, -0.5, &sigma_diff[0], 1, &sigma_diff[0], 1);
Vmath::Vmul(nTracePts, &sigma_diff[0], 1, &sin2Teta[0], 1, &tau_t[0], 1);
Vmath::Vmul(nTracePts, &traceFieldsAdded[16][0], 1, &cos2Teta[0], 1,
&tmpTeta[0], 1);
Vmath::Vadd(nTracePts, &tau_t[0], 1, &tmpTeta[0], 1, &tau_t[0], 1);
Vmath::Vcopy(nTracePts, &tau_t[0], 1, &traceFieldsAdded[17][0], 1);
/*** Evaluation of dinamic viscosity ***************************************
* mu -> traceFieldsAdded[18]
***************************************************************************/
pFields[0]->ExtractTracePhys(mu, traceFieldsAdded[18]);
/*** Evaluation of Mach number *********************************************
* M -> traceFieldsAdded[18]
***************************************************************************/
NekDouble gamma = m_gamma;
// Speed of sound
Array<OneD, NekDouble> soundspeed(nSolutionPts, 0.0);
Vmath::Vdiv (nSolutionPts, pressure, 1, uFields[0], 1, soundspeed, 1);
Vmath::Smul (nSolutionPts, gamma, soundspeed, 1, soundspeed, 1);
Vmath::Vsqrt(nSolutionPts, soundspeed, 1, soundspeed, 1);
// Mach
Array<OneD, NekDouble> mach(nSolutionPts, 0.0);
for (int i = 0; i < m_spacedim; ++i)
{
Vmath::Vvtvp(nSolutionPts, uFields[i + 1], 1, uFields[i + 1], 1,
mach, 1, mach, 1);
}
Vmath::Vdiv(nSolutionPts, mach, 1, uFields[0], 1, mach, 1);
Vmath::Vdiv(nSolutionPts, mach, 1, uFields[0], 1, mach, 1);
Vmath::Vsqrt(nSolutionPts, mach, 1, mach, 1);
Vmath::Vdiv(nSolutionPts, mach, 1, soundspeed, 1, mach, 1);
pFields[0]->ExtractTracePhys(mach, traceFieldsAdded[19]);
/**************************************************************************/
// Extract coordinates
if (pFields[0]->GetBndCondExpansions().num_elements())
{
id1 = 0;
cnt = 0;
nBndRegions = pFields[0]->GetBndCondExpansions().num_elements();
for (b = 0; b < nBndRegions; ++b)
{
nBndEdges = pFields[0]->GetBndCondExpansions()[b]->GetExpSize();
for (e = 0; e < nBndEdges; ++e)
{
nBndEdgePts = pFields[0]->
GetBndCondExpansions()[b]->GetExp(e)->GetNumPoints(0);
id2 = pFields[0]->GetTrace()->
GetPhys_Offset(pFields[0]->GetTraceMap()->
GetBndCondTraceToGlobalTraceMap(cnt++));
if (pFields[0]->GetBndConditions()[b]->
GetUserDefined() == SpatialDomains::eWallViscous ||
pFields[0]->GetBndConditions()[b]->
GetUserDefined() == SpatialDomains::eWall)
{
Vmath::Vcopy(nBndEdgePts, &traceX[id2], 1,
&surfaceX[id1], 1);
Vmath::Vcopy(nBndEdgePts, &traceY[id2], 1,
&surfaceY[id1], 1);
Vmath::Vcopy(nBndEdgePts, &traceZ[id2], 1,
&surfaceZ[id1], 1);
id1 += nBndEdgePts;
}
}
}
}
// Extract fields
if (pFields[0]->GetBndCondExpansions().num_elements())
{
for (j = 0; j < nfields; ++j)
{
id1 = 0;
cnt = 0;
nBndRegions = pFields[j]->GetBndCondExpansions().num_elements();
for (b = 0; b < nBndRegions; ++b)
{
nBndEdges = pFields[j]->GetBndCondExpansions()[b]->GetExpSize();
for (e = 0; e < nBndEdges; ++e)
{
nBndEdgePts = pFields[j]->
GetBndCondExpansions()[b]->GetExp(e)->GetNumPoints(0);
id2 = pFields[j]->GetTrace()->
GetPhys_Offset(pFields[j]->GetTraceMap()->
GetBndCondTraceToGlobalTraceMap(cnt++));
if (pFields[j]->GetBndConditions()[b]->
GetUserDefined() == SpatialDomains::eWallViscous ||
pFields[j]->GetBndConditions()[b]->
GetUserDefined() == SpatialDomains::eWall)
{
Vmath::Vcopy(nBndEdgePts, &traceFields[j][id2], 1,
&surfaceFields[j][id1], 1);
id1 += nBndEdgePts;
}
}
}
}
}
// Extract fields added
if (pFields[0]->GetBndCondExpansions().num_elements())
{
for (j = 0; j < nfieldsAdded; ++j)
{
id1 = 0;
cnt = 0;
nBndRegions = pFields[0]->GetBndCondExpansions().num_elements();
for (b = 0; b < nBndRegions; ++b)
{
nBndEdges = pFields[0]->GetBndCondExpansions()[b]->GetExpSize();
for (e = 0; e < nBndEdges; ++e)
{
nBndEdgePts = pFields[0]->
GetBndCondExpansions()[b]->GetExp(e)->GetNumPoints(0);
id2 = pFields[0]->GetTrace()->
GetPhys_Offset(pFields[0]->GetTraceMap()->
GetBndCondTraceToGlobalTraceMap(cnt++));
if (pFields[0]->GetBndConditions()[b]->
GetUserDefined() == SpatialDomains::eWallViscous ||
pFields[0]->GetBndConditions()[b]->
GetUserDefined() == SpatialDomains::eWall)
{
Vmath::Vcopy(nBndEdgePts, &traceFieldsAdded[j][id2], 1,
&surfaceFieldsAdded[j][id1], 1);
id1 += nBndEdgePts;
}
}
}
}
}
//===================================================================================================
//===================================================================================================
//===================================================================================================
std::string vEquation = vSession->GetSolverInfo("EQType");
Array<OneD, MultiRegions::ExpListSharedPtr> BndExp;
BndExp = pFields[0]->GetBndCondExpansions();
NekDouble Fxp(0.0);
NekDouble Fyp(0.0);
NekDouble Fxv(0.0);
NekDouble Fyv(0.0);
NekDouble Sref(0.0);
int GlobalIndex(0);
for(int i = 0; i < BndExp[0]->GetExpSize(); ++i)
{
bc = BndExp[0]->GetExp(i)->as<LocalRegions::Expansion1D> ();
int nbc = bc->GetTotPoints();
Array<OneD, NekDouble> nxOnBnd(nbc,0.0);
Array<OneD, NekDouble> nyOnBnd(nbc,0.0);
Array<OneD, NekDouble> txOnBnd(nbc,0.0);
Array<OneD, NekDouble> tyOnBnd(nbc,0.0);
// Array<OneD, NekDouble> CoeffAero(nbc,0.0);
// Array<OneD, NekDouble> tmp(nbc,0.0);
Array<OneD, NekDouble> drag_p(nbc,0.0);
Array<OneD, NekDouble> lift_p(nbc,0.0);
Array<OneD, NekDouble> PressurOnBnd(nbc,0.0);
Array<OneD, NekDouble> drag_v(nbc,0.0);
Array<OneD, NekDouble> lift_v(nbc,0.0);
Array<OneD, NekDouble> ShearStressOnBnd(nbc,0.0);
Array<OneD, NekDouble> Unity(nbc,1.0);
for(int j = 0; j < nbc; ++j)
{
nxOnBnd[j] = surfaceFieldsAdded[0][GlobalIndex];
nyOnBnd[j] = surfaceFieldsAdded[1][GlobalIndex];
txOnBnd[j] = surfaceFieldsAdded[2][GlobalIndex];
tyOnBnd[j] = surfaceFieldsAdded[3][GlobalIndex];
PressurOnBnd[j] = surfaceFieldsAdded[4][GlobalIndex];
if (vEquation == "NavierStokesCFE")
{
ShearStressOnBnd[j] = surfaceFieldsAdded[17][GlobalIndex];
}
// CoeffAero[j] = surfaceFields[0][GlobalIndex];
// tmp[j] = surfaceFields[1][GlobalIndex]*surfaceFields[1][GlobalIndex];
// tmp[j] = tmp[j] + surfaceFields[2][GlobalIndex]*surfaceFields[2][GlobalIndex];
// tmp[j] = sqrt(tmp[j]);
// CoeffAero[j] = CoeffAero[j]*tmp[j];
// CoeffAero[j] = 1.0/CoeffAero[j];
//
// PressurOnBnd[j] = CoeffAero[j]*surfaceFieldsAdded[4][GlobalIndex];
//
// cout << "CoeffAero = " << CoeffAero[j] << endl;
GlobalIndex++;
}
Vmath::Vmul(nbc,PressurOnBnd,1,nxOnBnd,1, drag_p,1);
Vmath::Vmul(nbc,PressurOnBnd,1,nyOnBnd,1, lift_p,1);
// Vmath::Vmul(nbc,drag_p,1,CoeffAero,1, drag_p,1);
// Vmath::Vmul(nbc,lift_p,1,CoeffAero,1, lift_p,1);
Fxp += bc->Integral(drag_p);
Fyp += bc->Integral(lift_p);
if (vEquation == "NavierStokesCFE")
{
Vmath::Vmul(nbc,ShearStressOnBnd,1,txOnBnd,1, drag_v,1);
Vmath::Vmul(nbc,ShearStressOnBnd,1,tyOnBnd,1, lift_v,1);
// Vmath::Vdiv(nbc,drag_v,1,CoeffAero,1, drag_v,1);
// Vmath::Vdiv(nbc,lift_v,1,CoeffAero,1, lift_v,1);
Fxv += bc->Integral(drag_v);
Fyv += bc->Integral(lift_v);
}
Sref += bc->Integral(Unity);
}
cout << "\n Sref = " << Sref << endl;
Fxp = Fxp/Sref;
Fyp = Fyp/Sref;
Fxv = Fxv/Sref;
Fyv = Fyv/Sref;
cout << " Pressure drag (Fxp) = " << Fxp << endl;
cout << " Pressure lift (Fyp) = " << Fyp << endl;
cout << " Viscous drag (Fxv) = " << Fxv << endl;
cout << " Viscous lift (Fyv) = " << Fyv << endl;
cout << "\n ==> Total drag = " << Fxp+Fxv << endl;
cout << " ==> Total lift = " << Fyp+Fyv << "\n" << endl;
//===================================================================================================
//===================================================================================================
//===================================================================================================
// Print the surface coordinates and the surface solution in a .txt file
ofstream outfile;
outfile.open(fname.c_str());
outfile << "% x[m] " << " \t"
<< "y[m] " << " \t"
<< "z[m] " << " \t"
<< "nx[] " << " \t"
<< "ny[] " << " \t"
<< "tx[] " << " \t"
<< "ty[] " << " \t"
<< "rho[kg/m^3] " << " \t"
<< "rhou[kg/(m^2 s)] " << " \t"
<< "rhov[kg/(m^2 s)] " << " \t"
<< "E[Pa] " << " \t"
<< "p[Pa] " << " \t"
<< "T[k] " << " \t"
<< "dT/dn[k/m] " << " \t"
<< "dp/dT[Pa/m] " << " \t"
<< "dp/dx[Pa/m] " << " \t"
<< "dp/dy[Pa/m] " << " \t"
<< "du/dx[s^-1] " << " \t"
<< "du/dy[s^-1] " << " \t"
<< "dv/dx[s^-1] " << " \t"
<< "dv/dy[s^-1] " << " \t"
<< "tau_xx[Pa] " << " \t"
<< "tau_yy[Pa] " << " \t"
<< "tau_xy[Pa] " << " \t"
<< "tau_t[Pa] " << " \t"
<< "mu[Pa s] " << " \t"
<< "M[] " << " \t"
// << "Fxp " << " \t"
<< endl;
for (i = 0; i < id1; ++i)
{
outfile << scientific
<< setw (17)
<< setprecision(16)
<< surfaceX[i] << " \t "
<< surfaceY[i] << " \t "
<< surfaceZ[i] << " \t "
<< surfaceFieldsAdded[0][i] << " \t "
<< surfaceFieldsAdded[1][i] << " \t "
<< surfaceFieldsAdded[2][i] << " \t "
<< surfaceFieldsAdded[3][i] << " \t "
<< surfaceFields[0][i] << " \t "
<< surfaceFields[1][i] << " \t "
<< surfaceFields[2][i] << " \t "
<< surfaceFields[3][i] << " \t "
<< surfaceFieldsAdded[4][i] << " \t "
<< surfaceFieldsAdded[5][i] << " \t "
<< surfaceFieldsAdded[6][i] << " \t "
<< surfaceFieldsAdded[7][i] << " \t "
<< surfaceFieldsAdded[8][i] << " \t "
<< surfaceFieldsAdded[9][i] << " \t "
<< surfaceFieldsAdded[10][i] << " \t "
<< surfaceFieldsAdded[11][i] << " \t "
<< surfaceFieldsAdded[12][i] << " \t "
<< surfaceFieldsAdded[13][i] << " \t "
<< surfaceFieldsAdded[14][i] << " \t "
<< surfaceFieldsAdded[15][i] << " \t "
<< surfaceFieldsAdded[16][i] << " \t "
<< surfaceFieldsAdded[17][i] << " \t "
<< surfaceFieldsAdded[18][i] << " \t "
<< surfaceFieldsAdded[19][i] << " \t "
// << Fxp << " \t "
<< endl;
}
outfile << endl << endl;
outfile.close();
return 0;
}