41 #include "libmesh/quadrature.h"
42 #include "libmesh/elem.h"
50 _flow_vars(input,
PhysicsNaming::incompressible_navier_stokes()),
51 _press_var(input,
PhysicsNaming::incompressible_navier_stokes(), true ),
53 _spalart_allmaras_helper(input),
55 _no_of_walls(input(
"Physics/"+
PhysicsNaming::spalart_allmaras()+
"/no_of_walls", 0)),
56 _infinite_distance(input(
"Physics/"+
PhysicsNaming::spalart_allmaras()+
"/infinite_distance", false))
66 for( std::set<libMesh::boundary_id_type>::iterator b_id =
_wall_ids.begin(); b_id !=
_wall_ids.end(); ++b_id )
68 std::cout<<
"Boundary Id: "<<*b_id<<std::endl;
90 this->_turbulence_vars);
99 this->_turbulence_vars.init(system);
100 this->_flow_vars.init(system);
101 this->_press_var.init(system);
104 _spalart_allmaras_helper.init_variables(system);
107 this->boundary_mesh.reset(
new libMesh::SerialMesh(system->get_mesh().comm() , this->_dim));
110 (system->get_mesh()).boundary_info->sync(_wall_ids, *boundary_mesh);
113 this->distance_function.reset(
new DistanceFunction(system->get_equation_systems(), *boundary_mesh));
129 context.get_element_fe(_turbulence_vars.nu())->get_JxW();
130 context.get_element_fe(_turbulence_vars.nu())->get_phi();
131 context.get_element_fe(_turbulence_vars.nu())->get_dphi();
132 context.get_element_fe(_turbulence_vars.nu())->get_xyz();
134 context.get_element_fe(_turbulence_vars.nu())->get_phi();
135 context.get_element_fe(_turbulence_vars.nu())->get_xyz();
137 context.get_side_fe(_turbulence_vars.nu())->get_JxW();
138 context.get_side_fe(_turbulence_vars.nu())->get_phi();
139 context.get_side_fe(_turbulence_vars.nu())->get_dphi();
140 context.get_side_fe(_turbulence_vars.nu())->get_xyz();
150 system->time_evolving(this->_turbulence_vars.nu());
160 #ifdef GRINS_USE_GRVY_TIMERS
161 this->_timer->BeginTimer(
"SpalartAllmaras::element_time_derivative");
166 libMesh::Elem &elem_pointer = context.get_elem();
172 const std::vector<libMesh::Real> &JxW =
173 context.get_element_fe(this->_turbulence_vars.nu())->get_JxW();
176 const std::vector<std::vector<libMesh::Real> >& nu_phi =
177 context.get_element_fe(this->_turbulence_vars.nu())->get_phi();
181 const std::vector<std::vector<libMesh::RealGradient> >& nu_gradphi =
182 context.get_element_fe(this->_turbulence_vars.nu())->get_dphi();
185 const unsigned int n_nu_dofs = context.get_dof_indices(this->_turbulence_vars.nu()).size();
195 libMesh::DenseSubVector<libMesh::Number> &Fnu = context.get_elem_residual(this->_turbulence_vars.nu());
203 unsigned int n_qpoints = context.get_element_qrule().n_points();
206 libMesh::UniquePtr< libMesh::DenseVector<libMesh::Real> > distance_qp;
209 distance_qp = this->distance_function->interpolate(&elem_pointer, context.get_element_qrule().get_points());
211 for (
unsigned int qp=0; qp != n_qpoints; qp++)
215 nu = context.interior_value(this->_turbulence_vars.nu(), qp);
217 libMesh::Gradient grad_nu;
218 grad_nu = context.interior_gradient(this->_turbulence_vars.nu(), qp);
220 libMesh::Real jac = JxW[qp];
223 libMesh::Real mu_qp = this->_mu(context, qp);
226 libMesh::Real vorticity_value_qp = this->_spalart_allmaras_helper.vorticity(context, qp);
230 u = context.interior_value(this->_flow_vars.u(), qp);
231 v = context.interior_value(this->_flow_vars.v(), qp);
233 libMesh::NumberVectorValue U(u,v);
235 U(2) = context.interior_value(this->_flow_vars.w(), qp);
238 libMesh::Real S_tilde = this->_sa_params.source_fn(nu, mu_qp, (*distance_qp)(qp), vorticity_value_qp, _infinite_distance);
241 libMesh::Real chi = nu/mu_qp;
242 libMesh::Real f_t2 = this->_sa_params.get_c_t3()*exp(-this->_sa_params.get_c_t4()*chi*chi);
244 libMesh::Real source_term = this->_sa_params.get_cb1()*(1 - f_t2)*S_tilde*nu;
248 source_term = this->_sa_params.get_cb1()*(1 - this->_sa_params.get_c_t3())*vorticity_value_qp*nu;
252 libMesh::Real fw = this->_sa_params.destruction_fn(nu, (*distance_qp)(qp), S_tilde, _infinite_distance);
254 libMesh::Real nud = 0.0;
255 if(_infinite_distance)
261 nud = nu/(*distance_qp)(qp);
263 libMesh::Real nud2 = nud*nud;
264 libMesh::Real kappa2 = (this->_sa_params.get_kappa())*(this->_sa_params.get_kappa());
265 libMesh::Real cw1 = this->_sa_params.get_cb1()/kappa2 + (1.0 + this->_sa_params.get_cb2())/this->_sa_params.get_sigma();
266 libMesh::Real destruction_term = (cw1*fw - (this->_sa_params.get_cb1()/kappa2)*f_t2)*nud2;
271 destruction_term = -cw1*nud2;
274 libMesh::Real fn1 = 1.0;
278 libMesh::Real chi3 = chi*chi*chi;
279 fn1 = (this->_sa_params.get_c_n1() + chi3)/(this->_sa_params.get_c_n1() - chi3);
283 for (
unsigned int i=0; i != n_nu_dofs; i++)
286 ( -this->_rho*(U*grad_nu)*nu_phi[i][qp]
287 +source_term*nu_phi[i][qp]
288 + (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])
289 - destruction_term*nu_phi[i][qp]);
292 if (compute_jacobian)
294 libmesh_not_implemented();
300 #ifdef GRINS_USE_GRVY_TIMERS
301 this->_timer->EndTimer(
"SpalartAllmaras::element_time_derivative");
312 #ifdef GRINS_USE_GRVY_TIMERS
313 this->_timer->BeginTimer(
"SpalartAllmaras::mass_residual");
320 const std::vector<libMesh::Real> &JxW =
321 context.get_element_fe(this->_turbulence_vars.nu())->get_JxW();
324 const std::vector<std::vector<libMesh::Real> >& nu_phi =
325 context.get_element_fe(this->_turbulence_vars.nu())->get_phi();
328 const unsigned int n_nu_dofs = context.get_dof_indices(this->_turbulence_vars.nu()).size();
331 libMesh::DenseSubVector<libMesh::Real> &F = context.get_elem_residual(this->_turbulence_vars.nu());
335 unsigned int n_qpoints = context.get_element_qrule().n_points();
337 for (
unsigned int qp = 0; qp != n_qpoints; ++qp)
344 libMesh::Real nu_dot;
345 context.interior_rate(this->_turbulence_vars.nu(), qp, nu_dot);
347 for (
unsigned int i = 0; i != n_nu_dofs; ++i)
349 F(i) += -JxW[qp]*this->_rho*nu_dot*nu_phi[i][qp];
351 if( compute_jacobian )
353 libmesh_not_implemented();
360 #ifdef GRINS_USE_GRVY_TIMERS
361 this->_timer->EndTimer(
"SpalartAllmaras::mass_residual");
369 (
const std::string & param_name,
374 this->_mu.register_parameter(param_name, param_pointer);
375 this->_sa_params.register_parameter(param_name, param_pointer);
virtual void init_context(AssemblyContext &context)
Initialize context for added physics variables.
GRINS::ICHandlingBase * _ic_handler
static PhysicsName spalart_allmaras()
static void check_and_register_variable(const std::string &var_name, const FEVariablesBase &variable)
First check if var_name is registered and then register.
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.
static std::string velocity_section()
INSTANTIATE_TURBULENCE_MODELS_SUBCLASS(SpalartAllmaras)
static std::string pressure_section()
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
virtual void register_parameter(const std::string ¶m_name, libMesh::ParameterMultiAccessor< libMesh::Number > ¶m_pointer) const
Each subclass will register its copy of an independent.
void register_variables()
static std::string turbulence_section()
unsigned int _no_of_walls
virtual void register_parameter(const std::string ¶m_name, libMesh::ParameterMultiAccessor< libMesh::Number > ¶m_pointer) const
Each subclass will register its copy of an independent.
virtual void set_time_evolving_vars(libMesh::FEMSystem *system)
Sets velocity variables to be time-evolving.