Skip to content

GitLab

Commit e2d231d4 authored by Knut's avatar Knut
Browse files

bdy3d_tmrlx: fixed check for bdy3d_tmrlx_max

parent d391ea14
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/3d/m3d.F90
View file @ e2d231d4
......@@ -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