diff --git a/sqm/sqm.F90 b/sqm/sqm.F90
index 8a3cbf0..2af690c 100644
--- a/sqm/sqm.F90
+++ b/sqm/sqm.F90
@@ -86,6 +86,13 @@ program sqm
          call getarg(iarg,mdout)
       else if (arg == '-O') then
          owrite = 'R'   ! output status: Replace
+      else if (arg == '-h') then
+         write(6,'(a)') 'sqm [-O] -i <input> -o <output>'
+         write(6,'(a)') '   -O           Overwrite output file if it exists'
+         write(6,'(a)') '   -i <input>   Input file'
+         write(6,'(a)') '   -o <output>  Output file'
+         write(6,'(a)') '   -h           Show this message'
+         call mexit(6, 0)
       else if (arg == ' ') then
          continue
       else