Fix iargc bug in getsigensmeanp_smooth_ncep.f90 (#474)

NOAA-EMC · Sep 7, 2022 · 314736c · 314736c
1 parent c330413
commit 314736c
Showing 1 changed file with 1 addition and 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
@@ -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'