[Dart-dev] [5773] DART/trunk/models/wrf/model_mod.f90: reset return code from vertical convert in the get_close_obs()

[nancy at ucar.edu]

Revision: 5773
Author:   nancy
Date:     2012-07-05 10:26:04 -0600 (Thu, 05 Jul 2012)
Log Message:
-----------
reset return code from vertical convert in the get_close_obs()
routine if you don't have to convert the next obs in the loop.
this was wrong but only makes a tiny difference in the final results.
it does, however, give different results for different PE counts,
which is how we tracked this down. 

Modified Paths:
--------------
    DART/trunk/models/wrf/model_mod.f90

Property Changed:
----------------
    DART/trunk/models/wrf/model_mod.f90

-------------- next part --------------
Modified: DART/trunk/models/wrf/model_mod.f90
===================================================================
--- DART/trunk/models/wrf/model_mod.f90	2012-07-05 16:24:39 UTC (rev 5772)
+++ DART/trunk/models/wrf/model_mod.f90	2012-07-05 16:26:04 UTC (rev 5773)
@@ -6426,6 +6426,8 @@
             call vert_convert(ens_mean, local_obs_loc, obs_kind(t_ind), istatus2)
             ! Store the "new" location into the original full local array
             obs_loc(t_ind) = local_obs_loc
+         else
+            istatus2 = 0
          endif
       endif
 


Property changes on: DART/trunk/models/wrf/model_mod.f90
___________________________________________________________________
Modified: svn:mergeinfo
   - /DART/branches/development/models/wrf/model_mod.f90:5627
   + /DART/branches/development/models/wrf/model_mod.f90:4680-5771
/DART/releases/Kodiak/models/wrf/model_mod.f90:5020-5772