gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

STATISTICS: Get 'statistics_interval' on all processes.

Browse Source 
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
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
sources/statistics.F90
View File

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