v0.14.0
Public Member Functions | Private Attributes | List of all members
FreeSurfaceOps::OpLhsU_dU Struct Reference

Lhs for U dU. More...

#include <users_modules/tutorials/vec-5/src/FreeSurfaceOps.hpp>

Inheritance diagram for FreeSurfaceOps::OpLhsU_dU:
[legend]
Collaboration diagram for FreeSurfaceOps::OpLhsU_dU:
[legend]

Public Member Functions

 OpLhsU_dU (const std::string field_name, boost::shared_ptr< MatrixDouble > u_ptr, boost::shared_ptr< MatrixDouble > grad_u_ptr, boost::shared_ptr< VectorDouble > h_ptr)
 
MoFEMErrorCode iNtegrate (EntitiesFieldData::EntData &row_data, EntitiesFieldData::EntData &col_data)
 

Private Attributes

boost::shared_ptr< MatrixDouble > uPtr
 
boost::shared_ptr< MatrixDouble > gradUPtr
 
boost::shared_ptr< VectorDouble > hPtr
 

Detailed Description

Lhs for U dU.

Examples
free_surface.cpp.

Definition at line 473 of file FreeSurfaceOps.hpp.

Constructor & Destructor Documentation

◆ OpLhsU_dU()

FreeSurfaceOps::OpLhsU_dU::OpLhsU_dU ( const std::string  field_name,
boost::shared_ptr< MatrixDouble >  u_ptr,
boost::shared_ptr< MatrixDouble >  grad_u_ptr,
boost::shared_ptr< VectorDouble >  h_ptr 
)
inline

Definition at line 475 of file FreeSurfaceOps.hpp.

479  AssemblyDomainEleOp::OPROWCOL),
480  uPtr(u_ptr), gradUPtr(grad_u_ptr), hPtr(h_ptr) {
481  sYmm = false;
482  assembleTranspose = false;
483  }

Member Function Documentation

◆ iNtegrate()

MoFEMErrorCode FreeSurfaceOps::OpLhsU_dU::iNtegrate ( EntitiesFieldData::EntData row_data,
EntitiesFieldData::EntData col_data 
)
inline

Definition at line 485 of file FreeSurfaceOps.hpp.

486  {
488 
489  const double vol = getMeasure();
490  auto t_u = getFTensor1FromMat<U_FIELD_DIM>(*uPtr);
491  auto t_grad_u = getFTensor2FromMat<U_FIELD_DIM, SPACE_DIM>(*gradUPtr);
492  auto t_h = getFTensor0FromVec(*hPtr);
493  auto t_coords = getFTensor1CoordsAtGaussPts();
494 
495  auto t_row_base = row_data.getFTensor0N();
496  auto t_row_diff_base = row_data.getFTensor1DiffN<SPACE_DIM>();
497 
498  auto t_w = getFTensor0IntegrationWeight();
499 
500  auto get_mat = [&](const int rr) {
501  return getFTensor2FromArray<SPACE_DIM, SPACE_DIM, SPACE_DIM>(locMat, rr);
502  };
503 
504  auto ts_a = getTSa();
506 
507  for (int gg = 0; gg != nbIntegrationPts; gg++) {
508 
509  const double r = t_coords(0);
510  const double alpha = t_w * vol * cylindrical(r);
511  const double rho = phase_function(t_h, rho_diff, rho_ave);
512  const double mu = phase_function(t_h, mu_diff, mu_ave);
513 
514  const double beta0 = alpha * rho;
515  const double beta1 = beta0 * ts_a;
516  auto t_D = get_D(2 * mu);
517 
518  int rr = 0;
519  for (; rr != nbRows / U_FIELD_DIM; ++rr) {
520 
521  auto t_mat = get_mat(rr * U_FIELD_DIM);
522  auto t_col_base = col_data.getFTensor0N(gg, 0);
523  auto t_col_diff_base = col_data.getFTensor1DiffN<SPACE_DIM>(gg, 0);
524 
526  // I mix up the indices here so that it behaves like a
527  // Dg. That way I don't have to have a separate wrapper
528  // class Christof_Expr, which simplifies things.
529  t_d_stress(l, j, k) = t_D(i, j, k, l) * (alpha * t_row_diff_base(i));
530 
531  for (int cc = 0; cc != nbCols / U_FIELD_DIM; ++cc) {
532 
533  const double bb = t_row_base * t_col_base;
534 
535  t_mat(i, j) += (beta1 * bb) * t_kd(i, j);
536  t_mat(i, j) += (beta0 * bb) * t_grad_u(i, j);
537  t_mat(i, j) +=
538  (beta0 * t_row_base) * t_kd(i, j) * (t_col_diff_base(k) * t_u(k));
539  t_mat(i, j) += t_d_stress(i, j, k) * t_col_diff_base(k);
540 
541  if (coord_type == CYLINDRICAL) {
542  t_mat(0, 0) += (bb * (alpha / t_coords(0))) * (2 * mu);
543  }
544 
545  ++t_mat;
546  ++t_col_base;
547  ++t_col_diff_base;
548  }
549 
550  ++t_row_base;
551  ++t_row_diff_base;
552  }
553 
554  for (; rr < nbRowBaseFunctions; ++rr) {
555  ++t_row_diff_base;
556  ++t_row_base;
557  }
558 
559  ++t_u;
560  ++t_grad_u;
561  ++t_h;
562 
563  ++t_coords;
564  ++t_w;
565  }
566 
568  }

