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

STATISTICS: Calculate pressure for the isothermal case.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2024-07-03 22:36:02 -03:00
parent b37f8997ea
commit 0e703cf9b5
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
sources/statistics.F90
View File

@ -1251,6 +1251,14 @@ module statistics
!
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
!
if (master) then