40 #include "libmesh/quadrature.h"
41 #include "libmesh/elem.h"
51 _spalart_allmaras_helper(input),
63 for( std::set<libMesh::boundary_id_type>::iterator b_id =
_wall_ids.begin(); b_id !=
_wall_ids.end(); ++b_id )
65 std::cout<<
"Boundary Id: "<<*b_id<<std::endl;
88 this->_turbulence_vars.init(system);
89 this->_flow_vars.init(system);
92 _spalart_allmaras_helper.init_variables(system);
95 this->boundary_mesh.reset(
new libMesh::SerialMesh(system->get_mesh().comm() , this->_dim));
98 (system->get_mesh()).boundary_info->sync(_wall_ids, *boundary_mesh);
101 this->distance_function.reset(
new DistanceFunction(system->get_equation_systems(), *boundary_mesh));
117 context.get_element_fe(_turbulence_vars.nu_var())->get_JxW();
118 context.get_element_fe(_turbulence_vars.nu_var())->get_phi();
119 context.get_element_fe(_turbulence_vars.nu_var())->get_dphi();
120 context.get_element_fe(_turbulence_vars.nu_var())->get_xyz();
122 context.get_element_fe(_turbulence_vars.nu_var())->get_phi();
123 context.get_element_fe(_turbulence_vars.nu_var())->get_xyz();
125 context.get_side_fe(_turbulence_vars.nu_var())->get_JxW();
126 context.get_side_fe(_turbulence_vars.nu_var())->get_phi();
127 context.get_side_fe(_turbulence_vars.nu_var())->get_dphi();
128 context.get_side_fe(_turbulence_vars.nu_var())->get_xyz();
138 system->time_evolving(this->_turbulence_vars.nu_var());
148 #ifdef GRINS_USE_GRVY_TIMERS
149 this->_timer->BeginTimer(
"SpalartAllmaras::element_time_derivative");
154 libMesh::Elem &elem_pointer = context.get_elem();
160 const std::vector<libMesh::Real> &JxW =
161 context.get_element_fe(this->_turbulence_vars.nu_var())->get_JxW();
164 const std::vector<std::vector<libMesh::Real> >& nu_phi =
165 context.get_element_fe(this->_turbulence_vars.nu_var())->get_phi();
169 const std::vector<std::vector<libMesh::RealGradient> >& nu_gradphi =
170 context.get_element_fe(this->_turbulence_vars.nu_var())->get_dphi();
173 const unsigned int n_nu_dofs = context.get_dof_indices(this->_turbulence_vars.nu_var()).size();
183 libMesh::DenseSubVector<libMesh::Number> &Fnu = context.get_elem_residual(this->_turbulence_vars.nu_var());
191 unsigned int n_qpoints = context.get_element_qrule().n_points();
194 libMesh::AutoPtr< libMesh::DenseVector<libMesh::Real> > distance_qp;
197 distance_qp = this->distance_function->interpolate(&elem_pointer, context.get_element_qrule().get_points());
199 for (
unsigned int qp=0; qp != n_qpoints; qp++)
203 nu = context.interior_value(this->_turbulence_vars.nu_var(), qp);
205 libMesh::Gradient grad_nu;
206 grad_nu = context.interior_gradient(this->_turbulence_vars.nu_var(), qp);
208 libMesh::Real jac = JxW[qp];
211 libMesh::Real mu_qp = this->_mu(context, qp);
214 libMesh::Real vorticity_value_qp = this->_spalart_allmaras_helper.vorticity(context, qp);
218 u = context.interior_value(this->_flow_vars.u_var(), qp);
219 v = context.interior_value(this->_flow_vars.v_var(), qp);
221 libMesh::NumberVectorValue U(u,v);
223 U(2) = context.interior_value(this->_flow_vars.w_var(), qp);
226 libMesh::Real S_tilde = this->_sa_params.source_fn(nu, mu_qp, (*distance_qp)(qp), vorticity_value_qp);
229 libMesh::Real chi = nu/mu_qp;
230 libMesh::Real f_t2 = this->_sa_params.get_c_t3()*exp(-this->_sa_params.get_c_t4()*chi*chi);
232 libMesh::Real source_term = ((*distance_qp)(qp)==0.0)?1.0:this->_sa_params.get_cb1()*(1 - f_t2)*S_tilde*nu;
236 source_term = this->_sa_params.get_cb1()*(1 - this->_sa_params.get_c_t3())*vorticity_value_qp*nu;
240 libMesh::Real fw = this->_sa_params.destruction_fn(nu, (*distance_qp)(qp), S_tilde);
242 libMesh::Real nud = nu/(*distance_qp)(qp);
243 libMesh::Real nud2 = nud*nud;
244 libMesh::Real kappa2 = (this->_sa_params.get_kappa())*(this->_sa_params.get_kappa());
245 libMesh::Real destruction_term = ((*distance_qp)(qp)==0.0)?1.0:(this->_sa_params.get_cw1()*fw - (this->_sa_params.get_cb1()/kappa2)*f_t2)*nud2;
250 destruction_term = -this->_sa_params.get_cw1()*nud2;
253 libMesh::Real fn1 = 1.0;
257 libMesh::Real chi3 = chi*chi*chi;
258 fn1 = (this->_sa_params.get_c_n1() + chi3)/(this->_sa_params.get_c_n1() - chi3);
262 for (
unsigned int i=0; i != n_nu_dofs; i++)
265 ( -this->_rho*(U*grad_nu)*nu_phi[i][qp]
266 +source_term*nu_phi[i][qp]
267 + (1./this->_sa_params.get_sigma())*(-(mu_qp+(fn1*nu))*grad_nu*nu_gradphi[i][qp] + this->_sa_params.get_cb2()*grad_nu*grad_nu*nu_phi[i][qp])
268 - destruction_term*nu_phi[i][qp]);
271 if (compute_jacobian)
273 libmesh_not_implemented();
279 #ifdef GRINS_USE_GRVY_TIMERS
280 this->_timer->EndTimer(
"SpalartAllmaras::element_time_derivative");
291 #ifdef GRINS_USE_GRVY_TIMERS
292 this->_timer->BeginTimer(
"SpalartAllmaras::mass_residual");
299 const std::vector<libMesh::Real> &JxW =
300 context.get_element_fe(this->_turbulence_vars.nu_var())->get_JxW();
303 const std::vector<std::vector<libMesh::Real> >& nu_phi =
304 context.get_element_fe(this->_turbulence_vars.nu_var())->get_phi();
307 const unsigned int n_nu_dofs = context.get_dof_indices(this->_turbulence_vars.nu_var()).size();
310 libMesh::DenseSubVector<libMesh::Real> &F = context.get_elem_residual(this->_turbulence_vars.nu_var());
314 unsigned int n_qpoints = context.get_element_qrule().n_points();
316 for (
unsigned int qp = 0; qp != n_qpoints; ++qp)
323 libMesh::Real nu_dot;
324 context.interior_rate(this->_turbulence_vars.nu_var(), qp, nu_dot);
326 for (
unsigned int i = 0; i != n_nu_dofs; ++i)
328 F(i) += -JxW[qp]*this->_rho*nu_dot*nu_phi[i][qp];
330 if( compute_jacobian )
332 libmesh_not_implemented();
339 #ifdef GRINS_USE_GRVY_TIMERS
340 this->_timer->EndTimer(
"SpalartAllmaras::mass_residual");
virtual void init_context(AssemblyContext &context)
Initialize context for added physics variables.
const PhysicsName incompressible_navier_stokes
GRINS::ICHandlingBase * _ic_handler
GRINS::BCHandlingBase * _bc_handler
const PhysicsName spalart_allmaras
Base class for reading and handling initial conditions for physics classes.
Physics class for Turbulence Models.
virtual void element_time_derivative(bool compute_jacobian, AssemblyContext &context, CachedValues &)
Time dependent part(s) of physics for element interiors.
virtual void init_variables(libMesh::FEMSystem *system)
Initialize variables for this physics.
virtual void init_variables(libMesh::FEMSystem *system)
Initialize variables for this physics.
INSTANTIATE_TURBULENCE_MODELS_SUBCLASS(SpalartAllmaras)
virtual void mass_residual(bool compute_jacobian, AssemblyContext &context, CachedValues &cache)
Mass matrix part(s) for element interiors. All boundary terms lie within the time_derivative part...
std::set< libMesh::boundary_id_type > _wall_ids
unsigned int _no_of_walls
virtual void set_time_evolving_vars(libMesh::FEMSystem *system)
Sets velocity variables to be time-evolving.
Base class for reading and handling boundary conditions for physics classes.