(test_wind) condition test on radiatoin force if ISINK_RADIATION is d…

…efined
danieljprice · May 7, 2024 · a1385be · a1385be
1 parent 5da1605
commit a1385be
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/tests/test_wind.f90 b/src/tests/test_wind.f90
@@ -81,6 +81,7 @@ subroutine test_wind(ntests,npass)
  call update_test_scores(ntests,nfailed,npass)
 
 
+#ifdef ISINK_RADIATION
  maxTdust = maxp
  if (allocated(dust_temp)) deallocate(dust_temp)
  call allocate_array('dust_temp',dust_temp,maxTdust)
@@ -101,7 +102,7 @@ subroutine test_wind(ntests,npass)
  call checkval(eint,3.496431505098527E+02,eps_sum,nfailed(5),'total internal energy')
  call checkval(ekin,1.109784837120262E+02,eps_sum,nfailed(6),'total kinetic energy')
  call update_test_scores(ntests,nfailed,npass)
-
+#endif
 
  if (id==master) write(*,"(/,a)") '<-- WIND TEST COMPLETE'