Merge pull request #502 from MESAHub/rf/rti

Enable RTI source terms

Tested-by Jared Goldberg

Author: rjfarmer

star/private/hydro_alpha_rti_eqns.f90

@@ -136,8 +136,7 @@ subroutine do1_dalpha_RTI_dt_eqn(s, k, nvar, ierr)
          instability2 = -dPdr_drhodr ! > 0 means Rayleigh-Taylor unstable         
          if (instability2 <= 0d0 .or. &
                s% q(k) > s% alpha_RTI_src_max_q .or. &
-               s% q(k) < s% alpha_RTI_src_min_q .or. &
-               s% rho(k) < 1d99) then
+               s% q(k) < s% alpha_RTI_src_min_q) then
             source_plus = 0d0
             instability2 = 0d0
             instability = 0d0

star/test_suite/ccsn_IIp/inlist_end_infall

@@ -148,7 +148,7 @@
 
 &pgstar
 
-pause = .true.
+!pause = .true.
 
 Grid2_win_flag = .true.
 pgstar_interval = 1

star/test_suite/ccsn_IIp/inlist_infall

@@ -122,7 +122,7 @@
 
 &pgstar
 
-pause = .true.
+!pause = .true.
 
 Grid2_win_flag = .true.
 pgstar_interval = 1