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

USER_PROBLEM: Fix calculation of boundary resistive terms.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2022-11-05 18:51:35 -03:00
parent b49deb3b71
commit fbb40a4a32
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sources/user_problem.F90
View File

@ -863,8 +863,8 @@ module user_problem
call reduce_sum(rterms(:))
#endif /* MPI */
rterms(7) = eta * rterms(6)
rterms(8) = eta * rterms(7)
rterms(6) = eta * rterms(6)
rterms(7) = eta * rterms(7)
write(runit,"(9es25.15e3)") time, rterms(1:8)
call flush_and_sync(runit)