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

Make active tally lists threadprivate.

Browse source
This commit is contained in:
Paul Romano 2013-08-18 10:50:25 -04:00
parent be05b1ce55
commit 68d5ad00a2
2 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/eigenvalue.F90
View file

@ -127,7 +127,9 @@ contains
tallies_on = .true.
! Add user tallies to active tallies list
!$omp parallel
call setup_active_usertallies()
!$omp end parallel
end if
! check CMFD initialize batch

2
src/global.F90
View file

@ -112,6 +112,8 @@ module global
type(SetInt) :: active_tracklength_tallies
type(SetInt) :: active_current_tallies
type(SetInt) :: active_tallies
!$omp threadprivate(active_analog_tallies, active_tracklength_tallies, &
!$omp& active_current_tallies, active_tallies)
! Global tallies
! 1) collision estimate of k-eff