@@ -37,10 +37,8 @@ CSource_NEMO::CSource_NEMO(unsigned short val_nDim,
3737
3838 unsigned short iSpecies;
3939
40- ws.resize (nSpecies,0.0 );
41-
4240 /* --- Allocate arrays ---*/
43- Y = new su2double[nSpecies];
41+ Y = new su2double[nSpecies];
4442
4543 dYdr = new su2double*[nSpecies];
4644 for (iSpecies = 0 ; iSpecies < nSpecies; iSpecies++) {
@@ -77,9 +75,8 @@ CNumerics::ResidualType<> CSource_NEMO::ComputeChemistry(const CConfig *config)
7775 /* --- Nonequilibrium chemistry ---*/
7876 unsigned short iSpecies, iVar;
7977 unsigned short jVar;
80- su2double T, Tve;
81- vector<su2double> rhos;
8278
79+ vector<su2double> rhos;
8380 rhos.resize (nSpecies,0.0 );
8481
8582 /* --- Initialize residual and Jacobian arrays ---*/
@@ -92,20 +89,20 @@ CNumerics::ResidualType<> CSource_NEMO::ComputeChemistry(const CConfig *config)
9289 jacobian[iVar][jVar] = 0.0 ;
9390
9491 /* --- Rename for convenience ---*/
95- T = V_i[T_INDEX];
96- Tve = V_i[TVE_INDEX];
92+ su2double T = V_i[T_INDEX];
93+ su2double Tve = V_i[TVE_INDEX];
9794 for (iSpecies = 0 ; iSpecies < nSpecies; iSpecies++)
9895 rhos[iSpecies]=V_i[RHOS_INDEX+iSpecies];
9996
10097 /* --- Set mixture state ---*/
10198 fluidmodel->SetTDStateRhosTTv (rhos, T, Tve);
10299
103100 /* ---Compute Prodcution/destruction terms ---*/
104- ws = fluidmodel->ComputeNetProductionRates (implicit, V_i, eve_i, Cvve_i,
105- dTdU_i, dTvedU_i, jacobian);
101+ const auto & ws = fluidmodel->ComputeNetProductionRates (implicit, V_i, eve_i, Cvve_i,
102+ dTdU_i, dTvedU_i, jacobian);
106103
107104 for (iSpecies = 0 ; iSpecies < nSpecies; iSpecies++){
108- residual[iSpecies] = ws[iSpecies] *Volume;}
105+ residual[iSpecies] = ws[iSpecies] * Volume;}
109106
110107 if (implicit) {
111108 for (iVar = 0 ; iVar<nVar; iVar++) {
@@ -128,12 +125,10 @@ CNumerics::ResidualType<> CSource_NEMO::ComputeVibRelaxation(const CConfig *conf
128125 // Note: Park limiting cross section
129126 unsigned short iSpecies, iVar;
130127 unsigned short jVar;
131- su2double T, Tve;
132- su2double VTterm;
133128 su2double res_min = -1E6 ;
134129 su2double res_max = 1E6 ;
135- vector<su2double> rhos;
136130
131+ vector<su2double> rhos;
137132 rhos.resize (nSpecies,0.0 );
138133
139134 /* --- Initialize residual and Jacobian arrays ---*/
@@ -147,16 +142,16 @@ CNumerics::ResidualType<> CSource_NEMO::ComputeVibRelaxation(const CConfig *conf
147142 }
148143
149144 /* --- Rename for convenience ---*/
150- T = V_i[T_INDEX];
151- Tve = V_i[TVE_INDEX];
145+ su2double T = V_i[T_INDEX];
146+ su2double Tve = V_i[TVE_INDEX];
152147 for (iSpecies = 0 ; iSpecies < nSpecies; iSpecies++)
153148 rhos[iSpecies]=V_i[RHOS_INDEX+iSpecies];
154149
155150 /* --- Set fluid state ---*/
156151 fluidmodel->SetTDStateRhosTTv (rhos, T, Tve);
157152
158153 /* --- Compute residual and jacobians ---*/
159- VTterm = fluidmodel -> ComputeEveSourceTerm ();
154+ su2double VTterm = fluidmodel -> ComputeEveSourceTerm ();
160155 if (implicit) {
161156 fluidmodel->GetEveSourceTermJacobian (V_i, eve_i, Cvve_i, dTdU_i,
162157 dTvedU_i, jacobian);
@@ -185,55 +180,50 @@ CNumerics::ResidualType<> CSource_NEMO::ComputeAxisymmetric(const CConfig *confi
185180
186181 unsigned short iDim, iSpecies, iVar;
187182 unsigned short jSpecies, jVar;
188- su2double rho, rhov, vel2, H, yinv, T, Tve, Ru, RuSI;
189- su2double ktr, kve;
190183
191184 /* --- Rename for convenience ---*/
192185 auto Ds = Diffusion_Coeff_i;
193- ktr = Thermal_Conductivity_i;
194- kve = Thermal_Conductivity_ve_i;
195- rho = V_i[RHO_INDEX];
196- T = V_i[T_INDEX];
197- Tve = V_i[TVE_INDEX];
198- auto GV = PrimVar_Grad_i;
199- RuSI= UNIVERSAL_GAS_CONSTANT;
200- Ru = 1000.0 *RuSI;
201-
202- auto & Ms = fluidmodel->GetSpeciesMolarMass ();
186+ auto GV = PrimVar_Grad_i;
187+ su2double ktr = Thermal_Conductivity_i;
188+ su2double kve = Thermal_Conductivity_ve_i;
189+ su2double rho = V_i[RHO_INDEX];
190+ su2double RuSI = UNIVERSAL_GAS_CONSTANT;
191+ su2double Ru = 1000.0 *RuSI;
192+ su2double rhou = U_i[nSpecies];
193+ su2double rhov = U_i[nSpecies+1 ];
194+ su2double H = V_i[H_INDEX];
195+ su2double rhoEve = U_i[nVar-1 ];
196+ const auto & Ms = fluidmodel->GetSpeciesMolarMass ();
203197
204198 bool viscous = config->GetViscous ();
205199 bool rans = (config->GetKind_Turb_Model () != NONE);
206- hs = fluidmodel->ComputeSpeciesEnthalpy (T, Tve, eve_i);
207200
208201 /* --- Initialize residual and Jacobian arrays ---*/
209202 for (iVar = 0 ; iVar < nVar; iVar++) {
210203 residual[iVar] = 0.0 ;
211204 }
212205
213206 /* --- Calculate inverse of y coordinate ---*/
207+ su2double yinv = 0.0 ;
214208 if (Coord_i[1 ]!= 0.0 ) yinv = 1.0 /Coord_i[1 ];
215209 else yinv = 0.0 ;
216210
217211 /* --- Rename for convenience ---*/
218- rho = V_i[RHO_INDEX];
219- su2double rhou = U_i[nSpecies];
220- rhov = U_i[nSpecies+1 ];
221- H = V_i[H_INDEX];
222- su2double rhoEve = U_i[nVar-1 ];
223- vel2 = 0.0 ;
224-
212+ su2double vel2 = 0.0 ;
225213 for (iDim = 0 ; iDim < nDim; iDim++)
226214 vel2 += V_i[VEL_INDEX+iDim]*V_i[VEL_INDEX+iDim];
227215 for (iSpecies = 0 ; iSpecies < nSpecies; iSpecies++)
228216 Y[iSpecies] = V_i[RHOS_INDEX+iSpecies] / rho;
229217
218+ /* --- Compute residual for inviscid axisym flow---*/
230219 for (iSpecies = 0 ; iSpecies < nSpecies; iSpecies++)
231220 residual[iSpecies] = yinv*rhov*Y[iSpecies]*Volume;
232221 residual[nSpecies] = yinv*rhov*U_i[nSpecies]/rho*Volume;
233222 residual[nSpecies+1 ] = yinv*rhov*U_i[nSpecies+1 ]/rho*Volume;
234223 residual[nSpecies+2 ] = yinv*rhov*H*Volume;
235224 residual[nSpecies+3 ] = yinv*rhov*U_i[nSpecies+nDim+1 ]/rho*Volume;
236225
226+ /* ---Compute Jacobian for inviscid axisym flow ---*/
237227 if (implicit) {
238228
239229 /* --- Initialize ---*/
@@ -292,6 +282,7 @@ CNumerics::ResidualType<> CSource_NEMO::ComputeAxisymmetric(const CConfig *confi
292282 jacobian[iVar][jVar] *= yinv*Volume;
293283 }
294284
285+ /* --- Compute residual for viscous portion of axisym flow ---*/
295286 if (viscous) {
296287 if (!rans){ turb_ke_i = 0.0 ; }
297288
0 commit comments