58 using Scalar =
typename MDTraits::Scalar;
59 using SolutionVector =
typename MDTraits::SolutionVector;
60 using PointSourceData =
typename BaseType::PointSourceTraits::PointSourceData;
62 static constexpr auto bulkIdx =
typename MDTraits::template SubDomain<0>::Index();
63 static constexpr auto lowDimIdx =
typename MDTraits::template SubDomain<1>::Index();
66 template<std::
size_t id>
using SubDomainTypeTag =
typename MDTraits::template SubDomain<id>::TypeTag;
69 template<std::
size_t id>
using GridView =
typename GridGeometry<id>::GridView;
70 template<std::
size_t id>
using Element =
typename GridView<id>::template Codim<0>::Entity;
73 using GlobalPosition =
typename Element<bulkIdx>::Geometry::GlobalCoordinate;
75 template<std::
size_t id>
76 static constexpr bool isBox()
80 static constexpr bool bulkIsCartesian
81 = Dune::Capabilities::isCartesian<typename GridView<bulkIdx>::Grid>::v;
84 bulkDim = GridView<bulkIdx>::dimension,
85 lowDimDim = GridView<lowDimIdx>::dimension,
86 dimWorld = GridView<bulkIdx>::dimensionworld
90 template <
typename T,
typename ...Ts>
91 using VariableKernelWidthDetector =
decltype(std::declval<T>().kernelWidthFactor(std::declval<Ts>()...));
93 template<
class T,
typename ...Args>
94 static constexpr bool hasKernelWidthFactor()
95 {
return Dune::Std::is_detected<VariableKernelWidthDetector, T, Args...>::value; }
100 using ParentType::ParentType;
102 void init(std::shared_ptr<Problem<bulkIdx>> bulkProblem,
103 std::shared_ptr<Problem<lowDimIdx>> lowDimProblem,
104 const SolutionVector&
curSol)
110 DUNE_THROW(Dune::NotImplemented,
"The current intersection detection may likely fail for refined grids.");
119 template<std::
size_t id,
class JacobianPattern>
122 extendedSourceStencil_.extendJacobianPattern(*
this, domainI, pattern);
132 template<std::
size_t i,
class LocalAssemblerI,
class JacobianMatrixDiagBlock,
class Gr
idVariables>
134 const LocalAssemblerI& localAssemblerI,
135 const typename LocalAssemblerI::LocalResidual::ElementResidualVector&,
136 JacobianMatrixDiagBlock& A,
137 GridVariables& gridVariables)
139 extendedSourceStencil_.evalAdditionalDomainDerivatives(*
this, domainI, localAssemblerI, A, gridVariables);
156 std::cout <<
"[coupling] Initializing the integration point source data structures..." << std::endl;
159 prepareDataStructures_();
160 std::cout <<
"[coupling] Resized data structures." << std::endl;
162 const auto& bulkGridGeometry = this->
problem(bulkIdx).gridGeometry();
163 const auto& lowDimGridGeometry = this->
problem(lowDimIdx).gridGeometry();
167 static const double characteristicRelativeLength =
getParam<double>(
"MixedDimension.KernelIntegrationCRL", 0.1);
170 static const bool writeIntegrationPointsToFile =
getParam<bool>(
"MixedDimension.WriteIntegrationPointsToFile",
false);
171 if (writeIntegrationPointsToFile)
173 std::ofstream ipPointFile(
"kernel_points.log", std::ios::trunc);
174 ipPointFile <<
"x,y,z\n";
175 std::cout <<
"[coupling] Initialized kernel_points.log." << std::endl;
178 for (
const auto& is : intersections(this->
glue()))
181 const auto& inside = is.targetEntity(0);
183 const auto intersectionGeometry = is.geometry();
184 const auto lowDimElementIdx = lowDimGridGeometry.elementMapper().index(inside);
189 const auto radius = this->
problem(lowDimIdx).spatialParams().radius(lowDimElementIdx);
190 const auto kernelWidthFactor = kernelWidthFactor_(this->
problem(lowDimIdx).spatialParams(), lowDimElementIdx);
191 const auto kernelWidth = kernelWidthFactor*
radius;
192 const auto a = intersectionGeometry.corner(0);
193 const auto b = intersectionGeometry.corner(1);
197 for (
int outsideIdx = 0; outsideIdx < is.numDomainNeighbors(); ++outsideIdx)
208 const auto& outside = is.domainEntity(outsideIdx);
209 const auto bulkElementIdx = bulkGridGeometry.elementMapper().index(outside);
210 const auto surfaceFactor = computeBulkSource(intersectionGeometry,
radius, kernelWidth,
id, lowDimElementIdx, bulkElementIdx, cylIntegration, is.numDomainNeighbors());
213 const auto center = intersectionGeometry.center();
214 this->
pointSources(lowDimIdx).emplace_back(
center,
id, surfaceFactor, intersectionGeometry.volume(), lowDimElementIdx);
215 this->
pointSources(lowDimIdx).back().setEmbeddings(is.numDomainNeighbors());
219 PointSourceData psData;
222 if constexpr (isBox<lowDimIdx>())
224 using ShapeValues = std::vector<Dune::FieldVector<Scalar, 1> >;
225 const auto lowDimGeometry = this->
problem(lowDimIdx).gridGeometry().element(lowDimElementIdx).geometry();
226 ShapeValues shapeValues;
228 psData.addLowDimInterpolation(shapeValues, this->
vertexIndices(lowDimIdx, lowDimElementIdx), lowDimElementIdx);
232 psData.addLowDimInterpolation(lowDimElementIdx);
236 if constexpr (isBox<bulkIdx>())
238 using ShapeValues = std::vector<Dune::FieldVector<Scalar, 1> >;
239 const auto bulkGeometry = this->
problem(bulkIdx).gridGeometry().element(bulkElementIdx).geometry();
240 ShapeValues shapeValues;
242 psData.addBulkInterpolation(shapeValues, this->
vertexIndices(bulkIdx, bulkElementIdx), bulkElementIdx);
246 psData.addBulkInterpolation(bulkElementIdx);
262 if constexpr (isBox<bulkIdx>())
264 const auto& vertices = this->
vertexIndices(bulkIdx, bulkElementIdx);
266 vertices.begin(), vertices.end());
270 this->
couplingStencils(lowDimIdx)[lowDimElementIdx].push_back(bulkElementIdx);
276 makeUniqueStencil_();
279 DUNE_THROW(Dune::InvalidStateException,
"Kernel method shouldn't have point sources in the bulk domain but only volume sources!");
281 std::cout <<
"[coupling] Finished preparing manager in " << watch.elapsed() <<
" seconds." << std::endl;
291 const std::vector<std::size_t>&
bulkSourceIds(GridIndex<bulkIdx> eIdx,
int scvIdx = 0)
const
292 {
return bulkSourceIds_[eIdx][scvIdx]; }
296 {
return bulkSourceWeights_[eIdx][scvIdx]; }
300 {
return fluxScalingFactor_[id]; }
307 const typename BaseType::template CouplingStencils<bulkIdx>::mapped_type&
310 const auto& sourceStencils = extendedSourceStencil_.stencil();
311 if (
auto stencil = sourceStencils.find(eIdx); stencil != sourceStencils.end())
312 return stencil->second;
319 template<
class Line,
class CylIntegration>
320 Scalar computeBulkSource(
const Line& line,
const Scalar radius,
const Scalar kernelWidth,
321 std::size_t
id, GridIndex<lowDimIdx> lowDimElementIdx, GridIndex<bulkIdx> coupledBulkElementIdx,
322 const CylIntegration& cylIntegration,
int embeddings)
328 const auto& min = this->problem(bulkIdx).gridGeometry().bBoxMin();
329 const auto& max = this->problem(bulkIdx).gridGeometry().bBoxMax();
330 std::array<int, bulkDim> cells{};
331 if constexpr (bulkIsCartesian)
333 static const auto bulkParamGroup = this->problem(bulkIdx).paramGroup();
335 cells = cartesianCells;
337 const auto cylSamples = cylIntegration.size();
338 const auto& a =
line.corner(0);
339 const auto& b =
line.corner(1);
342 static const auto writeIntegrationPointsToFile =
getParam<bool>(
"MixedDimension.WriteIntegrationPointsToFile",
false);
343 if (writeIntegrationPointsToFile)
345 std::ofstream ipPointFile(
"kernel_points.log", std::ios::app);
346 for (
int i = 0; i < cylSamples; ++i)
348 const auto& point = cylIntegration.integrationPoint(i);
350 ipPointFile << point[0] <<
"," << point[1] <<
"," << point[2] <<
'\n';
355 for (
int i = 0; i < cylSamples; ++i)
357 const auto& point = cylIntegration.integrationPoint(i);
360 const auto bulkElementIdx = bulkElementIndex_(point, min, max, cells);
361 if (bulkElementIdx == invalidElement_)
363 assert(bulkElementIdx < this->problem(bulkIdx).gridGeometry().gridView().size(0));
364 const auto localWeight = evalConstKernel_(a, b, point, radius, kernelWidth)*cylIntegration.integrationElement(i)/
Scalar(embeddings);
365 integral += localWeight;
367 if constexpr (isBox<bulkIdx>())
369 using ShapeValues = std::vector<Dune::FieldVector<Scalar, 1> >;
370 const auto& gg = this->problem(bulkIdx).gridGeometry();
371 ShapeValues shapeValues;
372 this->getShapeValues(bulkIdx, gg, gg.element(bulkElementIdx).geometry(), point, shapeValues);
374 bool addedStencil =
false;
375 for (
int v = 0; v < static_cast<int>(shapeValues.size()); ++v)
377 const auto w = localWeight*shapeValues[v][0];
378 if (!bulkSourceIds_[bulkElementIdx][v].empty() &&
id == bulkSourceIds_[bulkElementIdx][v].back())
379 bulkSourceWeights_[bulkElementIdx][v].back() +=
w;
382 bulkSourceIds_[bulkElementIdx][v].emplace_back(
id);
383 bulkSourceWeights_[bulkElementIdx][v].emplace_back(
w);
388 addBulkSourceStencils_(bulkElementIdx, lowDimElementIdx, coupledBulkElementIdx);
392 if (!bulkSourceIds_[bulkElementIdx][0].empty() &&
id == bulkSourceIds_[bulkElementIdx][0].back())
393 bulkSourceWeights_[bulkElementIdx][0].back() += localWeight;
396 bulkSourceIds_[bulkElementIdx][0].emplace_back(
id);
397 bulkSourceWeights_[bulkElementIdx][0].emplace_back(localWeight);
398 addBulkSourceStencils_(bulkElementIdx, lowDimElementIdx, coupledBulkElementIdx);
405 const auto length = (a-b).two_norm()/
Scalar(embeddings);
406 return integral/length;
409 static constexpr GridIndex<bulkIdx> invalidElement_ = std::numeric_limits<GridIndex<bulkIdx>>::max();
418 GridIndex<bulkIdx> bulkElementIndex_(
const GlobalPosition& point,
419 const GlobalPosition& min,
420 const GlobalPosition& max,
421 const std::array<int, bulkDim>& cells)
const
423 if constexpr (bulkIsCartesian)
428 point, this->problem(bulkIdx).gridGeometry().boundingBoxTree(),
true);
429 return candidates.empty() ? invalidElement_ : GridIndex<bulkIdx>(candidates[0]);
433 void prepareDataStructures_()
438 bulkSourceIds_.clear();
439 bulkSourceWeights_.clear();
440 extendedSourceStencil_.stencil().clear();
443 this->precomputeVertexIndices(bulkIdx);
444 this->precomputeVertexIndices(lowDimIdx);
446 bulkSourceIds_.resize(this->gridView(bulkIdx).size(0));
447 bulkSourceWeights_.resize(this->gridView(bulkIdx).size(0));
453 this->pointSourceData().reserve(this->glue().size());
454 this->averageDistanceToBulkCell().reserve(this->glue().size());
455 fluxScalingFactor_.reserve(this->glue().size());
458 const auto numBulkElements = this->gridView(bulkIdx).size(0);
459 for (GridIndex<bulkIdx> bulkElementIdx = 0; bulkElementIdx < numBulkElements; ++bulkElementIdx)
461 this->couplingStencils(bulkIdx)[bulkElementIdx].reserve(10);
462 extendedSourceStencil_.stencil()[bulkElementIdx].reserve(10);
463 for (
auto& ids : bulkSourceIds_[bulkElementIdx]) ids.reserve(10);
464 for (
auto&
w : bulkSourceWeights_[bulkElementIdx])
w.reserve(10);
469 void makeUniqueStencil_()
472 for (
auto&& stencil : extendedSourceStencil_.stencil())
474 std::sort(stencil.second.begin(), stencil.second.end());
475 stencil.second.erase(std::unique(stencil.second.begin(), stencil.second.end()), stencil.second.end());
478 if constexpr (isBox<bulkIdx>())
480 const auto& indices = this->vertexIndices(bulkIdx, stencil.first);
481 stencil.second.erase(std::remove_if(stencil.second.begin(), stencil.second.end(),
482 [&](
auto i){ return std::find(indices.begin(), indices.end(), i) != indices.end(); }),
483 stencil.second.end());
488 stencil.second.erase(std::remove_if(stencil.second.begin(), stencil.second.end(),
489 [&](
auto i){ return i == stencil.first; }),
490 stencil.second.end());
495 using namespace Dune::Hybrid;
496 forEach(integralRange(Dune::index_constant<2>{}), [&](
const auto domainIdx)
498 for (
auto&& stencil : this->couplingStencils(domainIdx))
500 std::sort(stencil.second.begin(), stencil.second.end());
501 stencil.second.erase(std::unique(stencil.second.begin(), stencil.second.end()), stencil.second.end());
507 void addBulkSourceStencils_(GridIndex<bulkIdx> bulkElementIdx, GridIndex<lowDimIdx> coupledLowDimElementIdx, GridIndex<bulkIdx> coupledBulkElementIdx)
510 if constexpr (isBox<lowDimIdx>())
512 const auto& vertices = this->vertexIndices(lowDimIdx, coupledLowDimElementIdx);
513 this->couplingStencils(bulkIdx)[bulkElementIdx].insert(this->couplingStencils(bulkIdx)[bulkElementIdx].end(),
514 vertices.begin(), vertices.end());
519 auto& s = this->couplingStencils(bulkIdx)[bulkElementIdx];
520 s.push_back(coupledLowDimElementIdx);
525 if constexpr (isBox<bulkIdx>())
527 const auto& vertices = this->vertexIndices(bulkIdx, coupledBulkElementIdx);
528 extendedSourceStencil_.stencil()[bulkElementIdx].insert(extendedSourceStencil_.stencil()[bulkElementIdx].end(),
529 vertices.begin(), vertices.end());
533 auto& s = extendedSourceStencil_.stencil()[bulkElementIdx];
534 s.push_back(coupledBulkElementIdx);
539 Scalar evalConstKernel_(
const GlobalPosition& a,
540 const GlobalPosition& b,
541 const GlobalPosition& point,
543 const Scalar rho)
const noexcept
546 const auto ab = b - a;
547 const auto t = (point - a)*ab/ab.two_norm2();
550 if (t < 0.0 || t > 1.0)
554 auto proj = a; proj.axpy(t, ab);
555 const auto radiusSquared = (proj - point).two_norm2();
557 if (radiusSquared > rho*rho)
560 return 1.0/(M_PI*rho*rho);
566 template<
class SpatialParams>
567 auto kernelWidthFactor_(
const SpatialParams& spatialParams,
unsigned int eIdx)
568 -> std::enable_if_t<hasKernelWidthFactor<SpatialParams, unsigned int>(),
Scalar>
569 {
return spatialParams.kernelWidthFactor(eIdx); }
574 template<
class SpatialParams>
575 auto kernelWidthFactor_(
const SpatialParams& spatialParams,
unsigned int eIdx)
576 -> std::enable_if_t<!hasKernelWidthFactor<SpatialParams, unsigned int>(),
Scalar>
579 return kernelWidthFactor;
583 EmbeddedCoupling::ExtendedSourceStencil<ThisType> extendedSourceStencil_;
586 std::vector<std::array<std::vector<std::size_t>, isBox<bulkIdx>() ? 1<<bulkDim : 1>> bulkSourceIds_;
588 std::vector<std::array<std::vector<Scalar>, isBox<bulkIdx>() ? 1<<bulkDim : 1>> bulkSourceWeights_;
591 std::vector<Scalar> fluxScalingFactor_;