mirror of
https://github.com/openmc-dev/openmc.git
synced 2026-07-28 22:26:08 -04:00
Ability to use incoming energy filter on surface current tallies.
This commit is contained in:
Paul Romano
parent
01c21a535e
commit
8551213d22
3 changed files with 233 additions and 136 deletions
|
|
@ -208,6 +208,12 @@ module constants
|
||||||
T_MESH = 6, &
|
T_MESH = 6, &
|
||||||
T_ENERGYIN = 7, &
|
T_ENERGYIN = 7, &
|
||||||
T_ENERGYOUT = 8
|
T_ENERGYOUT = 8
|
||||||
|
integer, parameter :: &
|
||||||
|
TS_MESH_X = 1, &
|
||||||
|
TS_MESH_Y = 2, &
|
||||||
|
TS_MESH_Z = 3, &
|
||||||
|
TS_ENERGYIN = 4, &
|
||||||
|
TS_SURFACE = 5
|
||||||
|
|
||||||
! Tally surface current directions
|
! Tally surface current directions
|
||||||
integer, parameter :: &
|
integer, parameter :: &
|
||||||
|
|
|
||||||
|
|
@ -863,11 +863,11 @@ contains
|
||||||
end if
|
end if
|
||||||
|
|
||||||
! Check to make sure that only the mesh filter was specified
|
! Check to make sure that only the mesh filter was specified
|
||||||
if (t % mesh == 0 .or. t % n_bins(T_MESH) /= &
|
!!$ if (t % mesh == 0 .or. t % n_bins(T_MESH) /= &
|
||||||
product(t % n_bins, t % n_bins > 0)) then
|
!!$ product(t % n_bins, t % n_bins > 0)) then
|
||||||
message = "Surface currents must be used with a mesh filter only."
|
!!$ message = "Surface currents must be used with a mesh filter only."
|
||||||
call fatal_error()
|
!!$ call fatal_error()
|
||||||
end if
|
!!$ end if
|
||||||
|
|
||||||
! Since the number of bins for the mesh filter was already set
|
! Since the number of bins for the mesh filter was already set
|
||||||
! assuming it was a flux tally, we need to adjust the number of
|
! assuming it was a flux tally, we need to adjust the number of
|
||||||
|
|
|
||||||
353
src/tally.f90
353
src/tally.f90
|
|
@ -95,12 +95,12 @@ contains
|
||||||
|
|
||||||
subroutine create_tally_map()
|
subroutine create_tally_map()
|
||||||
|
|
||||||
integer :: i ! loop index for tallies
|
integer :: i ! loop index for tallies
|
||||||
integer :: j ! loop index for filter arrays
|
integer :: j ! loop index for filter arrays
|
||||||
integer :: index ! filter bin entries
|
integer :: index ! filter bin entries
|
||||||
integer :: n ! number of bins
|
integer :: n ! number of bins
|
||||||
integer :: filter_bins ! running total of number of filter bins
|
integer :: filter_bins ! running total of number of filter bins
|
||||||
integer :: score_bins ! number of scoring bins
|
integer :: score_bins ! number of scoring bins
|
||||||
type(TallyObject), pointer :: t => null()
|
type(TallyObject), pointer :: t => null()
|
||||||
type(StructuredMesh), pointer :: m => null()
|
type(StructuredMesh), pointer :: m => null()
|
||||||
|
|
||||||
|
|
@ -129,23 +129,31 @@ contains
|
||||||
if (t % surface_current) then
|
if (t % surface_current) then
|
||||||
m => meshes(t % mesh)
|
m => meshes(t % mesh)
|
||||||
|
|
||||||
|
t % stride(TS_SURFACE) = filter_bins
|
||||||
! Set stride for surface/direction
|
! Set stride for surface/direction
|
||||||
if (m % n_dimension == 2) then
|
if (m % n_dimension == 2) then
|
||||||
filter_bins = filter_bins * 4
|
filter_bins = filter_bins * 4
|
||||||
elseif (m % n_dimension == 3) then
|
elseif (m % n_dimension == 3) then
|
||||||
filter_bins = filter_bins * 6
|
filter_bins = filter_bins * 6
|
||||||
end if
|
end if
|
||||||
|
|
||||||
|
! Add filter for incoming energy
|
||||||
|
n = t % n_bins(T_ENERGYIN)
|
||||||
|
t % stride(TS_ENERGYIN) = filter_bins
|
||||||
|
if (n > 0) then
|
||||||
|
filter_bins = filter_bins * n
|
||||||
|
end if
|
||||||
|
|
||||||
! account for z direction
|
! account for z direction
|
||||||
t % stride(3) = filter_bins
|
t % stride(TS_MESH_Z) = filter_bins
|
||||||
filter_bins = filter_bins * (m % dimension(3) + 1)
|
filter_bins = filter_bins * (m % dimension(3) + 1)
|
||||||
|
|
||||||
! account for y direction
|
! account for y direction
|
||||||
t % stride(2) = filter_bins
|
t % stride(TS_MESH_Y) = filter_bins
|
||||||
filter_bins = filter_bins * (m % dimension(2) + 1)
|
filter_bins = filter_bins * (m % dimension(2) + 1)
|
||||||
|
|
||||||
! account for z direction
|
! account for z direction
|
||||||
t % stride(1) = filter_bins
|
t % stride(TS_MESH_X) = filter_bins
|
||||||
filter_bins = filter_bins * (m % dimension(1) + 1)
|
filter_bins = filter_bins * (m % dimension(1) + 1)
|
||||||
|
|
||||||
! Finally add scoring bins for the macro tallies and allocate scores
|
! Finally add scoring bins for the macro tallies and allocate scores
|
||||||
|
|
@ -578,27 +586,31 @@ contains
|
||||||
|
|
||||||
type(Particle), pointer :: p
|
type(Particle), pointer :: p
|
||||||
|
|
||||||
integer :: i ! loop indices
|
integer :: i ! loop indices
|
||||||
integer :: j ! loop indices
|
integer :: j ! loop indices
|
||||||
integer :: k ! loop indices
|
integer :: k ! loop indices
|
||||||
integer :: ijk0(3) ! indices of starting coordinates
|
integer :: ijk0(3) ! indices of starting coordinates
|
||||||
integer :: ijk1(3) ! indices of ending coordinates
|
integer :: ijk1(3) ! indices of ending coordinates
|
||||||
integer :: n_cross ! number of surface crossings
|
integer :: n_cross ! number of surface crossings
|
||||||
integer :: score_index ! index of scoring bin
|
integer :: n ! number of incoming energy bins
|
||||||
real(8) :: uvw(3) ! cosine of angle of particle
|
integer :: bins(TALLY_TYPES) ! scoring bin combination
|
||||||
real(8) :: xyz0(3) ! starting/intermediate coordinates
|
integer :: score_index ! index of scoring bin
|
||||||
real(8) :: xyz1(3) ! ending coordinates of particle
|
real(8) :: uvw(3) ! cosine of angle of particle
|
||||||
real(8) :: xyz_cross(3) ! coordinates of bounding surfaces
|
real(8) :: xyz0(3) ! starting/intermediate coordinates
|
||||||
real(8) :: d(3) ! distance to each bounding surface
|
real(8) :: xyz1(3) ! ending coordinates of particle
|
||||||
real(8) :: distance ! actual distance traveled
|
real(8) :: xyz_cross(3) ! coordinates of bounding surfaces
|
||||||
logical :: start_in_mesh ! particle's starting xyz in mesh?
|
real(8) :: d(3) ! distance to each bounding surface
|
||||||
logical :: end_in_mesh ! particle's ending xyz in mesh?
|
real(8) :: distance ! actual distance traveled
|
||||||
logical :: x_same ! same starting/ending x index (i)
|
logical :: start_in_mesh ! particle's starting xyz in mesh?
|
||||||
logical :: y_same ! same starting/ending y index (j)
|
logical :: end_in_mesh ! particle's ending xyz in mesh?
|
||||||
logical :: z_same ! same starting/ending z index (k)
|
logical :: x_same ! same starting/ending x index (i)
|
||||||
|
logical :: y_same ! same starting/ending y index (j)
|
||||||
|
logical :: z_same ! same starting/ending z index (k)
|
||||||
type(TallyObject), pointer :: t => null()
|
type(TallyObject), pointer :: t => null()
|
||||||
type(StructuredMesh), pointer :: m => null()
|
type(StructuredMesh), pointer :: m => null()
|
||||||
|
|
||||||
|
bins = 1
|
||||||
|
|
||||||
do i = 1, n_tallies
|
do i = 1, n_tallies
|
||||||
! Copy starting and ending location of particle
|
! Copy starting and ending location of particle
|
||||||
xyz0 = p % last_xyz
|
xyz0 = p % last_xyz
|
||||||
|
|
@ -625,6 +637,19 @@ contains
|
||||||
! Copy particle's direction
|
! Copy particle's direction
|
||||||
uvw = p % uvw
|
uvw = p % uvw
|
||||||
|
|
||||||
|
! determine incoming energy bin
|
||||||
|
n = t % n_bins(T_ENERGYIN)
|
||||||
|
if (n > 0) then
|
||||||
|
! check if energy of the particle is within energy bins
|
||||||
|
if (p % last_E < t % energy_in(1) .or. &
|
||||||
|
p % last_E > t % energy_in(n + 1)) cycle
|
||||||
|
|
||||||
|
! search to find incoming energy bin
|
||||||
|
bins(TS_ENERGYIN) = binary_search(t % energy_in, n + 1, p % last_E)
|
||||||
|
else
|
||||||
|
bins(TS_ENERGYIN) = 1
|
||||||
|
end if
|
||||||
|
|
||||||
! =======================================================================
|
! =======================================================================
|
||||||
! SPECIAL CASES WHERE TWO INDICES ARE THE SAME
|
! SPECIAL CASES WHERE TWO INDICES ARE THE SAME
|
||||||
|
|
||||||
|
|
@ -638,7 +663,9 @@ contains
|
||||||
do j = ijk0(3), ijk1(3) - 1
|
do j = ijk0(3), ijk1(3) - 1
|
||||||
ijk0(3) = j
|
ijk0(3) = j
|
||||||
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
||||||
score_index = sum(t % stride(1:3) * ijk0) + OUT_TOP
|
bins(TS_SURFACE) = OUT_TOP
|
||||||
|
bins(1:3) = ijk0 + 1
|
||||||
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
call add_to_score(t % scores(score_index, 1), p % last_wgt)
|
call add_to_score(t % scores(score_index, 1), p % last_wgt)
|
||||||
end if
|
end if
|
||||||
end do
|
end do
|
||||||
|
|
@ -646,7 +673,9 @@ contains
|
||||||
do j = ijk0(3) - 1, ijk1(3), -1
|
do j = ijk0(3) - 1, ijk1(3), -1
|
||||||
ijk0(3) = j
|
ijk0(3) = j
|
||||||
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
||||||
score_index = sum(t % stride(1:3) * ijk0) + IN_TOP
|
bins(TS_SURFACE) = IN_TOP
|
||||||
|
bins(1:3) = ijk0 + 1
|
||||||
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
call add_to_score(t % scores(score_index, 1), p % last_wgt)
|
call add_to_score(t % scores(score_index, 1), p % last_wgt)
|
||||||
end if
|
end if
|
||||||
end do
|
end do
|
||||||
|
|
@ -658,7 +687,9 @@ contains
|
||||||
do j = ijk0(2), ijk1(2) - 1
|
do j = ijk0(2), ijk1(2) - 1
|
||||||
ijk0(2) = j
|
ijk0(2) = j
|
||||||
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
||||||
score_index = sum(t % stride(1:3) * ijk0) + OUT_FRONT
|
bins(TS_SURFACE) = OUT_FRONT
|
||||||
|
bins(1:3) = ijk0 + 1
|
||||||
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
call add_to_score(t % scores(score_index, 1), p % last_wgt)
|
call add_to_score(t % scores(score_index, 1), p % last_wgt)
|
||||||
end if
|
end if
|
||||||
end do
|
end do
|
||||||
|
|
@ -666,7 +697,9 @@ contains
|
||||||
do j = ijk0(2) - 1, ijk1(2), -1
|
do j = ijk0(2) - 1, ijk1(2), -1
|
||||||
ijk0(2) = j
|
ijk0(2) = j
|
||||||
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
||||||
score_index = sum(t % stride(1:3) * ijk0) + IN_FRONT
|
bins(TS_SURFACE) = IN_FRONT
|
||||||
|
bins(1:3) = ijk0 + 1
|
||||||
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
call add_to_score(t % scores(score_index, 1), p % last_wgt)
|
call add_to_score(t % scores(score_index, 1), p % last_wgt)
|
||||||
end if
|
end if
|
||||||
end do
|
end do
|
||||||
|
|
@ -678,7 +711,9 @@ contains
|
||||||
do j = ijk0(1), ijk1(1) - 1
|
do j = ijk0(1), ijk1(1) - 1
|
||||||
ijk0(1) = j
|
ijk0(1) = j
|
||||||
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
||||||
score_index = sum(t % stride(1:3) * ijk0) + OUT_RIGHT
|
bins(TS_SURFACE) = OUT_RIGHT
|
||||||
|
bins(1:3) = ijk0 + 1
|
||||||
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
call add_to_score(t % scores(score_index, 1), p % last_wgt)
|
call add_to_score(t % scores(score_index, 1), p % last_wgt)
|
||||||
end if
|
end if
|
||||||
end do
|
end do
|
||||||
|
|
@ -686,7 +721,9 @@ contains
|
||||||
do j = ijk0(1) - 1, ijk1(1), -1
|
do j = ijk0(1) - 1, ijk1(1), -1
|
||||||
ijk0(1) = j
|
ijk0(1) = j
|
||||||
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
||||||
score_index = sum(t % stride(1:3) * ijk0) + IN_RIGHT
|
bins(TS_SURFACE) = IN_RIGHT
|
||||||
|
bins(1:3) = ijk0 + 1
|
||||||
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
call add_to_score(t % scores(score_index, 1), p % last_wgt)
|
call add_to_score(t % scores(score_index, 1), p % last_wgt)
|
||||||
end if
|
end if
|
||||||
end do
|
end do
|
||||||
|
|
@ -708,7 +745,7 @@ contains
|
||||||
|
|
||||||
do k = 1, n_cross
|
do k = 1, n_cross
|
||||||
! Reset scoring bin index
|
! Reset scoring bin index
|
||||||
score_index = 0
|
bins(TS_SURFACE) = 0
|
||||||
|
|
||||||
! Calculate distance to each bounding surface. We need to treat
|
! Calculate distance to each bounding surface. We need to treat
|
||||||
! special case where the cosine of the angle is zero since this would
|
! special case where the cosine of the angle is zero since this would
|
||||||
|
|
@ -735,7 +772,8 @@ contains
|
||||||
! Crossing into right mesh cell -- this is treated as outgoing
|
! Crossing into right mesh cell -- this is treated as outgoing
|
||||||
! current from (i,j,k)
|
! current from (i,j,k)
|
||||||
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
||||||
score_index = sum(t % stride(1:3) * ijk0) + OUT_RIGHT
|
bins(TS_SURFACE) = OUT_RIGHT
|
||||||
|
bins(1:3) = ijk0 + 1
|
||||||
end if
|
end if
|
||||||
ijk0(1) = ijk0(1) + 1
|
ijk0(1) = ijk0(1) + 1
|
||||||
xyz_cross(1) = xyz_cross(1) + m % width(1)
|
xyz_cross(1) = xyz_cross(1) + m % width(1)
|
||||||
|
|
@ -745,7 +783,8 @@ contains
|
||||||
ijk0(1) = ijk0(1) - 1
|
ijk0(1) = ijk0(1) - 1
|
||||||
xyz_cross(1) = xyz_cross(1) - m % width(1)
|
xyz_cross(1) = xyz_cross(1) - m % width(1)
|
||||||
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
||||||
score_index = sum(t % stride(1:3) * ijk0) + IN_RIGHT
|
bins(TS_SURFACE) = IN_RIGHT
|
||||||
|
bins(1:3) = ijk0 + 1
|
||||||
end if
|
end if
|
||||||
end if
|
end if
|
||||||
elseif (distance == d(2)) then
|
elseif (distance == d(2)) then
|
||||||
|
|
@ -753,7 +792,8 @@ contains
|
||||||
! Crossing into front mesh cell -- this is treated as outgoing
|
! Crossing into front mesh cell -- this is treated as outgoing
|
||||||
! current in (i,j,k)
|
! current in (i,j,k)
|
||||||
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
||||||
score_index = sum(t % stride(1:3) * ijk0) + OUT_FRONT
|
bins(TS_SURFACE) = OUT_FRONT
|
||||||
|
bins(1:3) = ijk0 + 1
|
||||||
end if
|
end if
|
||||||
ijk0(2) = ijk0(2) + 1
|
ijk0(2) = ijk0(2) + 1
|
||||||
xyz_cross(2) = xyz_cross(2) + m % width(2)
|
xyz_cross(2) = xyz_cross(2) + m % width(2)
|
||||||
|
|
@ -763,7 +803,8 @@ contains
|
||||||
ijk0(2) = ijk0(2) - 1
|
ijk0(2) = ijk0(2) - 1
|
||||||
xyz_cross(2) = xyz_cross(2) - m % width(2)
|
xyz_cross(2) = xyz_cross(2) - m % width(2)
|
||||||
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
||||||
score_index = sum(t % stride(1:3) * ijk0) + IN_FRONT
|
bins(TS_SURFACE) = IN_FRONT
|
||||||
|
bins(1:3) = ijk0 + 1
|
||||||
end if
|
end if
|
||||||
end if
|
end if
|
||||||
else if (distance == d(3)) then
|
else if (distance == d(3)) then
|
||||||
|
|
@ -771,7 +812,8 @@ contains
|
||||||
! Crossing into top mesh cell -- this is treated as outgoing
|
! Crossing into top mesh cell -- this is treated as outgoing
|
||||||
! current in (i,j,k)
|
! current in (i,j,k)
|
||||||
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
||||||
score_index = sum(t % stride(1:3) * ijk0) + OUT_TOP
|
bins(TS_SURFACE) = OUT_TOP
|
||||||
|
bins(1:3) = ijk0 + 1
|
||||||
end if
|
end if
|
||||||
ijk0(3) = ijk0(3) + 1
|
ijk0(3) = ijk0(3) + 1
|
||||||
xyz_cross(3) = xyz_cross(3) + m % width(3)
|
xyz_cross(3) = xyz_cross(3) + m % width(3)
|
||||||
|
|
@ -781,19 +823,23 @@ contains
|
||||||
ijk0(3) = ijk0(3) - 1
|
ijk0(3) = ijk0(3) - 1
|
||||||
xyz_cross(3) = xyz_cross(3) - m % width(3)
|
xyz_cross(3) = xyz_cross(3) - m % width(3)
|
||||||
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
if (all(ijk0 >= 0) .and. all(ijk0 <= m % dimension)) then
|
||||||
score_index = sum(t % stride(1:3) * ijk0) + IN_TOP
|
bins(TS_SURFACE) = IN_TOP
|
||||||
|
bins(1:3) = ijk0 + 1
|
||||||
end if
|
end if
|
||||||
end if
|
end if
|
||||||
end if
|
end if
|
||||||
|
|
||||||
! Check for errors
|
! Determine scoring index
|
||||||
if (score_index < 0 .or. score_index > t % n_total_bins) then
|
if (bins(TS_SURFACE) > 0) then
|
||||||
message = "Score index outside range."
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
call fatal_error()
|
|
||||||
end if
|
|
||||||
|
|
||||||
! Add to surface current tally
|
! Check for errors
|
||||||
if (score_index > 0) then
|
if (score_index <= 0 .or. score_index > t % n_total_bins) then
|
||||||
|
message = "Score index outside range."
|
||||||
|
call fatal_error()
|
||||||
|
end if
|
||||||
|
|
||||||
|
! Add to surface current tally
|
||||||
call add_to_score(t % scores(score_index, 1), p % last_wgt)
|
call add_to_score(t % scores(score_index, 1), p % last_wgt)
|
||||||
end if
|
end if
|
||||||
|
|
||||||
|
|
@ -1093,19 +1139,34 @@ contains
|
||||||
|
|
||||||
type(TallyObject), pointer :: t
|
type(TallyObject), pointer :: t
|
||||||
|
|
||||||
integer :: i ! mesh index for x
|
integer :: i ! mesh index for x
|
||||||
integer :: j ! mesh index for y
|
integer :: j ! mesh index for y
|
||||||
integer :: k ! mesh index for z
|
integer :: k ! mesh index for z
|
||||||
integer :: ijk(3) ! indices in mesh
|
integer :: l ! mesh index for energy
|
||||||
integer :: len1 ! length of string
|
integer :: bins(TALLY_TYPES) ! bin combination
|
||||||
integer :: len2 ! length of string
|
integer :: n ! number of incoming energy bins
|
||||||
integer :: score_index ! index in scores array for filters
|
integer :: len1 ! length of string
|
||||||
|
integer :: len2 ! length of string
|
||||||
|
integer :: score_index ! index in scores array for filters
|
||||||
|
logical :: print_ebin ! should incoming energy bin be displayed?
|
||||||
character(MAX_LINE_LEN) :: string
|
character(MAX_LINE_LEN) :: string
|
||||||
type(StructuredMesh), pointer :: m => null()
|
type(StructuredMesh), pointer :: m => null()
|
||||||
|
|
||||||
! Get pointer to mesh
|
! Get pointer to mesh
|
||||||
m => meshes(t % mesh)
|
m => meshes(t % mesh)
|
||||||
|
|
||||||
|
! initialize bins array
|
||||||
|
bins = 1
|
||||||
|
|
||||||
|
! determine how many energy in bins there are
|
||||||
|
n = t % n_bins(T_ENERGYIN)
|
||||||
|
if (n > 0) then
|
||||||
|
print_ebin = .true.
|
||||||
|
else
|
||||||
|
print_ebin = .false.
|
||||||
|
n = 1
|
||||||
|
end if
|
||||||
|
|
||||||
do i = 1, m % dimension(1)
|
do i = 1, m % dimension(1)
|
||||||
string = "Mesh Index (" // trim(int_to_str(i)) // ", "
|
string = "Mesh Index (" // trim(int_to_str(i)) // ", "
|
||||||
len1 = len_trim(string)
|
len1 = len_trim(string)
|
||||||
|
|
@ -1117,83 +1178,113 @@ contains
|
||||||
string = string(1:len2+1) // trim(int_to_str(k)) // ")"
|
string = string(1:len2+1) // trim(int_to_str(k)) // ")"
|
||||||
write(UNIT=UNIT_TALLY, FMT='(1X,A)') trim(string)
|
write(UNIT=UNIT_TALLY, FMT='(1X,A)') trim(string)
|
||||||
|
|
||||||
! Left Surface
|
do l = 1, n
|
||||||
ijk = (/ i-1, j, k /)
|
! Write incoming energy bin
|
||||||
score_index = sum(t % stride(1:3) * ijk) + IN_RIGHT
|
if (print_ebin) then
|
||||||
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
|
write(UNIT=UNIT_TALLY, FMT='(3X,A,1X,A)') &
|
||||||
"Outgoing Current to Left", &
|
"Incoming Energy", trim(get_label(t, T_ENERGYIN, l))
|
||||||
real_to_str(t % scores(score_index,1) % val), &
|
end if
|
||||||
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
|
||||||
score_index = sum(t % stride(1:3) * ijk) + OUT_RIGHT
|
! Set incoming energy bin
|
||||||
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
|
bins(TS_ENERGYIN) = l
|
||||||
"Incoming Current from Left", &
|
|
||||||
real_to_str(t % scores(score_index,1) % val), &
|
! Left Surface
|
||||||
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
bins(1:3) = (/ i-1, j, k /) + 1
|
||||||
|
bins(TS_SURFACE) = IN_RIGHT
|
||||||
! Right Surface
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
ijk = (/ i, j, k /)
|
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
|
||||||
score_index = sum(t % stride(1:3) * ijk) + IN_RIGHT
|
"Outgoing Current to Left", &
|
||||||
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
|
real_to_str(t % scores(score_index,1) % val), &
|
||||||
"Incoming Current from Right", &
|
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
||||||
real_to_str(t % scores(score_index,1) % val), &
|
|
||||||
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
bins(TS_SURFACE) = OUT_RIGHT
|
||||||
score_index = sum(t % stride(1:3) * ijk) + OUT_RIGHT
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
|
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
|
||||||
"Outgoing Current to Right", &
|
"Incoming Current from Left", &
|
||||||
real_to_str(t % scores(score_index,1) % val), &
|
real_to_str(t % scores(score_index,1) % val), &
|
||||||
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
||||||
|
|
||||||
! Back Surface
|
! Right Surface
|
||||||
ijk = (/ i, j-1, k /)
|
bins(1:3) = (/ i, j, k /) + 1
|
||||||
score_index = sum(t % stride(1:3) * ijk) + IN_FRONT
|
bins(TS_SURFACE) = IN_RIGHT
|
||||||
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
"Outgoing Current to Back", &
|
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
|
||||||
real_to_str(t % scores(score_index,1) % val), &
|
"Incoming Current from Right", &
|
||||||
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
real_to_str(t % scores(score_index,1) % val), &
|
||||||
score_index = sum(t % stride(1:3) * ijk) + OUT_FRONT
|
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
||||||
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
|
|
||||||
"Incoming Current from Back", &
|
bins(TS_SURFACE) = OUT_RIGHT
|
||||||
real_to_str(t % scores(score_index,1) % val), &
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
|
||||||
|
"Outgoing Current to Right", &
|
||||||
! Front Surface
|
real_to_str(t % scores(score_index,1) % val), &
|
||||||
ijk = (/ i, j, k /)
|
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
||||||
score_index = sum(t % stride(1:3) * ijk) + IN_FRONT
|
|
||||||
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
|
! Back Surface
|
||||||
"Incoming Current from Front", &
|
bins(1:3) = (/ i, j-1, k /) + 1
|
||||||
real_to_str(t % scores(score_index,1) % val), &
|
bins(TS_SURFACE) = IN_FRONT
|
||||||
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
score_index = sum(t % stride(1:3) * ijk) + OUT_FRONT
|
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
|
||||||
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
|
"Outgoing Current to Back", &
|
||||||
"Outgoing Current to Front", &
|
real_to_str(t % scores(score_index,1) % val), &
|
||||||
real_to_str(t % scores(score_index,1) % val), &
|
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
||||||
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
|
||||||
|
bins(TS_SURFACE) = OUT_FRONT
|
||||||
! Bottom Surface
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
ijk = (/ i, j, k-1 /)
|
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
|
||||||
score_index = sum(t % stride(1:3) * ijk) + IN_TOP
|
"Incoming Current from Back", &
|
||||||
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
|
real_to_str(t % scores(score_index,1) % val), &
|
||||||
"Outgoing Current to Bottom", &
|
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
||||||
real_to_str(t % scores(score_index,1) % val), &
|
|
||||||
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
! Front Surface
|
||||||
score_index = sum(t % stride(1:3) * ijk) + OUT_TOP
|
bins(1:3) = (/ i, j, k /) + 1
|
||||||
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
|
bins(TS_SURFACE) = IN_FRONT
|
||||||
"Incoming Current from Bottom", &
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
real_to_str(t % scores(score_index,1) % val), &
|
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
|
||||||
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
"Incoming Current from Front", &
|
||||||
|
real_to_str(t % scores(score_index,1) % val), &
|
||||||
! Top Surface
|
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
||||||
ijk = (/ i, j, k /)
|
|
||||||
score_index = sum(t % stride(1:3) * ijk) + IN_TOP
|
bins(TS_SURFACE) = OUT_FRONT
|
||||||
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
"Incoming Current from Top", &
|
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
|
||||||
real_to_str(t % scores(score_index,1) % val), &
|
"Outgoing Current to Front", &
|
||||||
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
real_to_str(t % scores(score_index,1) % val), &
|
||||||
score_index = sum(t % stride(1:3) * ijk) + OUT_TOP
|
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
||||||
write(UNIT=UNIT_TALLY, FMT='(3X,A,T35,A,"+/- ",A)') &
|
|
||||||
"Outgoing Current to Top", &
|
! Bottom Surface
|
||||||
real_to_str(t % scores(score_index,1) % val), &
|
bins(1:3) = (/ i, j, k-1 /) + 1
|
||||||
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
bins(TS_SURFACE) = IN_TOP
|
||||||
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
|
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
|
||||||
|
"Outgoing Current to Bottom", &
|
||||||
|
real_to_str(t % scores(score_index,1) % val), &
|
||||||
|
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
||||||
|
|
||||||
|
bins(TS_SURFACE) = OUT_TOP
|
||||||
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
|
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
|
||||||
|
"Incoming Current from Bottom", &
|
||||||
|
real_to_str(t % scores(score_index,1) % val), &
|
||||||
|
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
||||||
|
|
||||||
|
! Top Surface
|
||||||
|
bins(1:3) = (/ i, j, k /) + 1
|
||||||
|
bins(TS_SURFACE) = IN_TOP
|
||||||
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
|
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
|
||||||
|
"Incoming Current from Top", &
|
||||||
|
real_to_str(t % scores(score_index,1) % val), &
|
||||||
|
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
||||||
|
|
||||||
|
bins(TS_SURFACE) = OUT_TOP
|
||||||
|
score_index = sum((bins - 1) * t % stride) + 1
|
||||||
|
write(UNIT=UNIT_TALLY, FMT='(5X,A,T35,A,"+/- ",A)') &
|
||||||
|
"Outgoing Current to Top", &
|
||||||
|
real_to_str(t % scores(score_index,1) % val), &
|
||||||
|
trim(real_to_str(t % scores(score_index,1) % val_sq))
|
||||||
|
end do
|
||||||
|
|
||||||
end do
|
end do
|
||||||
end do
|
end do
|
||||||
end do
|
end do
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue