lsLocalLocalLaxFriedrichs.hpp

Go to the documentation of this file.

#pragma once
 
#include <hrleSparseStarIterator.hpp>
 
#include <lsDomain.hpp>
#include <lsExpand.hpp>
#include <lsVelocityField.hpp>
 
#include <vcVectorType.hpp>
 
namespace lsInternal {
 
using namespace viennacore;

template <class T, int D, int order> class LocalLocalLaxFriedrichs {
  SmartPointer<viennals::Domain<T, D>> levelSet;
  SmartPointer<viennals::VelocityField<T>> velocities;
  viennahrle::ConstSparseStarIterator<viennahrle::Domain<T, D>, order>
      neighborIterator;
  const double alphaFactor;
  const double gridDelta;
  VectorType<T, D> finalAlphas{};
 
  static T pow2(const T &value) { return value * value; }
 
public:
  static void prepareLS(SmartPointer<viennals::Domain<T, D>> passedlsDomain) {
    assert(order == 1 || order == 2);
    viennals::Expand<T, D>(passedlsDomain, 2 * order + 1).apply();
  }
 
  LocalLocalLaxFriedrichs(SmartPointer<viennals::Domain<T, D>> passedlsDomain,
                          SmartPointer<viennals::VelocityField<T>> vel,
                          double a = 1.0)
      : levelSet(passedlsDomain), velocities(vel),
        neighborIterator(levelSet->getDomain()), alphaFactor(a),
        gridDelta(levelSet->getGrid().getGridDelta()) {}
 
  std::pair<T, T> operator()(const viennahrle::Index<D> &indices,
                             int material) {
 
    Vec3D<T> coordinate{0., 0., 0.};
    for (unsigned i = 0; i < D; ++i) {
      coordinate[i] = indices[i] * gridDelta;
    }
 
    // move neighborIterator to current position
    neighborIterator.goToIndicesSequential(indices);
 
    T gradPos[D];
    T gradNeg[D];
 
    T grad = 0.;
    T dissipation = 0.;
 
    Vec3D<T> normalVector;
    T normalModulus = 0;
 
    for (int i = 0; i < D; i++) { // iterate over dimensions
 
      const T deltaPos = gridDelta;
      const T deltaNeg = -gridDelta;
 
      const T phi0 = neighborIterator.getCenter().getValue();
      const T phiPos = neighborIterator.getNeighbor(i).getValue();
      const T phiNeg = neighborIterator.getNeighbor(i + D).getValue();
 
      T diffPos = (phiPos - phi0) / deltaPos;
      T diffNeg = (phiNeg - phi0) / deltaNeg;
 
      if constexpr (order == 2) { // if second order spatial discretization
                                  // scheme is used
        const T deltaPosPos = 2 * gridDelta;
        const T deltaNegNeg = -2 * gridDelta;
 
        const T diff00 =
            (((deltaNeg * phiPos - deltaPos * phiNeg) / (deltaPos - deltaNeg) +
              phi0)) /
            (deltaPos * deltaNeg);
        const T phiPosPos =
            neighborIterator.getNeighbor((D * order) + i).getValue();
        const T phiNegNeg =
            neighborIterator.getNeighbor((D * order) + D + i).getValue();
 
        const T diffNegNeg = (((deltaNeg * phiNegNeg - deltaNegNeg * phiNeg) /
                                   (deltaNegNeg - deltaNeg) +
                               phi0)) /
                             (deltaNegNeg * deltaNeg);
        const T diffPosPos = (((deltaPos * phiPosPos - deltaPosPos * phiPos) /
                                   (deltaPosPos - deltaPos) +
                               phi0)) /
                             (deltaPosPos * deltaPos);
 
        if (std::signbit(diff00) == std::signbit(diffPosPos)) {
          if (std::abs(diffPosPos * deltaPos) < std::abs(diff00 * deltaNeg)) {
            diffPos -= deltaPos * diffPosPos;
          } else {
            diffPos += deltaNeg * diff00;
          }
        }
 
        if (std::signbit(diff00) == std::signbit(diffNegNeg)) {
          if (std::abs(diffNegNeg * deltaNeg) < std::abs(diff00 * deltaPos)) {
            diffNeg -= deltaNeg * diffNegNeg;
          } else {
            diffNeg += deltaPos * diff00;
          }
        }
      }
 
      gradPos[i] = diffNeg;
      gradNeg[i] = diffPos;
 
      normalVector[i] = (diffNeg + diffPos) * 0.5;
      normalModulus += normalVector[i] * normalVector[i];
 
      grad += pow2((diffNeg + diffPos) * 0.5);
    }
 
    // normalize normal vector
    normalModulus = 1. / std::sqrt(normalModulus);
    for (unsigned i = 0; i < D; ++i) {
      normalVector[i] *= normalModulus;
    }
 
    // Get velocities
    T scalarVelocity = velocities->getScalarVelocity(
        coordinate, material, normalVector,
        neighborIterator.getCenter().getPointId());
    Vec3D<T> vectorVelocity = velocities->getVectorVelocity(
        coordinate, material, normalVector,
        neighborIterator.getCenter().getPointId());
 
    // calculate hamiltonian
    T totalGrad = 0.;
    if (scalarVelocity != 0.) {
      totalGrad = scalarVelocity * std::sqrt(grad);
    }
 
    for (int w = 0; w < D; w++) {
      if (vectorVelocity[w] > 0.) {
        totalGrad += vectorVelocity[w] * gradPos[w];
      } else {
        totalGrad += vectorVelocity[w] * gradNeg[w];
      }
    }
 
    if (totalGrad == T(0)) {
      return {0, 0};
    }
 
    // calculate local dissipation alphas for each direction
    // and add to dissipation term
    for (unsigned i = 0; i < D; ++i) {
      T alpha =
          std::abs((scalarVelocity + vectorVelocity[i]) * normalVector[i]);
      finalAlphas[i] = std::max(finalAlphas[i], alpha);
      dissipation += alphaFactor * alpha * (gradNeg[i] - gradPos[i]) * 0.5;
    }
 
    return {totalGrad, dissipation};
  }
 
  void reduceTimeStepHamiltonJacobi(double &MaxTimeStep, double gridDelta) {
    constexpr double alpha_maxCFL = 1.0;
    // second time step test, based on alphas
 
    double timeStep = 0;
    for (int i = 0; i < D; ++i) {
      timeStep += finalAlphas[i] / gridDelta;
    }
 
    timeStep = alpha_maxCFL / timeStep;
    MaxTimeStep = std::min(timeStep, MaxTimeStep);
  }
};
} // namespace lsInternal