mirror of
https://github.com/openmc-dev/openmc.git
synced 2026-07-28 06:05:58 -04:00
added some checks on resonance scattering energy bounds and in test problem python script
This commit is contained in:
parent
ecd6893c4c
commit
39e272cd63
2 changed files with 19 additions and 5 deletions
|
|
@ -840,12 +840,24 @@ contains
|
|||
call get_node_value(node_scatterer, "E_min", &
|
||||
nuclides_0K(i) % E_min)
|
||||
end if
|
||||
|
||||
|
||||
! check that E_min is non-negative
|
||||
if (E_min < ZERO) then
|
||||
message = "Lower resonance scattering energy bound is negative"
|
||||
call fatal_error()
|
||||
end if
|
||||
|
||||
if (check_for_node(node_scatterer, "E_max")) then
|
||||
call get_node_value(node_scatterer, "E_max", &
|
||||
nuclides_0K(i) % E_max)
|
||||
end if
|
||||
|
||||
! check that E_max is not less than E_min
|
||||
if (E_max < E_min) then
|
||||
message = "Lower resonance scattering energy bound exceeds upper"
|
||||
call fatal_error()
|
||||
end if
|
||||
|
||||
nuclides_0K(i) % nuclide = trim(nuclides_0K(i) % nuclide)
|
||||
nuclides_0K(i) % scheme = trim(nuclides_0K(i) % scheme)
|
||||
call lower_case(nuclides_0K(i) % scheme)
|
||||
|
|
|
|||
|
|
@ -51,7 +51,9 @@ if __name__ == '__main__':
|
|||
raise Exception('Must specify OpenMC executable from command line with --exe.')
|
||||
|
||||
# run tests
|
||||
test_run()
|
||||
test_created_statepoint()
|
||||
test_results()
|
||||
teardown()
|
||||
try:
|
||||
test_run()
|
||||
test_created_statepoint()
|
||||
test_results()
|
||||
finally:
|
||||
teardown()
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue