diff --git a/src/error.F90 b/src/error.F90
index b227f2f588..cea7a24466 100644
--- a/src/error.F90
+++ b/src/error.F90
@@ -2,7 +2,7 @@ module error
 
   use, intrinsic :: ISO_FORTRAN_ENV
 
-  use global, only: master, free_memory, message, mpi_err
+  use global
 
 #ifdef MPI
   use mpi
@@ -75,6 +75,11 @@ contains
     end do
     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,*)
+
     ! Release memory from all allocatable arrays
     call free_memory()