From af936993f80687e279c89afe1ee2eced543bc7f7 Mon Sep 17 00:00:00 2001 From: Sam Hatfield Date: Wed, 11 Dec 2024 17:48:48 +0200 Subject: [PATCH] Add OpenMP to ext_acc --- src/trans/gpu/algor/ext_acc.F90 | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/trans/gpu/algor/ext_acc.F90 b/src/trans/gpu/algor/ext_acc.F90 index ffc760e6..4239d95b 100644 --- a/src/trans/gpu/algor/ext_acc.F90 +++ b/src/trans/gpu/algor/ext_acc.F90 @@ -290,6 +290,7 @@ subroutine ext_acc_create(ptrs, stream) !$acc enter data create(pp) async(stream_act) #endif #ifdef OMPGPU + !$omp target enter data map(alloc:pp) #endif enddo end subroutine @@ -327,6 +328,7 @@ subroutine ext_acc_copyin(ptrs, stream) !$acc enter data copyin(pp) async(stream_act) #endif #ifdef OMPGPU + !$omp target enter data map(to:pp) #endif enddo end subroutine @@ -363,6 +365,7 @@ subroutine ext_acc_copyout(ptrs, stream) !$acc exit data copyout(pp) async(stream_act) #endif #ifdef OMPGPU + !$omp target exit data map(from:pp) #endif enddo end subroutine @@ -399,6 +402,7 @@ subroutine ext_acc_delete(ptrs, stream) !$acc exit data delete(pp) async(stream_act) #endif #ifdef OMPGPU + !$omp target exit data map(delete:pp) #endif enddo end subroutine