From 2e0df545e27f4ae2af474e2d611e4f88b075856b Mon Sep 17 00:00:00 2001 From: Jack Woollen Date: Tue, 8 Aug 2023 08:02:12 +0000 Subject: [PATCH] fix typo calculating do_qc flag --- src/gsi/read_satwnd.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/gsi/read_satwnd.f90 b/src/gsi/read_satwnd.f90 index e04a5ed0ee..1679708787 100644 --- a/src/gsi/read_satwnd.f90 +++ b/src/gsi/read_satwnd.f90 @@ -735,7 +735,7 @@ subroutine read_satwnd(nread,ndata,nodata,infile,obstype,lunout,gstime,twind,sis do_qc = subset(1:7)=='NC00503'.and.nint(hdrdat(1))>=270 do_qc = do_qc.or.subset(1:7)=='NC00501' do_qc = do_qc.or.subset=='NC005081'.or.subset=='NC005091' - do_qc = do_qc.or.qcret==0 + do_qc = do_qc.or.qcret>0 ! assign types and get quality info: start