Merge branch 'master' into binaries

2024-07-03 22:36:34 -03:00 · 2024-07-03 22:36:34 -03:00 · c44eeb31a0
commit c44eeb31a0
parent 8fc234269b 0e703cf9b5
1 changed files with 8 additions and 0 deletions
--- a/sources/statistics.F90
+++ b/sources/statistics.F90
@ -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