From 907a7d7edf17fb3aa66892b074ddae918ace32a3 Mon Sep 17 00:00:00 2001 From: Bryan Herman Date: Mon, 7 Nov 2011 18:13:38 -0500 Subject: [PATCH] modified cmfd object for openmc interface --- src/cmfd_header.f90 | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/cmfd_header.f90 b/src/cmfd_header.f90 index c4d0e972be..d3c8ef9b47 100644 --- a/src/cmfd_header.f90 +++ b/src/cmfd_header.f90 @@ -14,6 +14,7 @@ module cmfd_header ! cross sections real(8), allocatable :: totalxs(:,:,:,:) + real(8), allocatable :: p1scattxs(:,:,:,:) real(8), allocatable :: scattxs(:,:,:,:,:) real(8), allocatable :: nfissxs(:,:,:,:,:) @@ -21,15 +22,15 @@ module cmfd_header real(8), allocatable :: diffcof(:,:,:,:) ! currents - real(8), allocatable :: currentX(:,:,:,:) - real(8), allocatable :: currentY(:,:,:,:) - real(8), allocatable :: currentZ(:,:,:,:) + real(8), allocatable :: currentX(:,:,:,:,:) + real(8), allocatable :: currentY(:,:,:,:,:) + real(8), allocatable :: currentZ(:,:,:,:,:) ! flux real(8), allocatable :: flux(:,:,:,:) ! coupling coefficients - real(8), allocatable :: dtilda(:,:,:,:,:) + real(8), allocatable :: dtilde(:,:,:,:,:) real(8), allocatable :: dhat(:,:,:,:,:) ! core albedo boundary conditions