Typo fix in read_fl_hdob.f90 when read in and QC hdobbufr data (related

t_qm), from [email protected] and [email protected].
hafs-community · Dec 18, 2024 · af3d8ff · af3d8ff
1 parent 3c32016
commit af3d8ff
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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