From 94d3e79a8617f88dc0219cfdeedfa3147833719d Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Mon, 24 Jun 2019 14:43:36 +0200
Subject: Initialize at openlb-1-3

---
 src/functors/lattice/integral/superLpNorm2D.hh | 133 +++++++++++++++++++++++++
 1 file changed, 133 insertions(+)
 create mode 100644 src/functors/lattice/integral/superLpNorm2D.hh

(limited to 'src/functors/lattice/integral/superLpNorm2D.hh')

diff --git a/src/functors/lattice/integral/superLpNorm2D.hh b/src/functors/lattice/integral/superLpNorm2D.hh
new file mode 100644
index 0000000..c6e02ac
--- /dev/null
+++ b/src/functors/lattice/integral/superLpNorm2D.hh
@@ -0,0 +1,133 @@
+/*  This file is part of the OpenLB library
+ *
+ *  Copyright (C) 2017 Adrian Kummerlaender
+ *  E-mail contact: info@openlb.net
+ *  The most recent release of OpenLB can be downloaded at
+ *  <http://www.openlb.net/>
+ *
+ *  This program is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU General Public License
+ *  as published by the Free Software Foundation; either version 2
+ *  of the License, or (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public
+ *  License along with this program; if not, write to the Free
+ *  Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+ *  Boston, MA  02110-1301, USA.
+*/
+
+#ifndef SUPER_LP_NORM_2D_HH
+#define SUPER_LP_NORM_2D_HH
+
+#include "superLpNorm2D.h"
+#include "blockLpNorm2D.h"
+#include "functors/lattice/superBaseF2D.h"
+#include "functors/lattice/indicator/superIndicatorF2D.h"
+#include "geometry/superGeometry2D.h"
+#include "latticeIntegralCommon.h"
+
+namespace olb {
+
+template <typename T, typename W, int P>
+SuperLpNorm2D<T,W,P>::SuperLpNorm2D(FunctorPtr<SuperF2D<T,W>>&&        f,
+                                    FunctorPtr<SuperIndicatorF2D<T>>&& indicatorF)
+  : SuperF2D<T,W>(f->getSuperStructure(),1),
+    _f(std::move(f)),
+    _indicatorF(std::move(indicatorF))
+{
+  OLB_ASSERT(_f->getSourceDim() == _indicatorF->getSourceDim(),
+             "functor source dimension equals indicator source dimension");
+
+  this->getName() = "L" + std::to_string(P) + "Norm(" + _f->getName() + ")";
+
+  LoadBalancer<T>& load = _f->getSuperStructure().getLoadBalancer();
+
+  if ( _f->getBlockFSize()          == load.size() &&
+       _indicatorF->getBlockFSize() == load.size() ) {
+    for (int iC = 0; iC < load.size(); ++iC) {
+      this->_blockF.emplace_back(
+        new BlockLpNorm2D<T,W,P>(_f->getBlockF(iC),
+                                 _indicatorF->getBlockIndicatorF(iC))
+      );
+    }
+  }
+}
+
+template <typename T, typename W, int P>
+SuperLpNorm2D<T,W,P>::SuperLpNorm2D(FunctorPtr<SuperF2D<T,W>>&&        f,
+                                    SuperGeometry2D<T>&                geometry,
+                                    FunctorPtr<SuperIndicatorF2D<T>>&& indicatorF)
+  : SuperLpNorm2D(std::forward<decltype(f)>(f),
+                  std::forward<decltype(indicatorF)>(indicatorF))
+{ }
+
+template <typename T, typename W, int P>
+SuperLpNorm2D<T,W,P>::SuperLpNorm2D(FunctorPtr<SuperF2D<T,W>>&& f,
+                                    SuperGeometry2D<T>&         geometry,
+                                    std::vector<int>            materials)
+  : SuperLpNorm2D(std::forward<decltype(f)>(f),
+                  geometry.getMaterialIndicator(std::move(materials)))
+{ }
+
+template <typename T, typename W, int P>
+SuperLpNorm2D<T,W,P>::SuperLpNorm2D(FunctorPtr<SuperF2D<T,W>>&& f,
+                                    SuperGeometry2D<T>&         geometry,
+                                    int                         material)
+  : SuperLpNorm2D(std::forward<decltype(f)>(f),
+                  geometry.getMaterialIndicator(material))
+{ }
+
+template <typename T, typename W, int P>
+bool SuperLpNorm2D<T,W,P>::operator() (W output[], const int input[])
+{
+  _f->getSuperStructure().communicate();
+  CuboidGeometry2D<T>& geometry = _f->getSuperStructure().getCuboidGeometry();
+  LoadBalancer<T>&     load     = _f->getSuperStructure().getLoadBalancer();
+
+  output[0] = W(0);
+  W   outputTmp[_f->getTargetDim()];
+  int inputTmp[3];
+
+  for (int iC = 0; iC < load.size(); ++iC) {
+    Cuboid2D<T>& cuboid = geometry.get(load.glob(iC));
+
+    const int nX     = cuboid.getNx();
+    const int nY     = cuboid.getNy();
+    const T   weight = pow(cuboid.getDeltaR(), 2);
+
+    inputTmp[0] = load.glob(iC);
+
+    for (inputTmp[1] = 0; inputTmp[1] < nX; ++inputTmp[1]) {
+      for (inputTmp[2] = 0; inputTmp[2] < nY; ++inputTmp[2]) {
+        if (_indicatorF(inputTmp)) {
+          _f(outputTmp, inputTmp);
+          for (int iDim = 0; iDim < _f->getTargetDim(); ++iDim) {
+            output[0] = LpNormImpl<T,W,P>()(output[0], outputTmp[iDim], weight);
+          }
+        }
+      }
+    }
+  }
+
+#ifdef PARALLEL_MODE_MPI
+  if (P == 0) {
+    singleton::mpi().reduceAndBcast(output[0], MPI_MAX);
+  }
+  else {
+    singleton::mpi().reduceAndBcast(output[0], MPI_SUM);
+  }
+#endif
+
+  output[0] = LpNormImpl<T,W,P>().enclose(output[0]);
+
+  return true;
+}
+
+}
+
+#endif
-- 
cgit v1.2.3