From 314736c34121111101324bcaa748fd4df6b5157d Mon Sep 17 00:00:00 2001
From: "russ.treadon" <Russ.Treadon@noaa.gov>
Date: Wed, 7 Sep 2022 10:30:54 +0000
Subject: [PATCH] Fix iargc bug in getsigensmeanp_smooth_ncep.f90 (#474)

---
 .../src/getsigensmeanp_smooth.fd/getsigensmeanp_smooth_ncep.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/util/EnKF/gfs/src/getsigensmeanp_smooth.fd/getsigensmeanp_smooth_ncep.f90 b/util/EnKF/gfs/src/getsigensmeanp_smooth.fd/getsigensmeanp_smooth_ncep.f90
index 92ac388689..e58cbd8787 100644
--- a/util/EnKF/gfs/src/getsigensmeanp_smooth.fd/getsigensmeanp_smooth_ncep.f90
+++ b/util/EnKF/gfs/src/getsigensmeanp_smooth.fd/getsigensmeanp_smooth_ncep.f90
@@ -100,7 +100,7 @@ program getsigensmeanp_smooth
   ! if a 5th arg present, it's a filename to write out ensemble spread
   ! (only used for ncio)
   write_spread_ncio = .false.
-  if (iargc() > 5) then
+  if (iargc() > 4) then
      call getarg(5,filenameoutsprd)
      write_spread_ncio = .true.
      if (mype == 0) print *,'computing ensemble spread'