diff --git a/src/cmfd_execute.F90 b/src/cmfd_execute.F90 index 2c855e9cd0..d7ac949674 100644 --- a/src/cmfd_execute.F90 +++ b/src/cmfd_execute.F90 @@ -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() diff --git a/src/cmfd_utils.f90 b/src/cmfd_utils.f90 index 3d00cbc3d0..af12d91f64 100644 --- a/src/cmfd_utils.f90 +++ b/src/cmfd_utils.f90 @@ -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 diff --git a/src/xml-fortran/templates/cmfd_t.xml b/src/xml-fortran/templates/cmfd_t.xml index 2e6ff26bdc..1f1e69ffed 100644 --- a/src/xml-fortran/templates/cmfd_t.xml +++ b/src/xml-fortran/templates/cmfd_t.xml @@ -7,6 +7,7 @@ +