void AveragedTurbine<Mu>::element_time_derivative( bool compute_jacobian,
AssemblyContext& context,
CachedValues& /* cache */ )
{
#ifdef GRINS_USE_GRVY_TIMERS
this->_timer->BeginTimer("AveragedTurbine::element_time_derivative");
#endif
// Element Jacobian * quadrature weights for interior integration
const std::vector<libMesh::Real> &JxW =
context.get_element_fe(this->_flow_vars.u())->get_JxW();
// The shape functions at interior quadrature points.
const std::vector<std::vector<libMesh::Real> >& u_phi =
context.get_element_fe(this->_flow_vars.u())->get_phi();
const std::vector<libMesh::Point>& u_qpoint =
context.get_element_fe(this->_flow_vars.u())->get_xyz();
// The number of local degrees of freedom in each variable
const unsigned int n_u_dofs = context.get_dof_indices(this->_flow_vars.u()).size();
// The subvectors and submatrices we need to fill:
libMesh::DenseSubMatrix<libMesh::Number> &Kuu = context.get_elem_jacobian(this->_flow_vars.u(), this->_flow_vars.u()); // R_{u},{u}
libMesh::DenseSubMatrix<libMesh::Number> &Kuv = context.get_elem_jacobian(this->_flow_vars.u(), this->_flow_vars.v()); // R_{u},{v}
libMesh::DenseSubMatrix<libMesh::Number> &Kvu = context.get_elem_jacobian(this->_flow_vars.v(), this->_flow_vars.u()); // R_{v},{u}
libMesh::DenseSubMatrix<libMesh::Number> &Kvv = context.get_elem_jacobian(this->_flow_vars.v(), this->_flow_vars.v()); // R_{v},{v}
libMesh::DenseSubMatrix<libMesh::Number> &Kus =
context.get_elem_jacobian(this->_flow_vars.u(),
this->fan_speed_var()); // R_{u},{s}
libMesh::DenseSubMatrix<libMesh::Number> &Ksu =
context.get_elem_jacobian(this->fan_speed_var(),
this->_flow_vars.u()); // R_{s},{u}
libMesh::DenseSubMatrix<libMesh::Number> &Kvs =
context.get_elem_jacobian(this->_flow_vars.v(),
this->fan_speed_var()); // R_{v},{s}
libMesh::DenseSubMatrix<libMesh::Number> &Ksv =
context.get_elem_jacobian(this->fan_speed_var(),
this->_flow_vars.v()); // R_{s},{v}
libMesh::DenseSubMatrix<libMesh::Number> &Kss =
context.get_elem_jacobian(this->fan_speed_var(),
this->fan_speed_var()); // R_{s},{s}
libMesh::DenseSubMatrix<libMesh::Number>* Kwu = NULL;
libMesh::DenseSubMatrix<libMesh::Number>* Kwv = NULL;
libMesh::DenseSubMatrix<libMesh::Number>* Kww = NULL;
libMesh::DenseSubMatrix<libMesh::Number>* Kuw = NULL;
libMesh::DenseSubMatrix<libMesh::Number>* Kvw = NULL;
libMesh::DenseSubMatrix<libMesh::Number>* Ksw = NULL;
libMesh::DenseSubMatrix<libMesh::Number>* Kws = NULL;
libMesh::DenseSubVector<libMesh::Number> &Fu = context.get_elem_residual(this->_flow_vars.u()); // R_{u}
libMesh::DenseSubVector<libMesh::Number> &Fv = context.get_elem_residual(this->_flow_vars.v()); // R_{v}
libMesh::DenseSubVector<libMesh::Number>* Fw = NULL;
libMesh::DenseSubVector<libMesh::Number> &Fs = context.get_elem_residual(this->fan_speed_var()); // R_{s}
if( this->mesh_dim(context) == 3 )
{
Kuw = &context.get_elem_jacobian(this->_flow_vars.u(), this->_flow_vars.w()); // R_{u},{w}
Kvw = &context.get_elem_jacobian(this->_flow_vars.v(), this->_flow_vars.w()); // R_{v},{w}
Kwu = &context.get_elem_jacobian(this->_flow_vars.w(), this->_flow_vars.u()); // R_{w},{u}
Kwv = &context.get_elem_jacobian(this->_flow_vars.w(), this->_flow_vars.v()); // R_{w},{v}
Kww = &context.get_elem_jacobian(this->_flow_vars.w(), this->_flow_vars.w()); // R_{w},{w}
Fw = &context.get_elem_residual(this->_flow_vars.w()); // R_{w}
Ksw = &context.get_elem_jacobian(this->fan_speed_var(), this->_flow_vars.w()); // R_{s},{w}
Kws = &context.get_elem_jacobian(this->_flow_vars.w(), this->fan_speed_var()); // R_{w},{s}
Fw = &context.get_elem_residual(this->_flow_vars.w()); // R_{w}
}
unsigned int n_qpoints = context.get_element_qrule().n_points();
for (unsigned int qp=0; qp != n_qpoints; qp++)
{
// Compute the solution at the old Newton iterate.
libMesh::Number u, v, s;
u = context.interior_value(this->_flow_vars.u(), qp);
v = context.interior_value(this->_flow_vars.v(), qp);
s = context.interior_value(this->fan_speed_var(), qp);
libMesh::NumberVectorValue U(u,v);
if (this->mesh_dim(context) == 3)
U(2) = context.interior_value(this->_flow_vars.w(), qp); // w
libMesh::NumberVectorValue U_B_1;
libMesh::NumberVectorValue F;
libMesh::NumberTensorValue dFdU;
libMesh::NumberTensorValue* dFdU_ptr =
compute_jacobian ? &dFdU : NULL;
libMesh::NumberVectorValue dFds;
libMesh::NumberVectorValue* dFds_ptr =
compute_jacobian ? &dFds : NULL;
if (!this->compute_force(u_qpoint[qp], context.time, U, s,
U_B_1, F, dFdU_ptr, dFds_ptr))
continue;
libMesh::Real jac = JxW[qp];
// Using this dot product to derive torque *depends* on s=1
// and U_B_1 corresponding to 1 rad/sec base velocity; this
// means that the length of U_B_1 is equal to radius.
// F is the force on the air, so *negative* F is the force on
// the turbine.
Fs(0) -= U_B_1 * F * jac;
if (compute_jacobian)
{
Kss(0,0) -= U_B_1 * dFds * jac;
for (unsigned int j=0; j != n_u_dofs; j++)
{
libMesh::Real jac_j = JxW[qp] * u_phi[j][qp];
for (unsigned int d=0; d != 3; ++d)
{
Ksu(0,j) -= jac_j * U_B_1(d) * dFdU(d,0);
Ksv(0,j) -= jac_j * U_B_1(d) * dFdU(d,1);
}
if (this->mesh_dim(context) == 3)
{
for (unsigned int d=0; d != 3; ++d)
(*Ksw)(0,j) -= jac_j * U_B_1(d) * dFdU(d,2);
}
} // End j dof loop
}
for (unsigned int i=0; i != n_u_dofs; i++)
{
const libMesh::Number jac_i = jac * u_phi[i][qp];
Fu(i) += F(0)*jac_i;
Fv(i) += F(1)*jac_i;
if( this->mesh_dim(context) == 3 )
(*Fw)(i) += F(2)*jac_i;
if( compute_jacobian )
{
Kus(i,0) += dFds(0) * jac_i;
Kvs(i,0) += dFds(1) * jac_i;
if( this->mesh_dim(context) == 3 )
(*Kws)(i,0) += dFds(2) * jac_i;
for (unsigned int j=0; j != n_u_dofs; j++)
{
const libMesh::Number jac_ij = jac_i * u_phi[j][qp];
Kuu(i,j) += jac_ij * dFdU(0,0);
Kuv(i,j) += jac_ij * dFdU(0,1);
Kvu(i,j) += jac_ij * dFdU(1,0);
Kvv(i,j) += jac_ij * dFdU(1,1);
if( this->mesh_dim(context) == 3 )
{
(*Kuw)(i,j) += jac_ij * dFdU(0,2);
(*Kvw)(i,j) += jac_ij * dFdU(1,2);
(*Kwu)(i,j) += jac_ij * dFdU(2,0);
(*Kwv)(i,j) += jac_ij * dFdU(2,1);
(*Kww)(i,j) += jac_ij * dFdU(2,2);
}
}
}
}
}
#ifdef GRINS_USE_GRVY_TIMERS
this->_timer->EndTimer("AveragedTurbine::element_time_derivative");
#endif
return;
}
void VelocityPenaltyAdjointStabilization<Mu>::element_time_derivative( bool compute_jacobian,
AssemblyContext& context,
CachedValues& /*cache*/ )
{
#ifdef GRINS_USE_GRVY_TIMERS
this->_timer->BeginTimer("VelocityPenaltyAdjointStabilization::element_time_derivative");
#endif
// The number of local degrees of freedom in each variable.
const unsigned int n_u_dofs = context.get_dof_indices(this->_flow_vars.u()).size();
// Element Jacobian * quadrature weights for interior integration.
const std::vector<libMesh::Real> &JxW =
context.get_element_fe(this->_flow_vars.u())->get_JxW();
const std::vector<libMesh::Point>& u_qpoint =
context.get_element_fe(this->_flow_vars.u())->get_xyz();
const std::vector<std::vector<libMesh::Real> >& u_phi =
context.get_element_fe(this->_flow_vars.u())->get_phi();
const std::vector<std::vector<libMesh::RealGradient> >& u_gradphi =
context.get_element_fe(this->_flow_vars.u())->get_dphi();
const std::vector<std::vector<libMesh::RealTensor> >& u_hessphi =
context.get_element_fe(this->_flow_vars.u())->get_d2phi();
// Get residuals and jacobians
libMesh::DenseSubVector<libMesh::Number> &Fu = context.get_elem_residual(this->_flow_vars.u()); // R_{u}
libMesh::DenseSubVector<libMesh::Number> &Fv = context.get_elem_residual(this->_flow_vars.v()); // R_{v}
libMesh::DenseSubVector<libMesh::Number> *Fw = NULL;
libMesh::DenseSubMatrix<libMesh::Number> &Kuu =
context.get_elem_jacobian(this->_flow_vars.u(), this->_flow_vars.u()); // J_{uu}
libMesh::DenseSubMatrix<libMesh::Number> &Kuv =
context.get_elem_jacobian(this->_flow_vars.u(), this->_flow_vars.v()); // J_{uv}
libMesh::DenseSubMatrix<libMesh::Number> &Kvu =
context.get_elem_jacobian(this->_flow_vars.v(), this->_flow_vars.u()); // J_{vu}
libMesh::DenseSubMatrix<libMesh::Number> &Kvv =
context.get_elem_jacobian(this->_flow_vars.v(), this->_flow_vars.v()); // J_{vv}
libMesh::DenseSubMatrix<libMesh::Number> *Kuw = NULL;
libMesh::DenseSubMatrix<libMesh::Number> *Kvw = NULL;
libMesh::DenseSubMatrix<libMesh::Number> *Kwu = NULL;
libMesh::DenseSubMatrix<libMesh::Number> *Kwv = NULL;
libMesh::DenseSubMatrix<libMesh::Number> *Kww = NULL;
if(this->mesh_dim(context) == 3)
{
Fw = &context.get_elem_residual(this->_flow_vars.w()); // R_{w}
Kuw = &context.get_elem_jacobian
(this->_flow_vars.u(), this->_flow_vars.w()); // J_{uw}
Kvw = &context.get_elem_jacobian
(this->_flow_vars.v(), this->_flow_vars.w()); // J_{vw}
Kwu = &context.get_elem_jacobian
(this->_flow_vars.w(), this->_flow_vars.u()); // J_{wu}
Kwv = &context.get_elem_jacobian
(this->_flow_vars.w(), this->_flow_vars.v()); // J_{wv}
Kww = &context.get_elem_jacobian
(this->_flow_vars.w(), this->_flow_vars.w()); // J_{ww}
}
// Now we will build the element Jacobian and residual.
// Constructing the residual requires the solution and its
// gradient from the previous timestep. This must be
// calculated at each quadrature point by summing the
// solution degree-of-freedom values by the appropriate
// weight functions.
unsigned int n_qpoints = context.get_element_qrule().n_points();
libMesh::FEBase* fe = context.get_element_fe(this->_flow_vars.u());
for (unsigned int qp=0; qp != n_qpoints; qp++)
{
libMesh::RealGradient g = this->_stab_helper.compute_g( fe, context, qp );
libMesh::RealTensor G = this->_stab_helper.compute_G( fe, context, qp );
libMesh::RealGradient U( context.interior_value( this->_flow_vars.u(), qp ),
context.interior_value( this->_flow_vars.v(), qp ) );
if( this->mesh_dim(context) == 3 )
{
U(2) = context.interior_value( this->_flow_vars.w(), qp );
}
// Compute the viscosity at this qp
libMesh::Real mu_qp = this->_mu(context, qp);
libMesh::Real tau_M;
libMesh::Real d_tau_M_d_rho;
libMesh::Gradient d_tau_M_dU;
if (compute_jacobian)
this->_stab_helper.compute_tau_momentum_and_derivs
( context, qp, g, G, this->_rho, U, mu_qp,
tau_M, d_tau_M_d_rho, d_tau_M_dU,
this->_is_steady );
else
tau_M = this->_stab_helper.compute_tau_momentum
( context, qp, g, G, this->_rho, U, mu_qp,
this->_is_steady );
libMesh::NumberVectorValue F;
libMesh::NumberTensorValue dFdU;
libMesh::NumberTensorValue* dFdU_ptr =
compute_jacobian ? &dFdU : NULL;
if (!this->compute_force(u_qpoint[qp], context, U, F, dFdU_ptr))
continue;
for (unsigned int i=0; i != n_u_dofs; i++)
{
libMesh::Real test_func = this->_rho*U*u_gradphi[i][qp] +
mu_qp*( u_hessphi[i][qp](0,0) + u_hessphi[i][qp](1,1) + u_hessphi[i][qp](2,2) );
Fu(i) += tau_M*F(0)*test_func*JxW[qp];
Fv(i) += tau_M*F(1)*test_func*JxW[qp];
if (this->mesh_dim(context) == 3)
{
(*Fw)(i) += tau_M*F(2)*test_func*JxW[qp];
}
if (compute_jacobian)
{
libMesh::Gradient d_test_func_dU = this->_rho*u_gradphi[i][qp];
for (unsigned int j=0; j != n_u_dofs; ++j)
{
Kuu(i,j) += tau_M*F(0)*d_test_func_dU(0)*u_phi[j][qp]*JxW[qp]*context.get_elem_solution_derivative();
Kuu(i,j) += d_tau_M_dU(0)*u_phi[j][qp]*F(0)*test_func*JxW[qp]*context.get_elem_solution_derivative();
Kuu(i,j) += tau_M*dFdU(0,0)*u_phi[j][qp]*test_func*JxW[qp]*context.get_elem_solution_derivative();
Kuv(i,j) += tau_M*F(0)*d_test_func_dU(1)*u_phi[j][qp]*JxW[qp]*context.get_elem_solution_derivative();
Kuv(i,j) += d_tau_M_dU(1)*u_phi[j][qp]*F(0)*test_func*JxW[qp]*context.get_elem_solution_derivative();
Kuv(i,j) += tau_M*dFdU(0,1)*u_phi[j][qp]*test_func*JxW[qp]*context.get_elem_solution_derivative();
Kvu(i,j) += tau_M*F(1)*d_test_func_dU(0)*u_phi[j][qp]*JxW[qp]*context.get_elem_solution_derivative();
Kvu(i,j) += d_tau_M_dU(0)*u_phi[j][qp]*F(1)*test_func*JxW[qp]*context.get_elem_solution_derivative();
Kvu(i,j) += tau_M*dFdU(1,0)*u_phi[j][qp]*test_func*JxW[qp]*context.get_elem_solution_derivative();
Kvv(i,j) += tau_M*F(1)*d_test_func_dU(1)*u_phi[j][qp]*JxW[qp]*context.get_elem_solution_derivative();
Kvv(i,j) += d_tau_M_dU(1)*u_phi[j][qp]*F(1)*test_func*JxW[qp]*context.get_elem_solution_derivative();
Kvv(i,j) += tau_M*dFdU(1,1)*u_phi[j][qp]*test_func*JxW[qp]*context.get_elem_solution_derivative();
}
if (this->mesh_dim(context) == 3)
{
for (unsigned int j=0; j != n_u_dofs; ++j)
{
(*Kuw)(i,j) += tau_M*F(0)*d_test_func_dU(2)*u_phi[j][qp]*JxW[qp]*context.get_elem_solution_derivative();
(*Kuw)(i,j) += d_tau_M_dU(2)*u_phi[j][qp]*F(0)*test_func*JxW[qp]*context.get_elem_solution_derivative();
(*Kuw)(i,j) += tau_M*dFdU(0,2)*u_phi[j][qp]*test_func*JxW[qp]*context.get_elem_solution_derivative();
(*Kvw)(i,j) += tau_M*F(1)*d_test_func_dU(2)*u_phi[j][qp]*JxW[qp]*context.get_elem_solution_derivative();
(*Kvw)(i,j) += d_tau_M_dU(2)*u_phi[j][qp]*F(1)*test_func*JxW[qp]*context.get_elem_solution_derivative();
(*Kvw)(i,j) += tau_M*dFdU(1,2)*u_phi[j][qp]*test_func*JxW[qp]*context.get_elem_solution_derivative();
(*Kwu)(i,j) += tau_M*F(2)*d_test_func_dU(0)*u_phi[j][qp]*JxW[qp]*context.get_elem_solution_derivative();
(*Kwu)(i,j) += d_tau_M_dU(0)*u_phi[j][qp]*F(2)*test_func*JxW[qp]*context.get_elem_solution_derivative();
(*Kwu)(i,j) += tau_M*dFdU(2,0)*u_phi[j][qp]*test_func*JxW[qp]*context.get_elem_solution_derivative();
(*Kwv)(i,j) += tau_M*F(2)*d_test_func_dU(1)*u_phi[j][qp]*JxW[qp]*context.get_elem_solution_derivative();
(*Kwv)(i,j) += d_tau_M_dU(1)*u_phi[j][qp]*F(2)*test_func*JxW[qp]*context.get_elem_solution_derivative();
(*Kwv)(i,j) += tau_M*dFdU(2,1)*u_phi[j][qp]*test_func*JxW[qp]*context.get_elem_solution_derivative();
(*Kww)(i,j) += tau_M*F(2)*d_test_func_dU(2)*u_phi[j][qp]*JxW[qp]*context.get_elem_solution_derivative();
(*Kww)(i,j) += d_tau_M_dU(2)*u_phi[j][qp]*F(2)*test_func*JxW[qp]*context.get_elem_solution_derivative();
(*Kww)(i,j) += tau_M*dFdU(2,2)*u_phi[j][qp]*test_func*JxW[qp]*context.get_elem_solution_derivative();
}
}
} // End compute_jacobian check
} // End i dof loop
} // End quadrature loop
#ifdef GRINS_USE_GRVY_TIMERS
this->_timer->EndTimer("BoussinesqBuoyancyAdjointStabilization::element_time_derivative");
#endif
return;
}
void VelocityPenalty<Mu>::element_time_derivative( bool compute_jacobian,
AssemblyContext& context,
CachedValues& /* cache */ )
{
#ifdef GRINS_USE_GRVY_TIMERS
this->_timer->BeginTimer("VelocityPenalty::element_time_derivative");
#endif
// Element Jacobian * quadrature weights for interior integration
const std::vector<libMesh::Real> &JxW =
context.get_element_fe(this->_flow_vars.u_var())->get_JxW();
// The shape functions at interior quadrature points.
const std::vector<std::vector<libMesh::Real> >& u_phi =
context.get_element_fe(this->_flow_vars.u_var())->get_phi();
const std::vector<libMesh::Point>& u_qpoint =
context.get_element_fe(this->_flow_vars.u_var())->get_xyz();
// The number of local degrees of freedom in each variable
const unsigned int n_u_dofs = context.get_dof_indices(this->_flow_vars.u_var()).size();
// The subvectors and submatrices we need to fill:
libMesh::DenseSubMatrix<libMesh::Number> &Kuu = context.get_elem_jacobian(this->_flow_vars.u_var(), this->_flow_vars.u_var()); // R_{u},{u}
libMesh::DenseSubMatrix<libMesh::Number> &Kuv = context.get_elem_jacobian(this->_flow_vars.u_var(), this->_flow_vars.v_var()); // R_{u},{v}
libMesh::DenseSubMatrix<libMesh::Number> &Kvu = context.get_elem_jacobian(this->_flow_vars.v_var(), this->_flow_vars.u_var()); // R_{v},{u}
libMesh::DenseSubMatrix<libMesh::Number> &Kvv = context.get_elem_jacobian(this->_flow_vars.v_var(), this->_flow_vars.v_var()); // R_{v},{v}
libMesh::DenseSubMatrix<libMesh::Number>* Kwu = NULL;
libMesh::DenseSubMatrix<libMesh::Number>* Kwv = NULL;
libMesh::DenseSubMatrix<libMesh::Number>* Kww = NULL;
libMesh::DenseSubMatrix<libMesh::Number>* Kuw = NULL;
libMesh::DenseSubMatrix<libMesh::Number>* Kvw = NULL;
libMesh::DenseSubVector<libMesh::Number> &Fu = context.get_elem_residual(this->_flow_vars.u_var()); // R_{u}
libMesh::DenseSubVector<libMesh::Number> &Fv = context.get_elem_residual(this->_flow_vars.v_var()); // R_{v}
libMesh::DenseSubVector<libMesh::Number>* Fw = NULL;
if( this->_dim == 3 )
{
Kuw = &context.get_elem_jacobian(this->_flow_vars.u_var(), this->_flow_vars.w_var()); // R_{u},{w}
Kvw = &context.get_elem_jacobian(this->_flow_vars.v_var(), this->_flow_vars.w_var()); // R_{v},{w}
Kwu = &context.get_elem_jacobian(this->_flow_vars.w_var(), this->_flow_vars.u_var()); // R_{w},{u}
Kwv = &context.get_elem_jacobian(this->_flow_vars.w_var(), this->_flow_vars.v_var()); // R_{w},{v}
Kww = &context.get_elem_jacobian(this->_flow_vars.w_var(), this->_flow_vars.w_var()); // R_{w},{w}
Fw = &context.get_elem_residual(this->_flow_vars.w_var()); // R_{w}
}
unsigned int n_qpoints = context.get_element_qrule().n_points();
for (unsigned int qp=0; qp != n_qpoints; qp++)
{
// Compute the solution at the old Newton iterate.
libMesh::Number u, v;
u = context.interior_value(this->_flow_vars.u_var(), qp);
v = context.interior_value(this->_flow_vars.v_var(), qp);
libMesh::NumberVectorValue U(u,v);
if (this->_dim == 3)
U(2) = context.interior_value(this->_flow_vars.w_var(), qp); // w
libMesh::NumberVectorValue F;
libMesh::NumberTensorValue dFdU;
libMesh::NumberTensorValue* dFdU_ptr =
compute_jacobian ? &dFdU : NULL;
if (!this->compute_force(u_qpoint[qp], context, U, F, dFdU_ptr))
continue;
const libMesh::Real jac = JxW[qp];
for (unsigned int i=0; i != n_u_dofs; i++)
{
const libMesh::Number jac_i = jac * u_phi[i][qp];
Fu(i) += F(0)*jac_i;
Fv(i) += F(1)*jac_i;
if( this->_dim == 3 )
{
(*Fw)(i) += F(2)*jac_i;
}
if( compute_jacobian )
{
for (unsigned int j=0; j != n_u_dofs; j++)
{
const libMesh::Number jac_ij = context.get_elem_solution_derivative() * jac_i * u_phi[j][qp];
Kuu(i,j) += jac_ij * dFdU(0,0);
Kuv(i,j) += jac_ij * dFdU(0,1);
Kvu(i,j) += jac_ij * dFdU(1,0);
Kvv(i,j) += jac_ij * dFdU(1,1);
if( this->_dim == 3 )
{
(*Kuw)(i,j) += jac_ij * dFdU(0,2);
(*Kvw)(i,j) += jac_ij * dFdU(1,2);
(*Kwu)(i,j) += jac_ij * dFdU(2,0);
(*Kwv)(i,j) += jac_ij * dFdU(2,1);
(*Kww)(i,j) += jac_ij * dFdU(2,2);
}
}
}
}
}
#ifdef GRINS_USE_GRVY_TIMERS
this->_timer->EndTimer("VelocityPenalty::element_time_derivative");
#endif
return;
}
void VelocityPenaltyAdjointStabilization<Mu>::element_constraint( bool compute_jacobian,
AssemblyContext& context,
CachedValues& /*cache*/ )
{
#ifdef GRINS_USE_GRVY_TIMERS
this->_timer->BeginTimer("VelocityPenaltyAdjointStabilization::element_constraint");
#endif
// The number of local degrees of freedom in each variable.
const unsigned int n_p_dofs = context.get_dof_indices(this->_press_var.p()).size();
const unsigned int n_u_dofs = context.get_dof_indices(this->_flow_vars.u()).size();
// Element Jacobian * quadrature weights for interior integration.
const std::vector<libMesh::Real> &JxW =
context.get_element_fe(this->_flow_vars.u())->get_JxW();
const std::vector<libMesh::Point>& u_qpoint =
context.get_element_fe(this->_flow_vars.u())->get_xyz();
const std::vector<std::vector<libMesh::Real> >& u_phi =
context.get_element_fe(this->_flow_vars.u())->get_phi();
const std::vector<std::vector<libMesh::RealGradient> >& p_dphi =
context.get_element_fe(this->_press_var.p())->get_dphi();
libMesh::DenseSubVector<libMesh::Number> &Fp = context.get_elem_residual(this->_press_var.p()); // R_{p}
libMesh::DenseSubMatrix<libMesh::Number> &Kpu =
context.get_elem_jacobian(this->_press_var.p(), this->_flow_vars.u()); // J_{pu}
libMesh::DenseSubMatrix<libMesh::Number> &Kpv =
context.get_elem_jacobian(this->_press_var.p(), this->_flow_vars.v()); // J_{pv}
libMesh::DenseSubMatrix<libMesh::Number> *Kpw = NULL;
if(this->mesh_dim(context) == 3)
{
Kpw = &context.get_elem_jacobian
(this->_press_var.p(), this->_flow_vars.w()); // J_{pw}
}
// Now we will build the element Jacobian and residual.
// Constructing the residual requires the solution and its
// gradient from the previous timestep. This must be
// calculated at each quadrature point by summing the
// solution degree-of-freedom values by the appropriate
// weight functions.
unsigned int n_qpoints = context.get_element_qrule().n_points();
libMesh::FEBase* fe = context.get_element_fe(this->_flow_vars.u());
for (unsigned int qp=0; qp != n_qpoints; qp++)
{
libMesh::RealGradient g = this->_stab_helper.compute_g( fe, context, qp );
libMesh::RealTensor G = this->_stab_helper.compute_G( fe, context, qp );
libMesh::RealGradient U( context.interior_value( this->_flow_vars.u(), qp ),
context.interior_value( this->_flow_vars.v(), qp ) );
if( this->mesh_dim(context) == 3 )
{
U(2) = context.interior_value( this->_flow_vars.w(), qp );
}
// Compute the viscosity at this qp
libMesh::Real mu_qp = this->_mu(context, qp);
libMesh::Real tau_M;
libMesh::Real d_tau_M_d_rho;
libMesh::Gradient d_tau_M_dU;
if (compute_jacobian)
this->_stab_helper.compute_tau_momentum_and_derivs
( context, qp, g, G, this->_rho, U, mu_qp,
tau_M, d_tau_M_d_rho, d_tau_M_dU,
this->_is_steady );
else
tau_M = this->_stab_helper.compute_tau_momentum
( context, qp, g, G, this->_rho, U, mu_qp,
this->_is_steady );
libMesh::NumberVectorValue F;
libMesh::NumberTensorValue dFdU;
libMesh::NumberTensorValue* dFdU_ptr =
compute_jacobian ? &dFdU : NULL;
if (!this->compute_force(u_qpoint[qp], context, U, F, dFdU_ptr))
continue;
// First, an i-loop over the velocity degrees of freedom.
// We know that n_u_dofs == n_v_dofs so we can compute contributions
// for both at the same time.
for (unsigned int i=0; i != n_p_dofs; i++)
{
Fp(i) += -tau_M*F*p_dphi[i][qp]*JxW[qp];
if (compute_jacobian)
{
for (unsigned int j=0; j != n_u_dofs; ++j)
{
Kpu(i,j) += -d_tau_M_dU(0)*u_phi[j][qp]*F*p_dphi[i][qp]*JxW[qp]*context.get_elem_solution_derivative();
Kpv(i,j) += -d_tau_M_dU(1)*u_phi[j][qp]*F*p_dphi[i][qp]*JxW[qp]*context.get_elem_solution_derivative();
for (unsigned int d=0; d != 3; ++d)
{
Kpu(i,j) += -tau_M*dFdU(d,0)*u_phi[j][qp]*p_dphi[i][qp](d)*JxW[qp]*context.get_elem_solution_derivative();
Kpv(i,j) += -tau_M*dFdU(d,1)*u_phi[j][qp]*p_dphi[i][qp](d)*JxW[qp]*context.get_elem_solution_derivative();
}
}
if( this->mesh_dim(context) == 3 )
for (unsigned int j=0; j != n_u_dofs; ++j)
{
(*Kpw)(i,j) += -d_tau_M_dU(2)*u_phi[j][qp]*F*p_dphi[i][qp]*JxW[qp]*context.get_elem_solution_derivative();
for (unsigned int d=0; d != 3; ++d)
{
(*Kpw)(i,j) += -tau_M*dFdU(d,2)*u_phi[j][qp]*p_dphi[i][qp](d)*JxW[qp]*context.get_elem_solution_derivative();
}
}
}
}
} // End quadrature loop
#ifdef GRINS_USE_GRVY_TIMERS
this->_timer->EndTimer("VelocityPenaltyAdjointStabilization::element_constraint");
#endif
return;
}
