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

USER_PROBLEM: Fix plane selection for magnetic flux integration.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2024-10-09 17:00:39 -03:00
parent e615a1a341
commit cf7ee78e83
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
sources/user_problem.F90
View File

@ -1037,7 +1037,7 @@ module user_problem
do while(associated(pdata)) do while(associated(pdata))
pmeta => pdata%meta pmeta => pdata%meta
if (pmeta%xmin <= 0.0d+00 .and. pmeta%xmax >= 0.0d+00) then if (pmeta%xmin <= 0.0d+00 .and. 0.0d+00 < pmeta%xmax) then
dh(1) = adx(pmeta%level) dh(1) = adx(pmeta%level)
dh(2) = ady(pmeta%level) dh(2) = ady(pmeta%level)
@ -1046,11 +1046,11 @@ module user_problem
x(:) = pmeta%xmin + ax(pmeta%level,:) x(:) = pmeta%xmin + ax(pmeta%level,:)
i = nb i = nb
do while(abs(x(i)) > dh(1) .and. i <= ne) do while(abs(x(i)) > dh(1) .and. i < ne)
i = i + 1 i = i + 1
end do end do
if (nb < i .and. i <= ne) then if (nb <= i .and. i < ne) then
dyz = ady(pmeta%level) * adz(pmeta%level) dyz = ady(pmeta%level) * adz(pmeta%level)