ComputeFrictionalForceLMMechanicalContact.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 "ComputeFrictionalForceLMMechanicalContact.h"
#include "DisplacedProblem.h"
#include "Assembly.h"
#include "MortarContactUtils.h"
#include "WeightedVelocitiesUserObject.h"
 
#include "metaphysicl/metaphysicl_version.h"
#include "metaphysicl/dualsemidynamicsparsenumberarray.h"
#include "metaphysicl/parallel_dualnumber.h"
#if METAPHYSICL_MAJOR_VERSION < 2
#include "metaphysicl/parallel_dynamic_std_array_wrapper.h"
#else
#include "metaphysicl/parallel_dynamic_array_wrapper.h"
#endif
#include "metaphysicl/parallel_semidynamicsparsenumberarray.h"
#include "timpi/parallel_sync.h"
 
#include <cmath>
 
registerMooseObject("ContactApp", ComputeFrictionalForceLMMechanicalContact);
 
InputParameters
ComputeFrictionalForceLMMechanicalContact::validParams()
{
  InputParameters params = ComputeWeightedGapLMMechanicalContact::validParams();
  params.addClassDescription("Computes the tangential frictional forces");
  params.addRequiredCoupledVar("friction_lm", "The frictional Lagrange's multiplier");
  params.addCoupledVar("friction_lm_dir",
                       "The frictional Lagrange's multiplier for an addtional direction.");
  params.addParam<FunctionName>(
      "function_friction",
      "Coupled function to evaluate friction with values from contact pressure and relative "
      "tangential velocities");
  params.addParam<Real>("c_t", 1e0, "Numerical parameter for tangential constraints");
  params.addParam<Real>(
      "epsilon",
      1.0e-7,
      "Minimum value of contact pressure that will trigger frictional enforcement");
  params.addRangeCheckedParam<Real>(
      "mu", "mu > 0", "The friction coefficient for the Coulomb friction law");
  params.addRequiredParam<UserObjectName>("weighted_velocities_uo",
                                          "The weighted tangential velocities user object.");
  MooseEnum friction_projection_degree("ONE TWO", "TWO");
  friction_projection_degree.addDocumentation(
      "ONE", "Use the degree-one Alart-Curnier friction residual.");
  friction_projection_degree.addDocumentation(
      "TWO", "Use the degree-two Hueber-Stadler-Wohlmuth friction residual.");
  params.addParam<MooseEnum>(
      "friction_projection_degree",
      friction_projection_degree,
      "Degree of the friction-residual projection; see MortarContactUtils.h.");
 
  return params;
}
 
ComputeFrictionalForceLMMechanicalContact::ComputeFrictionalForceLMMechanicalContact(
    const InputParameters & parameters)
  : ComputeWeightedGapLMMechanicalContact(parameters),
    _weighted_velocities_uo(getUserObject<WeightedVelocitiesUserObject>("weighted_velocities_uo")),
    _c_t(getParam<Real>("c_t")),
    _friction_projection_degree(getParam<MooseEnum>("friction_projection_degree")
                                    .getEnum<Moose::Mortar::Contact::FrictionProjectionDegree>()),
    _secondary_x_dot(_secondary_var.adUDot()),
    _primary_x_dot(_primary_var.adUDotNeighbor()),
    _secondary_y_dot(adCoupledDot("disp_y")),
    _primary_y_dot(adCoupledNeighborValueDot("disp_y")),
    _secondary_z_dot(_has_disp_z ? &adCoupledDot("disp_z") : nullptr),
    _primary_z_dot(_has_disp_z ? &adCoupledNeighborValueDot("disp_z") : nullptr),
    _epsilon(getParam<Real>("epsilon")),
    _mu(isParamValid("function_friction") ? std::numeric_limits<double>::quiet_NaN()
                                          : getParam<Real>("mu")),
    _function_friction(isParamValid("function_friction") ? &getFunction("function_friction")
                                                         : nullptr),
    _has_friction_function(isParamValid("function_friction")),
    _3d(_has_disp_z)
 
