[Dart-dev] [4205] DART/trunk/models/wrf/WRF_DART_utilities/wrf_dart_obs_preprocess.f90 : Update from Ryan to fix a QC test.

[nancy at ucar.edu]

Revision: 4205
Author:   nancy
Date:     2009-12-18 13:25:17 -0700 (Fri, 18 Dec 2009)
Log Message:
-----------
Update from Ryan to fix a QC test.

Modified Paths:
--------------
    DART/trunk/models/wrf/WRF_DART_utilities/wrf_dart_obs_preprocess.f90

-------------- next part --------------
Modified: DART/trunk/models/wrf/WRF_DART_utilities/wrf_dart_obs_preprocess.f90
===================================================================
--- DART/trunk/models/wrf/WRF_DART_utilities/wrf_dart_obs_preprocess.f90	2009-12-18 20:20:01 UTC (rev 4204)
+++ DART/trunk/models/wrf/WRF_DART_utilities/wrf_dart_obs_preprocess.f90	2009-12-18 20:25:17 UTC (rev 4205)
@@ -885,7 +885,8 @@
 implicit none
 
 real(r8), parameter                    :: satwnd_qc_ok = 15.0_r8
-real(r8), parameter                    :: sfc_qc_ok    =  9.0_r8
+real(r8), parameter                    :: sfc_qc_ok1   =  9.0_r8
+real(r8), parameter                    :: sfc_qc_ok2   = 15.0_r8
 real(r8), parameter                    :: new_qc_value =  2.0_r8
 
 character(len=129),      intent(in)    :: filename
@@ -992,7 +993,7 @@
                               okind /= MARINE_SFC_ALTIMETER  ) then
 
           call get_qc(obs, qc)
-          if ( qc(1) == sfc_qc_ok .and. input_ncep_qc ) then
+          if ( (qc(1) == sfc_qc_ok1 .or. qc(1) == sfc_qc_ok2) .and. input_ncep_qc ) then
             qc(1) = new_qc_value
             call set_qc(obs, qc)
           end if