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

Don't write cycle/particle on error if simulation hasn't begun.

Browse source
This commit is contained in:
Paul Romano 2012-02-20 10:52:12 -05:00
parent b206a831c3
commit 0f79eb83d1
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/error.F90
View file

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

2
src/global.F90
View file

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