Merge branch 'master' into reconnection
This commit is contained in:
commit
ad1d25c8bc
@ -1251,6 +1251,14 @@ module statistics
|
|||||||
!
|
!
|
||||||
gavg(:) = gavg(:) * voli
|
gavg(:) = gavg(:) * voli
|
||||||
|
|
||||||
|
! calculate pressure for the isothermal case
|
||||||
|
!
|
||||||
|
if (ipr <= 0) then
|
||||||
|
gavg(2) = csnd2 * gavg(1)
|
||||||
|
gmin(2) = csnd2 * gmin(1)
|
||||||
|
gmax(2) = csnd2 * gmax(1)
|
||||||
|
end if
|
||||||
|
|
||||||
! write down the integrals and statistics to appropriate files
|
! write down the integrals and statistics to appropriate files
|
||||||
!
|
!
|
||||||
if (master) then
|
if (master) then
|
||||||
|
Loading…
x
Reference in New Issue
Block a user