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

Enclose global leakage tally in omp critical.

Browse source
This commit is contained in:
Paul Romano 2013-08-18 12:50:34 -04:00
parent 8f0f884eec
commit a0ddce284e
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/geometry.F90
View file

@ -408,8 +408,12 @@ contains
end if
! Score to global leakage tally
if (tallies_on) global_tallies(LEAKAGE) % value = &
if (tallies_on) then
!$omp critical
global_tallies(LEAKAGE) % value = &
global_tallies(LEAKAGE) % value + p % wgt
!$omp end critical
end if
! Display message
if (verbosity >= 10 .or. trace) then