InterfaceDiffusionBoundaryTerm.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 "InterfaceDiffusionBoundaryTerm.h"

registerMooseObject("PhaseFieldApp", InterfaceDiffusionBoundaryTerm);

InputParameters
InterfaceDiffusionBoundaryTerm::validParams()
{
  InputParameters params = InterfaceDiffusionBase::validParams();
  params.addClassDescription("Add weak form surface terms of the Diffusion equation for two "
                             "different variables across a subdomain boundary");
  return params;
}

InterfaceDiffusionBoundaryTerm::InterfaceDiffusionBoundaryTerm(const InputParameters & parameters)
  : InterfaceDiffusionBase(parameters)
{
}

Real
InterfaceDiffusionBoundaryTerm::computeQpResidual(Moose::DGResidualType type)
{
  // add weak form surface terms for the diffusion equation
  switch (type)
  {
    case Moose::Element:
      return -_D * _grad_u[_qp] * _normals[_qp] * _test[_i][_qp];

    case Moose::Neighbor:
      return -_D_neighbor * _grad_neighbor_value[_qp] * -_normals[_qp] * _test_neighbor[_i][_qp];
  }

  mooseError("Internal error.");
}

Real
InterfaceDiffusionBoundaryTerm::computeQpJacobian(Moose::DGJacobianType type)
{
  switch (type)
  {
    case Moose::ElementElement:
      return -_D * _grad_phi[_j][_qp] * _normals[_qp] * _test[_i][_qp];

    case Moose::NeighborNeighbor:
      return -_D_neighbor * _grad_phi_neighbor[_j][_qp] * -_normals[_qp] * _test_neighbor[_i][_qp];

    case Moose::ElementNeighbor:
      return 0.0;

    case Moose::NeighborElement:
      return 0.0;
  }

  mooseError("Internal error.");
}