Skip to content

Commit

Permalink
Added comments
Browse files Browse the repository at this point in the history
  • Loading branch information
wx20jjung committed Nov 5, 2024
1 parent 745f01d commit c4afc99
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/gsi/read_iasing.f90
Original file line number Diff line number Diff line change
Expand Up @@ -298,7 +298,8 @@ subroutine read_iasing(mype,val_iasing,ithin,isfcalc,rmesh,jsatid,gstime,&
! find IASI-NG sensorindex
sensorindex_iasing = 0
if ( sc(1)%sensor_id(1:7) == 'iasi-ng' .or. sc(1)%sensor_id == '999') then
!JAJ if ( sc(1)%sensor_id(1:7) == 'iasi-ng' ) then
!TODO This is the correct code once the CRTM spectral coefficient is fixed.
!TODO JAJ if ( sc(1)%sensor_id(1:7) == 'iasi-ng' ) then
sensorindex_iasing = 1
else
write(6,*)'READ_IASI-NG: ***ERROR*** sensorindex_iasi-ng not set NO IASI-NG DATA USED'
Expand Down Expand Up @@ -560,7 +561,6 @@ subroutine read_iasing(mype,val_iasing,ithin,isfcalc,rmesh,jsatid,gstime,&
! | 9 10 11 12 |
! | 13 14 15 16 |

! Add this code when field-of-view spans 1-224 JAJ.
! There are 14 fields-of-regard in each scan line. So, there are 56 unique positions in the scan line.
! To determine the scan position:
ifor = (ifov-1) / 16 ! Determine field-of-regard
Expand Down

0 comments on commit c4afc99

Please sign in to comment.