remove unnecessary declaration of iargc (#40)

NOAA-EMC · May 14, 2024 · 0309845 · 0309845
1 parent 4e227d8
commit 0309845
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/EnKF/gfs/src/getsigensmeanp_smooth.fd/getsigensmeanp_smooth_ncep.f90 b/src/EnKF/gfs/src/getsigensmeanp_smooth.fd/getsigensmeanp_smooth_ncep.f90
@@ -46,7 +46,7 @@ program getsigensmeanp_smooth
                         filenameoutsprd
   character(len=16),allocatable,dimension(:) :: recnam
   integer :: iret,nlevs,ntrac,ntrunc,nanals,ngrd,k,ndims,nvar,nbits
-  integer :: nsize,nsize2,nsize3,nsize3t,iargc
+  integer :: nsize,nsize2,nsize3,nsize3t
   integer :: mype,mype1,npe,orig_group,new_group,new_comm
   integer :: nrec,latb,lonb,npts,n,idrt
   integer,allocatable,dimension(:) :: new_group_members,reclev,krecu,krecv