Commit 2f0f8126 authored by Jorn Bruggeman's avatar Jorn Bruggeman
Browse files

added -h to test_host

parent 48c7350a
...@@ -209,6 +209,15 @@ do ...@@ -209,6 +209,15 @@ do
call get_command_argument(i + 1, arg) call get_command_argument(i + 1, arg)
read (arg,*) ntest read (arg,*) ntest
i = i + 2 i = i + 2
case ('-h')
write (*,'(a)') ''
write (*,'(a)') ''
write (*,'(a)') 'FABM host emulator'
write (*,'(a)') ''
write (*,'(a)') 'Accepted arguments:'
write (*,'(a)') '-s/--simulate: simulate using provided fabm.yaml/environment.yaml'
write (*,'(a)') '-n: number of replicates when simulating'
stop 0
case default case default
write (*,'(a)') 'Unknown command line argument: ' // trim(arg) write (*,'(a)') 'Unknown command line argument: ' // trim(arg)
stop 2 stop 2
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment