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

Merge branch 'master' into reconnection

Browse Source
This commit is contained in:
Grzegorz Kowal 2014-09-27 14:13:17 -03:00
commit d59975b463
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/integrals.F90
View File

@ -510,8 +510,8 @@ module integrals
! write down the integrals and statistics to appropriate files
!
if (master) then
write(funit,"(i9,10(1x,1e18.8))") step, time, dtn, inarr(1:8)
write(sunit,"(i9,23(1x,1e18.8))") step, time &
write(funit,"(i9,10(1x,1e18.8e3))") step, time, dtn, inarr(1:8)
write(sunit,"(i9,23(1x,1e18.8e3))") step, time &
, avarr(1), mnarr(1), mxarr(1) &
, avarr(2), mnarr(2), mxarr(2) &
, avarr(3), mnarr(3), mxarr(3) &

2
src/mesh.F90
View File

@ -403,7 +403,7 @@ module mesh
! write down the block statistics
!
write(funit, "(i9,3e14.6,2(2x,i9))", advance="no") &
write(funit, "(i9,3e14.6e3,2(2x,i9))", advance="no") &
step, time, cv, ef, nm, nl
! write down the block level distribution