MeshDivisionFunctorReductionVectorPostprocessor.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 "MeshDivisionFunctorReductionVectorPostprocessor.h"
#include "MeshDivision.h"
#include "MooseMesh.h"
#include "MooseMeshUtils.h"
#include "FEProblemBase.h"

#include "libmesh/mesh_base.h"

registerMooseObject("MooseApp", MeshDivisionFunctorReductionVectorPostprocessor);

InputParameters
MeshDivisionFunctorReductionVectorPostprocessor::validParams()
{
  InputParameters params = SpatialUserObjectFunctor<ElementVectorPostprocessor>::validParams();
  MooseEnum reduction("integral average min max");
  params.addRequiredParam<MooseEnum>("reduction", reduction, "Reduction operation to apply");
  params.addRequiredParam<std::vector<MooseFunctorName>>("functors",
                                                         "Functors to apply the reduction on");
  params.addRequiredParam<MeshDivisionName>(
      "mesh_division",
      "Mesh division object which dictates the elements to perform the reduction with");
  params.addClassDescription("Perform reductions on functors based on a per-mesh-division basis");
  return params;
}

MeshDivisionFunctorReductionVectorPostprocessor::MeshDivisionFunctorReductionVectorPostprocessor(
    const InputParameters & parameters)
  : SpatialUserObjectFunctor<ElementVectorPostprocessor>(parameters),
    _reduction(getParam<MooseEnum>("reduction")),
    _nfunctors(getParam<std::vector<MooseFunctorName>>("functors").size()),
    _mesh_division(_fe_problem.getMeshDivision(getParam<MeshDivisionName>("mesh_division"), _tid))
{
  // Gather the functors
  const auto & functor_names = getParam<std::vector<MooseFunctorName>>("functors");
  for (const auto & functor_name : functor_names)
    _functors.push_back(&getFunctor<Real>(functor_name));

  // Set up reduction vectors
  const auto ndiv = _mesh_division.getNumDivisions();
  _volumes.resize(ndiv);
  for (const auto & functor_name : functor_names)
  {
    auto & p = declareVector(functor_name);
    p.resize(ndiv);
    _functor_reductions.push_back(&p);
  }
}

void
MeshDivisionFunctorReductionVectorPostprocessor::initialize()
{
  for (auto & reduction : _functor_reductions)
  {
    if (_reduction == ReductionEnum::INTEGRAL || _reduction == ReductionEnum::AVERAGE)
      std::fill(reduction->begin(), reduction->end(), 0);
    else if (_reduction == ReductionEnum::MIN)
      std::fill(reduction->begin(), reduction->end(), std::numeric_limits<Real>::max());
    else if (_reduction == ReductionEnum::MAX)
      std::fill(reduction->begin(), reduction->end(), std::numeric_limits<Real>::min());
    else
      mooseAssert(false, "Unknown reduction type");
  }
  std::fill(_volumes.begin(), _volumes.end(), 0);
}

void
MeshDivisionFunctorReductionVectorPostprocessor::execute()
{
  const auto state_arg = determineState();
  if (hasBlocks(_current_elem->subdomain_id()))
  {
    const auto index = _mesh_division.divisionIndex(*_current_elem);
    if (index == MooseMeshDivision::INVALID_DIVISION_INDEX)
    {
      mooseWarning("Spatial value sampled outside of the mesh_division specified in element: " +
                   Moose::stringify(_current_elem->id()) + " of centroid " +
                   Moose::stringify(_current_elem->true_centroid()));
      return;
    }
    for (const auto i : make_range(_nfunctors))
      if (_functors[i]->hasBlocks(_current_elem->subdomain_id()))
        for (const auto qp : make_range(_qrule->n_points()))
        {
          const Moose::ElemQpArg elem_qp = {_current_elem, qp, _qrule, _q_point[qp]};
          const auto functor_value = (*_functors[i])(elem_qp, state_arg);
          if (_reduction == ReductionEnum::INTEGRAL || _reduction == ReductionEnum::AVERAGE)
            (*_functor_reductions[i])[index] += _JxW[qp] * _coord[qp] * functor_value;
          else if (_reduction == ReductionEnum::MIN)
          {
            if ((*_functor_reductions[i])[index] > functor_value)
              (*_functor_reductions[i])[index] = functor_value;
          }
          else if (_reduction == ReductionEnum::MAX)
            if ((*_functor_reductions[i])[index] < functor_value)
              (*_functor_reductions[i])[index] = functor_value;

          if (i == 0 && _reduction == ReductionEnum::AVERAGE)
            _volumes[index] += _JxW[qp] * _coord[qp];
        }
  }
}

void
MeshDivisionFunctorReductionVectorPostprocessor::finalize()
{
  for (auto & reduction : _functor_reductions)
    if (_reduction == ReductionEnum::INTEGRAL || _reduction == ReductionEnum::AVERAGE)
      gatherSum(*reduction);
    else if (_reduction == ReductionEnum::MIN)
      gatherMin(*reduction);
    else if (_reduction == ReductionEnum::MAX)
      gatherMax(*reduction);

  if (_reduction == ReductionEnum::AVERAGE)
  {
    gatherSum(_volumes);
    for (const auto i_f : make_range(_nfunctors))
      for (const auto i : index_range(*_functor_reductions[i_f]))
        if (!MooseUtils::absoluteFuzzyEqual(_volumes[i], 0))
          (*_functor_reductions[i_f])[i] /= _volumes[i];
        else
          (*_functor_reductions[i_f])[i] = 0;
  }
}

void
MeshDivisionFunctorReductionVectorPostprocessor::threadJoin(const UserObject & s)
{
  const auto & sibling = static_cast<const MeshDivisionFunctorReductionVectorPostprocessor &>(s);

  for (const auto i_f : make_range(_nfunctors))
    for (const auto i : index_range(*_functor_reductions[i_f]))
    {
      if (_reduction == ReductionEnum::INTEGRAL || _reduction == ReductionEnum::AVERAGE)
        (*_functor_reductions[i_f])[i] += (*sibling._functor_reductions[i_f])[i];
      else if (_reduction == ReductionEnum::MIN)
      {
        if ((*_functor_reductions[i_f])[i] > (*sibling._functor_reductions[i_f])[i])
          (*_functor_reductions[i_f])[i] = (*sibling._functor_reductions[i_f])[i];
      }
      else if (_reduction == ReductionEnum::MAX)
        if ((*_functor_reductions[i_f])[i] < (*sibling._functor_reductions[i_f])[i])
          (*_functor_reductions[i_f])[i] = (*sibling._functor_reductions[i_f])[i];

      // Average-reduction requires the reduction of the volume
      if (i_f == 0 && _reduction == ReductionEnum::AVERAGE)
        _volumes[i] += sibling._volumes[i];
    }
}

Real
MeshDivisionFunctorReductionVectorPostprocessor::spatialValue(const Point & p) const
{
  if (_nfunctors > 1)
    mooseError("The spatialValue user object interface was not conceived for objects that compute "
               "multiple values for a given spatial point. Please specify only one functor");
  const auto index = _mesh_division.divisionIndex(p);
  if (index == MooseMeshDivision::INVALID_DIVISION_INDEX)
    mooseError("Spatial value sampled outside of the mesh_division specified at", p);
  return (*_functor_reductions[0])[index];
}

bool
MeshDivisionFunctorReductionVectorPostprocessor::hasBlocks(const SubdomainID sub) const
{
  return BlockRestrictable::hasBlocks(sub);
}