Commit e2d231d4 authored by Knut's avatar Knut

bdy3d_tmrlx: fixed check for bdy3d_tmrlx_max

parent d391ea14
......@@ -216,9 +216,9 @@
if (bdy3d_tmrlx_min<_ZERO_ .or. bdy3d_tmrlx_min>_ONE_) &
call getm_error("init_3d()", &
"bdy3d_tmrlx_min is out of valid range [0:1]")
if (bdy3d_tmrlx_max<bdy3d_tmrlx_min .or. bdy3d_tmrlx_min>_ONE_) &
if (bdy3d_tmrlx_max<bdy3d_tmrlx_min .or. bdy3d_tmrlx_max>_ONE_) &
call getm_error("init_3d()", &
"bdy3d_tmrlx_max is out of valid range [bdy3d_tmrlx_max:1]")
"bdy3d_tmrlx_max is out of valid range [bdy3d_tmrlx_min:1]")
if (bdy3d_tmrlx_ucut<_ZERO_) &
call getm_error("init_3d()", &
"bdy3d_tmrlx_max is out of valid range [0:inf[")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment