[Dart-dev] DART/branches Revision: 10812

[dart at ucar.edu]

nancy at ucar.edu
2016-12-16 15:06:32 -0700 (Fri, 16 Dec 2016)
51
fixed a missing use and changed model_size to i8.




Modified: DART/branches/rma_fixed_filenames/utilities/closest_member_tool.f90
===================================================================
--- DART/branches/rma_fixed_filenames/utilities/closest_member_tool.f90	2016-12-16 22:04:57 UTC (rev 10811)
+++ DART/branches/rma_fixed_filenames/utilities/closest_member_tool.f90	2016-12-16 22:06:32 UTC (rev 10812)
@@ -41,7 +41,8 @@
 use mpi_utilities_mod, only : initialize_mpi_utilities, task_count,     &
                               finalize_mpi_utilities
 
-use ensemble_manager_mod, only : ensemble_type
+use ensemble_manager_mod, only : ensemble_type, init_ensemble_manager
+!>@todo needs to destroy ensemble before the end of the program
 
 implicit none
 
@@ -51,8 +52,8 @@
 character(len=32 ), parameter :: revision = "$Revision$"
 character(len=128), parameter :: revdate  = "$Date$"
 
-integer               :: iunit, model_size, io, ens, i, j, kindindex
-integer(i8)           :: ii
+integer               :: iunit, io, ens, i, j, kindindex
+integer(i8)           :: ii, model_size
 integer, allocatable  :: index_list(:)
 character(len = 128)  :: ifile, msgstring, msgstring1
 real(r8), allocatable :: mean(:), member(:), diffs(:)
@@ -356,9 +357,9 @@
 contains
 
 function compute_diff(target, candidate, arraysize)
- real(r8), intent(in) :: target(:)
- real(r8), intent(in) :: candidate(:)
- integer,  intent(in) :: arraysize
+ real(r8),    intent(in) :: target(:)
+ real(r8),    intent(in) :: candidate(:)
+ integer(i8), intent(in) :: arraysize
 
  real(r8) :: compute_diff