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

Use type bound procedures for Timer.

Browse source
This commit is contained in:
Paul Romano 2013-01-27 19:01:27 -05:00
parent d4986ce6f1
commit 38f9226061
11 changed files with 52 additions and 65 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/fixed_source.F90
View file

@ -10,7 +10,6 @@ module fixed_source
use state_point, only: write_state_point
use string, only: to_str
use tally, only: synchronize_tallies, setup_active_usertallies
use timing, only: timer_start, timer_stop
#ifdef HDF5
use hdf5_interface, only: hdf5_write_state_point
@ -33,7 +32,7 @@ contains
! Turn timer and tallies on
tallies_on = .true.
call setup_active_usertallies()
call timer_start(time_active)
call time_active % start()
! ==========================================================================
! LOOP OVER BATCHES
@ -48,7 +47,7 @@ contains
call initialize_batch()
! Start timer for transport
call timer_start(time_transport)
call time_transport % start()
! =======================================================================
! LOOP OVER PARTICLES
@ -74,13 +73,13 @@ contains
end do PARTICLE_LOOP
! Accumulate time for transport
call timer_stop(time_transport)
call time_transport % stop()
call finalize_batch()
end do BATCH_LOOP
call timer_stop(time_active)
call time_active % stop()
! ==========================================================================
! END OF RUN WRAPUP
@ -112,9 +111,9 @@ contains
integer :: i ! loop index for state point batches
! Collect and accumulate tallies
call timer_start(time_tallies)
call time_tallies % start()
call synchronize_tallies()
call timer_stop(time_tallies)
call time_tallies % stop()
! Write out state point if it's been specified for this batch
do i = 1, n_state_points