Iasi ng bufr change (#818)

NOAA-EMC · Dec 18, 2024 · 737c6b8 · 737c6b8
1 parent 0921251
commit 737c6b8
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 8 deletions.
diff --git 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
diff --git a/src/enkf/observer_nmmb.f90 b/src/enkf/observer_nmmb.f90
diff --git a/src/enkf/observer_wrf.f90 b/src/enkf/observer_wrf.f90
diff --git 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