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

Display message when writing summary file

Browse source
This commit is contained in:
Paul Romano 2017-11-28 14:17:45 -06:00
parent 402b09ee3d
commit ee8b7edd9c
2 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/input_xml.F90
View file

@ -1920,10 +1920,7 @@ contains
type(XMLDocument) :: doc
type(XMLNode) :: root
! Display output message
call write_message("Reading materials XML file...", 5)
! Check is materials.xml exists
! Check if materials.xml exists
filename = trim(path_input) // "materials.xml"
inquire(FILE=filename, EXIST=file_exists)
if (.not. file_exists) then
@ -2057,7 +2054,10 @@ contains
type(XMLNode), allocatable :: node_macro_list(:)
type(XMLNode), allocatable :: node_sab_list(:)
! Check is materials.xml exists
! Display output message
call write_message("Reading materials XML file...", 5)
! Check if materials.xml exists
filename = trim(path_input) // "materials.xml"
inquire(FILE=filename, EXIST=file_exists)
if (.not. file_exists) then

5
src/summary.F90
View file

@ -11,7 +11,7 @@ module summary
use message_passing
use mgxs_header, only: nuclides_MG
use nuclide_header
use output, only: time_stamp
use output, only: time_stamp, write_message
use settings, only: run_CE
use surface_header
use string, only: to_str
@ -33,6 +33,9 @@ contains
integer(HID_T) :: file_id
! Display output message
call write_message("Writing summary.h5 file...", 5)
! Create a new file using default properties.
file_id = file_create("summary.h5")