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
133
134
135
136
137
|
#include <assert.h>
#include <string.h>
#include <vector>
#include "cctk.h"
#include "cctk_Parameters.h"
#include "gh.hh"
#include "carpet.hh"
#include "regrid.hh"
extern "C" {
static const char* rcsid = "$Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetRegrid/src/manualgridpointlist.cc,v 1.1 2004/01/25 14:57:30 schnetter Exp $";
CCTK_FILEVERSION(Carpet_CarpetRegrid_manualgridpointlist_cc);
}
namespace CarpetRegrid {
using namespace std;
using namespace Carpet;
int ManualGridpointList (cGH const * const cctkGH,
gh<dim> const & hh,
int const reflevel,
int const map,
int const size,
jjvect const & nboundaryzones,
jjvect const & is_internal,
jjvect const & is_staggered,
jjvect const & shiftout,
gh<dim>::rexts & bbsss,
gh<dim>::rbnds & obss,
gh<dim>::rprocs & pss)
{
DECLARE_CCTK_PARAMETERS;
assert (reflevel>=0 && reflevel<maxreflevels);
assert (map>=0 && map<maps);
assert (refinement_levels >= 1);
// do nothing if the levels already exist
if (bbsss.size() == refinement_levels) return 0;
assert (bbsss.size() >= 1);
bbsss.resize (refinement_levels);
obss.resize (refinement_levels);
pss.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 && 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);
}
}
}
if (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);
}
for (size_t rl=1; rl<refinement_levels; ++rl) {
vector<ibbox> bbs;
gh<dim>::cbnds obs;
bbs.reserve (newbbss.at(rl-1).size());
obs.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);
bbvect const & ob = newobss.at(rl-1).at(c);
ManualGridpoints_OneLevel
(cctkGH, hh, rl, refinement_levels,
ext.lower(), ext.upper(), ob, bbs, obs);
}
// make multiprocessor aware
gh<dim>::cprocs ps;
SplitRegions (cctkGH, bbs, obs, ps);
// make multigrid aware
vector<vector<ibbox> > bbss;
MakeMultigridBoxes
(cctkGH,
size, nboundaryzones, is_internal, is_staggered, shiftout,
bbs, obs, bbss);
bbsss.at(rl) = bbss;
obss.at(rl) = obs;
pss.at(rl) = ps;
} // for rl
return 1;
}
} // namespace CarpetRegrid
|
