KokkosCoupledForceNodalKernel.h

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

#pragma once

#include "KokkosNodalKernel.h"

class KokkosCoupledForceNodalKernel final
  : public Moose::Kokkos::NodalKernel<KokkosCoupledForceNodalKernel>
{
public:
  static InputParameters validParams();

  KokkosCoupledForceNodalKernel(const InputParameters & parameters);

  KOKKOS_FUNCTION Real computeQpResidual(const ContiguousNodeID node) const;
  KOKKOS_FUNCTION Real computeQpOffDiagJacobian(const unsigned int jvar,
                                                const ContiguousNodeID node) const;

private:
  const unsigned int _v_var;

  const Moose::Kokkos::VariableNodalValue _v;

  const Real _coef;
};

KOKKOS_FUNCTION inline Real
KokkosCoupledForceNodalKernel::computeQpResidual(const ContiguousNodeID node) const
{
  return -_coef * _v(node);
}

KOKKOS_FUNCTION inline Real
KokkosCoupledForceNodalKernel::computeQpOffDiagJacobian(const unsigned int jvar,
                                                        const ContiguousNodeID /* node */) const
{
  if (jvar == _v_var)
    return -_coef;
  return 0;
}