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

threadsafe particle restart writing

Browse source
This commit is contained in:
Jon Walsh 2014-08-04 21:43:21 -06:00
parent 34350fa446
commit 5d06aefbec
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/particle_restart_write.F90
View file

@ -38,6 +38,7 @@ contains
filename = trim(filename) // '.binary'
#endif
!$omp critical
! Create file
call pr % file_create(filename)
@ -59,6 +60,7 @@ contains
! Close file
call pr % file_close()
!$omp end critical
end subroutine write_particle_restart