Commit beef6048 authored by Karsten Bolding's avatar Karsten Bolding

command line option to print possible output variablesi - i.e. from field_manager()

parent f390107d
......@@ -371,7 +371,7 @@ add_dependencies(3d meteo domain 2d)
add_dependencies(output futils domain 2d 3d meteo)
add_dependencies(ncdf futils domain output)
add_dependencies(input futils 2d 3d ncdf)
add_dependencies(getm input)
add_dependencies(getm input output)
set_property(TARGET futils ncdf input APPEND PROPERTY INCLUDE_DIRECTORIES "${NetCDF_INCLUDE_DIRS}")
add_definitions(-DNETCDF_FMT -DREAL_4B=real\(4\))
......
......@@ -20,6 +20,7 @@
public :: init_model
integer :: runtype=1
logical :: dryrun=.false.
logical :: list_variables=.false.
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
......@@ -279,6 +280,7 @@
end if
call do_register_all_variables(runtype)
if (list_variables) call fm%list()
! call init_output(runid,title,start,runtype,dryrun,myid)
call init_output(runid,title,start,runtype,dryrun,myid,MinN,MaxN,save_initial)
......
......@@ -116,7 +116,7 @@
!-----------------------------------------------------------------------
subroutine cmdline
use initialise, only: dryrun
use initialise, only: dryrun,list_variables
IMPLICIT NONE
character(len=64) :: arg
integer :: i
......@@ -137,6 +137,8 @@
call compilation_options()
LEVEL0
stop
case ('-l', '--list_variables')
list_variables=.true.
case ('-h', '--help')
call print_help()
stop
......@@ -165,9 +167,10 @@
print '(a)', ''
print '(a)', 'cmdline options:'
print '(a)', ''
print '(a)', ' -v, --version print version information and exit'
print '(a)', ' -c, --compile print compilation options'
print '(a)', ' -h, --help print usage information and exit'
print '(a)', ' -v, --version print version information and exit'
print '(a)', ' -c, --compile print compilation options'
print '(a)', ' -l, --list_variables list possible output variables'
print '(a)', ' -h, --help print usage information and exit'
print '(a)', ''
print '(a)', 'visit getm.eu for further info'
print '(a)', 'consider subscribing to getm-users@googlegroups.com'
......
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