version 3.10-dev
couplingdata.hh
Go to the documentation of this file.
1// -*- mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*-
2// vi: set et ts=4 sw=4 sts=4:
3//
4// SPDX-FileCopyrightInfo: Copyright © DuMux Project contributors, see AUTHORS.md in root folder
5// SPDX-License-Identifier: GPL-3.0-or-later
6//
13#ifndef DUMUX_STOKES_DARCY_COUPLINGDATA_HH
14#define DUMUX_STOKES_DARCY_COUPLINGDATA_HH
15
16#include <numeric>
17
19#include <dumux/common/math.hh>
24
25namespace Dumux {
26
33{
40 {
41 harmonic, arithmetic, ffOnly, pmOnly
42 };
43
48 static DiffusionCoefficientAveragingType stringToEnum(DiffusionCoefficientAveragingType, const std::string& diffusionCoefficientAveragingType)
49 {
50 if (diffusionCoefficientAveragingType == "Harmonic")
52 else if (diffusionCoefficientAveragingType == "Arithmetic")
54 else if (diffusionCoefficientAveragingType == "FreeFlowOnly")
56 else if (diffusionCoefficientAveragingType == "PorousMediumOnly")
58 else
59 DUNE_THROW(Dune::IOError, "Unknown DiffusionCoefficientAveragingType");
60 }
61
62};
63
71template<class FFFS, class PMFS>
73{
74 static_assert(FFFS::numPhases == 1, "Only single-phase fluidsystems may be used for free flow.");
75 static constexpr bool value = std::is_same<typename FFFS::MultiPhaseFluidSystem, PMFS>::value;
76};
77
83template<class FS>
84struct IsSameFluidSystem<FS, FS>
85{
86 static_assert(FS::numPhases == 1, "Only single-phase fluidsystems may be used for free flow.");
87 static constexpr bool value = std::is_same<FS, FS>::value; // always true
88};
89
90// forward declaration
91template <class TypeTag, class DiscretizationMethod, ReferenceSystemFormulation referenceSystem>
93
99template<class DiffLaw>
100struct IsFicksLaw : public std::false_type {};
101
107template<class T, class DiscretizationMethod, ReferenceSystemFormulation referenceSystem>
108struct IsFicksLaw<FicksLawImplementation<T, DiscretizationMethod, referenceSystem>> : public std::true_type {};
109
119template<std::size_t stokesIdx, std::size_t darcyIdx, class FFFS, bool hasAdapter>
121
130template<std::size_t stokesIdx, std::size_t darcyIdx, class FFFS>
131struct IndexHelper<stokesIdx, darcyIdx, FFFS, false>
132{
136 template<std::size_t i>
137 static constexpr auto couplingPhaseIdx(Dune::index_constant<i>, int coupledPhaseIdx = 0)
138 { return coupledPhaseIdx; }
139
143 template<std::size_t i>
144 static constexpr auto couplingCompIdx(Dune::index_constant<i>, int coupledCompdIdx)
145 { return coupledCompdIdx; }
146};
147
156template<std::size_t stokesIdx, std::size_t darcyIdx, class FFFS>
157struct IndexHelper<stokesIdx, darcyIdx, FFFS, true>
158{
162 static constexpr auto couplingPhaseIdx(Dune::index_constant<stokesIdx>, int coupledPhaseIdx = 0)
163 { return 0; }
164
168 static constexpr auto couplingPhaseIdx(Dune::index_constant<darcyIdx>, int coupledPhaseIdx = 0)
169 { return FFFS::multiphaseFluidsystemPhaseIdx; }
170
174 static constexpr auto couplingCompIdx(Dune::index_constant<stokesIdx>, int coupledCompdIdx)
175 { return coupledCompdIdx; }
176
180 static constexpr auto couplingCompIdx(Dune::index_constant<darcyIdx>, int coupledCompdIdx)
181 { return FFFS::compIdx(coupledCompdIdx); }
182};
183
185template <class TypeTag, class DiscretizationMethod>
186class DarcysLawImplementation;
187
189template <class TypeTag, class DiscretizationMethod>
190class ForchheimersLawImplementation;
191
192
193template<class MDTraits, class CouplingManager, bool enableEnergyBalance, bool isCompositional>
195
201template<class MDTraits, class CouplingManager>
203 GetPropType<typename MDTraits::template SubDomain<0>::TypeTag, Properties::ModelTraits>::enableEnergyBalance(),
204 (GetPropType<typename MDTraits::template SubDomain<0>::TypeTag, Properties::ModelTraits>::numFluidComponents() > 1)>;
205
210template<class MDTraits, class CouplingManager>
212{
213 using Scalar = typename MDTraits::Scalar;
214
215 template<std::size_t id> using SubDomainTypeTag = typename MDTraits::template SubDomain<id>::TypeTag;
216 template<std::size_t id> using GridGeometry = GetPropType<SubDomainTypeTag<id>, Properties::GridGeometry>;
217 template<std::size_t id> using Element = typename GridGeometry<id>::GridView::template Codim<0>::Entity;
218 template<std::size_t id> using FVElementGeometry = typename GridGeometry<id>::LocalView;
219 template<std::size_t id> using SubControlVolumeFace = typename GridGeometry<id>::LocalView::SubControlVolumeFace;
220 template<std::size_t id> using SubControlVolume = typename GridGeometry<id>::LocalView::SubControlVolume;
221 template<std::size_t id> using Indices = typename GetPropType<SubDomainTypeTag<id>, Properties::ModelTraits>::Indices;
222 template<std::size_t id> using ElementVolumeVariables = typename GetPropType<SubDomainTypeTag<id>, Properties::GridVolumeVariables>::LocalView;
223 template<std::size_t id> using VolumeVariables = typename GetPropType<SubDomainTypeTag<id>, Properties::GridVolumeVariables>::VolumeVariables;
224 template<std::size_t id> using Problem = GetPropType<SubDomainTypeTag<id>, Properties::Problem>;
225 template<std::size_t id> using FluidSystem = GetPropType<SubDomainTypeTag<id>, Properties::FluidSystem>;
226 template<std::size_t id> using ModelTraits = GetPropType<SubDomainTypeTag<id>, Properties::ModelTraits>;
227 template<std::size_t id> using GlobalPosition = typename Element<id>::Geometry::GlobalCoordinate;
228 static constexpr auto stokesIdx = CouplingManager::stokesIdx;
229 static constexpr auto darcyIdx = CouplingManager::darcyIdx;
230
231 using AdvectionType = GetPropType<SubDomainTypeTag<darcyIdx>, Properties::AdvectionType>;
232 using DarcysLaw = DarcysLawImplementation<SubDomainTypeTag<darcyIdx>, typename GridGeometry<darcyIdx>::DiscretizationMethod>;
233 using ForchheimersLaw = ForchheimersLawImplementation<SubDomainTypeTag<darcyIdx>, typename GridGeometry<darcyIdx>::DiscretizationMethod>;
234
235 static constexpr bool adapterUsed = ModelTraits<darcyIdx>::numFluidPhases() > 1;
237
238 static constexpr int enableEnergyBalance = GetPropType<SubDomainTypeTag<stokesIdx>, Properties::ModelTraits>::enableEnergyBalance();
239 static_assert(GetPropType<SubDomainTypeTag<darcyIdx>, Properties::ModelTraits>::enableEnergyBalance() == enableEnergyBalance,
240 "All submodels must both be either isothermal or non-isothermal");
241
243 FluidSystem<darcyIdx>>::value,
244 "All submodels must use the same fluid system");
245
246 using DiffusionCoefficientAveragingType = typename StokesDarcyCouplingOptions::DiffusionCoefficientAveragingType;
247
248public:
249 StokesDarcyCouplingDataImplementationBase(const CouplingManager& couplingmanager): couplingManager_(couplingmanager) {}
250
254 template<std::size_t i>
255 static constexpr auto couplingPhaseIdx(Dune::index_constant<i> id, int coupledPhaseIdx = 0)
256 { return IndexHelper::couplingPhaseIdx(id, coupledPhaseIdx); }
257
261 template<std::size_t i>
262 static constexpr auto couplingCompIdx(Dune::index_constant<i> id, int coupledCompdIdx)
263 { return IndexHelper::couplingCompIdx(id, coupledCompdIdx); }
264
269 { return couplingManager_; }
270
274 auto darcyPermeability(const Element<stokesIdx>& element, const SubControlVolumeFace<stokesIdx>& scvf) const
275 {
276 const auto& stokesContext = couplingManager().stokesCouplingContext(element, scvf);
277 return stokesContext.volVars.permeability();
278 }
279
287 template<class ElementFaceVariables>
288 Scalar momentumCouplingCondition(const Element<stokesIdx>& element,
289 const FVElementGeometry<stokesIdx>& fvGeometry,
290 const ElementVolumeVariables<stokesIdx>& stokesElemVolVars,
291 const ElementFaceVariables& stokesElemFaceVars,
292 const SubControlVolumeFace<stokesIdx>& scvf) const
293 {
294 static constexpr auto numPhasesDarcy = GetPropType<SubDomainTypeTag<darcyIdx>, Properties::ModelTraits>::numFluidPhases();
295
296 Scalar momentumFlux(0.0);
297 const auto& stokesContext = couplingManager_.stokesCouplingContext(element, scvf);
298 const auto darcyPhaseIdx = couplingPhaseIdx(darcyIdx);
299
300 // - p_pm * n_pm = p_pm * n_ff
301 const Scalar darcyPressure = stokesContext.volVars.pressure(darcyPhaseIdx);
302
303 if(numPhasesDarcy > 1)
304 momentumFlux = darcyPressure;
305 else // use pressure reconstruction for single phase models
306 momentumFlux = pressureAtInterface_(element, scvf, stokesElemFaceVars, stokesContext);
307 // TODO: generalize for permeability tensors
308
309 // normalize pressure
310 if(getPropValue<SubDomainTypeTag<stokesIdx>, Properties::NormalizePressure>())
311 momentumFlux -= couplingManager_.problem(stokesIdx).initial(scvf)[Indices<stokesIdx>::pressureIdx];
312
313 momentumFlux *= scvf.directionSign();
314
315 return momentumFlux;
316 }
317
321 Scalar advectiveFlux(const Scalar insideQuantity, const Scalar outsideQuantity, const Scalar volumeFlow, bool insideIsUpstream) const
322 {
323 const Scalar upwindWeight = 1.0; //TODO use Flux.UpwindWeight or something like Coupling.UpwindWeight?
324
325 if(insideIsUpstream)
326 return (upwindWeight * insideQuantity + (1.0 - upwindWeight) * outsideQuantity) * volumeFlow;
327 else
328 return (upwindWeight * outsideQuantity + (1.0 - upwindWeight) * insideQuantity) * volumeFlow;
329 }
330
331protected:
332
336 template<std::size_t i, std::size_t j>
337 Scalar transmissibility_(Dune::index_constant<i> domainI,
338 Dune::index_constant<j> domainJ,
339 const Scalar insideDistance,
340 const Scalar outsideDistance,
341 const Scalar avgQuantityI,
342 const Scalar avgQuantityJ,
343 const DiffusionCoefficientAveragingType diffCoeffAvgType) const
344 {
345 const Scalar totalDistance = insideDistance + outsideDistance;
346 if(diffCoeffAvgType == DiffusionCoefficientAveragingType::harmonic)
347 {
348 return harmonicMean(avgQuantityI, avgQuantityJ, insideDistance, outsideDistance)
349 / totalDistance;
350 }
351 else if(diffCoeffAvgType == DiffusionCoefficientAveragingType::arithmetic)
352 {
353 return arithmeticMean(avgQuantityI, avgQuantityJ, insideDistance, outsideDistance)
354 / totalDistance;
355 }
356 else if(diffCoeffAvgType == DiffusionCoefficientAveragingType::ffOnly)
357 return domainI == stokesIdx
358 ? avgQuantityI / totalDistance
359 : avgQuantityJ / totalDistance;
360
361 else // diffCoeffAvgType == DiffusionCoefficientAveragingType::pmOnly)
362 return domainI == darcyIdx
363 ? avgQuantityI / totalDistance
364 : avgQuantityJ / totalDistance;
365 }
366
370 template<class Scv, class Scvf>
371 Scalar getDistance_(const Scv& scv, const Scvf& scvf) const
372 {
373 return (scv.dofPosition() - scvf.ipGlobal()).two_norm();
374 }
375
379 template<std::size_t i, std::size_t j, bool isNI = enableEnergyBalance, typename std::enable_if_t<isNI, int> = 0>
380 Scalar conductiveEnergyFlux_(Dune::index_constant<i> domainI,
381 Dune::index_constant<j> domainJ,
382 const FVElementGeometry<i>& fvGeometryI,
383 const FVElementGeometry<j>& fvGeometryJ,
384 const SubControlVolumeFace<i>& scvfI,
385 const SubControlVolume<i>& scvI,
386 const SubControlVolume<j>& scvJ,
387 const VolumeVariables<i>& volVarsI,
388 const VolumeVariables<j>& volVarsJ,
389 const DiffusionCoefficientAveragingType diffCoeffAvgType) const
390 {
391 const Scalar insideDistance = getDistance_(scvI, scvfI);
392 const Scalar outsideDistance = getDistance_(scvJ, scvfI);
393
394 const Scalar deltaT = volVarsJ.temperature() - volVarsI.temperature();
395 const Scalar tij = transmissibility_(domainI,
396 domainJ,
397 insideDistance,
398 outsideDistance,
399 volVarsI.effectiveThermalConductivity(),
400 volVarsJ.effectiveThermalConductivity(),
401 diffCoeffAvgType);
402
403 return -tij * deltaT;
404 }
405
409 template<class ElementFaceVariables, class CouplingContext>
410 Scalar pressureAtInterface_(const Element<stokesIdx>& element,
411 const SubControlVolumeFace<stokesIdx>& scvf,
412 const ElementFaceVariables& elemFaceVars,
413 const CouplingContext& context) const
414 {
415 GlobalPosition<stokesIdx> velocity(0.0);
416 velocity[scvf.directionIndex()] = elemFaceVars[scvf].velocitySelf();
417 const auto& darcyScvf = context.fvGeometry.scvf(context.darcyScvfIdx);
418 return computeCouplingPhasePressureAtInterface_(context.element, context.fvGeometry, darcyScvf, context.volVars, velocity, AdvectionType());
419 }
420
424 Scalar computeCouplingPhasePressureAtInterface_(const Element<darcyIdx>& element,
425 const FVElementGeometry<darcyIdx>& fvGeometry,
426 const SubControlVolumeFace<darcyIdx>& scvf,
427 const VolumeVariables<darcyIdx>& volVars,
428 const typename Element<stokesIdx>::Geometry::GlobalCoordinate& couplingPhaseVelocity,
429 ForchheimersLaw) const
430 {
431 const auto darcyPhaseIdx = couplingPhaseIdx(darcyIdx);
432 const Scalar cellCenterPressure = volVars.pressure(darcyPhaseIdx);
433 using std::sqrt;
434
435 // v + (cF*sqrt(K)*rho/mu*|v|) * v = - K/mu grad(p - rho g)
436 // multiplying with n and using a tpfa for the right-hand side yields
437 // v*n + (cF*sqrt(K)*rho/mu*|v|) * (v*n) = 1/mu * (ti*(p_center - p_interface) + rho*n^TKg)
438 // --> p_interface = (-mu*v*n + (cF*sqrt(K)*rho*|v|) * (-v*n) + rho*n^TKg)/ti + p_center
439 const auto velocity = couplingPhaseVelocity;
440 const Scalar mu = volVars.viscosity(darcyPhaseIdx);
441 const Scalar rho = volVars.density(darcyPhaseIdx);
442 const auto K = volVars.permeability();
443 const auto alpha = vtmv(scvf.unitOuterNormal(), K, couplingManager_.problem(darcyIdx).spatialParams().gravity(scvf.center()));
444
445 const auto& insideScv = fvGeometry.scv(scvf.insideScvIdx());
446 const auto ti = computeTpfaTransmissibility(scvf, insideScv, K, 1.0);
447
448 // get the Forchheimer coefficient
449 Scalar cF = couplingManager_.problem(darcyIdx).spatialParams().forchCoeff(scvf);
450
451 const Scalar interfacePressure = ((-mu*(scvf.unitOuterNormal() * velocity))
452 + (-(scvf.unitOuterNormal() * velocity) * velocity.two_norm() * rho * sqrt(darcyPermeability(element, scvf)) * cF)
453 + rho * alpha)/ti + cellCenterPressure;
454 return interfacePressure;
455 }
456
460 Scalar computeCouplingPhasePressureAtInterface_(const Element<darcyIdx>& element,
461 const FVElementGeometry<darcyIdx>& fvGeometry,
462 const SubControlVolumeFace<darcyIdx>& scvf,
463 const VolumeVariables<darcyIdx>& volVars,
464 const typename Element<stokesIdx>::Geometry::GlobalCoordinate& couplingPhaseVelocity,
465 DarcysLaw) const
466 {
467 const auto darcyPhaseIdx = couplingPhaseIdx(darcyIdx);
468 const Scalar couplingPhaseCellCenterPressure = volVars.pressure(darcyPhaseIdx);
469 const Scalar couplingPhaseMobility = volVars.mobility(darcyPhaseIdx);
470 const Scalar couplingPhaseDensity = volVars.density(darcyPhaseIdx);
471 const auto K = volVars.permeability();
472
473 // A tpfa approximation yields (works if mobility != 0)
474 // v*n = -kr/mu*K * (gradP - rho*g)*n = mobility*(ti*(p_center - p_interface) + rho*n^TKg)
475 // -> p_interface = (1/mobility * (-v*n) + rho*n^TKg)/ti + p_center
476 // where v is the free-flow velocity (couplingPhaseVelocity)
477 const auto alpha = vtmv(scvf.unitOuterNormal(), K, couplingManager_.problem(darcyIdx).spatialParams().gravity(scvf.center()));
478
479 const auto& insideScv = fvGeometry.scv(scvf.insideScvIdx());
480 const auto ti = computeTpfaTransmissibility(fvGeometry, scvf, insideScv, K, 1.0);
481
482 return (-1/couplingPhaseMobility * (scvf.unitOuterNormal() * couplingPhaseVelocity) + couplingPhaseDensity * alpha)/ti
483 + couplingPhaseCellCenterPressure;
484 }
485
486
487private:
488 const CouplingManager& couplingManager_;
489
490};
491
496template<class MDTraits, class CouplingManager, bool enableEnergyBalance>
497class StokesDarcyCouplingDataImplementation<MDTraits, CouplingManager, enableEnergyBalance, false>
498: public StokesDarcyCouplingDataImplementationBase<MDTraits, CouplingManager>
499{
501 using Scalar = typename MDTraits::Scalar;
502 static constexpr auto stokesIdx = CouplingManager::stokesIdx;
503 static constexpr auto darcyIdx = CouplingManager::darcyIdx;
504 static constexpr auto stokesFaceIdx = CouplingManager::stokesFaceIdx;
505 static constexpr auto stokesCellCenterIdx = CouplingManager::stokesCellCenterIdx;
506
507 // the sub domain type tags
508 template<std::size_t id>
509 using SubDomainTypeTag = typename MDTraits::template SubDomain<id>::TypeTag;
510
511 template<std::size_t id> using GridGeometry = GetPropType<SubDomainTypeTag<id>, Properties::GridGeometry>;
512 template<std::size_t id> using Element = typename GridGeometry<id>::GridView::template Codim<0>::Entity;
513 template<std::size_t id> using FVElementGeometry = typename GridGeometry<id>::LocalView;
514 template<std::size_t id> using SubControlVolumeFace = typename GridGeometry<id>::LocalView::SubControlVolumeFace;
515 template<std::size_t id> using SubControlVolume = typename GridGeometry<id>::LocalView::SubControlVolume;
516 template<std::size_t id> using Indices = typename GetPropType<SubDomainTypeTag<id>, Properties::ModelTraits>::Indices;
517 template<std::size_t id> using ElementVolumeVariables = typename GetPropType<SubDomainTypeTag<id>, Properties::GridVolumeVariables>::LocalView;
518 template<std::size_t id> using ElementFaceVariables = typename GetPropType<SubDomainTypeTag<id>, Properties::GridFaceVariables>::LocalView;
519 template<std::size_t id> using VolumeVariables = typename GetPropType<SubDomainTypeTag<id>, Properties::GridVolumeVariables>::VolumeVariables;
520
521 static_assert(GetPropType<SubDomainTypeTag<darcyIdx>, Properties::ModelTraits>::numFluidComponents() == GetPropType<SubDomainTypeTag<darcyIdx>, Properties::ModelTraits>::numFluidPhases(),
522 "Darcy Model must not be compositional");
523
524 using DiffusionCoefficientAveragingType = typename StokesDarcyCouplingOptions::DiffusionCoefficientAveragingType;
525
526public:
527 using ParentType::ParentType;
528 using ParentType::couplingPhaseIdx;
529
533 Scalar massCouplingCondition(const Element<darcyIdx>& element,
534 const FVElementGeometry<darcyIdx>& fvGeometry,
535 const ElementVolumeVariables<darcyIdx>& darcyElemVolVars,
536 const SubControlVolumeFace<darcyIdx>& scvf) const
537 {
538 const auto& darcyContext = this->couplingManager().darcyCouplingContext(element, scvf);
539 const Scalar velocity = darcyContext.velocity * scvf.unitOuterNormal();
540 const Scalar darcyDensity = darcyElemVolVars[scvf.insideScvIdx()].density(couplingPhaseIdx(darcyIdx));
541 const Scalar stokesDensity = darcyContext.volVars.density();
542 const bool insideIsUpstream = velocity > 0.0;
543
544 return massFlux_(velocity, darcyDensity, stokesDensity, insideIsUpstream);
545 }
546
550 Scalar massCouplingCondition(const Element<stokesIdx>& element,
551 const FVElementGeometry<stokesIdx>& fvGeometry,
552 const ElementVolumeVariables<stokesIdx>& stokesElemVolVars,
553 const ElementFaceVariables<stokesIdx>& stokesElemFaceVars,
554 const SubControlVolumeFace<stokesIdx>& scvf) const
555 {
556 const auto& stokesContext = this->couplingManager().stokesCouplingContext(element, scvf);
557 const Scalar velocity = stokesElemFaceVars[scvf].velocitySelf();
558 const Scalar stokesDensity = stokesElemVolVars[scvf.insideScvIdx()].density();
559 const Scalar darcyDensity = stokesContext.volVars.density(couplingPhaseIdx(darcyIdx));
560 const bool insideIsUpstream = sign(velocity) == scvf.directionSign();
561
562 return massFlux_(velocity * scvf.directionSign(), stokesDensity, darcyDensity, insideIsUpstream);
563 }
564
568 template<bool isNI = enableEnergyBalance, typename std::enable_if_t<isNI, int> = 0>
569 Scalar energyCouplingCondition(const Element<darcyIdx>& element,
570 const FVElementGeometry<darcyIdx>& fvGeometry,
571 const ElementVolumeVariables<darcyIdx>& darcyElemVolVars,
572 const SubControlVolumeFace<darcyIdx>& scvf,
573 const DiffusionCoefficientAveragingType diffCoeffAvgType = DiffusionCoefficientAveragingType::ffOnly) const
574 {
575 const auto& darcyContext = this->couplingManager().darcyCouplingContext(element, scvf);
576 const auto& darcyVolVars = darcyElemVolVars[scvf.insideScvIdx()];
577 const auto& stokesVolVars = darcyContext.volVars;
578
579 const Scalar velocity = darcyContext.velocity * scvf.unitOuterNormal();
580 const bool insideIsUpstream = velocity > 0.0;
581
582 return energyFlux_(darcyIdx, stokesIdx, fvGeometry, darcyContext.fvGeometry, scvf,
583 darcyVolVars, stokesVolVars, velocity, insideIsUpstream, diffCoeffAvgType);
584 }
585
589 template<bool isNI = enableEnergyBalance, typename std::enable_if_t<isNI, int> = 0>
590 Scalar energyCouplingCondition(const Element<stokesIdx>& element,
591 const FVElementGeometry<stokesIdx>& fvGeometry,
592 const ElementVolumeVariables<stokesIdx>& stokesElemVolVars,
593 const ElementFaceVariables<stokesIdx>& stokesElemFaceVars,
594 const SubControlVolumeFace<stokesIdx>& scvf,
595 const DiffusionCoefficientAveragingType diffCoeffAvgType = DiffusionCoefficientAveragingType::ffOnly) const
596 {
597 const auto& stokesContext = this->couplingManager().stokesCouplingContext(element, scvf);
598 const auto& stokesVolVars = stokesElemVolVars[scvf.insideScvIdx()];
599 const auto& darcyVolVars = stokesContext.volVars;
600
601 const Scalar velocity = stokesElemFaceVars[scvf].velocitySelf();
602 const bool insideIsUpstream = sign(velocity) == scvf.directionSign();
603
604 return energyFlux_(stokesIdx, darcyIdx, fvGeometry, stokesContext.fvGeometry, scvf,
605 stokesVolVars, darcyVolVars, velocity * scvf.directionSign(), insideIsUpstream, diffCoeffAvgType);
606 }
607
608private:
609
613 Scalar massFlux_(const Scalar velocity,
614 const Scalar insideDensity,
615 const Scalar outSideDensity,
616 bool insideIsUpstream) const
617 {
618 return this->advectiveFlux(insideDensity, outSideDensity, velocity, insideIsUpstream);
619 }
620
624 template<std::size_t i, std::size_t j, bool isNI = enableEnergyBalance, typename std::enable_if_t<isNI, int> = 0>
625 Scalar energyFlux_(Dune::index_constant<i> domainI,
626 Dune::index_constant<j> domainJ,
627 const FVElementGeometry<i>& insideFvGeometry,
628 const FVElementGeometry<j>& outsideFvGeometry,
629 const SubControlVolumeFace<i>& scvf,
630 const VolumeVariables<i>& insideVolVars,
631 const VolumeVariables<j>& outsideVolVars,
632 const Scalar velocity,
633 const bool insideIsUpstream,
634 const DiffusionCoefficientAveragingType diffCoeffAvgType) const
635 {
636 Scalar flux(0.0);
637
638 const auto& insideScv = (*scvs(insideFvGeometry).begin());
639 const auto& outsideScv = (*scvs(outsideFvGeometry).begin());
640
641 // convective fluxes
642 const Scalar insideTerm = insideVolVars.density(couplingPhaseIdx(domainI)) * insideVolVars.enthalpy(couplingPhaseIdx(domainI));
643 const Scalar outsideTerm = outsideVolVars.density(couplingPhaseIdx(domainJ)) * outsideVolVars.enthalpy(couplingPhaseIdx(domainJ));
644
645 flux += this->advectiveFlux(insideTerm, outsideTerm, velocity, insideIsUpstream);
646
647 flux += this->conductiveEnergyFlux_(domainI, domainJ, insideFvGeometry, outsideFvGeometry, scvf, insideScv, outsideScv, insideVolVars, outsideVolVars, diffCoeffAvgType);
648
649 return flux;
650 }
651
652};
653
658template<class MDTraits, class CouplingManager, bool enableEnergyBalance>
659class StokesDarcyCouplingDataImplementation<MDTraits, CouplingManager, enableEnergyBalance, true>
660: public StokesDarcyCouplingDataImplementationBase<MDTraits, CouplingManager>
661{
663 using Scalar = typename MDTraits::Scalar;
664 static constexpr auto stokesIdx = CouplingManager::stokesIdx;
665 static constexpr auto darcyIdx = CouplingManager::darcyIdx;
666 static constexpr auto stokesFaceIdx = CouplingManager::stokesFaceIdx;
667 static constexpr auto stokesCellCenterIdx = CouplingManager::stokesCellCenterIdx;
668
669 // the sub domain type tags
670 template<std::size_t id>
671 using SubDomainTypeTag = typename MDTraits::template SubDomain<id>::TypeTag;
672
673 template<std::size_t id> using GridGeometry = GetPropType<SubDomainTypeTag<id>, Properties::GridGeometry>;
674 template<std::size_t id> using Element = typename GridGeometry<id>::GridView::template Codim<0>::Entity;
675 template<std::size_t id> using FVElementGeometry = typename GridGeometry<id>::LocalView;
676 template<std::size_t id> using SubControlVolumeFace = typename FVElementGeometry<id>::SubControlVolumeFace;
677 template<std::size_t id> using SubControlVolume = typename GridGeometry<id>::LocalView::SubControlVolume;
678 template<std::size_t id> using Indices = typename GetPropType<SubDomainTypeTag<id>, Properties::ModelTraits>::Indices;
679 template<std::size_t id> using ElementVolumeVariables = typename GetPropType<SubDomainTypeTag<id>, Properties::GridVolumeVariables>::LocalView;
680 template<std::size_t id> using ElementFaceVariables = typename GetPropType<SubDomainTypeTag<id>, Properties::GridFaceVariables>::LocalView;
681 template<std::size_t id> using VolumeVariables = typename GetPropType<SubDomainTypeTag<id>, Properties::GridVolumeVariables>::VolumeVariables;
682 template<std::size_t id> using FluidSystem = GetPropType<SubDomainTypeTag<id>, Properties::FluidSystem>;
683
684 static constexpr auto numComponents = GetPropType<SubDomainTypeTag<stokesIdx>, Properties::ModelTraits>::numFluidComponents();
685 static constexpr auto replaceCompEqIdx = GetPropType<SubDomainTypeTag<stokesIdx>, Properties::ModelTraits>::replaceCompEqIdx();
686 static constexpr bool useMoles = GetPropType<SubDomainTypeTag<stokesIdx>, Properties::ModelTraits>::useMoles();
687 static constexpr auto referenceSystemFormulation = GetPropType<SubDomainTypeTag<stokesIdx>, Properties::MolecularDiffusionType>::referenceSystemFormulation();
688
689 static_assert(GetPropType<SubDomainTypeTag<darcyIdx>, Properties::ModelTraits>::numFluidComponents() == numComponents, "Both submodels must use the same number of components");
690 static_assert(getPropValue<SubDomainTypeTag<darcyIdx>, Properties::UseMoles>() == useMoles, "Both submodels must either use moles or not");
691 static_assert(getPropValue<SubDomainTypeTag<darcyIdx>, Properties::ReplaceCompEqIdx>() == replaceCompEqIdx, "Both submodels must use the same replaceCompEqIdx");
692 static_assert(GetPropType<SubDomainTypeTag<darcyIdx>, Properties::MolecularDiffusionType>::referenceSystemFormulation() == referenceSystemFormulation,
693 "Both submodels must use the same reference system formulation for diffusion");
694
695 using NumEqVector = Dune::FieldVector<Scalar, numComponents>;
696
697 using DiffusionCoefficientAveragingType = typename StokesDarcyCouplingOptions::DiffusionCoefficientAveragingType;
698
699 static constexpr bool isFicksLaw = IsFicksLaw<GetPropType<SubDomainTypeTag<stokesIdx>, Properties::MolecularDiffusionType>>();
700 static_assert(isFicksLaw == IsFicksLaw<GetPropType<SubDomainTypeTag<darcyIdx>, Properties::MolecularDiffusionType>>(),
701 "Both submodels must use the same diffusion law.");
702
703 using ReducedComponentVector = Dune::FieldVector<Scalar, numComponents-1>;
704 using ReducedComponentMatrix = Dune::FieldMatrix<Scalar, numComponents-1, numComponents-1>;
705
706 using MolecularDiffusionType = GetPropType<SubDomainTypeTag<stokesIdx>, Properties::MolecularDiffusionType>;
707public:
708 using ParentType::ParentType;
709 using ParentType::couplingPhaseIdx;
710 using ParentType::couplingCompIdx;
711
715 NumEqVector massCouplingCondition(const Element<darcyIdx>& element,
716 const FVElementGeometry<darcyIdx>& fvGeometry,
717 const ElementVolumeVariables<darcyIdx>& darcyElemVolVars,
718 const SubControlVolumeFace<darcyIdx>& scvf,
719 const DiffusionCoefficientAveragingType diffCoeffAvgType = DiffusionCoefficientAveragingType::ffOnly) const
720 {
721 const auto& darcyContext = this->couplingManager().darcyCouplingContext(element, scvf);
722 const auto& darcyVolVars = darcyElemVolVars[scvf.insideScvIdx()];
723 const auto& stokesVolVars = darcyContext.volVars;
724 const auto& outsideScv = (*scvs(darcyContext.fvGeometry).begin());
725
726 const Scalar velocity = darcyContext.velocity * scvf.unitOuterNormal();
727 const bool insideIsUpstream = velocity > 0.0;
728
729 return massFlux_(darcyIdx, stokesIdx, fvGeometry,
730 scvf, darcyVolVars, stokesVolVars,
731 outsideScv, velocity, insideIsUpstream,
732 diffCoeffAvgType);
733 }
734
738 NumEqVector massCouplingCondition(const Element<stokesIdx>& element,
739 const FVElementGeometry<stokesIdx>& fvGeometry,
740 const ElementVolumeVariables<stokesIdx>& stokesElemVolVars,
741 const ElementFaceVariables<stokesIdx>& stokesElemFaceVars,
742 const SubControlVolumeFace<stokesIdx>& scvf,
743 const DiffusionCoefficientAveragingType diffCoeffAvgType = DiffusionCoefficientAveragingType::ffOnly) const
744 {
745 const auto& stokesContext = this->couplingManager().stokesCouplingContext(element, scvf);
746 const auto& stokesVolVars = stokesElemVolVars[scvf.insideScvIdx()];
747 const auto& darcyVolVars = stokesContext.volVars;
748 const auto& outsideScv = (*scvs(stokesContext.fvGeometry).begin());
749
750 const Scalar velocity = stokesElemFaceVars[scvf].velocitySelf();
751 const bool insideIsUpstream = sign(velocity) == scvf.directionSign();
752
753 return massFlux_(stokesIdx, darcyIdx, fvGeometry,
754 scvf, stokesVolVars, darcyVolVars,
755 outsideScv, velocity * scvf.directionSign(),
756 insideIsUpstream, diffCoeffAvgType);
757 }
758
762 template<bool isNI = enableEnergyBalance, typename std::enable_if_t<isNI, int> = 0>
763 Scalar energyCouplingCondition(const Element<darcyIdx>& element,
764 const FVElementGeometry<darcyIdx>& fvGeometry,
765 const ElementVolumeVariables<darcyIdx>& darcyElemVolVars,
766 const SubControlVolumeFace<darcyIdx>& scvf,
767 const DiffusionCoefficientAveragingType diffCoeffAvgType = DiffusionCoefficientAveragingType::ffOnly) const
768 {
769 const auto& darcyContext = this->couplingManager().darcyCouplingContext(element, scvf);
770 const auto& darcyVolVars = darcyElemVolVars[scvf.insideScvIdx()];
771 const auto& stokesVolVars = darcyContext.volVars;
772
773 const Scalar velocity = darcyContext.velocity * scvf.unitOuterNormal();
774 const bool insideIsUpstream = velocity > 0.0;
775
776 return energyFlux_(darcyIdx, stokesIdx, fvGeometry, darcyContext.fvGeometry, scvf,
777 darcyVolVars, stokesVolVars, velocity, insideIsUpstream, diffCoeffAvgType);
778 }
779
783 template<bool isNI = enableEnergyBalance, typename std::enable_if_t<isNI, int> = 0>
784 Scalar energyCouplingCondition(const Element<stokesIdx>& element,
785 const FVElementGeometry<stokesIdx>& fvGeometry,
786 const ElementVolumeVariables<stokesIdx>& stokesElemVolVars,
787 const ElementFaceVariables<stokesIdx>& stokesElemFaceVars,
788 const SubControlVolumeFace<stokesIdx>& scvf,
789 const DiffusionCoefficientAveragingType diffCoeffAvgType = DiffusionCoefficientAveragingType::ffOnly) const
790 {
791 const auto& stokesContext = this->couplingManager().stokesCouplingContext(element, scvf);
792 const auto& stokesVolVars = stokesElemVolVars[scvf.insideScvIdx()];
793 const auto& darcyVolVars = stokesContext.volVars;
794
795 const Scalar velocity = stokesElemFaceVars[scvf].velocitySelf();
796 const bool insideIsUpstream = sign(velocity) == scvf.directionSign();
797
798 return energyFlux_(stokesIdx, darcyIdx, fvGeometry, stokesContext.fvGeometry, scvf,
799 stokesVolVars, darcyVolVars, velocity * scvf.directionSign(), insideIsUpstream, diffCoeffAvgType);
800 }
801
802protected:
803
807 template<std::size_t i, std::size_t j>
808 NumEqVector massFlux_(Dune::index_constant<i> domainI,
809 Dune::index_constant<j> domainJ,
810 const FVElementGeometry<i>& insideFvGeometry,
811 const SubControlVolumeFace<i>& scvf,
812 const VolumeVariables<i>& insideVolVars,
813 const VolumeVariables<j>& outsideVolVars,
814 const SubControlVolume<j>& outsideScv,
815 const Scalar velocity,
816 const bool insideIsUpstream,
817 const DiffusionCoefficientAveragingType diffCoeffAvgType) const
818 {
819 NumEqVector flux(0.0);
820 NumEqVector diffusiveFlux(0.0);
821
822 auto moleOrMassFraction = [&](const auto& volVars, int phaseIdx, int compIdx)
823 { return useMoles ? volVars.moleFraction(phaseIdx, compIdx) : volVars.massFraction(phaseIdx, compIdx); };
824
825 auto moleOrMassDensity = [&](const auto& volVars, int phaseIdx)
826 { return useMoles ? volVars.molarDensity(phaseIdx) : volVars.density(phaseIdx); };
827
828 // treat the advective fluxes
829 auto insideTerm = [&](int compIdx)
830 { return moleOrMassFraction(insideVolVars, couplingPhaseIdx(domainI), compIdx) * moleOrMassDensity(insideVolVars, couplingPhaseIdx(domainI)); };
831
832 auto outsideTerm = [&](int compIdx)
833 { return moleOrMassFraction(outsideVolVars, couplingPhaseIdx(domainJ), compIdx) * moleOrMassDensity(outsideVolVars, couplingPhaseIdx(domainJ)); };
834
835
836 for (int compIdx = 0; compIdx < numComponents; ++compIdx)
837 {
838 const int domainICompIdx = couplingCompIdx(domainI, compIdx);
839 const int domainJCompIdx = couplingCompIdx(domainJ, compIdx);
840 flux[domainICompIdx] += this->advectiveFlux(insideTerm(domainICompIdx), outsideTerm(domainJCompIdx), velocity, insideIsUpstream);
841 }
842
843 // treat the diffusive fluxes
844 const auto& insideScv = insideFvGeometry.scv(scvf.insideScvIdx());
845
846 if (isFicksLaw)
847 diffusiveFlux += diffusiveMolecularFluxFicksLaw_(domainI, domainJ, scvf, insideScv, outsideScv, insideVolVars, outsideVolVars, diffCoeffAvgType);
848 else //maxwell stefan
849 diffusiveFlux += diffusiveMolecularFluxMaxwellStefan_(domainI, domainJ, scvf, insideScv, outsideScv, insideVolVars, outsideVolVars);
850
851 //convert to correct units if necessary
852 if (referenceSystemFormulation == ReferenceSystemFormulation::massAveraged && useMoles)
853 {
854 for (int compIdx = 0; compIdx < numComponents; ++compIdx)
855 {
856 const int domainICompIdx = couplingCompIdx(domainI, compIdx);
857 diffusiveFlux[domainICompIdx] *= 1/FluidSystem<i>::molarMass(domainICompIdx);
858 }
859 }
860 if (referenceSystemFormulation == ReferenceSystemFormulation::molarAveraged && !useMoles)
861 {
862 for (int compIdx = 0; compIdx < numComponents; ++compIdx)
863 {
864 const int domainICompIdx = couplingCompIdx(domainI, compIdx);
865 diffusiveFlux[domainICompIdx] *= FluidSystem<i>::molarMass(domainICompIdx);
866 }
867 }
868
869 flux += diffusiveFlux;
870 // convert to total mass/mole balance, if set be user
871 if (replaceCompEqIdx < numComponents)
872 flux[replaceCompEqIdx] = std::accumulate(flux.begin(), flux.end(), 0.0);
873
874 return flux;
875 }
876
877 Scalar getComponentEnthalpy(const VolumeVariables<stokesIdx>& volVars, int phaseIdx, int compIdx) const
878 {
879 return FluidSystem<stokesIdx>::componentEnthalpy(volVars.fluidState(), 0, compIdx);
880 }
881
882 Scalar getComponentEnthalpy(const VolumeVariables<darcyIdx>& volVars, int phaseIdx, int compIdx) const
883 {
884 return FluidSystem<darcyIdx>::componentEnthalpy(volVars.fluidState(), phaseIdx, compIdx);
885 }
886
890 template<std::size_t i, std::size_t j>
891 NumEqVector diffusiveMolecularFluxMaxwellStefan_(Dune::index_constant<i> domainI,
892 Dune::index_constant<j> domainJ,
893 const SubControlVolumeFace<i>& scvfI,
894 const SubControlVolume<i>& scvI,
895 const SubControlVolume<j>& scvJ,
896 const VolumeVariables<i>& volVarsI,
897 const VolumeVariables<j>& volVarsJ) const
898 {
899 NumEqVector diffusiveFlux(0.0);
900
901 const Scalar insideDistance = this->getDistance_(scvI, scvfI);
902 const Scalar outsideDistance = this->getDistance_(scvJ, scvfI);
903
904 ReducedComponentVector moleFracInside(0.0);
905 ReducedComponentVector moleFracOutside(0.0);
906 ReducedComponentVector reducedFlux(0.0);
907 ReducedComponentMatrix reducedDiffusionMatrixInside(0.0);
908 ReducedComponentMatrix reducedDiffusionMatrixOutside(0.0);
909
910 //calculate the mole fraction vectors
911 for (int compIdx = 0; compIdx < numComponents-1; compIdx++)
912 {
913 const int domainICompIdx = couplingCompIdx(domainI, compIdx);
914 const int domainJCompIdx = couplingCompIdx(domainJ, compIdx);
915
916 assert(FluidSystem<i>::componentName(domainICompIdx) == FluidSystem<j>::componentName(domainJCompIdx));
917
918 //calculate x_inside
919 const Scalar xInside = volVarsI.moleFraction(couplingPhaseIdx(domainI), domainICompIdx);
920 //calculate outside molefraction with the respective transmissibility
921 const Scalar xOutside = volVarsJ.moleFraction(couplingPhaseIdx(domainJ), domainJCompIdx);
922 moleFracInside[domainICompIdx] = xInside;
923 moleFracOutside[domainICompIdx] = xOutside;
924 }
925
926 //now we have to do the tpfa: J_i = -J_j which leads to: J_i = -rho_i Bi^-1 omegai(x*-xi) with x* = (omegai rho_i Bi^-1 + omegaj rho_j Bj^-1)^-1 (xi omegai rho_i Bi^-1 + xj omegaj rho_j Bj^-1) with i inside and j outside.
927
928 //first set up the matrices containing the binary diffusion coefficients and mole fractions
929
930 //inside matrix. KIdx and LIdx are the indices for the k and l-th component, N for the n-th component
931 for (int compKIdx = 0; compKIdx < numComponents-1; compKIdx++)
932 {
933 const int domainICompKIdx = couplingCompIdx(domainI, compKIdx);
934 const Scalar xk = volVarsI.moleFraction(couplingPhaseIdx(domainI), domainICompKIdx);
935 const Scalar avgMolarMass = volVarsI.averageMolarMass(couplingPhaseIdx(domainI));
936 const Scalar Mn = FluidSystem<i>::molarMass(numComponents-1);
937 const Scalar tkn = volVarsI.effectiveDiffusionCoefficient(couplingPhaseIdx(domainI), domainICompKIdx, couplingCompIdx(domainI, numComponents-1));
938
939 // set the entries of the diffusion matrix of the diagonal
940 reducedDiffusionMatrixInside[domainICompKIdx][domainICompKIdx] += xk*avgMolarMass/(tkn*Mn);
941
942 for (int compLIdx = 0; compLIdx < numComponents; compLIdx++)
943 {
944 const int domainICompLIdx = couplingCompIdx(domainI, compLIdx);
945
946 // we don't want to calculate e.g. water in water diffusion
947 if (domainICompKIdx == domainICompLIdx)
948 continue;
949
950 const Scalar xl = volVarsI.moleFraction(couplingPhaseIdx(domainI), domainICompLIdx);
951 const Scalar Mk = FluidSystem<i>::molarMass(domainICompKIdx);
952 const Scalar Ml = FluidSystem<i>::molarMass(domainICompLIdx);
953 const Scalar tkl = volVarsI.effectiveDiffusionCoefficient(couplingPhaseIdx(domainI), domainICompKIdx, domainICompLIdx);
954 reducedDiffusionMatrixInside[domainICompKIdx][domainICompKIdx] += xl*avgMolarMass/(tkl*Mk);
955 reducedDiffusionMatrixInside[domainICompKIdx][domainICompLIdx] += xk*(avgMolarMass/(tkn*Mn) - avgMolarMass/(tkl*Ml));
956 }
957 }
958 //outside matrix
959 for (int compKIdx = 0; compKIdx < numComponents-1; compKIdx++)
960 {
961 const int domainJCompKIdx = couplingCompIdx(domainJ, compKIdx);
962 const int domainICompKIdx = couplingCompIdx(domainI, compKIdx);
963
964 const Scalar xk = volVarsJ.moleFraction(couplingPhaseIdx(domainJ), domainJCompKIdx);
965 const Scalar avgMolarMass = volVarsJ.averageMolarMass(couplingPhaseIdx(domainJ));
966 const Scalar Mn = FluidSystem<j>::molarMass(numComponents-1);
967 const Scalar tkn = volVarsJ.effectiveDiffusionCoefficient(couplingPhaseIdx(domainJ), domainJCompKIdx, couplingCompIdx(domainJ, numComponents-1));
968
969 // set the entries of the diffusion matrix of the diagonal
970 reducedDiffusionMatrixOutside[domainICompKIdx][domainICompKIdx] += xk*avgMolarMass/(tkn*Mn);
971
972 for (int compLIdx = 0; compLIdx < numComponents; compLIdx++)
973 {
974 const int domainJCompLIdx = couplingCompIdx(domainJ, compLIdx);
975 const int domainICompLIdx = couplingCompIdx(domainI, compLIdx);
976
977 // we don't want to calculate e.g. water in water diffusion
978 if (domainJCompLIdx == domainJCompKIdx)
979 continue;
980
981 const Scalar xl = volVarsJ.moleFraction(couplingPhaseIdx(domainJ), domainJCompLIdx);
982 const Scalar Mk = FluidSystem<j>::molarMass(domainJCompKIdx);
983 const Scalar Ml = FluidSystem<j>::molarMass(domainJCompLIdx);
984 const Scalar tkl = volVarsJ.effectiveDiffusionCoefficient(couplingPhaseIdx(domainJ), domainJCompKIdx, domainJCompLIdx);
985 reducedDiffusionMatrixOutside[domainICompKIdx][domainICompKIdx] += xl*avgMolarMass/(tkl*Mk);
986 reducedDiffusionMatrixOutside[domainICompKIdx][domainICompLIdx] += xk*(avgMolarMass/(tkn*Mn) - avgMolarMass/(tkl*Ml));
987 }
988 }
989
990 const Scalar omegai = 1/insideDistance;
991 const Scalar omegaj = 1/outsideDistance;
992
993 reducedDiffusionMatrixInside.invert();
994 reducedDiffusionMatrixInside *= omegai*volVarsI.density(couplingPhaseIdx(domainI));
995 reducedDiffusionMatrixOutside.invert();
996 reducedDiffusionMatrixOutside *= omegaj*volVarsJ.density(couplingPhaseIdx(domainJ));
997
998 //in the helpervector we store the values for x*
999 ReducedComponentVector helperVector(0.0);
1000 ReducedComponentVector gradientVectori(0.0);
1001 ReducedComponentVector gradientVectorj(0.0);
1002
1003 reducedDiffusionMatrixInside.mv(moleFracInside, gradientVectori);
1004 reducedDiffusionMatrixOutside.mv(moleFracOutside, gradientVectorj);
1005
1006 auto gradientVectorij = (gradientVectori + gradientVectorj);
1007
1008 //add the two matrixes to each other
1009 reducedDiffusionMatrixOutside += reducedDiffusionMatrixInside;
1010
1011 reducedDiffusionMatrixOutside.solve(helperVector, gradientVectorij);
1012
1013 //Bi^-1 omegai rho_i (x*-xi). As we previously multiplied rho_i and omega_i with the insidematrix, this does not need to be done again
1014 helperVector -=moleFracInside;
1015 reducedDiffusionMatrixInside.mv(helperVector, reducedFlux);
1016
1017 reducedFlux *= -1;
1018
1019 for (int compIdx = 0; compIdx < numComponents-1; compIdx++)
1020 {
1021 const int domainICompIdx = couplingCompIdx(domainI, compIdx);
1022 diffusiveFlux[domainICompIdx] = reducedFlux[domainICompIdx];
1023 diffusiveFlux[couplingCompIdx(domainI, numComponents-1)] -= reducedFlux[domainICompIdx];
1024 }
1025 return diffusiveFlux;
1026 }
1027
1028 template<std::size_t i, std::size_t j>
1029 NumEqVector diffusiveMolecularFluxFicksLaw_(Dune::index_constant<i> domainI,
1030 Dune::index_constant<j> domainJ,
1031 const SubControlVolumeFace<i>& scvfI,
1032 const SubControlVolume<i>& scvI,
1033 const SubControlVolume<j>& scvJ,
1034 const VolumeVariables<i>& volVarsI,
1035 const VolumeVariables<j>& volVarsJ,
1036 const DiffusionCoefficientAveragingType diffCoeffAvgType) const
1037 {
1038 NumEqVector diffusiveFlux(0.0);
1039
1040 const Scalar rhoInside = massOrMolarDensity(volVarsI, referenceSystemFormulation, couplingPhaseIdx(domainI));
1041 const Scalar rhoOutside = massOrMolarDensity(volVarsJ, referenceSystemFormulation, couplingPhaseIdx(domainJ));
1042 const Scalar avgDensity = 0.5 * rhoInside + 0.5 * rhoOutside;
1043
1044 const Scalar insideDistance = this->getDistance_(scvI, scvfI);
1045 const Scalar outsideDistance = this->getDistance_(scvJ, scvfI);
1046
1047 for (int compIdx = 1; compIdx < numComponents; ++compIdx)
1048 {
1049 const int domainIMainCompIdx = couplingPhaseIdx(domainI);
1050 const int domainJMainCompIdx = couplingPhaseIdx(domainJ);
1051 const int domainICompIdx = couplingCompIdx(domainI, compIdx);
1052 const int domainJCompIdx = couplingCompIdx(domainJ, compIdx);
1053
1054 assert(FluidSystem<i>::componentName(domainICompIdx) == FluidSystem<j>::componentName(domainJCompIdx));
1055
1056 const Scalar massOrMoleFractionInside = massOrMoleFraction(volVarsI, referenceSystemFormulation, couplingPhaseIdx(domainI), domainICompIdx);
1057 const Scalar massOrMoleFractionOutside = massOrMoleFraction(volVarsJ, referenceSystemFormulation, couplingPhaseIdx(domainJ), domainJCompIdx);
1058
1059 const Scalar deltaMassOrMoleFrac = massOrMoleFractionOutside - massOrMoleFractionInside;
1060 const Scalar tij = this->transmissibility_(domainI,
1061 domainJ,
1062 insideDistance,
1063 outsideDistance,
1064 volVarsI.effectiveDiffusionCoefficient(couplingPhaseIdx(domainI), domainIMainCompIdx, domainICompIdx),
1065 volVarsJ.effectiveDiffusionCoefficient(couplingPhaseIdx(domainJ), domainJMainCompIdx, domainJCompIdx),
1066 diffCoeffAvgType);
1067 diffusiveFlux[domainICompIdx] += -avgDensity * tij * deltaMassOrMoleFrac;
1068 }
1069
1070 const Scalar cumulativeFlux = std::accumulate(diffusiveFlux.begin(), diffusiveFlux.end(), 0.0);
1071 diffusiveFlux[couplingCompIdx(domainI, 0)] = -cumulativeFlux;
1072
1073 return diffusiveFlux;
1074 }
1075
1079 template<std::size_t i, std::size_t j, bool isNI = enableEnergyBalance, typename std::enable_if_t<isNI, int> = 0>
1080 Scalar energyFlux_(Dune::index_constant<i> domainI,
1081 Dune::index_constant<j> domainJ,
1082 const FVElementGeometry<i>& insideFvGeometry,
1083 const FVElementGeometry<j>& outsideFvGeometry,
1084 const SubControlVolumeFace<i>& scvf,
1085 const VolumeVariables<i>& insideVolVars,
1086 const VolumeVariables<j>& outsideVolVars,
1087 const Scalar velocity,
1088 const bool insideIsUpstream,
1089 const DiffusionCoefficientAveragingType diffCoeffAvgType) const
1090 {
1091 Scalar flux(0.0);
1092
1093 const auto& insideScv = (*scvs(insideFvGeometry).begin());
1094 const auto& outsideScv = (*scvs(outsideFvGeometry).begin());
1095
1096 // convective fluxes
1097 const Scalar insideTerm = insideVolVars.density(couplingPhaseIdx(domainI)) * insideVolVars.enthalpy(couplingPhaseIdx(domainI));
1098 const Scalar outsideTerm = outsideVolVars.density(couplingPhaseIdx(domainJ)) * outsideVolVars.enthalpy(couplingPhaseIdx(domainJ));
1099
1100 flux += this->advectiveFlux(insideTerm, outsideTerm, velocity, insideIsUpstream);
1101
1102 flux += this->conductiveEnergyFlux_(domainI, domainJ, insideFvGeometry, outsideFvGeometry, scvf, insideScv, outsideScv, insideVolVars, outsideVolVars, diffCoeffAvgType);
1103
1104 auto diffusiveFlux = isFicksLaw ? diffusiveMolecularFluxFicksLaw_(domainI, domainJ, scvf, insideScv, outsideScv, insideVolVars, outsideVolVars, diffCoeffAvgType)
1105 : diffusiveMolecularFluxMaxwellStefan_(domainI, domainJ, scvf, insideScv, outsideScv, insideVolVars, outsideVolVars);
1106
1107
1108 for (int compIdx = 0; compIdx < diffusiveFlux.size(); ++compIdx)
1109 {
1110 const int domainICompIdx = couplingCompIdx(domainI, compIdx);
1111 const int domainJCompIdx = couplingCompIdx(domainJ, compIdx);
1112
1113 const bool insideDiffFluxIsUpstream = diffusiveFlux[domainICompIdx] > 0;
1114 const Scalar componentEnthalpy = insideDiffFluxIsUpstream ?
1115 getComponentEnthalpy(insideVolVars, couplingPhaseIdx(domainI), domainICompIdx)
1116 : getComponentEnthalpy(outsideVolVars, couplingPhaseIdx(domainJ), domainJCompIdx);
1117
1118 if (referenceSystemFormulation == ReferenceSystemFormulation::massAveraged)
1119 flux += diffusiveFlux[domainICompIdx] * componentEnthalpy;
1120 else
1121 flux += diffusiveFlux[domainICompIdx] * FluidSystem<i>::molarMass(domainICompIdx) * componentEnthalpy;
1122 }
1123
1124 return flux;
1125 }
1126};
1127
1128} // end namespace Dumux
1129
1130#endif
The interface of the coupling manager for multi domain problems.
Definition: multidomain/couplingmanager.hh:37
const Problem< i > & problem(Dune::index_constant< i > domainIdx) const
Return a reference to the sub problem.
Definition: multidomain/couplingmanager.hh:298
forward declaration of the method-specific implementation
Definition: flux/ccmpfa/darcyslaw.hh:27
forward declaration of the method-specific implementation
Definition: flux/box/fickslaw.hh:32
forward declare
Definition: forchheimerslaw_fwd.hh:27
NumEqVector massCouplingCondition(const Element< stokesIdx > &element, const FVElementGeometry< stokesIdx > &fvGeometry, const ElementVolumeVariables< stokesIdx > &stokesElemVolVars, const ElementFaceVariables< stokesIdx > &stokesElemFaceVars, const SubControlVolumeFace< stokesIdx > &scvf, const DiffusionCoefficientAveragingType diffCoeffAvgType=DiffusionCoefficientAveragingType::ffOnly) const
Returns the mass flux across the coupling boundary as seen from the free-flow domain.
Definition: couplingdata.hh:738
Scalar energyCouplingCondition(const Element< darcyIdx > &element, const FVElementGeometry< darcyIdx > &fvGeometry, const ElementVolumeVariables< darcyIdx > &darcyElemVolVars, const SubControlVolumeFace< darcyIdx > &scvf, const DiffusionCoefficientAveragingType diffCoeffAvgType=DiffusionCoefficientAveragingType::ffOnly) const
Returns the energy flux across the coupling boundary as seen from the Darcy domain.
Definition: couplingdata.hh:763
Scalar getComponentEnthalpy(const VolumeVariables< darcyIdx > &volVars, int phaseIdx, int compIdx) const
Definition: couplingdata.hh:882
Scalar getComponentEnthalpy(const VolumeVariables< stokesIdx > &volVars, int phaseIdx, int compIdx) const
Definition: couplingdata.hh:877
NumEqVector massFlux_(Dune::index_constant< i > domainI, Dune::index_constant< j > domainJ, const FVElementGeometry< i > &insideFvGeometry, const SubControlVolumeFace< i > &scvf, const VolumeVariables< i > &insideVolVars, const VolumeVariables< j > &outsideVolVars, const SubControlVolume< j > &outsideScv, const Scalar velocity, const bool insideIsUpstream, const DiffusionCoefficientAveragingType diffCoeffAvgType) const
Evaluate the compositional mole/mass flux across the interface.
Definition: couplingdata.hh:808
Scalar energyFlux_(Dune::index_constant< i > domainI, Dune::index_constant< j > domainJ, const FVElementGeometry< i > &insideFvGeometry, const FVElementGeometry< j > &outsideFvGeometry, const SubControlVolumeFace< i > &scvf, const VolumeVariables< i > &insideVolVars, const VolumeVariables< j > &outsideVolVars, const Scalar velocity, const bool insideIsUpstream, const DiffusionCoefficientAveragingType diffCoeffAvgType) const
Evaluate the energy flux across the interface.
Definition: couplingdata.hh:1080
NumEqVector massCouplingCondition(const Element< darcyIdx > &element, const FVElementGeometry< darcyIdx > &fvGeometry, const ElementVolumeVariables< darcyIdx > &darcyElemVolVars, const SubControlVolumeFace< darcyIdx > &scvf, const DiffusionCoefficientAveragingType diffCoeffAvgType=DiffusionCoefficientAveragingType::ffOnly) const
Returns the mass flux across the coupling boundary as seen from the Darcy domain.
Definition: couplingdata.hh:715
Scalar energyCouplingCondition(const Element< stokesIdx > &element, const FVElementGeometry< stokesIdx > &fvGeometry, const ElementVolumeVariables< stokesIdx > &stokesElemVolVars, const ElementFaceVariables< stokesIdx > &stokesElemFaceVars, const SubControlVolumeFace< stokesIdx > &scvf, const DiffusionCoefficientAveragingType diffCoeffAvgType=DiffusionCoefficientAveragingType::ffOnly) const
Returns the energy flux across the coupling boundary as seen from the free-flow domain.
Definition: couplingdata.hh:784
NumEqVector diffusiveMolecularFluxMaxwellStefan_(Dune::index_constant< i > domainI, Dune::index_constant< j > domainJ, const SubControlVolumeFace< i > &scvfI, const SubControlVolume< i > &scvI, const SubControlVolume< j > &scvJ, const VolumeVariables< i > &volVarsI, const VolumeVariables< j > &volVarsJ) const
Evaluate the diffusive mole/mass flux across the interface.
Definition: couplingdata.hh:891
NumEqVector diffusiveMolecularFluxFicksLaw_(Dune::index_constant< i > domainI, Dune::index_constant< j > domainJ, const SubControlVolumeFace< i > &scvfI, const SubControlVolume< i > &scvI, const SubControlVolume< j > &scvJ, const VolumeVariables< i > &volVarsI, const VolumeVariables< j > &volVarsJ, const DiffusionCoefficientAveragingType diffCoeffAvgType) const
Definition: couplingdata.hh:1029
Scalar energyCouplingCondition(const Element< stokesIdx > &element, const FVElementGeometry< stokesIdx > &fvGeometry, const ElementVolumeVariables< stokesIdx > &stokesElemVolVars, const ElementFaceVariables< stokesIdx > &stokesElemFaceVars, const SubControlVolumeFace< stokesIdx > &scvf, const DiffusionCoefficientAveragingType diffCoeffAvgType=DiffusionCoefficientAveragingType::ffOnly) const
Returns the energy flux across the coupling boundary as seen from the free-flow domain.
Definition: couplingdata.hh:590
Scalar massCouplingCondition(const Element< stokesIdx > &element, const FVElementGeometry< stokesIdx > &fvGeometry, const ElementVolumeVariables< stokesIdx > &stokesElemVolVars, const ElementFaceVariables< stokesIdx > &stokesElemFaceVars, const SubControlVolumeFace< stokesIdx > &scvf) const
Returns the mass flux across the coupling boundary as seen from the free-flow domain.
Definition: couplingdata.hh:550
Scalar energyCouplingCondition(const Element< darcyIdx > &element, const FVElementGeometry< darcyIdx > &fvGeometry, const ElementVolumeVariables< darcyIdx > &darcyElemVolVars, const SubControlVolumeFace< darcyIdx > &scvf, const DiffusionCoefficientAveragingType diffCoeffAvgType=DiffusionCoefficientAveragingType::ffOnly) const
Returns the energy flux across the coupling boundary as seen from the Darcy domain.
Definition: couplingdata.hh:569
Scalar massCouplingCondition(const Element< darcyIdx > &element, const FVElementGeometry< darcyIdx > &fvGeometry, const ElementVolumeVariables< darcyIdx > &darcyElemVolVars, const SubControlVolumeFace< darcyIdx > &scvf) const
Returns the mass flux across the coupling boundary as seen from the Darcy domain.
Definition: couplingdata.hh:533
A base class which provides some common methods used for Stokes-Darcy coupling.
Definition: couplingdata.hh:212
auto darcyPermeability(const Element< stokesIdx > &element, const SubControlVolumeFace< stokesIdx > &scvf) const
Returns the intrinsic permeability of the coupled Darcy element.
Definition: couplingdata.hh:274
static constexpr auto couplingPhaseIdx(Dune::index_constant< i > id, int coupledPhaseIdx=0)
Returns the corresponding phase index needed for coupling.
Definition: couplingdata.hh:255
Scalar conductiveEnergyFlux_(Dune::index_constant< i > domainI, Dune::index_constant< j > domainJ, const FVElementGeometry< i > &fvGeometryI, const FVElementGeometry< j > &fvGeometryJ, const SubControlVolumeFace< i > &scvfI, const SubControlVolume< i > &scvI, const SubControlVolume< j > &scvJ, const VolumeVariables< i > &volVarsI, const VolumeVariables< j > &volVarsJ, const DiffusionCoefficientAveragingType diffCoeffAvgType) const
Returns the conductive energy flux across the interface.
Definition: couplingdata.hh:380
static constexpr auto couplingCompIdx(Dune::index_constant< i > id, int coupledCompdIdx)
Returns the corresponding component index needed for coupling.
Definition: couplingdata.hh:262
Scalar pressureAtInterface_(const Element< stokesIdx > &element, const SubControlVolumeFace< stokesIdx > &scvf, const ElementFaceVariables &elemFaceVars, const CouplingContext &context) const
Returns the pressure at the interface.
Definition: couplingdata.hh:410
Scalar advectiveFlux(const Scalar insideQuantity, const Scalar outsideQuantity, const Scalar volumeFlow, bool insideIsUpstream) const
Evaluate an advective flux across the interface and consider upwinding.
Definition: couplingdata.hh:321
Scalar computeCouplingPhasePressureAtInterface_(const Element< darcyIdx > &element, const FVElementGeometry< darcyIdx > &fvGeometry, const SubControlVolumeFace< darcyIdx > &scvf, const VolumeVariables< darcyIdx > &volVars, const typename Element< stokesIdx >::Geometry::GlobalCoordinate &couplingPhaseVelocity, DarcysLaw) const
Returns the pressure at the interface using Darcy's law for reconstruction.
Definition: couplingdata.hh:460
Scalar getDistance_(const Scv &scv, const Scvf &scvf) const
Returns the distance between an scvf and the corresponding scv center.
Definition: couplingdata.hh:371
Scalar momentumCouplingCondition(const Element< stokesIdx > &element, const FVElementGeometry< stokesIdx > &fvGeometry, const ElementVolumeVariables< stokesIdx > &stokesElemVolVars, const ElementFaceVariables &stokesElemFaceVars, const SubControlVolumeFace< stokesIdx > &scvf) const
Returns the momentum flux across the coupling boundary.
Definition: couplingdata.hh:288
Scalar computeCouplingPhasePressureAtInterface_(const Element< darcyIdx > &element, const FVElementGeometry< darcyIdx > &fvGeometry, const SubControlVolumeFace< darcyIdx > &scvf, const VolumeVariables< darcyIdx > &volVars, const typename Element< stokesIdx >::Geometry::GlobalCoordinate &couplingPhaseVelocity, ForchheimersLaw) const
Returns the pressure at the interface using Forchheimers's law for reconstruction.
Definition: couplingdata.hh:424
const CouplingManager & couplingManager() const
Returns a reference to the coupling manager.
Definition: couplingdata.hh:268
StokesDarcyCouplingDataImplementationBase(const CouplingManager &couplingmanager)
Definition: couplingdata.hh:249
Scalar transmissibility_(Dune::index_constant< i > domainI, Dune::index_constant< j > domainJ, const Scalar insideDistance, const Scalar outsideDistance, const Scalar avgQuantityI, const Scalar avgQuantityJ, const DiffusionCoefficientAveragingType diffCoeffAvgType) const
Returns the transmissibility used for either molecular diffusion or thermal conductivity.
Definition: couplingdata.hh:337
Definition: couplingdata.hh:194
Defines all properties used in Dumux.
Tensor::field_type computeTpfaTransmissibility(const FVElementGeometry &fvGeometry, const typename FVElementGeometry::SubControlVolumeFace &scvf, const typename FVElementGeometry::SubControlVolume &scv, const Tensor &T, typename FVElementGeometry::SubControlVolume::Traits::Scalar extrusionFactor)
Free function to evaluate the Tpfa transmissibility associated with the flux (in the form of flux = T...
Definition: tpfa/computetransmissibility.hh:36
constexpr Scalar harmonicMean(Scalar x, Scalar y, Scalar wx=1.0, Scalar wy=1.0) noexcept
Calculate the (weighted) harmonic mean of two scalar values.
Definition: math.hh:57
Dune::DenseMatrix< MAT >::value_type vtmv(const Dune::DenseVector< V1 > &v1, const Dune::DenseMatrix< MAT > &M, const Dune::DenseVector< V2 > &v2)
Evaluates the scalar product of a vector v2, projected by a matrix M, with a vector v1.
Definition: math.hh:880
constexpr int sign(const ValueType &value) noexcept
Sign or signum function.
Definition: math.hh:658
constexpr Scalar arithmeticMean(Scalar x, Scalar y, Scalar wx=1.0, Scalar wy=1.0) noexcept
Calculate the (weighted) arithmetic mean of two scalar values.
Definition: math.hh:38
VolumeVariables::PrimaryVariables::value_type massOrMoleFraction(const VolumeVariables &volVars, ReferenceSystemFormulation referenceSys, const int phaseIdx, const int compIdx)
returns the mass or mole fraction to be used in Fick's law based on the reference system
Definition: referencesystemformulation.hh:54
VolumeVariables::PrimaryVariables::value_type massOrMolarDensity(const VolumeVariables &volVars, ReferenceSystemFormulation referenceSys, const int phaseIdx)
evaluates the density to be used in Fick's law based on the reference system
Definition: referencesystemformulation.hh:43
constexpr auto getPropValue()
get the value data member of a property
Definition: propertysystem.hh:310
typename GetProp< TypeTag, Property >::type GetPropType
get the type alias defined in the property
Definition: propertysystem.hh:296
Define some often used mathematical functions.
The available discretization methods in Dumux.
The interface of the coupling manager for multi domain problems.
Definition: adapt.hh:17
The reference frameworks and formulations available for splitting total fluxes into a advective and d...
static constexpr auto couplingCompIdx(Dune::index_constant< i >, int coupledCompdIdx)
No adapter is used, just return the input index.
Definition: couplingdata.hh:144
static constexpr auto couplingPhaseIdx(Dune::index_constant< i >, int coupledPhaseIdx=0)
No adapter is used, just return the input index.
Definition: couplingdata.hh:137
static constexpr auto couplingPhaseIdx(Dune::index_constant< darcyIdx >, int coupledPhaseIdx=0)
The phase index of the porous-medium-flow model is given by the adapter fluidsytem (i....
Definition: couplingdata.hh:168
static constexpr auto couplingCompIdx(Dune::index_constant< stokesIdx >, int coupledCompdIdx)
The free-flow model does not need any change of the component index.
Definition: couplingdata.hh:174
static constexpr auto couplingCompIdx(Dune::index_constant< darcyIdx >, int coupledCompdIdx)
The component index of the porous-medium-flow model is mapped by the adapter fluidsytem.
Definition: couplingdata.hh:180
static constexpr auto couplingPhaseIdx(Dune::index_constant< stokesIdx >, int coupledPhaseIdx=0)
The free-flow model always uses phase index 0.
Definition: couplingdata.hh:162
Helper struct to choose the correct index for phases and components. This is need if the porous-mediu...
Definition: couplingdata.hh:120
This structs indicates that Fick's law is not used for diffusion.
Definition: couplingdata.hh:100
This structs helps to check if the two sub models use the same fluidsystem. Specialization for the ca...
Definition: couplingdata.hh:73
static constexpr bool value
Definition: couplingdata.hh:75
This structs holds a set of options which allow to modify the Stokes-Darcy coupling mechanism during ...
Definition: couplingdata.hh:33
DiffusionCoefficientAveragingType
Defines which kind of averanging of diffusion coefficiencients (moleculat diffusion or thermal conduc...
Definition: couplingdata.hh:40
static DiffusionCoefficientAveragingType stringToEnum(DiffusionCoefficientAveragingType, const std::string &diffusionCoefficientAveragingType)
Convenience function to convert user input given as std::string to the corresponding enum class used ...
Definition: couplingdata.hh:48
Free functions to evaluate the transmissibilities associated with flux evaluations across sub-control...