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

USER_PROBLEM: Normalize the magnetic flux by the X area.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2024-08-16 16:37:11 -03:00
parent ab481646b6
commit b24ab38389
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
sources/user_problem.F90
View File

@ -618,7 +618,7 @@ module user_problem
#else /* NDIMS == 3 */
use coordinates, only : periodic, ymin, ymax
#endif /* NDIMS == 3 */
use coordinates, only : ax, adx, ady, adz
use coordinates, only : ax, adx, ady, adz, xarea
#if NDIMS == 3
use equations , only : ivx, ivy, ivz, ibx, iby, ibz, ibp
#else /* NDIMS == 3 */
@ -915,6 +915,7 @@ module user_problem
call reduce_sum(rterms(:))
#endif /* MPI */
rterms(1) = rterms(1) / xarea
rterms(6) = eta * rterms(6)
rterms(7) = eta * rterms(7)