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

albedos added to cmfd.xml file, code now reads and processes them

Browse source
This commit is contained in:
Bryan Herman 2011-11-12 19:13:22 -05:00
parent 69f7ac9588
commit 9a85eaa6b3
3 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmfd_execute.F90
View file

@ -33,10 +33,6 @@ contains
write(101,*) cmfd % currentY
write(101,*) cmfd % currentZ
! force albedos
cmfd % albedo = 1.0
cmfd % albedo(1:2) = 0.0
! compute dtilde terms
call compute_diffcoef()

3
src/cmfd_utils.f90
View file

@ -282,6 +282,9 @@ contains
cmfd % indices(1:3) = m % dimension(1:3) ! sets spatial dimensions
cmfd % indices(4) = ng ! sets energy group dimension
! set global albedo
cmfd % albedo = mesh_ % albedo
end subroutine create_cmfd_tally
end module cmfd_utils

1
src/xml-fortran/templates/cmfd_t.xml
View file

@ -7,6 +7,7 @@
<component name="dimension" type="integer-array" />
<component name="origin" type="double-array" />
<component name="width" type="double-array" />
<component name="albedo" type="double-array" />
</typedef>
<variable name="mesh_" tag="mesh" type="mesh_xml" />