crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 06:05:58 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

defer write_summary calling in case the model is changed, for example materials are updated by capi in depletion after reading xml

Browse source
This commit is contained in:
liangjg 2019-01-20 21:56:34 -05:00
parent 9b93c809eb
commit 6f1da3077f
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/input_xml.F90
View file

@ -29,7 +29,6 @@ module input_xml
use string, only: to_lower, to_str, str_to_int, str_to_real, &
starts_with, ends_with, split_string, &
zero_padded, to_c_string
use summary, only: write_summary
use tally
use tally_header, only: openmc_extend_tallies
use tally_derivative_header
@ -158,9 +157,6 @@ contains
! Normalize atom/weight percents
call normalize_ao()
! Write summary information
if (master .and. output_summary) call write_summary()
! Warn if overlap checking is on
if (master .and. check_overlaps) &
call warning("Cell overlap checking is ON.")

6
src/simulation.F90
View file

@ -6,6 +6,9 @@ module simulation
use nuclide_header, only: micro_xs, n_nuclides
use photon_header, only: micro_photon_xs, n_elements
use tally_filter_header, only: filter_matches, n_filters, filter_match_pointer
use summary, only: write_summary
use settings, only: output_summary
use message_passing, only: master
implicit none
private
@ -20,6 +23,9 @@ contains
integer :: i
! Write summary information
if (master .and. output_summary) call write_summary()
! Set up material nuclide index mapping
do i = 1, n_materials
call materials(i) % init_nuclide_index()