Member Data Documentation

◆ gradUPtr

boost::shared_ptr<MatrixDouble> FreeSurfaceOps::OpLhsU_dU::gradUPtr
private

Definition at line 572 of file FreeSurfaceOps.hpp.

◆ hPtr

boost::shared_ptr<VectorDouble> FreeSurfaceOps::OpLhsU_dU::hPtr
private

Definition at line 573 of file FreeSurfaceOps.hpp.

◆ uPtr

boost::shared_ptr<MatrixDouble> FreeSurfaceOps::OpLhsU_dU::uPtr
private

Definition at line 571 of file FreeSurfaceOps.hpp.


The documentation for this struct was generated from the following file:
get_D
auto get_D
Definition: free_surface.cpp:252
rho_ave
double rho_ave
Definition: free_surface.cpp:178
FTensor::Christof
Definition: Christof_value.hpp:9
FreeSurfaceOps::OpLhsU_dU::hPtr
boost::shared_ptr< VectorDouble > hPtr
Definition: FreeSurfaceOps.hpp:573
rho
double rho
Definition: plastic.cpp:191
sdf.r
int r
Definition: sdf.py:8
cylindrical
auto cylindrical
Definition: free_surface.cpp:187
FreeSurfaceOps::OpLhsU_dU::uPtr
boost::shared_ptr< MatrixDouble > uPtr
Definition: FreeSurfaceOps.hpp:571
U_FIELD_DIM
constexpr int U_FIELD_DIM
Definition: free_surface.cpp:79
SPACE_DIM
constexpr int SPACE_DIM
Definition: child_and_parent.cpp:16
rho_diff
double rho_diff
Definition: free_surface.cpp:179
MoFEM::getFTensor0FromVec
static auto getFTensor0FromVec(ublas::vector< T, A > &data)
Get tensor rank 0 (scalar) form data vector.
Definition: Templates.hpp:135
phase_function
auto phase_function
Definition: free_surface.cpp:211
i
FTensor::Index< 'i', SPACE_DIM > i
Definition: hcurl_divergence_operator_2d.cpp:27
t_kd
constexpr auto t_kd
Definition: free_surface.cpp:137
field_name
constexpr auto field_name
Definition: poisson_2d_homogeneous.cpp:13
mu_diff
double mu_diff
Definition: free_surface.cpp:181
CYLINDRICAL
@ CYLINDRICAL
Definition: definitions.h:117
mu_ave
double mu_ave
Definition: free_surface.cpp:180
j
FTensor::Index< 'j', 3 > j
Definition: matrix_function.cpp:19
coord_type
constexpr CoordinateTypes coord_type
Definition: incompressible_elasticity.cpp:19
mu
double mu
Definition: dynamic_first_order_con_law.cpp:98
FTensor::Kronecker_Delta_symmetric
Kronecker Delta class symmetric.
Definition: Kronecker_Delta.hpp:49
AssemblyDomainEleOp
FormsIntegrators< DomainEleOp >::Assembly< A >::OpBase AssemblyDomainEleOp
Definition: tensor_divergence_operator.cpp:59
FreeSurfaceOps::OpLhsU_dU::gradUPtr
boost::shared_ptr< MatrixDouble > gradUPtr
Definition: FreeSurfaceOps.hpp:572
k
FTensor::Index< 'k', 3 > k
Definition: matrix_function.cpp:20
MoFEMFunctionReturn
#define MoFEMFunctionReturn(a)
Last executable line of each PETSc function used for error handling. Replaces return()
Definition: definitions.h:416
MoFEMFunctionBegin
#define MoFEMFunctionBegin
First executable line of each MoFEM function, used for error handling. Final line of MoFEM functions ...
Definition: definitions.h:346
l
FTensor::Index< 'l', 3 > l
Definition: matrix_function.cpp:21