Commit cf36380b authored by Jorn Bruggeman's avatar Jorn Bruggeman
Browse files

test_host: choose default iteration count to produce more comparable runtime across hosts

parent c4e0cc57
......@@ -210,15 +210,6 @@ do
end select
end do
! Set defaults
if (ntest == -1) then
if (mode == 1) then
ntest = 1
else
ntest = 1000
end if
end if
#if _FABM_DIMENSION_COUNT_>0
i__=50
#endif
......@@ -233,6 +224,15 @@ k__=45
domain_extent = (/ _LOCATION_ /)
#endif
! Set defaults
if (ntest == -1) then
if (mode == 1) then
ntest = 1
else
ntest = 50000000/product(domain_extent)
end if
end if
interior_count = product(domain_extent)
#ifdef _FABM_DEPTH_DIMENSION_INDEX_
horizontal_count = interior_count / domain_extent(_FABM_DEPTH_DIMENSION_INDEX_)
......
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