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