diff options
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, |