From d805b37bde64143aaeea673e78a941a27ab4c818 Mon Sep 17 00:00:00 2001 From: James Jung Date: Tue, 17 Sep 2024 07:30:28 -0400 Subject: [PATCH] Update src/gsi/read_iasi.f90 Co-authored-by: David Huber <69919478+DavidHuber-NOAA@users.noreply.github.com> --- src/gsi/read_iasi.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/gsi/read_iasi.f90 b/src/gsi/read_iasi.f90 index 8c854dac4..e27460000 100644 --- a/src/gsi/read_iasi.f90 +++ b/src/gsi/read_iasi.f90 @@ -762,7 +762,7 @@ subroutine read_iasi(mype,val_iasi,ithin,isfcalc,rmesh,jsatid,gstime,& sc_chan = sc_index(i) if ( bufr_index(i) == 0 ) cycle channel_loop bufr_chan = bufr_index(i) -! check that channel number is within reason +! check that channel number is within reason if (( allchan(2,bufr_chan) > zero .and. allchan(2,bufr_chan) < 99999._r_kind)) then ! radiance bounds radiance = allchan(2,bufr_chan)*scalef(bufr_chan) call crtm_planck_temperature(sensorindex_iasi,sc_chan,radiance,temperature(bufr_chan))