From fc91ba21d6795523ef560fa84e2998a5da18f136 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 21 Oct 2021 10:08:24 -0400 Subject: [PATCH] Fixed time_chunk calculation for the situation in which the output dumps happen less frequently than the output writes --- src/io/io.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/io/io.f90 b/src/io/io.f90 index 99e33a7db..a866a51ee 100644 --- a/src/io/io.f90 +++ b/src/io/io.f90 @@ -2138,7 +2138,7 @@ module subroutine io_write_frame_system(self, param) else if ((param%out_type == NETCDF_FLOAT_TYPE) .or. (param%out_type == NETCDF_DOUBLE_TYPE)) then param%nciu%id_chunk = pl%nbody + tp%nbody - param%nciu%time_chunk = param%istep_out / param%istep_dump + param%nciu%time_chunk = max(param%istep_dump / param%istep_out, 1) if (lfirst) then inquire(file=param%outfile, exist=fileExists)