diff options
author | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2003-06-04 11:53:52 +0000 |
---|---|---|
committer | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2003-06-04 11:53:52 +0000 |
commit | 6d05e08085c64b998424a36d83262724663ef3a5 (patch) | |
tree | 090b60c1a62d63a62a1112ce1dfada384d22ffd1 /src/gr | |
parent | fe4d71a8862dcffdebd8ea675d2cbaf2f8af72ff (diff) |
set parameter "supress_warnings" in parameter table before calling
CCTK_InterpGridArrays() so it doesn't print warning messages
about points outside of the grid
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinderDirect/trunk@1097 f88db872-0e4f-0410-b76b-b9085cfa78c5
Diffstat (limited to 'src/gr')
-rw-r--r-- | src/gr/expansion.cc | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/src/gr/expansion.cc b/src/gr/expansion.cc index 6e603b6..51af9ed 100644 --- a/src/gr/expansion.cc +++ b/src/gr/expansion.cc @@ -541,6 +541,7 @@ const int N_output_arrays_use // // this flag is true if and only if the parameter table already has the +// suppress_warnings // operand_indices // operand_codes // entries for psi_flag == par_table_psi_flag . @@ -562,6 +563,20 @@ if (par_table_setup && (psi_flag == par_table_psi_flag)) then CCTK_VInfo(CCTK_THORNSTRING, " setting up interpolator derivative info"); + // set a dummy value for the key "suppress_warnings" + // to tell CCTK_InterpGridArrays() not to print warning messages + // for points outside the grid + status = Util_TableSetInt(gi.param_table_handle, + 0, + "suppress_warnings"); + if (status < 0) + then error_exit(ERROR_EXIT, +"***** interpolate_geometry():\n" +" unable to set \"suppress_warnings\" key in interpolator parameter table!\n" +" Util_TableSetInt() status=%d\n" + , + status); /*NOTREACHED*/ + status = Util_TableSetIntArray(gi.param_table_handle, N_output_arrays_use, operand_indices, "operand_indices"); @@ -570,7 +585,7 @@ if (par_table_setup && (psi_flag == par_table_psi_flag)) "***** interpolate_geometry():\n" " unable to set operand_indices in interpolator parameter table!\n" " Util_TableSetIntArray() status=%d\n" -, + , status); /*NOTREACHED*/ status = Util_TableSetIntArray(gi.param_table_handle, @@ -581,7 +596,7 @@ if (par_table_setup && (psi_flag == par_table_psi_flag)) "***** interpolate_geometry():\n" " unable to set operation_codes in interpolator parameter table!\n" " Util_TableSetIntArray() status=%d\n" -, + , status); /*NOTREACHED*/ par_table_setup = true; |