{
  if (!_weighted_velocities_uo.usesNodalNormalDerivatives())
    paramError("weighted_velocities_uo",
               "Nodal-normal derivatives are not supported by user object '",
               _weighted_velocities_uo.name(),
               "'.");
 
  // The weighted-gap and weighted-velocity parameters may identify different user objects, so each
  // object's interface and displacement configuration must be validated.
  if (secondarySubdomain() != _weighted_velocities_uo.secondarySubdomain() ||
      primarySubdomain() != _weighted_velocities_uo.primarySubdomain())
    paramError("weighted_velocities_uo",
               "'weighted_velocities_uo' must be defined on the same secondary/primary subdomain "
               "pair as this constraint when nodal-normal derivatives are enabled.");
 
  const std::array<std::pair<const MooseVariable *, unsigned int>, 3>
      velocity_displacement_variables{{{_disp_x_var, 0}, {_disp_y_var, 1}, {_disp_z_var, 2}}};
  for (const auto & [variable, component] : velocity_displacement_variables)
    if (variable != _weighted_velocities_uo.dispVar(component))
      paramError("weighted_velocities_uo",
                 "'weighted_velocities_uo' must use the same displacement variables as this "
                 "constraint when nodal-normal derivatives are enabled.");
 
  if (parameters.isParamSetByUser("mu") && _has_friction_function)
    paramError(
        "mu",
        "Please only provide friction either as a function or as a constant value, but not both.");
  else if (!parameters.isParamSetByUser("mu") && !_has_friction_function)
    paramError("mu", "Please provide a value or a function for the coefficient of friction.");
 
  if (!getParam<bool>("use_displaced_mesh"))
    paramError("use_displaced_mesh",
               "'use_displaced_mesh' must be true for the "
               "ComputeFrictionalForceLMMechanicalContact object");
 
  if (_3d && !isParamValid("friction_lm_dir"))
    paramError("friction_lm_dir",
               "Three-dimensional mortar frictional contact simulations require an additional "
               "frictional Lagrange's multiplier to enforce a second tangential pressure");
 
  _friction_vars.push_back(getVar("friction_lm", 0));
 
  if (_3d)
    _friction_vars.push_back(getVar("friction_lm_dir", 0));
 
  if (!_friction_vars[0]->isNodal())
    if (_friction_vars[0]->feType().order != static_cast<Order>(0))
      paramError(
          "friction_lm",
          "Frictional contact constraints only support elemental variables of CONSTANT order");
}
 
void
ComputeFrictionalForceLMMechanicalContact::computeQpProperties()
{
}
 
void
ComputeFrictionalForceLMMechanicalContact::computeQpIProperties()
{
}
 
void
ComputeFrictionalForceLMMechanicalContact::residualSetup()
{
}
 
void
ComputeFrictionalForceLMMechanicalContact::post()
{
  const auto & dof_to_weighted_tangential_velocity =
      _weighted_velocities_uo.dofToWeightedVelocities();
 
  const std::unordered_map<const DofObject *, std::pair<ADReal, Real>> & dof_to_weighted_gap =
      _weighted_gap_uo.dofToWeightedGap();
 
  // Enforce frictional constraints
 
  for (const auto & [dof_object, weighted_velocities_pr] : dof_to_weighted_tangential_velocity)
  {
    if (dof_object->processor_id() != this->processor_id())
      continue;
 
    const auto & [weighted_gap_pr, normalization] =
        libmesh_map_find(dof_to_weighted_gap, dof_object);
    _weighted_gap_ptr = &weighted_gap_pr;
    _normalization_ptr = &normalization;
    _tangential_vel_ptr[0] = &(weighted_velocities_pr[0]);
 
    if (_3d)
    {
      _tangential_vel_ptr[1] = &(weighted_velocities_pr[1]);
      enforceConstraintOnDof3d(dof_object);
    }
    else
      enforceConstraintOnDof(dof_object);
  }
}
 
