Peano
Loading...
Searching...
No Matches
Iceland.h
Go to the documentation of this file.
1
#ifndef EXASEIS_SCENARIOTPVFIVE_HEADER
2
#define EXASEIS_SCENARIOTPVFIVE_HEADER
3
#include "
Scenario.h
"
4
5
template
<
class
Shortcuts,
int
basisSize>
6
class
TPV5
:
public
Scenario
<Shortcuts, basisSize> {
7
8
public
:
9
TPV5
(
DomainInformation
*
info
):
10
Scenario
<Shortcuts, basisSize>(
info
){};
11
12
void
initUnknownsPointwise
(
13
const
double
*
const
x,
14
const
tarch::la::Vector<Dimensions, double>
& center,
15
const
double
t,
16
const
double
dt,
17
double
* Q
18
) {
19
Shortcuts s;
20
21
#ifdef ISOTROPIC
22
Q[s.rho] = 2.67;
23
Q[s.cp] = 6.0;
24
Q[s.cs] = 3.464;
25
#elif defined ANISOTROPIC
26
assertion1
(
false
,
"TPV5 Not implemented in the Anisotropic case"
);
27
#else
28
#error Whole space problem only defined for Isotropic and Anisotropic Scenario
29
#endif
30
}
31
32
void
refinementCriteria
(std::vector<
Refinement::RefinementCriterion<Shortcuts>
*>& criteria)
override
{
33
// criteria.push_back(new Refinement::StaticAMR<Shortcuts>);
34
double
left_edge[3];
35
left_edge[0] = 19.9;
36
left_edge[1] = 7.4;
37
left_edge[2] = 19.9;
38
double
right_edge[3];
39
right_edge[0] = 20.1;
40
right_edge[1] = 7.6;
41
right_edge[2] = 20.1;
42
43
criteria.push_back(
new
Refinement::RefineBetweenPositions<Shortcuts>
(left_edge, right_edge));
44
criteria.push_back(
new
Refinement::trackVelocity<Shortcuts>
(basisSize, -0.00001, 0.25));
45
}
46
};
47
#endif
assertion1
#define assertion1(expr, param)
Definition
Assertions.h:1018
DomainInformation
Definition
DomainInformation.h:8
Refinement::RefineBetweenPositions
Definition
refinement.h:96
Refinement::RefinementCriterion
Definition
refinement.h:10
Refinement::trackVelocity
Definition
refinement.h:22
Scenario
Definition
Scenario.h:8
Scenario::info
DomainInformation * info
Definition
Scenario.h:35
TPV5
Definition
Iceland.h:6
TPV5::TPV5
TPV5(DomainInformation *info)
Definition
Iceland.h:9
TPV5::refinementCriteria
void refinementCriteria(std::vector< Refinement::RefinementCriterion< Shortcuts > * > &criteria) override
Definition
Iceland.h:32
TPV5::initUnknownsPointwise
void initUnknownsPointwise(const double *const x, const tarch::la::Vector< Dimensions, double > ¢er, const double t, const double dt, double *Q)
Definition
Iceland.h:12
tarch::la::Vector
Simple vector class.
Definition
Vector.h:159
Scenario.h
applications
exahype2
exaseis
ExaSeis_core
Scenario
Iceland.h
Generated on Tue Nov 3 2026 16:05:41 for Peano by
1.9.8