crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 21:55:41 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Remove various references to MC21 and MCNP.

Browse source
This commit is contained in:
Paul Romano 2012-11-18 13:38:13 -05:00
parent 1841680ff5
commit 3ecb241692
5 changed files with 9 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/ace.F90
View file

@ -1123,8 +1123,7 @@ contains
!===============================================================================
! READ_THERMAL_DATA reads elastic and inelastic cross sections and corresponding
! secondary energy/angle distributions derived from experimental S(a,b)
! data. Namely, in MCNP language, this routine reads the ITIE, ITCE, ITXE, and
! ITCA blocks.
! data. Namely, this routine reads the ITIE, ITCE, ITXE, and ITCA blocks.
!===============================================================================
subroutine read_thermal_data(table)

2
src/cmfd_data.F90
View file

@ -1,7 +1,7 @@
module cmfd_data
!==============================================================================
! CMFD_DATA -- This module processes the MC21 cmfd tally object to generate
! CMFD_DATA -- This module processes the cmfd tally object to generate
! parameters for CMFD calculation.
!==============================================================================

2
src/cmfd_execute.F90
View file

@ -2,7 +2,7 @@ module cmfd_execute
!==============================================================================
! CMFD_EXECUTE -- This module is the highest level cmfd module that controls the
! cross section generation, diffusion calculation, and MC21 source re-weighting
! cross section generation, diffusion calculation, and source re-weighting
!==============================================================================
implicit none

4
src/constants.F90
View file

@ -337,9 +337,9 @@ module constants
! Energy grid methods
integer, parameter :: &
GRID_NUCLIDE = 1, & ! non-unionized energy grid (MCNP)
GRID_NUCLIDE = 1, & ! non-unionized energy grid
GRID_UNION = 2, & ! union grid with pointers
GRID_LETHARGY = 3 ! lethargy mapping (MC21)
GRID_LETHARGY = 3 ! lethargy mapping
! Running modes
integer, parameter :: &

12
src/physics.F90
View file

@ -1525,8 +1525,7 @@ contains
end if
elseif (INTT == LINEAR_LINEAR) then
! Linear-linear interpolation -- not sure how you come about the
! formula given in the MCNP manual
! Linear-linear interpolation
E_l_k1 = edist % data(lc+k+1)
p_l_k1 = edist % data(lc+NP+k+1)
@ -1763,8 +1762,7 @@ contains
KM_A = edist % data(lc + 4*NP + k)
elseif (INTT == LINEAR_LINEAR) then
! Linear-linear interpolation -- not sure how you come about the
! formula given in the MCNP manual
! Linear-linear interpolation
E_l_k1 = edist % data(lc+k+1)
p_l_k1 = edist % data(lc+NP+k+1)
@ -1909,8 +1907,7 @@ contains
end if
elseif (INTT == LINEAR_LINEAR) then
! Linear-linear interpolation -- not sure how you come about the
! formula given in the MCNP manual
! Linear-linear interpolation
E_l_k1 = edist % data(lc+k+1)
p_l_k1 = edist % data(lc+NP+k+1)
@ -1975,8 +1972,7 @@ contains
end if
elseif (JJ == LINEAR_LINEAR) then
! Linear-linear interpolation -- not sure how you come about the
! formula given in the MCNP manual
! Linear-linear interpolation
p_k1 = edist % data(lc + NP + k+1)
mu_k1 = edist % data(lc + k+1)