Add a 'usage' statment to be printed out if the file name

on the command line is missing.
GEOS-ESM · Nov 20, 2021 · 232a390 · 232a390
1 parent 7cbbf11
commit 232a390
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Applications/NCEP_Paqc/GMAOprev/check_virtmp.f b/src/Applications/NCEP_Paqc/GMAOprev/check_virtmp.f
@@ -4,10 +4,16 @@
         CHARACTER(len=180) filn
         CHARACTER(len=8)  SUBSET
         integer  iret, idate, ilev, j, tvflg, lubfi
+        integer nargs, iargc
         real vtcd
 
         data lubfi /10/
 
+        nargs = iargc()
+        if (nargs .lt. 1) then
+           print *, 'Usage: check_virtmp.x prepbufr-file'
+           stop
+        end if
         call getarg(1,filn)
         open(unit=lubfi,file=filn,form='unformatted')