Commit 8a84441b authored by Jorn Bruggeman's avatar Jorn Bruggeman
Browse files

corrected test conditions

parent 04731378
...@@ -427,7 +427,7 @@ program test_host ...@@ -427,7 +427,7 @@ program test_host
case (1) case (1)
write (*,'(a)') 'Testing without mask and unrestricted domain.' write (*,'(a)') 'Testing without mask and unrestricted domain.'
call test_update(apply_mask=.false., restrict_range=.false.) call test_update(apply_mask=.false., restrict_range=.false.)
#if defined(_HAS_MASK_) .and. _FABM_DIMENSION_COUNT_>0 #if defined(_HAS_MASK_) || _FABM_DIMENSION_COUNT_>0
write (*,'(a,i0,a)') 'Running ', ntest, ' tests with randomized domain settings.' write (*,'(a,i0,a)') 'Running ', ntest, ' tests with randomized domain settings.'
do i=1,ntest do i=1,ntest
# ifdef _HAS_MASK_ # ifdef _HAS_MASK_
...@@ -438,7 +438,7 @@ program test_host ...@@ -438,7 +438,7 @@ program test_host
write (*,'(a)') 'Randomly restricted domain (no mask).' write (*,'(a)') 'Randomly restricted domain (no mask).'
call test_update(apply_mask=.false., restrict_range=.true.) call test_update(apply_mask=.false., restrict_range=.true.)
# endif # endif
# if defined(_HAS_MASK_) .and. _FABM_DIMENSION_COUNT_>0 # if defined(_HAS_MASK_) && _FABM_DIMENSION_COUNT_>0
write (*,'(a)') 'Random mask and randomly restricted domain.' write (*,'(a)') 'Random mask and randomly restricted domain.'
call test_update(apply_mask=.true., restrict_range=.true.) call test_update(apply_mask=.true., restrict_range=.true.)
# endif # endif
......
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