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

Force analog for tallies with spherical harmonics filter with cosine=scatter

Browse source
This commit is contained in:
Paul Romano 2018-04-11 11:41:49 -05:00
parent e0e1dc6bd5
commit 69f97e6f2c
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/tallies/tally_filter_sph_harm.F90
View file

@ -20,8 +20,8 @@ module tally_filter_sph_harm
public :: openmc_sphharm_filter_set_order
public :: openmc_sphharm_filter_set_cosine
integer, parameter :: COSINE_SCATTER = 1
integer, parameter :: COSINE_PARTICLE = 2
integer, public, parameter :: COSINE_SCATTER = 1
integer, public, parameter :: COSINE_PARTICLE = 2
!===============================================================================
! SPHERICALHARMONICSFILTER gives spherical harmonics expansion moments of a

3
src/tallies/tally_header.F90
View file

@ -359,6 +359,9 @@ contains
this % estimator = ESTIMATOR_ANALOG
type is (SphericalHarmonicsFilter)
j = FILTER_SPH_HARMONICS
if (filt % cosine == COSINE_SCATTER) then
this % estimator = ESTIMATOR_ANALOG
end if
type is (SpatialLegendreFilter)
j = FILTER_SPTL_LEGENDRE
this % estimator = ESTIMATOR_COLLISION