Skip to content

Commit 7be7cf0

Browse files
committed
fix(thinc): use create= for GPU_DECLARE of static-init quadrature arrays
1 parent 3ac6f68 commit 7be7cf0

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

src/simulation/m_thinc.fpp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -30,7 +30,7 @@ module m_thinc
3030
real(wp) :: gq3_pts(3) = [-5e-1_wp*0.7745966692414834_wp, 0._wp, 5e-1_wp*0.7745966692414834_wp]
3131
!> Weights: 5/18, 8/18, 5/18
3232
real(wp) :: gq3_wts(3) = [5._wp/18._wp, 8._wp/18._wp, 5._wp/18._wp]
33-
$:GPU_DECLARE(copyin='[gq3_pts, gq3_wts]')
33+
$:GPU_DECLARE(create='[gq3_pts, gq3_wts]')
3434

3535
real(wp), allocatable, dimension(:,:,:,:) :: mthinc_nhat !> Unit normal vector
3636
real(wp), allocatable, dimension(:,:,:) :: mthinc_d !> Interface position parameter

0 commit comments

Comments
 (0)