From 72e83587b6b05af867da422b0a8d7ebaf11ce038 Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Mon, 8 Apr 2013 05:46:32 -0700
Subject: [PATCH] made current_work comment more descriptive

---
 src/global.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/global.F90 b/src/global.F90
index 12c88fc584..33dd9b7594 100644
--- a/src/global.F90
+++ b/src/global.F90
@@ -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