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

Fix tally labels.

Browse source
This commit is contained in:
Paul Romano 2012-11-18 13:46:30 -05:00
parent 3ecb241692
commit 6f8d9d7279
2 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/cmfd_input.F90
View file

@ -351,6 +351,9 @@ contains
if (i == n_user_tallies + 1) then
! set label
t % label = "CMFD flux, total, scatter-1, diffusion"
! set tally estimator to analog
t % estimator = ESTIMATOR_ANALOG
@ -377,6 +380,9 @@ contains
else if (i == n_user_tallies + 2) then
! set label
t % label = "CMFD neutron production"
! set tally estimator to analog
t % estimator = ESTIMATOR_ANALOG
@ -416,6 +422,9 @@ contains
else if (i == n_user_tallies + 3) then
! set label
t % label = "CMFD surface currents"
! set tally estimator to analog
t % estimator = ESTIMATOR_ANALOG

10
src/tally_header.F90
View file

@ -63,11 +63,11 @@ module tally_header
type TallyObject
! Basic data
integer :: id ! user-defined identifier
character(len=52) :: label ! user-defined label
integer :: type ! volume, surface current
integer :: estimator ! collision, track-length
real(8) :: volume ! volume of region
integer :: id ! user-defined identifier
character(len=52) :: label = "" ! user-defined label
integer :: type ! volume, surface current
integer :: estimator ! collision, track-length
real(8) :: volume ! volume of region
! Information about what filters should be used