STATISTICS: Get 'statistics_interval' on all processes.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2023-12-23 12:13:13 -03:00
parent 68449d0ccc
commit 7ab1348259

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))