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

changed count fission sites to bank sites and fixed arguments

Browse source
This commit is contained in:
Bryan Herman 2012-04-01 20:35:48 -07:00
parent f8edf9f4ce
commit 340fc0f4c8
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmfd_execute.F90
View file

@ -341,7 +341,6 @@ contains
integer :: ng ! maximum number of energy groups
integer :: i ! iteration counter
integer :: ijk(3) ! spatial bin location
real(8) :: total ! total weight of sites
logical :: outside ! any source sites outside mesh
logical :: in_mesh ! source site is inside mesh
type(StructuredMesh), pointer :: m ! point to mesh
@ -365,7 +364,7 @@ contains
cmfd%weightfactors = 0.0_8
! count bank sites in mesh
call count_bank_sites(m,source_bank,cmfd%sourcecounts,total,cmfd%egrid,sites_outside=outside)
call count_bank_sites(m,source_bank,cmfd%sourcecounts,cmfd%egrid,sites_outside=outside)
! check for source sites outside of mesh
if (outside) then