@@ -262,8 +262,6 @@ void CNEMONSSolver::BC_HeatFluxNonCatalytic_Wall(CGeometry *geometry,
262262 /* --- Get the locations of the primitive variables ---*/
263263 const unsigned short T_INDEX = nodes->GetTIndex ();
264264 const unsigned short TVE_INDEX = nodes->GetTveIndex ();
265- const unsigned short RHO_INDEX = nodes->GetRhoIndex ();
266- const unsigned short RHOCVTR_INDEX = nodes->GetRhoCvtrIndex ();
267265
268266 /* --- Loop over all of the vertices on this boundary marker ---*/
269267 SU2_OMP_FOR_DYN (OMP_MIN_SIZE)
@@ -285,7 +283,6 @@ void CNEMONSSolver::BC_HeatFluxNonCatalytic_Wall(CGeometry *geometry,
285283 // TODO: Look into this!
286284 // Note: Contributions from qtr and qve are used for proportional control
287285 // to drive the solution toward the specified heatflux more quickly.
288- const auto V = nodes->GetPrimitive (iPoint);
289286 const auto GradV = nodes->GetGradient_Primitive (iPoint);
290287 su2double dTdn = 0.0 ;
291288 su2double dTvedn = 0.0 ;
@@ -296,24 +293,6 @@ void CNEMONSSolver::BC_HeatFluxNonCatalytic_Wall(CGeometry *geometry,
296293 su2double ktr = nodes->GetThermalConductivity (iPoint);
297294 su2double kve = nodes->GetThermalConductivity_ve (iPoint);
298295
299- /* --- Scale thermal conductivity with turb ---*/
300- // TODO: Need to determine proper way to incorporate eddy viscosity
301- // This is only scaling Kve by same factor as ktr
302- su2double Mass = 0.0 ;
303- auto & Ms = FluidModel->GetSpeciesMolarMass ();
304- su2double tmp1, scl, Cptr;
305- su2double Ru=1000.0 *UNIVERSAL_GAS_CONSTANT;
306- su2double eddy_viscosity = nodes->GetEddyViscosity (iPoint);
307- for (unsigned short iSpecies=0 ; iSpecies<nSpecies; iSpecies++)
308- Mass += V[iSpecies]/V[RHO_INDEX]*Ms[iSpecies];
309- Cptr = V[RHOCVTR_INDEX]/V[RHO_INDEX]+Ru/Mass;
310- tmp1 = Cptr*(eddy_viscosity/Prandtl_Turb);
311- scl = tmp1/ktr;
312- ktr += Cptr*(eddy_viscosity/Prandtl_Turb);
313- kve = kve*(1.0 +scl);
314- // Cpve = V[RHOCVVE_INDEX]+Ru/Mass;
315- // kve += Cpve*(val_eddy_viscosity/Prandtl_Turb);
316-
317296 /* --- Compute residual ---*/
318297 Res_Visc[nSpecies+nDim] += pcontrol*(ktr*dTdn+kve*dTvedn) +
319298 Wall_HeatFlux*Area;
@@ -585,18 +564,13 @@ void CNEMONSSolver::BC_IsothermalNonCatalytic_Wall(CGeometry *geometry,
585564 unsigned short val_marker) {
586565
587566 const bool implicit = (config->GetKind_TimeIntScheme () == EULER_IMPLICIT);
588- const su2double Prandtl_Turb = config->GetPrandtl_Turb ();
589567 const bool ionization = config->GetIonization ();
590568 su2double UnitNormal[MAXNDIM] = {0.0 };
591569
592570 if (ionization) {
593571 SU2_MPI::Error (" NEED TO TAKE A CLOSER LOOK AT THE JACOBIAN W/ IONIZATION" ,CURRENT_FUNCTION);
594572 }
595573
596- /* --- Extract required indices ---*/
597- const unsigned short RHOCVTR_INDEX = nodes->GetRhoCvtrIndex ();
598- const unsigned short RHO_INDEX = nodes->GetRhoIndex ();
599-
600574 /* --- Define 'proportional control' constant ---*/
601575 const su2double C = 5 ;
602576
@@ -658,24 +632,6 @@ void CNEMONSSolver::BC_IsothermalNonCatalytic_Wall(CGeometry *geometry,
658632 su2double ktr = nodes->GetThermalConductivity (iPoint);
659633 su2double kve = nodes->GetThermalConductivity_ve (iPoint);
660634
661- /* --- Scale thermal conductivity with turb ---*/
662- // This is only scaling Kve by same factor as ktr
663- const auto V = nodes->GetPrimitive (iPoint);
664- su2double Mass = 0.0 ;
665- auto & Ms = FluidModel->GetSpeciesMolarMass ();
666- su2double tmp1, scl, Cptr;
667- su2double Ru=1000.0 *UNIVERSAL_GAS_CONSTANT;
668- su2double eddy_viscosity=nodes->GetEddyViscosity (iPoint);
669- for (unsigned short iSpecies=0 ; iSpecies<nSpecies; iSpecies++)
670- Mass += V[iSpecies]/V[RHO_INDEX]*Ms[iSpecies];
671- Cptr = V[RHOCVTR_INDEX]/V[RHO_INDEX]+Ru/Mass;
672- tmp1 = Cptr*(eddy_viscosity/Prandtl_Turb);
673- scl = tmp1/ktr;
674- ktr += Cptr*(eddy_viscosity/Prandtl_Turb);
675- kve = kve*(1.0 +scl);
676- // Cpve = V[RHOCVVE_INDEX]+Ru/Mass;
677- // kve += Cpve*(val_eddy_viscosity/Prandtl_Turb);
678-
679635 /* --- Apply to the linear system ---*/
680636 Res_Visc[nSpecies+nDim] = ((ktr*(Ti-Tj) + kve*(Tvei-Tvej)) +
681637 (ktr*(Twall-Ti) + kve*(Twall-Tvei))*C)*Area/dist_ij;
@@ -989,24 +945,9 @@ void CNEMONSSolver::BC_Smoluchowski_Maxwell(CGeometry *geometry,
989945
990946 /* --- Retrieve Flow Data ---*/
991947 su2double Viscosity = nodes->GetLaminarViscosity (iPoint);
992- su2double Eddy_Visc = nodes->GetEddyViscosity (iPoint);
993948 su2double Density = nodes->GetDensity (iPoint);
994949 su2double Gamma = nodes->GetGamma (iPoint);
995950
996- /* --- Incorporate turbulence effects ---*/
997- const auto & Ms = FluidModel->GetSpeciesMolarMass ();
998- su2double Ru = 1000.0 *UNIVERSAL_GAS_CONSTANT;
999- const auto Vi = nodes->GetPrimitive (iPoint);
1000-
1001- su2double Mass = 0.0 ;
1002- for (auto iSpecies=0u ; iSpecies<nSpecies; iSpecies++)
1003- Mass += Vi[iSpecies]*Ms[iSpecies];
1004- su2double Cptr = rhoCvtr + Ru/Mass;
1005- su2double tmp1 = Cptr*(Eddy_Visc/Prandtl_Turb);
1006- su2double scl = tmp1/ktr;
1007- ktr += Cptr*(Eddy_Visc/Prandtl_Turb);
1008- kve = kve*(1.0 +scl);
1009-
1010951 /* --- Retrieve Primitive Gradients ---*/
1011952 const auto Grad_PrimVar = nodes->GetGradient_Primitive (iPoint);
1012953
0 commit comments