Commit 43a3aa63 authored by Jorn Bruggeman's avatar Jorn Bruggeman
Browse files

host emulator: configurable domain extents

parent d0fd2368
......@@ -198,6 +198,16 @@ integer :: mode = 1
integer :: ntest = -1
logical :: no_mask = .false.
#if _FABM_DIMENSION_COUNT_>0
i__=50
#endif
#if _FABM_DIMENSION_COUNT_>1
j__=40
#endif
#if _FABM_DIMENSION_COUNT_>2
k__=45
#endif
! Parse command line arguments
call start_test('parsing command line arguments')
i = 1
......@@ -209,6 +219,24 @@ do
mode = 2
case ('--nomask')
no_mask = .true.
#if _FABM_DIMENSION_COUNT_>0
case ('--nx')
i = i + 1
call get_command_argument(i, arg)
read (arg,*) i__
#endif
#if _FABM_DIMENSION_COUNT_>1
case ('--ny')
i = i + 1
call get_command_argument(i, arg)
read (arg,*) j__
#endif
#if _FABM_DIMENSION_COUNT_>2
case ('--nz')
i = i + 1
call get_command_argument(i, arg)
read (arg,*) k__
#endif
case ('-n')
i = i + 1
call get_command_argument(i, arg)
......@@ -230,16 +258,6 @@ do
end do
call report_test_result()
#if _FABM_DIMENSION_COUNT_>0
i__=50
#endif
#if _FABM_DIMENSION_COUNT_>1
j__=40
#endif
#if _FABM_DIMENSION_COUNT_>2
k__=45
#endif
#if _FABM_DIMENSION_COUNT_>0
domain_extent = (/ _LOCATION_ /)
interior_count = product(domain_extent)
......
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