Skip to content

Commit

Permalink
Fix final bug.
Browse files Browse the repository at this point in the history
  • Loading branch information
jderber-NOAA committed May 23, 2023
1 parent 6ca95d4 commit 889d2e9
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion src/gsi/setuprad.f90
Original file line number Diff line number Diff line change
Expand Up @@ -1460,7 +1460,8 @@ subroutine setuprad(obsLL,odiagLL,lunin,mype,aivals,stats,nchanl,nreal,nobs,&
else if (seviri .or. abi .or. ahi) then
do i=1,nchanl
m=ich(i)
if (icld_det(m)>0 .or. varinv(i) >= tiny_r_kind) then
if (icld_det(m)>0 .and. varinv(i) >= tiny_r_kind) then
! if (icld_det(m)>0 .or. varinv(i) >= tiny_r_kind) then
varinv_use(i) = varinv(i)
else
varinv_use(i) = zero
Expand Down

0 comments on commit 889d2e9

Please sign in to comment.