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

modified cmfd object for openmc interface

Browse source
This commit is contained in:
Bryan Herman 2011-11-07 18:13:38 -05:00
parent ffc2224cac
commit 907a7d7edf
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/cmfd_header.f90
View file

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