[Dart-dev] [10364] DART/trunk/utilities/closest_member_tool.f90: somehow this was calling the slow version of the index

[nancy at ucar.edu]

Revision: 10364
Author:   nancy
Date:     2016-06-13 16:06:44 -0600 (Mon, 13 Jun 2016)
Log Message:
-----------
somehow this was calling the slow version of the index
sort, which we are deprecating.  call the normal index_sort()
instead.

Modified Paths:
--------------
    DART/trunk/utilities/closest_member_tool.f90

-------------- next part --------------
Modified: DART/trunk/utilities/closest_member_tool.f90
===================================================================
--- DART/trunk/utilities/closest_member_tool.f90	2016-06-13 20:06:37 UTC (rev 10363)
+++ DART/trunk/utilities/closest_member_tool.f90	2016-06-13 22:06:44 UTC (rev 10364)
@@ -33,7 +33,7 @@
 use  obs_kind_mod,     only : get_num_raw_obs_kinds, get_raw_obs_kind_index, &
                               paramname_length, get_raw_obs_kind_name
 
-use  sort_mod,         only : slow_index_sort
+use  sort_mod,         only : index_sort
 
 use assim_model_mod,   only : static_init_assim_model, get_model_size,   &
                               open_restart_read, aread_state_restart,    &
@@ -302,7 +302,7 @@
 
 !------------------- Print out results     -----------------------
 
-call slow_index_sort(diffs, index_list, ens_size)
+call index_sort(diffs, index_list, ens_size)
 call error_handler(E_MSG, '', ' ')
 write(msgstring, "(A,I5)") 'Member with the minimum difference from the mean is ', index_list(1)
 call error_handler(E_MSG, '', msgstring)