[Dart-dev] [6228] DART/branches/development/diagnostics/threed_sphere/obs_diag.f90: Additional check to ensure we do not stuff things into an

[nancy at ucar.edu]

Revision: 6228
Author:   thoar
Date:     2013-06-05 11:58:05 -0600 (Wed, 05 Jun 2013)
Log Message:
-----------
Additional check to ensure we do not stuff things into an 
unallocated array if there are ensemble members in the
obs_seq.final file - BUT - we do not want the rank histogram.

Modified Paths:
--------------
    DART/branches/development/diagnostics/threed_sphere/obs_diag.f90

-------------- next part --------------
Modified: DART/branches/development/diagnostics/threed_sphere/obs_diag.f90
===================================================================
--- DART/branches/development/diagnostics/threed_sphere/obs_diag.f90	2013-06-05 16:23:15 UTC (rev 6227)
+++ DART/branches/development/diagnostics/threed_sphere/obs_diag.f90	2013-06-05 17:58:05 UTC (rev 6228)
@@ -2317,7 +2317,8 @@
    if(index(metadata,'posterior ensemble spread') > 0) posterior_spread_index = i
    if(index(metadata,'posterior ensemble spread') > 0) posterior_spread_index = i
 
-   if(index(metadata, 'prior ensemble member') > 0) then
+   if(index(metadata, 'prior ensemble member') > 0 .and. &
+      create_rank_histogram ) then
       ens_count = ens_count + 1
       ens_copy_index(ens_count) = i
    endif