Skip to content

Commit

Permalink
remove if-condition since nread is total number of radar wind from th…
Browse files Browse the repository at this point in the history
…e different observation type.
  • Loading branch information
ShunLiu-NOAA committed Apr 26, 2024
1 parent 19e8bec commit a402384
Showing 1 changed file with 1 addition and 4 deletions.
5 changes: 1 addition & 4 deletions src/gsi/read_radar.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand All @@ -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
Expand All @@ -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
Expand Down Expand Up @@ -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
Expand Down

0 comments on commit a402384

Please sign in to comment.