void
ComputeFrictionalForceLMMechanicalContact::incorrectEdgeDroppingPost(
    const std::unordered_set<const Node *> & inactive_lm_nodes)
{
  const auto & dof_to_weighted_tangential_velocity =
      _weighted_velocities_uo.dofToWeightedVelocities();
  const auto & dof_to_weighted_gap = _weighted_gap_uo.dofToWeightedGap();
  // Enforce frictional complementarity constraints
  for (const auto & [dof_object, weighted_velocities_pr] : dof_to_weighted_tangential_velocity)
  {
    // If node inactive, skip
    if ((inactive_lm_nodes.find(static_cast<const Node *>(dof_object)) !=
         inactive_lm_nodes.end()) ||
        (dof_object->processor_id() != this->processor_id()))
      continue;
 
    _weighted_gap_ptr = &dof_to_weighted_gap.at(dof_object).first;
    _normalization_ptr = &dof_to_weighted_gap.at(dof_object).second;
    _tangential_vel_ptr[0] = &weighted_velocities_pr[0];
 
    if (_3d)
    {
      _tangential_vel_ptr[1] = &weighted_velocities_pr[1];
      enforceConstraintOnDof3d(dof_object);
    }
    else
      enforceConstraintOnDof(dof_object);
  }
}
 
void
ComputeFrictionalForceLMMechanicalContact::enforceConstraintOnDof3d(const DofObject * const dof)
{
  ComputeWeightedGapLMMechanicalContact::enforceConstraintOnDof(dof);
 
  // Get normal LM
  const auto normal_dof_index = dof->dof_number(_sys.number(), _var->number(), 0);
  const ADReal & weighted_gap = *_weighted_gap_ptr;
  ADReal contact_pressure = (*_sys.currentSolution())(normal_dof_index);
  Moose::derivInsert(contact_pressure.derivatives(), normal_dof_index, 1.);
  // The stored multiplier is zhat = kappa*lambda; recover lambda for the Coulomb bound
  contact_pressure /= _weighted_gap_uo.nodalScale(dof);
 
  // Get friction LMs
  std::array<const ADReal *, 2> & tangential_vel = _tangential_vel_ptr;
  std::array<dof_id_type, 2> friction_dof_indices;
  std::array<ADReal, 2> friction_lm_values;
 
  const unsigned int num_tangents = 2;
  for (const auto i : make_range(num_tangents))
  {
    friction_dof_indices[i] = dof->dof_number(_sys.number(), _friction_vars[i]->number(), 0);
    friction_lm_values[i] = (*_sys.currentSolution())(friction_dof_indices[i]);
    Moose::derivInsert(friction_lm_values[i].derivatives(), friction_dof_indices[i], 1.);
  }
 
  // Get normalized c and c_t values (if normalization specified
  const Real c = _normalize_c ? _c / *_normalization_ptr : _c;
  const Real c_t = _normalize_c ? _c_t / *_normalization_ptr : _c_t;
 
  // Compute the friction coefficient (constant or function). The nodal slip rate is the weighted
  // tangential velocity divided by the integral of the same test function, which is the nodal
  // coefficient of the mortar projection of the relative tangential velocity
  // (Wohlmuth 2011, eq. 3.10a).
  ADReal mu_ad = computeFrictionValue(contact_pressure,
                                      *tangential_vel[0] / *_normalization_ptr,
                                      *tangential_vel[1] / *_normalization_ptr);
 
  const std::array<ADReal, 2> tangential_velocity{{*tangential_vel[0], *tangential_vel[1]}};
 
  const auto residual =
      Moose::Mortar::Contact::frictionalContactResidual(friction_lm_values,
                                                        tangential_velocity,
                                                        ADReal(c_t),
                                                        ADReal(_dt),
                                                        contact_pressure,
                                                        c * weighted_gap,
                                                        mu_ad,
                                                        ADReal(_epsilon),
                                                        _friction_projection_degree);
  const ADReal dof_residual = residual[0];
  const ADReal dof_residual_dir = residual[1];
 
  addResidualsAndJacobian(_assembly,
                          std::array<ADReal, 1>{{dof_residual}},
                          std::array<dof_id_type, 1>{{friction_dof_indices[0]}},
                          _friction_vars[0]->scalingFactor());
  addResidualsAndJacobian(_assembly,
                          std::array<ADReal, 1>{{dof_residual_dir}},
                          std::array<dof_id_type, 1>{{friction_dof_indices[1]}},
                          _friction_vars[1]->scalingFactor());
}
 
