From 9a85eaa6b3930a330910bfa4a6aed75ea20b337d Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Sat, 12 Nov 2011 19:13:22 -0500
Subject: [PATCH] albedos added to cmfd.xml file, code now reads and processes
 them

---
 src/cmfd_execute.F90                 | 4 ----
 src/cmfd_utils.f90                   | 3 +++
 src/xml-fortran/templates/cmfd_t.xml | 1 +
 3 files changed, 4 insertions(+), 4 deletions(-)

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 @@
     <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" />