Re enable parallelisation

Author: rjfarmer

star/private/rotation_mix_info.f90

@@ -109,6 +109,7 @@ 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
@@ -256,6 +257,7 @@ 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