[Dart-dev] [4514] DART/trunk/ensemble_manager/ensemble_manager_mod.f90: Remove an unused variable to avoid compiler warnings, and

[nancy at ucar.edu]

Revision: 4514
Author:   nancy
Date:     2010-10-07 15:51:52 -0600 (Thu, 07 Oct 2010)
Log Message:
-----------
Remove an unused variable to avoid compiler warnings, and
minor wording changes of a few comments.

Modified Paths:
--------------
    DART/trunk/ensemble_manager/ensemble_manager_mod.f90

-------------- next part --------------
Modified: DART/trunk/ensemble_manager/ensemble_manager_mod.f90
===================================================================
--- DART/trunk/ensemble_manager/ensemble_manager_mod.f90	2010-10-07 21:47:17 UTC (rev 4513)
+++ DART/trunk/ensemble_manager/ensemble_manager_mod.f90	2010-10-07 21:51:52 UTC (rev 4514)
@@ -831,10 +831,10 @@
 real(r8), allocatable :: transfer_temp(:)
 integer               :: num_copies, num_vars, my_num_vars, my_num_copies
 integer               :: max_num_vars, max_num_copies, num_copies_to_receive
-integer               :: sending_pe, recv_pe, k, sv, var, num_vars_to_send
+integer               :: sending_pe, recv_pe, k, sv, num_vars_to_send
 integer               :: global_ens_index
 
-! for now, only output if there is a label
+! only output if there is a label
 if (present(label)) then
    call timestamp_message('vars_to_copies start: '//label, alltasks=.true.)
 endif
@@ -909,7 +909,7 @@
 ! Free up the temporary storage
 deallocate(var_list, transfer_temp, copy_list)
 
-! for now, only output if there is a label
+! only output if there is a label
 if (present(label)) then
    call timestamp_message('vars_to_copies   end: '//label, alltasks=.true.)
 endif
@@ -934,7 +934,7 @@
 integer               :: global_ens_index
 logical :: oldval
 
-! for now, only output if there is a label
+! only output if there is a label
 if (present(label)) then
    call timestamp_message('copies_to_vars start: '//label, alltasks=.true.)
 endif
@@ -1009,7 +1009,7 @@
 ! Free up the temporary storage
 deallocate(var_list, transfer_temp, copy_list)
 
-! for now, only output if there is a label
+! only output if there is a label
 if (present(label)) then
    call timestamp_message('copies_to_vars   end: '//label, alltasks=.true.)
 endif