From e44665cee366670c9cffd2280214cacdd9a518a8 Mon Sep 17 00:00:00 2001 From: "jim.jung" Date: Tue, 10 Dec 2024 17:03:02 +0000 Subject: [PATCH 1/2] Changes made to read_iasing.f90 are only replication BUFR mnemonics. These are expected to be identical for the operational stream (from EUMETSAT via NESDIS) and all DBNet data. --- src/enkf/observer_nmmb.f90 | 1 - src/enkf/observer_wrf.f90 | 1 - src/gsi/read_iasing.f90 | 8 ++++---- 3 files changed, 4 insertions(+), 6 deletions(-) delete mode 120000 src/enkf/observer_nmmb.f90 delete mode 120000 src/enkf/observer_wrf.f90 diff --git a/src/enkf/observer_nmmb.f90 b/src/enkf/observer_nmmb.f90 deleted file mode 120000 index faa9da0040..0000000000 --- a/src/enkf/observer_nmmb.f90 +++ /dev/null @@ -1 +0,0 @@ -observer_reg.f90 \ No newline at end of file diff --git a/src/enkf/observer_wrf.f90 b/src/enkf/observer_wrf.f90 deleted file mode 120000 index faa9da0040..0000000000 --- a/src/enkf/observer_wrf.f90 +++ /dev/null @@ -1 +0,0 @@ -observer_reg.f90 \ No newline at end of file diff --git a/src/gsi/read_iasing.f90 b/src/gsi/read_iasing.f90 index 4183c59843..54170ba9d1 100644 --- a/src/gsi/read_iasing.f90 +++ b/src/gsi/read_iasing.f90 @@ -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) @@ -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 @@ -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 @@ -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 From 1ae597937a7a9cb63ad9e1697b02f98e8dfc9b1d Mon Sep 17 00:00:00 2001 From: "jim.jung" Date: Tue, 17 Dec 2024 14:10:21 +0000 Subject: [PATCH 2/2] Removed comments from enkf_files.cmake: These are no longer relevant. --- src/enkf/enkf_files.cmake | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/enkf/enkf_files.cmake b/src/enkf/enkf_files.cmake index 907e0495c5..7f07a16b86 100644 --- a/src/enkf/enkf_files.cmake +++ b/src/enkf/enkf_files.cmake @@ -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