crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 22:26:08 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Added cycle and particle number to fatal error output.

Browse source
This commit is contained in:
Paul Romano 2012-02-15 15:55:05 -05:00
parent c8cb7f1fc0
commit 76b5647f58
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/error.F90
View file

@ -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()