void
ComputeFrictionalForceLMMechanicalContact::enforceConstraintOnDof(const DofObject * const dof)
{
  ComputeWeightedGapLMMechanicalContact::enforceConstraintOnDof(dof);
 
  // Get friction LM
  const auto friction_dof_index = dof->dof_number(_sys.number(), _friction_vars[0]->number(), 0);
  const ADReal & tangential_vel = *_tangential_vel_ptr[0];
  ADReal friction_lm_value = (*_sys.currentSolution())(friction_dof_index);
  Moose::derivInsert(friction_lm_value.derivatives(), friction_dof_index, 1.);
 
  // Get normal LM
  const auto normal_dof_index = dof->dof_number(_sys.number(), _var->number(), 0);
  const ADReal & weighted_gap = *_weighted_gap_ptr;
  ADReal contact_pressure = (*_sys.currentSolution())(normal_dof_index);
  Moose::derivInsert(contact_pressure.derivatives(), normal_dof_index, 1.);
  // The stored multiplier is zhat = kappa*lambda; recover lambda for the Coulomb bound
  contact_pressure /= _weighted_gap_uo.nodalScale(dof);
 
  // Get normalized c and c_t values (if normalization specified
  const Real c = _normalize_c ? _c / *_normalization_ptr : _c;
  const Real c_t = _normalize_c ? _c_t / *_normalization_ptr : _c_t;
 
  // Compute the friction coefficient (constant or function) from the projected nodal slip rate, as
  // in enforceConstraintOnDof3d()
  ADReal mu_ad = computeFrictionValue(contact_pressure, tangential_vel / *_normalization_ptr, 0.0);
 
  const std::array<ADReal, 1> tangential_pressure{{friction_lm_value}};
  const std::array<ADReal, 1> tangential_velocity{{tangential_vel}};
 
  const ADReal dof_residual =
      Moose::Mortar::Contact::frictionalContactResidual(tangential_pressure,
                                                        tangential_velocity,
                                                        ADReal(c_t),
                                                        ADReal(_dt),
                                                        contact_pressure,
                                                        c * weighted_gap,
                                                        mu_ad,
                                                        ADReal(_epsilon),
                                                        _friction_projection_degree)[0];
 
  addResidualsAndJacobian(_assembly,
                          std::array<ADReal, 1>{{dof_residual}},
                          std::array<dof_id_type, 1>{{friction_dof_index}},
                          _friction_vars[0]->scalingFactor());
}
 
ADReal
ComputeFrictionalForceLMMechanicalContact::computeFrictionValue(const ADReal & contact_pressure,
                                                                const ADReal & tangential_vel,
                                                                const ADReal & tangential_vel_dir)
{
  using std::sqrt;
 
  // TODO: Introduce temperature dependence in the function. Do this when we have an example.
  ADReal mu_ad;
 
  if (!_has_friction_function)
    mu_ad = _mu;
  else
  {
    ADReal tangential_vel_magnitude =
        sqrt(tangential_vel * tangential_vel + tangential_vel_dir * tangential_vel_dir + 1.0e-24);
    mu_ad = _function_friction->value<ADReal>(0.0, contact_pressure, tangential_vel_magnitude, 0.0);
  }
 
  return mu_ad;
}