Skip to content

Commit 05b8adc

Browse files
rjfarmerpmocz
authored andcommitted
Turn off parallelisation in set_rotation_mixing_info
1 parent 959eec8 commit 05b8adc

File tree

1 file changed

+0
-2
lines changed

1 file changed

+0
-2
lines changed

star/private/rotation_mix_info.f90

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -109,7 +109,6 @@ subroutine set_rotation_mixing_info(s, ierr)
109109
unstable(:,1:nz) = .false.
110110
growth_limit = 1d-10
111111

112-
!$OMP PARALLEL DO PRIVATE(which, k, q, age_fraction, op_err) SCHEDULE(dynamic,2)
113112
do which = 1, num_instabilities
114113

115114
if (ierr /= 0) cycle
@@ -257,7 +256,6 @@ subroutine set_rotation_mixing_info(s, ierr)
257256
end select
258257

259258
end do
260-
!$OMP END PARALLEL DO
261259
if (failed('set_rotation_mixing_info instabilities', ierr)) return
262260

263261
if (s% D_omega_flag .and. s% doing_finish_load_model) then

0 commit comments

Comments
 (0)