diff options
Diffstat (limited to 'src/InterpLocalUniform.c')
-rw-r--r-- | src/InterpLocalUniform.c | 25 |
1 files changed, 24 insertions, 1 deletions
diff --git a/src/InterpLocalUniform.c b/src/InterpLocalUniform.c index 76882d4..860e085 100644 --- a/src/InterpLocalUniform.c +++ b/src/InterpLocalUniform.c @@ -1735,7 +1735,6 @@ int status; status = Util_TableGetPointer(param_table_handle, &per_point_status, "per_point_status"); - if (status == 1) then { p_error_info->found_per_point_status = true; @@ -1756,6 +1755,30 @@ else { return status; /*** ERROR RETURN ***/ } +status = Util_TableQueryValueInfo(param_table_handle, + NULL, NULL, + "suppress_warnings"); +if (status == 1) + then { + /* key "suppress_warnings" is in table ==> no warning msgs */ + p_error_info->print_warning_msg = false; + } +else if (status == 0) + then { + /* key "suppress_warnings" is NOT in table */ + /* ==> leave warning msgs on by default*/ + p_error_info->print_warning_msg = true; + } +else { + CCTK_VWarn(ERROR_MSG_SEVERITY_LEVEL, + __LINE__, __FILE__, CCTK_THORNSTRING, +"\n" +" CCTK_InterpLocalUniform(): bad \"suppress_warnings\" table entry!\n" +" error status=%d", + status); + return status; /*** ERROR RETURN ***/ + } + return 0; /*** NORMAL RETURN ***/ } |