MortarConstraint.C

Go to the documentation of this file.

//* This file is part of the MOOSE framework
//* https://mooseframework.inl.gov
//*
//* All rights reserved, see COPYRIGHT for full restrictions
//* https://github.com/idaholab/moose/blob/master/COPYRIGHT
//*
//* Licensed under LGPL 2.1, please see LICENSE for details
//* https://www.gnu.org/licenses/lgpl-2.1.html
 
#include "MortarConstraint.h"
 
// MOOSE includes
#include "Assembly.h"
#include "MooseVariable.h"
#include "SystemBase.h"
 
InputParameters
MortarConstraint::validParams()
{
  InputParameters params = MortarConstraintBase::validParams();
  return params;
}
 
MortarConstraint::MortarConstraint(const InputParameters & parameters)
  : MortarConstraintBase(parameters),
    _lambda_dummy(),
    _lambda(_var ? _var->slnLower() : _lambda_dummy),
    _u_secondary(_secondary_var.sln()),
    _u_primary(_primary_var.slnNeighbor()),
    _grad_u_secondary(_secondary_var.gradSln()),
    _grad_u_primary(_primary_var.gradSlnNeighbor()),
    _phi(nullptr),
    _grad_phi(nullptr)
{
}
 
void
MortarConstraint::computeResidual(Moose::MortarType mortar_type)
{
  unsigned int test_space_size = 0;
  switch (mortar_type)
  {
    case Moose::MortarType::Secondary:
      prepareVectorTag(_assembly, _secondary_var.number());
      test_space_size = _test_secondary.size();
      break;
 
    case Moose::MortarType::Primary:
      prepareVectorTagNeighbor(_assembly, _primary_var.number());
      test_space_size = _test_primary.size();
      break;
 
    case Moose::MortarType::Lower:
      mooseAssert(_var, "LM variable is null");
      prepareVectorTagLower(_assembly, _var->number());
      test_space_size = _test.size();
      break;
  }
 
  for (_qp = 0; _qp < _qrule_msm->n_points(); _qp++)
    for (_i = 0; _i < test_space_size; _i++)
      _local_re(_i) += _JxW_msm[_qp] * _coord[_qp] * computeQpResidual(mortar_type);
 
  accumulateTaggedLocalResidual();
}
 
void
MortarConstraint::computeJacobian(Moose::MortarType mortar_type)
{
  std::size_t test_space_size = 0;
  typedef Moose::ConstraintJacobianType JType;
  typedef Moose::MortarType MType;
  std::array<JType, 3> jacobian_types;
 
  switch (mortar_type)
  {
    case MType::Secondary:
      test_space_size = _secondary_var.dofIndices().size();
      jacobian_types = {
          {JType::SecondarySecondary, JType::SecondaryPrimary, JType::SecondaryLower}};
      break;
 
    case MType::Primary:
      test_space_size = _primary_var.dofIndicesNeighbor().size();
      jacobian_types = {{JType::PrimarySecondary, JType::PrimaryPrimary, JType::PrimaryLower}};
      break;
 
    case MType::Lower:
      test_space_size = _var ? _var->dofIndicesLower().size() : 0;
      jacobian_types = {{JType::LowerSecondary, JType::LowerPrimary, JType::LowerLower}};
      break;
  }
 
  auto & ce = _assembly.couplingEntries();
  for (const auto & it : ce)
  {
    MooseVariableFEBase & ivariable = *(it.first);
    MooseVariableFEBase & jvariable = *(it.second);
 
    unsigned int ivar = ivariable.number();
    unsigned int jvar = jvariable.number();
 
    switch (mortar_type)
    {
      case MType::Secondary:
        if (ivar != _secondary_var.number())
          continue;
        break;
 
      case MType::Primary:
        if (ivar != _primary_var.number())
          continue;
        break;
 
      case MType::Lower:
        if (!_var || _var->number() != ivar)
          continue;
        break;
    }
 
    std::array<size_t, 3> shape_space_sizes{{jvariable.dofIndices().size(),
                                             jvariable.dofIndicesNeighbor().size(),
                                             jvariable.dofIndicesLower().size()}};
    std::array<const VariablePhiValue *, 3> phis;
    std::array<const VariablePhiGradient *, 3> grad_phis;
    std::array<const VectorVariablePhiValue *, 3> vector_phis;
    std::array<const VectorVariablePhiGradient *, 3> vector_grad_phis;
    if (jvariable.isVector())
    {
      const auto & temp_var = static_cast<MooseVariableFE<RealVectorValue> &>(jvariable);
      vector_phis = {{&temp_var.phiFace(), &temp_var.phiFaceNeighbor(), &temp_var.phiLower()}};
      vector_grad_phis = {
          {&temp_var.gradPhiFace(), &temp_var.gradPhiFaceNeighbor(), &temp_var.gradPhiLower()}};
    }
    else
    {
      const auto & temp_var = static_cast<MooseVariableFE<Real> &>(jvariable);
      phis = {{&temp_var.phiFace(), &temp_var.phiFaceNeighbor(), &temp_var.phiLower()}};
      grad_phis = {
          {&temp_var.gradPhiFace(), &temp_var.gradPhiFaceNeighbor(), &temp_var.gradPhiLower()}};
    }
 
    for (MooseIndex(3) type_index = 0; type_index < 3; ++type_index)
    {
      const auto jacobian_type = jacobian_types[type_index];
 
      prepareMatrixTagLower(_assembly, ivar, jvar, jacobian_type);
 
      if (jvariable.isVector())
      {
        _vector_phi = vector_phis[type_index];
        _vector_grad_phi = vector_grad_phis[type_index];
      }
      else
      {
        _phi = phis[type_index];
        _grad_phi = grad_phis[type_index];
      }
 
      for (_i = 0; _i < test_space_size; _i++)
        for (_j = 0; _j < shape_space_sizes[type_index]; _j++)
          for (_qp = 0; _qp < _qrule_msm->n_points(); _qp++)
            _local_ke(_i, _j) +=
                _JxW_msm[_qp] * _coord[_qp] * computeQpJacobian(jacobian_type, jvar);
      accumulateTaggedLocalMatrix();
    }
  }
}