diff options
| author | rideout <rideout@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2003-02-14 00:46:06 +0000 |
|---|---|---|
| committer | rideout <rideout@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2003-02-14 00:46:06 +0000 |
| commit | f93380441909a9c02fd7002a7071ee2f0b519f2f (patch) | |
| tree | eccc11dc7b7bc3eabd43b2a80d7f6f3ed2111438 /src/RadiationBoundary.c | |
| parent | 7d93d9515961a769c22c32fd425d37439206f912 (diff) | |
Provide wrappers for all boundary conditions provided by thorn
Boundary, so that they can be 'selected for bc' under the new boundary
interface. The details of default arguments and table keys will be
documented in the thorn guide.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@198 6a38eb6e-646e-4a02-a296-d141613ad6c4
Diffstat (limited to 'src/RadiationBoundary.c')
| -rw-r--r-- | src/RadiationBoundary.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/RadiationBoundary.c b/src/RadiationBoundary.c index 7f83635..aee8f52 100644 --- a/src/RadiationBoundary.c +++ b/src/RadiationBoundary.c @@ -142,7 +142,7 @@ static int ApplyBndRadiative (const cGH *GH, int BndRadiative(const cGH *GH, int num_vars, int *vars, int *faces, int *tables) { - int i, j, k, value_type, value_size, err, prev_time_level, + int i, j, k, value_type, value_size, err, gdim, max_gdim, retval; char *prev_time_level_name; @@ -151,6 +151,7 @@ int BndRadiative(const cGH *GH, int num_vars, int *vars, int *faces, int *stencil_alldirs; /* width of stencil in all directions */ int dir; /* direction in which to apply bc */ CCTK_REAL limit, speed; + int prev_time_level; /* variable (index) which holds the previous time level */ #ifdef DEBUG printf("BndRadiative(): got passed GH=%p, num_vars=%d, var_indices[0]=%d, table_handles[0]=%d\n", (const void *) GH, num_vars, var_indices[0], table_handles[0]); @@ -173,7 +174,7 @@ int BndRadiative(const cGH *GH, int num_vars, int *vars, int *faces, if (faces[i] != CCTK_ALL_FACES) { CCTK_VWarn(1, __LINE__, __FILE__, CCTK_THORNSTRING, - "Faces specification %d for radiative boundary conditions on " + "Faces specification %d for Radiative boundary conditions on " "%s is not implemented yet. " "Applying radiative bcs to all (external) faces.", faces[i], CCTK_VarName(vars[i])); @@ -227,6 +228,7 @@ int BndRadiative(const cGH *GH, int num_vars, int *vars, int *faces, Util_TableGetString(tables[i], value_size, prev_time_level_name, "PREVIOUS TIME LEVEL"); prev_time_level = CCTK_VarIndex(prev_time_level_name); + free(prev_time_level_name); } else if (value_type==CCTK_VARIABLE_INT) { Util_TableGetInt(tables[i], &prev_time_level, |