Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Iasi ng bufr change #818

Merged
merged 3 commits into from
Dec 18, 2024
Merged

Iasi ng bufr change #818

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
e44665c
Changes made to read_iasing.f90 are only replication BUFR mnemonics. …
wx20jjung Dec 10, 2024
57d3e98
Merge branch 'NOAA-EMC:develop' into IASI-NG_BUFR_change
wx20jjung Dec 16, 2024
1ae5979
Removed comments from enkf_files.cmake:
wx20jjung Dec 17, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 0 additions & 2 deletions src/enkf/enkf_files.cmake
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -61,5 +61,3 @@ list(APPEND EnKF_SRC_FV3REG
#Unused files
#specmod_shtns.f90 -- This is a faster alternative to specmod.f90
#specmod_splib.f90 -- This is a copy of specmod.f90
#observer_nmmb.f90 -- This is soft-linked to observer_reg.f90
#observer_wrf.f90 -- This is soft-linked to observer_reg.f90
1 change: 0 additions & 1 deletion src/enkf/observer_nmmb.f90
View file
Open in desktop

This file was deleted.

1 change: 0 additions & 1 deletion src/enkf/observer_wrf.f90
View file
Open in desktop

This file was deleted.

8 changes: 4 additions & 4 deletions src/gsi/read_iasing.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -424,7 +424,7 @@ subroutine read_iasing(mype,val_iasing,ithin,isfcalc,rmesh,jsatid,gstime,&

! Get the size of the channels and radiance (allchan) array
! This is a delayed replication. crchn_reps is the number of IASI-NG replications (channel and radiance)
call ufbint(lnbufr,crchn_reps,1,1,iret,'(I1CRSQ)')
call ufbint(lnbufr,crchn_reps,1,1,iret,'(RPSEQ001)')
bufr_nchan = int(crchn_reps)

bufr_size = size(temperature,1)
Expand Down Expand Up @@ -622,7 +622,7 @@ subroutine read_iasing(mype,val_iasing,ithin,isfcalc,rmesh,jsatid,gstime,&
call checkob(one,crit1,itx,iuse)
if(.not. iuse)cycle read_loop

call ufbseq(lnbufr,cscale,3,4,iret,'IAS1CBSQ')
call ufbseq(lnbufr,cscale,3,4,iret,'RPSEQ004')
if(iret /= 4) then
write(6,*) 'READ_IASI-NG read scale error ',iret
cycle read_loop
Expand All @@ -643,7 +643,7 @@ subroutine read_iasing(mype,val_iasing,ithin,isfcalc,rmesh,jsatid,gstime,&
end do

! Read IASI-NG channel number(CHNM) and radiance (SCRA).
call ufbseq(lnbufr,allchan,2,bufr_nchan,iret,'I1CRSQ')
call ufbseq(lnbufr,allchan,2,bufr_nchan,iret,'RPSEQ001')
jstart=1
scalef=one

Expand Down Expand Up @@ -739,7 +739,7 @@ subroutine read_iasing(mype,val_iasing,ithin,isfcalc,rmesh,jsatid,gstime,&
! Only channels 18 and 19 are used.

if ( iasing_cads ) then
call ufbseq(lnbufr,imager_info,123,7,iret,'IASICSSQ')
call ufbseq(lnbufr,imager_info,123,7,iret,'RPSEQ002')
if (iret == 7 .and. imager_info(3,1) <= 100.0_r_kind .and. &
sum(imager_info(3,:)) > zero .and. imager_coeff ) then ! if imager cluster info exists
imager_mean = zero
Expand Down
Loading