Merge branch 'debug'

MintonGroup · Oct 21, 2021 · 85078c5 · 85078c5
2 parents 4ba22ae + fc91ba2
commit 85078c5
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git 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
@@ -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)