From 232a390765c3d62366e3179b04d1f147110bd152 Mon Sep 17 00:00:00 2001
From: Meta Sienkiewicz <Meta.Sienkiewicz@nasa.gov>
Date: Fri, 19 Nov 2021 19:45:09 -0500
Subject: [PATCH] Add a 'usage' statment to be printed out if the file name on
 the command line is missing.

---
 src/Applications/NCEP_Paqc/GMAOprev/check_virtmp.f | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/Applications/NCEP_Paqc/GMAOprev/check_virtmp.f b/src/Applications/NCEP_Paqc/GMAOprev/check_virtmp.f
index ca572013..af8146f9 100644
--- 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')