Parallel transport generic vector interpolation method.

src/atlas/CMakeLists.txt

@@ -634,6 +634,8 @@ interpolation/method/knn/KNearestNeighboursBase.cc
 interpolation/method/knn/KNearestNeighboursBase.h
 interpolation/method/knn/NearestNeighbour.cc
 interpolation/method/knn/NearestNeighbour.h
+interpolation/method/sphericalvector/SphericalVector.h
+interpolation/method/sphericalvector/SphericalVector.cc
 interpolation/method/structured/Cubic2D.cc
 interpolation/method/structured/Cubic2D.h
 interpolation/method/structured/Cubic3D.cc

src/atlas/functionspace/NodeColumns.cc

@@ -283,6 +283,10 @@ void NodeColumns::set_field_metadata(const eckit::Configuration& config, Field&
     idx_t variables(0);
     config.get("variables", variables);
     field.set_variables(variables);
+
+    if (config.has("type")) {
+      field.metadata().set("type", config.getString("type"));
+    }
 }
 
 array::DataType NodeColumns::config_datatype(const eckit::Configuration& config) const {

src/atlas/interpolation/method/Method.h

@@ -127,6 +127,8 @@ class Method : public util::Object {
     virtual void do_setup(const FunctionSpace& source, const Field& target);
     virtual void do_setup(const FunctionSpace& source, const FieldSet& target);
 
+    void check_compatibility(const Field& src, const Field& tgt, const Matrix& W) const;
+
 private:
     template <typename Value>
     void interpolate_field(const Field& src, Field& tgt, const Matrix&) const;
@@ -152,8 +154,6 @@ class Method : public util::Object {
     template <typename Value>
     void adjoint_interpolate_field_rank3(Field& src, const Field& tgt, const Matrix&) const;
 
-    void check_compatibility(const Field& src, const Field& tgt, const Matrix& W) const;
-
 private:
     const Matrix* matrix_ = nullptr;
     std::shared_ptr<Matrix> matrix_shared_;

src/atlas/interpolation/method/MethodFactory.cc

@@ -16,6 +16,7 @@
 #include "knn/GridBoxMaximum.h"
 #include "knn/KNearestNeighbours.h"
 #include "knn/NearestNeighbour.h"
+#include "sphericalvector/SphericalVector.h"
 #include "structured/Cubic2D.h"
 #include "structured/Cubic3D.h"
 #include "structured/Linear2D.h"
@@ -47,6 +48,7 @@ void force_link() {
             MethodBuilder<method::GridBoxAverage>();
             MethodBuilder<method::GridBoxMaximum>();
             MethodBuilder<method::CubedSphereBilinear>();
+            MethodBuilder<method::SphericalVector>();
         }
     } link;
 }

src/atlas/interpolation/method/sphericalvector/SphericalVector.cc

@@ -0,0 +1,317 @@
+/*
+ * (C) Crown Copyright 2023 Met Office
+ *
+ * This software is licensed under the terms of the Apache Licence Version 2.0
+ * which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
+ */
+
+#include "atlas/library/defines.h"
+#include "atlas/interpolation/method/sphericalvector/SphericalVector.h"
+
+#include <cmath>
+#include <tuple>
+#include <type_traits>
+#include <utility>
+
+#include "eckit/config/LocalConfiguration.h"
+
+#include "atlas/array/ArrayView.h"
+#include "atlas/array/helpers/ArrayForEach.h"
+#include "atlas/array/Range.h"
+#include "atlas/field/Field.h"
+#include "atlas/field/FieldSet.h"
+#include "atlas/interpolation/Cache.h"
+#include "atlas/interpolation/Interpolation.h"
+#include "atlas/interpolation/method/MethodFactory.h"
+#include "atlas/parallel/omp/omp.h"
+#include "atlas/runtime/Exception.h"
+#include "atlas/runtime/Trace.h"
+#include "atlas/util/Constants.h"
+#include "atlas/util/Geometry.h"
+
+namespace atlas {
+namespace interpolation {
+namespace method {
+
+namespace  {
+MethodBuilder<SphericalVector> __builder("spherical-vector");
+}
+
+#if ATLAS_HAVE_EIGEN
+
+// A bug exists in intel versions < intel/2022.2 with OpenMP
+// Intel OneAPI version 2022.2 corresponds to Intel classic (icpc) version 2021.6
+#if defined(__INTEL_COMPILER) && defined(__INTEL_COMPILER_UPDATE)
+#if (__INTEL_COMPILER <= 2021) && (__INTEL_COMPILER_UPDATE < 6)
+#warning Disabling OpenMP to prevent internal compiler error for intel-classic version < 2021.6 (intel-oneapi/2022.2)
+#undef atlas_omp_parallel_for
+#define atlas_omp_parallel_for for
+#endif
+#endif
+
+using Complex = SphericalVector::Complex;
+
+template <typename Value>
+using SparseMatrix = SphericalVector::SparseMatrix<Value>;
+using RealMatrixMap = Eigen::Map<const SparseMatrix<double>>;
+using ComplexTriplets = std::vector<Eigen::Triplet<Complex>>;
+using RealTriplets = std::vector<Eigen::Triplet<double>>;
+
+using EckitMatrix = eckit::linalg::SparseMatrix;
+
+namespace {
+
+RealMatrixMap makeMatrixMap(const EckitMatrix& baseMatrix) {
+  return RealMatrixMap(baseMatrix.rows(), baseMatrix.cols(),
+                       baseMatrix.nonZeros(), baseMatrix.outer(),
+                       baseMatrix.inner(), baseMatrix.data());
+}
+
+template <typename Matrix>
+auto getInnerIt(const Matrix& matrix, typename Matrix::Index k) {
+  return typename Matrix::InnerIterator(matrix, k);
+}
+
+template <typename Functor, typename Matrix>
+void sparseMatrixForEach(const Functor& functor, const Matrix& matrix) {
+  using Index = typename Matrix::Index;
+  atlas_omp_parallel_for (auto k = Index{}; k < matrix.outerSize(); ++k) {
+    for (auto it = getInnerIt(matrix, k); it; ++it) {
+      functor(it.row(), it.col(), it.value());
+    }
+  }
+}
+
+template <typename Functor, typename Matrix1, typename Matrix2>
+void sparseMatrixForEach(const Functor& functor, const Matrix1& matrix1,
+                         const Matrix2& matrix2) {
+  using Index = typename Matrix1::Index;
+  atlas_omp_parallel_for (auto k = Index{}; k < matrix1.outerSize(); ++k) {
+    for (auto [it1, it2] =
+             std::make_pair(getInnerIt(matrix1, k), getInnerIt(matrix2, k));
+         it1; ++it1, ++it2) {
+      functor(it1.row(), it1.col(), it1.value(), it2.value());
+    }
+  }
+}
+
+template <typename SourceView, typename TargetView, typename Functor,
+          typename... Matrices>
+void matrixMultiply(const SourceView& sourceView, TargetView& targetView,
+                    const Functor& multiplyFunctor,
+                    const Matrices&... matrices) {
+
+  const auto multiplyColumn = [&](auto i, auto j, const auto&... weights) {
+    constexpr auto Rank = std::decay_t<SourceView>::rank();
+    if constexpr (Rank == 2) {
+        const auto sourceSlice = sourceView.slice(j, array::Range::all());
+        auto targetSlice = targetView.slice(i, array::Range::all());
+        multiplyFunctor(sourceSlice, targetSlice, weights...);
+    } else if constexpr(Rank == 3) {
+        const auto sourceSlice =
+            sourceView.slice(j, array::Range::all(), array::Range::all());
+        auto targetSlice =
+            targetView.slice(i, array::Range::all(), array::Range::all());
+        array::helpers::ArrayForEach<0>::apply(
+            std::tie(sourceSlice, targetSlice),
+            [&](auto&& sourceVars, auto&& targetVars) {
+              multiplyFunctor(sourceVars, targetVars, weights...);
+            });
+    } else {
+      ATLAS_NOTIMPLEMENTED;
+    }
+  };
+
+  sparseMatrixForEach(multiplyColumn, matrices...);
+}
+
+}  // namespace
+
+void SphericalVector::do_setup(const Grid& source, const Grid& target,
+                               const Cache&) {
+  ATLAS_NOTIMPLEMENTED;
+}
+
+void SphericalVector::do_setup(const FunctionSpace& source,
+                               const FunctionSpace& target) {
+  ATLAS_TRACE("interpolation::method::SphericalVector::do_setup");
+  source_ = source;
+  target_ = target;
+
+  if (target_.size() == 0) {
+    return;
+  }
+
+  setMatrix(Interpolation(interpolationScheme_, source_, target_));
+
+  // Get matrix data.
+  const auto nRows = matrix().rows();
+  const auto nCols = matrix().cols();
+  const auto nNonZeros = matrix().nonZeros();
+  const auto baseWeights = makeMatrixMap(matrix());
+
+  // Note: need to store copy of weights as Eigen3 sorts compressed rows by j
+  // whereas eckit does not.
+  complexWeights_ = std::make_shared<ComplexMatrix>(nRows, nCols);
+  realWeights_ = std::make_shared<RealMatrix>(nRows, nCols);
+  auto complexTriplets = ComplexTriplets(nNonZeros);
+  auto realTriplets = RealTriplets(nNonZeros);
+
+  const auto sourceLonLats = array::make_view<double, 2>(source_.lonlat());
+  const auto targetLonLats = array::make_view<double, 2>(target_.lonlat());
+
+  geometry::UnitSphere unitSphere;
+
+  const auto setWeights = [&](auto i, auto j, const auto& baseWeight) {
+    const auto sourceLonLat =
+        PointLonLat(sourceLonLats(j, 0), sourceLonLats(j, 1));
+    const auto targetLonLat =
+        PointLonLat(targetLonLats(i, 0), targetLonLats(i, 1));
+
+    const auto alpha = unitSphere.greatCircleCourse(sourceLonLat, targetLonLat);
+
+    const auto deltaAlpha =
+        (alpha.first - alpha.second) * util::Constants::degreesToRadians();
+
+    const auto idx = std::distance(baseWeights.valuePtr(), &baseWeight);
+
+    complexTriplets[idx] = {int(i), int(j), std::polar(baseWeight, deltaAlpha)};
+    realTriplets[idx] = {int(i), int(j), baseWeight};
+  };
+
+  sparseMatrixForEach(setWeights, baseWeights);
+  complexWeights_->setFromTriplets(complexTriplets.begin(),
+                                   complexTriplets.end());
+  realWeights_->setFromTriplets(realTriplets.begin(), realTriplets.end());
+
+  ATLAS_ASSERT(complexWeights_->nonZeros() == matrix().nonZeros());
+  ATLAS_ASSERT(realWeights_->nonZeros() == matrix().nonZeros());
+}
+
+SphericalVector::SphericalVector(const Config& config) : Method(config) {
+  const auto& conf = dynamic_cast<const eckit::LocalConfiguration&>(config);
+  interpolationScheme_ = conf.getSubConfiguration("scheme");
+}
+
+void SphericalVector::print(std::ostream&) const { ATLAS_NOTIMPLEMENTED; }
+
+void SphericalVector::do_execute(const FieldSet& sourceFieldSet,
+                                 FieldSet& targetFieldSet,
+                                 Metadata& metadata) const {
+  ATLAS_TRACE("atlas::interpolation::method::SphericalVector::do_execute()");
+
+  const auto nFields = sourceFieldSet.size();
+  ATLAS_ASSERT(nFields == targetFieldSet.size());
+
+  for (auto i = 0; i < sourceFieldSet.size(); ++i) {
+    do_execute(sourceFieldSet[i], targetFieldSet[i], metadata);
+  }
+}
+
+void SphericalVector::do_execute(const Field& sourceField, Field& targetField,
+                                 Metadata&) const {
+  ATLAS_TRACE("atlas::interpolation::method::SphericalVector::do_execute()");
+
+  const auto fieldType = sourceField.metadata().getString("type", "");
+  if (fieldType != "vector") {
+
+    auto metadata = Metadata();
+    Method::do_execute(sourceField, targetField, metadata);
+
+    return;
+  }
+
+  if (target_.size() == 0) {
+    return;
+  }
+
+  ATLAS_ASSERT_MSG(sourceField.variables() == 2 || sourceField.variables() == 3,
+                   "Vector field can only have 2 or 3 components.");
+
+  Method::check_compatibility(sourceField, targetField, matrix());
+
+  haloExchange(sourceField);
+
+  if (sourceField.datatype().kind() == array::DataType::KIND_REAL64) {
+    interpolate_vector_field<double>(sourceField, targetField);
+  } else if (sourceField.datatype().kind() == array::DataType::KIND_REAL32) {
+    interpolate_vector_field<float>(sourceField, targetField);
+  } else {
+    ATLAS_NOTIMPLEMENTED;
+  }
+
+  targetField.set_dirty();
+}
+
+void SphericalVector::do_execute_adjoint(FieldSet& sourceFieldSet,
+                                         const FieldSet& targetFieldSet,
+                                         Metadata& metadata) const {
+  ATLAS_NOTIMPLEMENTED;
+}
+
+void SphericalVector::do_execute_adjoint(Field& sourceField,
+                                         const Field& targetField,
+                                         Metadata& metadata) const {
+  ATLAS_NOTIMPLEMENTED;
+}
+
+template <typename Value>
+void SphericalVector::interpolate_vector_field(const Field& sourceField,
+                                               Field& targetField) const {
+  if (sourceField.rank() == 2) {
+    interpolate_vector_field<Value, 2>(sourceField, targetField);
+    return;
+  }
+
+  if (sourceField.rank() == 3) {
+    interpolate_vector_field<Value, 3>(sourceField, targetField);
+    return;
+  }
+
+  ATLAS_NOTIMPLEMENTED;
+}
+
+template <typename Value, int Rank>
+void SphericalVector::interpolate_vector_field(const Field& sourceField,
+                                               Field& targetField) const {
+
+  const auto sourceView = array::make_view<Value, Rank>(sourceField);
+  auto targetView = array::make_view<Value, Rank>(targetField);
+  targetView.assign(0.);
+
+  const auto horizontalComponent = [](const auto& sourceVars, auto& targetVars,
+                                      const auto& complexWeight) {
+    const auto sourceVector = Complex(sourceVars(0), sourceVars(1));
+    const auto targetVector = complexWeight * sourceVector;
+    targetVars(0) += targetVector.real();
+    targetVars(1) += targetVector.imag();
+  };
+
+  if (sourceField.variables() == 2) {
+    matrixMultiply(sourceView, targetView, horizontalComponent,
+                   *complexWeights_);
+    return;
+  }
+
+  if (sourceField.variables() == 3) {
+
+    const auto horizontalAndVerticalComponent = [&](
+        const auto& sourceVars, auto& targetVars, const auto& complexWeight,
+        const auto& realWeight) {
+      horizontalComponent(sourceVars, targetVars, complexWeight);
+      targetVars(2) += realWeight * sourceVars(2);
+    };
+
+    matrixMultiply(sourceView, targetView, horizontalAndVerticalComponent,
+                   *complexWeights_, *realWeights_);
+    return;
+  }
+
+  ATLAS_NOTIMPLEMENTED;
+}
+
+#endif
+
+}  // namespace method
+}  // namespace interpolation
+}  // namespace atlas