diff --git a/src/error.F90 b/src/error.F90 index cea7a24466..4f4c53d78a 100644 --- a/src/error.F90 +++ b/src/error.F90 @@ -76,9 +76,11 @@ contains write(ERROR_UNIT,*) ! Write information on current cycle and particle - write(ERROR_UNIT,'(1X,A,I11) ') 'Cycle: ', current_cycle - write(ERROR_UNIT,'(1X,A,I11)') 'Particle: ', p % id - write(ERROR_UNIT,*) + if (current_cycle > 0) then + write(ERROR_UNIT,'(1X,A,I11) ') 'Cycle: ', current_cycle + write(ERROR_UNIT,'(1X,A,I11)') 'Particle: ', p % id + write(ERROR_UNIT,*) + end if ! Release memory from all allocatable arrays call free_memory() diff --git a/src/global.F90 b/src/global.F90 index e22ad48535..e282724b03 100644 --- a/src/global.F90 +++ b/src/global.F90 @@ -118,7 +118,7 @@ module global integer :: n_cycles = 500 ! # of cycles integer :: n_inactive = 50 ! # of inactive cycles integer :: n_active ! # of active cycles - integer :: current_cycle ! current cycle + integer :: current_cycle = 0 ! current cycle ! External source type(ExtSource), target :: external_source