From 7ab1348259be56dda7e3f1ed5dc9d8f841c08645 Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Sat, 23 Dec 2023 12:13:13 -0300 Subject: [PATCH] STATISTICS: Get 'statistics_interval' on all processes. Signed-off-by: Grzegorz Kowal --- sources/statistics.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/sources/statistics.F90 b/sources/statistics.F90 index 722a38f..aa2b849 100644 --- a/sources/statistics.F90 +++ b/sources/statistics.F90 @@ -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))