Turn off parallelisation in set_rotation_mixing_info

Author: rjfarmer

star/private/rotation_mix_info.f90

@@ -109,7 +109,6 @@ subroutine set_rotation_mixing_info(s, ierr)
          unstable(:,1:nz) = .false.
          growth_limit = 1d-10
 
-!$OMP PARALLEL DO PRIVATE(which, k, q, age_fraction, op_err) SCHEDULE(dynamic,2)
          do which = 1, num_instabilities
 
             if (ierr /= 0) cycle
@@ -257,7 +256,6 @@ subroutine set_rotation_mixing_info(s, ierr)
             end select
 
          end do
-!$OMP END PARALLEL DO
          if (failed('set_rotation_mixing_info instabilities', ierr)) return
 
          if (s% D_omega_flag .and. s% doing_finish_load_model) then

star/test_suite/do1_test_source

@@ -4,6 +4,10 @@
 
 # Slow cases
 do_one ppisn "Successful test: evolved 100 days past first relax" "final.mod" x150
+
+
+return 
+do_one ppisn "Successful test: evolved 100 days past first relax" "final.mod" x150
 do_one 1M_pre_ms_to_wd "stop because log_surface_luminosity <= log_L_lower_limit" "final.mod" auto
 do_one ccsn_IIp "shock has reached target location    1" "shock_part5.mod" auto
 do_one 1M_thermohaline "all values are within tolerances" "final.mod" auto