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

Changed filename of particle restart files.

Browse source
This commit is contained in:
Paul Romano 2013-05-15 20:19:38 -04:00
parent a34d9f3015
commit 594da78b98
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/particle_restart_write.F90
View file

@ -51,7 +51,8 @@ contains
type(Bank), pointer :: src => null()
! set up file name
filename = trim(path_output) // 'particle_'//trim(to_str(rank))//'.h5'
filename = trim(path_output) // 'particle_' // trim(to_str(current_batch)) &
// '_' // trim(to_str(current_work)) // '.h5'
! create hdf5 file
call h5fcreate_f(filename, H5F_ACC_TRUNC_F, hdf5_particle_file, hdf5_err)
@ -90,7 +91,8 @@ contains
type(Bank), pointer :: src => null()
! set up file name
filename = trim(path_output) // 'particle_'//trim(to_str(rank))//'.binary'
filename = trim(path_output) // 'particle_' // trim(to_str(current_batch)) &
// '_' // trim(to_str(current_work)) // '.binary'
! create hdf5 file
open(UNIT=UNIT_PARTICLE, FILE=filename, STATUS='replace', &