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

INTEGRALS: Increase the precision of reconnection rate terms.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2020-12-18 20:32:43 -03:00
parent 09284fcf25
commit d34b780525
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/integrals.F90
View File

@ -331,7 +331,7 @@ module integrals
! write the integral file header
!
write(runit,'("#",a8,12a18)') &
write(runit,'("#",a8,12a25)') &
'step', 'time', '|Bx| int', '|Bx| inf' &
, '|Bx| y-adv', '|Bx| y-shr', '|Bx| y-dif' &
, '|Bx| z-adv', '|Bx| z-shr', '|Bx| z-dif' &
@ -960,7 +960,7 @@ module integrals
, avarr(6), mnarr(6), mxarr(6) &
, avarr(7), mnarr(7), mxarr(7)
write(eunit,efmt) step, time, dtn, dte, maxval(errors(:)), errors(:)
write(runit,"(i9, 11es18.8e3)") step, time, inarr(11:20)
write(runit,"(i9, 11es25.15e3)") step, time, inarr(11:20)
call flush_and_sync(funit)
call flush_and_sync(sunit)