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

Removed storage of heating cross sections.

Browse source
This commit is contained in:
Paul Romano 2012-07-05 15:14:25 -04:00
parent 384a70b23a
commit 5e23c26de3
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/ace.F90
View file

@ -314,7 +314,6 @@ contains
allocate(nuc % fission(NE))
allocate(nuc % nu_fission(NE))
allocate(nuc % absorption(NE))
allocate(nuc % heating(NE))
! initialize cross sections
nuc % total = ZERO
@ -322,7 +321,6 @@ contains
nuc % fission = ZERO
nuc % nu_fission = ZERO
nuc % absorption = ZERO
nuc % heating = ZERO
! Read data from XSS -- only the energy grid, elastic scattering and heating
! cross section values are actually read from here. The total and absorption
@ -336,7 +334,6 @@ contains
! Continue reading elastic scattering and heating
nuc % elastic = get_real(NE)
nuc % heating = get_real(NE)
end subroutine read_esz