[Dart-dev] [5694] DART/trunk/utilities/closest_member_tool.f90: fix that made it into Kodiak branch but wasn't on trunk.

[nancy at ucar.edu]

Revision: 5694
Author:   nancy
Date:     2012-04-11 16:23:46 -0600 (Wed, 11 Apr 2012)
Log Message:
-----------
fix that made it into Kodiak branch but wasn't on trunk.
was using wrong loop variable in an informational message.
doesn't change results, but makes the messages more helpful.

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

Property Changed:
----------------
    DART/trunk/utilities/closest_member_tool.f90

-------------- next part --------------
Modified: DART/trunk/utilities/closest_member_tool.f90
===================================================================
--- DART/trunk/utilities/closest_member_tool.f90	2012-04-11 17:56:45 UTC (rev 5693)
+++ DART/trunk/utilities/closest_member_tool.f90	2012-04-11 22:23:46 UTC (rev 5694)
@@ -248,7 +248,7 @@
       if (mean_time /= member_time) then
          call print_time(mean_time, "time of ensemble mean data")
          call print_time(member_time, "time of ensemble member data")
-         write(msgstring, *) 'member ', i, ' has a different timestamp than mean'
+         write(msgstring, *) 'member ', ens, ' has a different timestamp than mean'
          call error_handler(E_ERR,'closest_member_tool', msgstring)
       endif
 
@@ -281,7 +281,7 @@
       if (mean_time /= member_time) then
          call print_time(mean_time, "time of ensemble mean data")
          call print_time(member_time, "time of ensemble member data")
-         write(msgstring, *) 'member ', i, ' has a different timestamp than mean'
+         write(msgstring, *) 'member ', ens, ' has a different timestamp than mean'
          call error_handler(E_ERR,'closest_member_tool', msgstring)
       endif
 


Property changes on: DART/trunk/utilities/closest_member_tool.f90
___________________________________________________________________
Added: svn:mergeinfo
   + /DART/branches/close/closest_member_tool.f90:4780-4810
/DART/releases/Kodiak/utilities/closest_member_tool.f90:5020-5693