Removed simd call as it isn't compatible with the function anyway

MintonGroup · Nov 17, 2022 · 167c09a · 167c09a
1 parent 33b77d1
commit 167c09a
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/src/helio/helio_drift.f90 b/src/helio/helio_drift.f90
@@ -114,11 +114,9 @@ subroutine helio_drift_linear_all(xh, pt, dt, n, lmask)
       ! Internals
       integer(I4B) :: i
 
-      !$omp parallel do simd default(shared) schedule(static)
       do i = 1, n
          if (lmask(i)) call helio_drift_linear_one(xh(1,i), xh(2,i), xh(3,i), pt(1), pt(2), pt(3), dt) 
       end do
-      !$omp end parallel do simd
 
       return
    end subroutine helio_drift_linear_all