blob: 1e8920f7b2dd1e8780ffbddce665b8736f02cec0 (
plain)
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
|
#include <assert.h>
#include <math.h>
#include <stdio.h>
#include "cctk.h"
#include "cctk_Arguments.h"
#include "cctk_Parameters.h"
void SphericalSurface_CheckState (CCTK_ARGUMENTS)
{
DECLARE_CCTK_ARGUMENTS;
DECLARE_CCTK_PARAMETERS;
int n;
for (n=0; n<nsurfaces; ++n) {
if (sf_valid[n] > 0 && sf_active[n] == 0) {
CCTK_VWarn (CCTK_WARN_ABORT, __LINE__, __FILE__, CCTK_THORNSTRING,
"Surface #%d has sf_valid set to a positive value, but does "
"not have sf_active set. This is an error in the thorn "
"which calculated this surface", n);
}
}
}
|