fix(omp): add missing end of parallel do

Nanoseb · Nanoseb · commit 317c88b0170b · 2023-12-08T15:47:22.000Z
diff --git a/src/omp/exec_dist.f90 b/src/omp/exec_dist.f90
@@ -45,6 +45,7 @@ subroutine exec_dist_tds_compact( &
             tdsops%dist_fw, tdsops%dist_bw, tdsops%dist_af &
             )
       end do
+      !$omp end parallel do
 
       ! halo exchange for 2x2 systems
       call sendrecv_fields(du_recv_s, du_recv_e, du_send_s, du_send_e, &

Original file line number	Diff line number	Diff line change
`@@ -45,6 +45,7 @@ subroutine exec_dist_tds_compact( &`
`45`	`45`	`tdsops%dist_fw, tdsops%dist_bw, tdsops%dist_af &`
`46`	`46`	`)`
`47`	`47`	`end do`
	`48`	`+ !$omp end parallel do`
`48`	`49`
`49`	`50`	`! halo exchange for 2x2 systems`
`50`	`51`	`call sendrecv_fields(du_recv_s, du_recv_e, du_send_s, du_send_e, &`