From d221a47e647a5a0a3ad71c328db2e3e19615e2db Mon Sep 17 00:00:00 2001 From: Daniel Price Date: Fri, 11 Sep 2020 13:54:46 +1000 Subject: [PATCH] (test_radiation) remove ifdefs from .f90 file #55 --- src/tests/test_radiation.f90 | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/src/tests/test_radiation.f90 b/src/tests/test_radiation.f90 index 20179b861..7ee0fdb58 100644 --- a/src/tests/test_radiation.f90 +++ b/src/tests/test_radiation.f90 @@ -38,7 +38,7 @@ module testradiation subroutine test_radiation(ntests,npass) use physcon, only:solarm,au use units, only:set_units - use dim, only:do_radiation + use dim, only:do_radiation,periodic integer, intent(inout) :: ntests,npass if (.not.do_radiation) then @@ -50,12 +50,11 @@ subroutine test_radiation(ntests,npass) call set_units(dist=au,mass=solarm,G=1.d0) call test_exchange_terms(ntests,npass) -#ifndef PERIODIC - if (id==master) write(*,"(/,a)") '--> SKIPPING TEST OF RADIATION DERIVS (need -DPERIODIC)' -#else - - call test_uniform_derivs(ntests,npass) -#endif + if (.not.periodic) then + if (id==master) write(*,"(/,a)") '--> SKIPPING TEST OF RADIATION DERIVS (need -DPERIODIC)' + else + call test_uniform_derivs(ntests,npass) + endif if (id==master) write(*,"(/,a)") '<-- RADIATION TEST COMPLETE'