diff options
Diffstat (limited to 'Carpet/LoopControl/src/loopcontrol.c')
| -rw-r--r-- | Carpet/LoopControl/src/loopcontrol.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/Carpet/LoopControl/src/loopcontrol.c b/Carpet/LoopControl/src/loopcontrol.c index bb7a10725..829339aaf 100644 --- a/Carpet/LoopControl/src/loopcontrol.c +++ b/Carpet/LoopControl/src/loopcontrol.c @@ -682,6 +682,21 @@ lc_control_init (lc_control_t * restrict const lc, lc->time_setup_begin = omp_get_wtime(); /* Check arguments */ + if (! (imin >= 0 && imax <= ilsh && ilsh >= 0) || + ! (jmin >= 0 && jmax <= jlsh && jlsh >= 0) || + ! (kmin >= 0 && kmax <= klsh && klsh >= 0)) + { + CCTK_VWarn (CCTK_WARN_ABORT, __LINE__, __FILE__, CCTK_THORNSTRING, + "Illegal loop control arguments:\n" + "name=\"%s\"\n" + "imin=%d imax=%d ilsh=%d\n" + "jmin=%d jmax=%d jlsh=%d\n" + "kmin=%d kmax=%d klsh=%d\n", + lm->name, + imin, imax, ilsh, + jmin, jmax, jlsh, + kmin, kmax, klsh); + } assert (imin >= 0 && imax <= ilsh && ilsh >= 0); assert (jmin >= 0 && jmax <= jlsh && jlsh >= 0); assert (kmin >= 0 && kmax <= klsh && klsh >= 0); |