DBT: removed grain-size from omp-schedule

- Fixed performance in general.
This commit is contained in:
Hans Pabst 2025-08-28 15:22:38 +02:00
parent f5d0f77abf
commit a3edcc8fd9

View file

@ -275,12 +275,12 @@ CONTAINS
!$OMP END MASTER
ELSE
!$OMP DO SCHEDULE(static, 512)
!$OMP DO SCHEDULE(static)
DO i = 1, SIZE(buffer_send(0)%blocks, 1)
buffer_recv(0)%blocks(i, :) = buffer_send(0)%blocks(i, :)
END DO
!$OMP END DO
!$OMP DO SCHEDULE(static, 512)
!$OMP DO SCHEDULE(static)
DO i = 1, SIZE(buffer_send(0)%data)
buffer_recv(0)%data(i) = buffer_send(0)%data(i)
END DO