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

added code to set mesh volumes in cmfd object from mesh object

Browse source
This commit is contained in:
Bryan Herman 2011-11-08 09:01:06 -05:00
parent ea8f61c3c6
commit ef5d54bc92
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmfd_execute.F90
View file

@ -27,6 +27,7 @@ contains
write(100,*) cmfd % p1scattxs
write(100,*) cmfd % scattxs
write(100,*) cmfd % nfissxs
write(100,*) cmfd % hxyz
! compute dtilde terms
call compute_diffcoef()
@ -124,6 +125,11 @@ contains
t => tallies(1)
m => meshes(t % mesh)
! set mesh widths
cmfd % hxyz(1,:,:,:) = m % width(1) ! set x width
cmfd % hxyz(2,:,:,:) = m % width(2) ! set y width
cmfd % hxyz(3,:,:,:) = m % width(3) ! set z width
! reset all bins to 1
bins = 1