From af3d8ff9825ed59b7e9429d5c0cd83cc19de371e Mon Sep 17 00:00:00 2001 From: Bin Liu Date: Tue, 17 Dec 2024 20:52:58 -0500 Subject: [PATCH] Typo fix in read_fl_hdob.f90 when read in and QC hdobbufr data (related t_qm), from dan.wu@noaa.gov and altug.aksoy@noaa.gov. --- src/gsi/read_fl_hdob.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/gsi/read_fl_hdob.f90 b/src/gsi/read_fl_hdob.f90 index 4041740d52..a67674b02b 100644 --- a/src/gsi/read_fl_hdob.f90 +++ b/src/gsi/read_fl_hdob.f90 @@ -498,7 +498,7 @@ subroutine read_fl_hdob(nread,ndata,nodata,infile,obstype,lunout,gstime,twind,si if (nib > 0) then ibit(1:nib) = ibit(1:nib)-1 if (any(ibit(1:nib) == 1)) then ! for T/Td - t_qm = 0 + t_qm = 4 q_qm = 4 endif if (any(ibit(1:nib) == 2)) then ! for uv