1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
#include <assert.h>
#include <string.h>
#include <sstream>
#include <vector>
#include "cctk.h"
#include "cctk_Parameters.h"
#include "gh.hh"
#include "carpet.hh"
#include "regrid.hh"
namespace CarpetRegrid {
using namespace std;
using namespace Carpet;
int ManualGridpointList (cGH const * const cctkGH,
gh const & hh,
gh::mregs & regsss)
{
DECLARE_CCTK_PARAMETERS;
assert (refinement_levels >= 1);
// do nothing if the levels already exist
if (reflevel == refinement_levels) return 0;
assert (regsss.size() >= 1);
vector<vector<region_t> > regss = regsss.at(0);
regss.resize (refinement_levels);
vector<vector<ibbox> > newbbss;
if (strcmp(gridpoints, "") != 0) {
istringstream gp_str(gridpoints);
try {
gp_str >> newbbss;
} catch (input_error) {
CCTK_WARN (0, "Could not parse parameter \"gridpoints\"");
}
}
vector<vector<bbvect> > newobss;
if (strcmp(outerbounds, "") !=0 ) {
istringstream ob_str (outerbounds);
try {
ob_str >> newobss;
} catch (input_error) {
CCTK_WARN (0, "Could not parse parameter \"outerbounds\"");
}
bool good = newobss.size() == newbbss.size();
if (good) {
for (size_t rl=0; rl<newobss.size(); ++rl) {
good = good and newobss.at(rl).size() == newbbss.at(rl).size();
}
}
if (! good) {
cout << "gridpoints: " << newbbss << endl;
cout << "outerbounds: " << newobss << endl;
CCTK_WARN (0, "The parameters \"outerbounds\" and \"gridpoints\" must have the same structure");
}
} else {
newobss.resize(newbbss.size());
for (size_t rl=0; rl<newobss.size(); ++rl) {
newobss.at(rl).resize(newbbss.at(rl).size());
for (size_t c=0; c<newobss.at(rl).size(); ++c) {
newobss.at(rl).at(c) = bbvect(false);
}
}
}
vector<vector<bbvect> > newrbss;
newrbss.resize (newobss.size());
for (int rl=0; rl<(int)newobss.size(); ++rl) {
newrbss.at(rl).resize(newbbss.at(rl).size());
for (int c=0; c<(int)newobss.at(rl).size(); ++c) {
bbvect const & ob = newobss.at(rl).at(c);
bbvect & rb = newrbss.at(rl).at(c);
for (int d=0; d<dim; ++d) {
for (int f=0; f<2; ++f) {
rb[d][f] = ! ob[d][f];
}
}
}
}
if ((int)newbbss.size() < refinement_levels-1) {
CCTK_VWarn (0, __LINE__, __FILE__, CCTK_THORNSTRING,
"The parameter \"gridpoints\" must contain at least \"refinement_levels-1\" (here: %d) levels", (int)refinement_levels-1);
}
vector<vector<region_t> > newregs (newbbss.size());
for (int rl=1; rl<refinement_levels; ++rl) {
vector<region_t> regs;
regs.reserve (newbbss.at(rl-1).size());
for (size_t c=0; c<newbbss.at(rl-1).size(); ++c) {
ibbox const ext = newbbss.at(rl-1).at(c);
b2vect const ob = xpose (newobss.at(rl-1).at(c));
region_t reg;
reg.extent = ext;
reg.map = Carpet::map;
reg.outer_boundaries = ob;
ManualGridpoints_OneLevel
(cctkGH, hh, rl, refinement_levels,
ext.lower(), ext.upper(), reg, regs);
}
// make multiprocessor aware
SplitRegions (cctkGH, regs);
regss.at(rl) = regs;
} // for rl
// make multigrid aware
MakeMultigridBoxes (cctkGH, Carpet::map, regss, regsss);
return 1;
}
} // namespace CarpetRegrid
|
