From a4023841072418fbfc6ca8c6bb7daaa7d16bbbb1 Mon Sep 17 00:00:00 2001
From: Shun Liu <Shun.Liu@noaa.gov>
Date: Fri, 26 Apr 2024 03:05:03 +0000
Subject: [PATCH] remove if-condition since nread is total number of radar wind
 from the different observation type.

---
 src/gsi/read_radar.f90 | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/gsi/read_radar.f90 b/src/gsi/read_radar.f90
index 40a9d495ea..84a4f4fbcf 100644
--- a/src/gsi/read_radar.f90
+++ b/src/gsi/read_radar.f90
@@ -2152,7 +2152,6 @@ subroutine read_radar(nread,ndata,nodata,infile,lunout,obstype,twind,sis,hgtl_fu
 
   end if
 
-  if (trim(infile) == 'tldplrbufr' .and. trim(infile) == 'tldplrso') then
   erad = rearth
   thiserr=5.0_r_kind
 
@@ -2178,7 +2177,6 @@ subroutine read_radar(nread,ndata,nodata,infile,lunout,obstype,twind,sis,hgtl_fu
   ibadstaheight=0
   notgood=0
   notgood0=0
-  nread=0
   ntdrvr_in=0
   ntdrvr_kept=0
   ntdrvr_thin1=0
@@ -2192,7 +2190,6 @@ subroutine read_radar(nread,ndata,nodata,infile,lunout,obstype,twind,sis,hgtl_fu
   naftswp=0
   nfore=0
   naft=0
-  end if
 
   xscale=100._r_kind
   xscalei=one/xscale
@@ -2525,7 +2522,7 @@ subroutine read_radar(nread,ndata,nodata,infile,lunout,obstype,twind,sis,hgtl_fu
      end do ! end of loop, reading TDR so data files
      close(lnbufr)
 
-  else
+  else if (trim(infile) == 'tldplrbufr' ) then
 
      nswptype=0
      nmrecs=0