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

added parameter CMFD_NOACCEL that is associated with non-accelerated regions on coarse mesh overlay

Browse source
This commit is contained in:
Bryan Herman 2012-10-17 06:24:31 -07:00
parent a414f9295e
commit 31c08efeee
9 changed files with 69 additions and 118 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cmfd_execute.F90
View file

@ -198,7 +198,8 @@ contains
subroutine calc_fission_source()
use global, only: cmfd, cmfd_coremap, master, mpi_err, entropy_on
use constants, only: CMFD_NOACCEL
use global, only: cmfd, cmfd_coremap, master, mpi_err, entropy_on
integer :: nx ! maximum number of cells in x direction
integer :: ny ! maximum number of cells in y direction
@ -241,7 +242,7 @@ contains
! check for core map
if (cmfd_coremap) then
if (cmfd%coremap(i,j,k) == 99999) then
if (cmfd%coremap(i,j,k) == CMFD_NOACCEL) then
cycle
end if
end if