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

added fix neutron balance option

Browse source
This commit is contained in:
Bryan Herman 2014-03-02 19:42:15 -05:00
parent b5346c5045
commit b3236e434f
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/cmfd_input.F90
View file

@ -172,7 +172,7 @@ contains
cmfd_downscatter = .true.
end if
! Run an adjoint calc
! Reset dhat parameters
if (check_for_node(doc, "dhat_reset")) then
call get_node_value(doc, "dhat_reset", temp_str)
call lower_case(temp_str)
@ -180,6 +180,14 @@ contains
dhat_reset = .true.
end if
! Enforce perfect neutorn balance
if (check_for_node(doc, "balance")) then
call get_node_value(doc, "balance", temp_str)
call lower_case(temp_str)
if (trim(temp_str) == 'true' .or. trim(temp_str) == '1') &
cmfd_fix_balance = .true.
end if
! Set the solver type
if (check_for_node(doc, "solver")) &
call get_node_value(doc, "solver", cmfd_solver_type)