Merge branch 'master' into binaries

This commit is contained in:
Grzegorz Kowal 2023-12-23 12:15:56 -03:00
commit 1ab20ef426

View File

@ -142,15 +142,15 @@ module statistics
track_statistics = .false.
end select
call get_parameter("statistics_interval", iintd)
iintd = max(1, iintd)
! only master process writes the files to the disk
!
if (master) then
! process parameters
!
call get_parameter("statistics_interval", iintd)
iintd = max(1, iintd)
stmp = "off"
call get_parameter("statistics_append", stmp)
select case(trim(stmp))