Skip to content

Commit 8cada11

Browse files
sbryngelsonclaude
andcommitted
Add missing A, B, C to THINC GPU private clause
These scalars are written per-thread inside the parallel loop (lines 278-280) but were missing from the private list, causing a GPU data race on all backends. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
1 parent 5d2a534 commit 8cada11

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/simulation/m_muscl.fpp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -253,7 +253,7 @@ contains
253253
#:for MUSCL_DIR, XYZ in [(1, 'x'), (2, 'y'), (3, 'z')]
254254
if (muscl_dir == ${MUSCL_DIR}$) then
255255

256-
$:GPU_PARALLEL_LOOP(collapse=3,private='[j,k,l,aCL,aC,aCR,aTHINC,moncon,sign,qmin,qmax,rho_b,rho_e]')
256+
$:GPU_PARALLEL_LOOP(collapse=3,private='[j,k,l,aCL,aC,aCR,aTHINC,moncon,sign,qmin,qmax,A,B,C,rho_b,rho_e]')
257257
do l = is3_muscl%beg, is3_muscl%end
258258
do k = is2_muscl%beg, is2_muscl%end
259259
do j = is1_muscl%beg, is1_muscl%end

0 commit comments

Comments
 (0)