[Dart-dev] [7606] DART/trunk/diagnostics/threed_sphere/obs_diag.f90: Added to test to only allow the change of the DART QC in the pathological cases

[nancy at ucar.edu]

Revision: 7606
Author:   thoar
Date:     2015-02-20 15:16:45 -0700 (Fri, 20 Feb 2015)
Log Message:
-----------
Added to test to only allow the change of the DART QC in the pathological cases
to affect the DART QC of TRUSTED observations alone.
Other observations have a DART QC of 7 and so will not affect the metrics anyway. 
Only the TRUSTED observations try to use the posterior mean of a DART QC == 7

Modified Paths:
--------------
    DART/trunk/diagnostics/threed_sphere/obs_diag.f90

-------------- next part --------------
Modified: DART/trunk/diagnostics/threed_sphere/obs_diag.f90
===================================================================
--- DART/trunk/diagnostics/threed_sphere/obs_diag.f90	2015-02-20 21:57:32 UTC (rev 7605)
+++ DART/trunk/diagnostics/threed_sphere/obs_diag.f90	2015-02-20 22:16:45 UTC (rev 7606)
@@ -815,9 +815,11 @@
             write(string1,*)'WARNING pathological case for obs index ',obsindex
             string2 = 'obs failed outlier threshhold AND posterior operator failed.'
             string3 = 'Counting as a Prior QC == 7, Posterior QC == 4.'
-            string3 = 'WARNING changing DART QC from 7 to 4'
-! COMMENT   call error_handler(E_MSG,'obs_diag',string1,text2=string2,text3=string3)
-! COMMENT   qc_integer = 4
+            if (trusted) then
+! COMMENT      string3 = 'WARNING changing DART QC from 7 to 4'
+! COMMENT      qc_integer = 4
+            endif
+            call error_handler(E_MSG,'obs_diag',string1,text2=string2,text3=string3)
             num_pathological = num_pathological + 1
          endif