diff --git a/Makefile.Defines b/Makefile.Defines index 2efa6d70a..4efa898ad 100644 --- a/Makefile.Defines +++ b/Makefile.Defines @@ -69,6 +69,7 @@ FSTRICTFLAGS = $(IPRODUCTION) $(STRICTREAL) $(OPTREPORT) FFLAGS = $(IPRODUCTION) -fp-model=fast $(OPTREPORT) FORTRAN = ifort AR = xiar +CC = icc #FORTRAN = gfortran #FFLAGS = $(GDEBUG) $(GMEM) #$(GPAR) diff --git a/src/io/io.f90 b/src/io/io.f90 index 13af9d887..c96b3ea24 100644 --- a/src/io/io.f90 +++ b/src/io/io.f90 @@ -2141,7 +2141,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)