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

fixed bug in assigning the front-faced outgoing current to cmfd object

Browse source
This commit is contained in:
Bryan Herman 2012-01-10 17:40:12 -05:00
parent 3d8faaaf60
commit f627f1645b
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmfd_execute.F90
View file

@ -197,7 +197,7 @@ contains
score_index = sum((bins - 1) * t % stride) + 1 ! incoming
cmfd % current(7,h,i,j,k) = t % scores(score_index,1) % val
bins(TS_SURFACE) = OUT_FRONT
score_index = sum(t % stride(1:3) * ijk) + OUT_FRONT ! outgoing
score_index = sum((bins - 1) * t % stride) + 1 ! outgoing
cmfd % current(8,h,i,j,k) = t % scores(score_index,1) % val
! bottom surface

2
src/cmfd_utils.F90
View file

@ -134,7 +134,7 @@ contains
! get idx from core map
nidx = ng*(cmfd % coremap(i,j,k)) - (ng - g)
write(200,*) g,i,j,k,nidx
else
! compute index