gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

USER_PROBLEM: Improve user refinement criterion.

Browse Source 
Ensure that large blocks spanning beyond the `yref` parameter are
refined appropriately.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2024-10-09 16:28:48 -03:00
parent 9dffcba230
commit e615a1a341
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
sources/user_problem.F90
View File

@ -1279,7 +1279,14 @@ module user_problem
!
crit = 0.0e+00
if (min(abs(pdata%meta%ymin), abs(pdata%meta%ymax)) <= yref) crit = 1.0e+00
if (pdata%meta%ymin <= 0.0d+00 .and. 0.0d+00 <= pdata%meta%ymax) then
crit = 1.0e+00
return
end if
if (abs(pdata%meta%ymin) <= yref .or. abs(pdata%meta%ymax) <= yref) then
crit = 1.0e+00
return
end if
return