Skip to content

Commit 689e492

Browse files
committed
OpenMP offload: add comment explaining workaround for missing kernels command
1 parent 0302c85 commit 689e492

File tree

2 files changed

+6
-0
lines changed

2 files changed

+6
-0
lines changed

src/core/field_RANKSUFF_module.fypp

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -579,6 +579,9 @@ $:offload_macros.detach(ptr=['SELF%DEVPTR'], indent=6)
579579
CALL SELF%GET_DEVICE_DATA_RDONLY (PTR)
580580
ALLOCATE (ZZ, MOLD=PTR)
581581

582+
#! OpenMP offload does not have an equivalent for the kernels command,
583+
#! which means we cannot rely on array notation here and must generate
584+
#! a nested gang-vector loop.
582585
#:for i in range(ft.rank, 0, -1)
583586
#:set indent = ' ' * (5 + (ft.rank-i)*2)
584587
#:if i == ft.rank

src/util/field_RANKSUFF_clone_module.fypp

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -53,6 +53,9 @@ SUBROUTINE ${ft.name}$_CLONE_ON_${TARGET}$(YL, YR)
5353
ZR => GET_${TARGET}$_DATA_RDONLY (YR)
5454
ZL => GET_${TARGET}$_DATA_RDWR (YL)
5555

56+
#! OpenMP offload does not have an equivalent for the kernels command,
57+
#! which means we cannot rely on array notation here and must generate
58+
#! a nested gang-vector loop.
5659
#:for i in range(ft.rank, 0, -1)
5760
#:set indent = ' ' * (1 + (ft.rank-i)*2)
5861
#:if i == ft.rank

0 commit comments

Comments
 (0)