Removed number_profile variables missed in the previous commit.

wx20jjung · Sep 18, 2024 · d928aab · d928aab
1 parent 02ef623
commit d928aab
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/gsi/read_seviri.f90 b/src/gsi/read_seviri.f90
@@ -103,7 +103,7 @@ subroutine read_seviri(mype,val_sev,ithin,rmesh,jsatid,&
   integer(i_kind) nchanl,ilath,ilonh,ilzah,iszah,irec,next
   integer(i_kind) nmind,lnbufr,idate,ilat,ilon,nhdr,nchn,ncld,nbrst,jj
   integer(i_kind) ireadmg,ireadsb,iret,nreal,nele,itt
-  integer(i_kind) itx,i,k,isflg,kidsat,n,iscan,idomsfc,number_profiles
+  integer(i_kind) itx,i,k,isflg,kidsat,n,iscan,idomsfc
   integer(i_kind) idate5(5),maxinfo
   integer(i_kind),allocatable,dimension(:)::nrec
 
@@ -528,10 +528,8 @@ subroutine read_seviri(mype,val_sev,ithin,rmesh,jsatid,&
   call closbf(lnbufr)
   close(lnbufr)
 
-  number_profiles = count(nrec(:) /= 999999,dim=1)
-
   call combine_radobs(mype_sub,mype_root,npe_sub,mpi_comm_sub,&
-     nele,itxmax,nread,number_profiles,ndata,data_all,score_crit,nrec)
+     nele,itxmax,nread,ndata,data_all,score_crit,nrec)
 
 ! Allow single task to check for bad obs, update superobs sum,
 ! and write out data to scratch file for further processing.