Skip to content

Commit 030fcc9

Browse files
committed
fix: assign grid_axis pointer components on device via GPU_PARALLEL to fix OpenMP struct pointer attachment
1 parent db77ead commit 030fcc9

1 file changed

Lines changed: 9 additions & 0 deletions

File tree

src/simulation/m_global_parameters.fpp

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1228,6 +1228,9 @@ contains
12281228
@:PREFER_GPU(dx)
12291229
x%cb => x_cb; x%cc => x_cc; x%spacing => dx
12301230
$:GPU_ENTER_DATA(attach='[x%cb, x%cc, x%spacing]')
1231+
#:call GPU_PARALLEL(default=None)
1232+
x%cb => x_cb; x%cc => x_cc; x%spacing => dx
1233+
#:endcall GPU_PARALLEL
12311234
12321235
if (n == 0) return
12331236
@:ALLOCATE(y_cb(-1 - buff_size:n + buff_size))
@@ -1238,6 +1241,9 @@ contains
12381241
@:PREFER_GPU(dy)
12391242
y%cb => y_cb; y%cc => y_cc; y%spacing => dy
12401243
$:GPU_ENTER_DATA(attach='[y%cb, y%cc, y%spacing]')
1244+
#:call GPU_PARALLEL(default=None)
1245+
y%cb => y_cb; y%cc => y_cc; y%spacing => dy
1246+
#:endcall GPU_PARALLEL
12411247
12421248
if (p == 0) return
12431249
@:ALLOCATE(z_cb(-1 - buff_size:p + buff_size))
@@ -1248,6 +1254,9 @@ contains
12481254
@:PREFER_GPU(dz)
12491255
z%cb => z_cb; z%cc => z_cc; z%spacing => dz
12501256
$:GPU_ENTER_DATA(attach='[z%cb, z%cc, z%spacing]')
1257+
#:call GPU_PARALLEL(default=None)
1258+
z%cb => z_cb; z%cc => z_cc; z%spacing => dz
1259+
#:endcall GPU_PARALLEL
12511260
12521261
end subroutine s_initialize_global_parameters_module
12531262

0 commit comments

Comments
 (0)