crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-29 06:35:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

removed unnecessary variables and includes in tally and tracking

Browse source
This commit is contained in:
Sam Shaner 2015-10-16 10:55:00 -04:00
parent 3dd1292111
commit 4e75a2e15c
2 changed files with 1 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/tally.F90
View file

@ -57,7 +57,6 @@ contains
integer :: score_index ! scoring bin index
integer :: d ! delayed neutron index
integer :: d_bin ! delayed group bin index
integer :: i_filter ! filter index
integer :: dg_filter ! index of delayed group filter
real(8) :: yield ! delayed neutron yield
real(8) :: atom_density_ ! atom/b-cm
@ -1058,12 +1057,10 @@ contains
integer :: j ! index of delayedgroup filter
integer :: d ! delayed group
integer :: g ! another delayed group
integer :: d_bin = 1 ! delayed group bin index
integer :: d_bin ! delayed group bin index
integer :: n ! number of energies on filter
integer :: k ! loop index for bank sites
integer :: bin_energyout ! original outgoing energy bin
integer :: bin_delayedgroup ! original delayedgroup bin
integer :: i_filter ! index for matching filter bin combination
real(8) :: score ! actual score
real(8) :: E_out ! energy of fission bank site
logical :: d_found = .FALSE. ! bool to inidicate if delayed group was found

1
src/tracking.F90
View file

@ -16,7 +16,6 @@ module tracking
score_collision_tally, score_surface_current
use track_output, only: initialize_particle_track, write_particle_track, &
add_particle_track, finalize_particle_track
use constants, only: MAX_DELAYED_GROUPS
implicit none