made current_work comment more descriptive

This commit is contained in:
Bryan Herman 2013-04-08 05:46:32 -07:00
parent 19e9c28bb6
commit 72e83587b6

View file

@ -166,7 +166,7 @@ module global
integer(8) :: bank_last ! index of last particle in bank
integer(8) :: work ! number of particles per processor
integer(8) :: maxwork ! maximum number of particles per processor
integer(8) :: current_work ! current work
integer(8) :: current_work ! index in source bank of current history simulated
! Temporary k-effective values
real(8), allocatable :: k_batch(:) ! batch estimates of k