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

Account for possibility of running beyond n_batches

Browse source
This commit is contained in:
Paul Romano 2017-11-08 23:30:02 -06:00
parent 9ddc7316e4
commit 7d00c0b5eb
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/simulation.F90
View file

@ -57,13 +57,8 @@ contains
subroutine openmc_run() bind(C)
call openmc_simulation_init()
do
if (openmc_next_batch() < 0) exit
do while (openmc_next_batch() == 0)
end do
call time_active % stop()
call openmc_simulation_finalize()
end subroutine openmc_run
@ -459,12 +454,15 @@ contains
real(8) :: tempr(3) ! temporary array for communication
#endif
! Stop active batch timer
call time_active % stop()
!$omp parallel
deallocate(micro_xs, filter_matches)
!$omp end parallel
! Increment total number of generations
total_gen = total_gen + n_batches*gen_per_batch
total_gen = total_gen + current_batch*gen_per_batch
! Start finalization timer
call time_finalize % start()