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

Made sure state point creation is called from all processors in fixed source mode. Closes #108 on github.

Browse source
This commit is contained in:
Paul Romano 2012-08-30 18:15:11 -04:00
parent 3fe4925776
commit 45976ca6f7
1 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/fixed_source.F90
View file

@ -116,18 +116,16 @@ contains
call timer_stop(time_ic_tallies)
! Write out state point if it's been specified for this batch
if (master) then
do i = 1, n_state_points
if (current_batch == statepoint_batch(i)) then
do i = 1, n_state_points
if (current_batch == statepoint_batch(i)) then
#ifdef HDF5
call hdf5_write_state_point()
call hdf5_write_state_point()
#else
call write_state_point()
call write_state_point()
#endif
exit
end if
end do
end if
exit
end if
end do
end subroutine finalize_batch