Skip to content

Commit 4aa5745

Browse files
committed
fix Cray-OMP segfault - ACC-only for nc_iface_vel GPU_DECLARE
1 parent 11f8de6 commit 4aa5745

1 file changed

Lines changed: 4 additions & 0 deletions

File tree

src/simulation/m_rhs.fpp

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -83,12 +83,16 @@ module m_rhs
8383
!> @}
8484

8585
type(vector_field), allocatable, dimension(:) :: nc_iface_vel_n
86+
#if defined(MFC_OpenACC)
8687
$:GPU_DECLARE(create='[nc_iface_vel_n]')
88+
#endif
8789

8890
!> hat_R-pass interface velocities for fused dual-pass HLLD: the axisymmetric geometric source consumes both passes' face
8991
!! velocities after the direction loop, so the hat_R values need their own field set (hat_L uses nc_iface_vel_n).
9092
type(vector_field), allocatable, dimension(:) :: nc_iface_vel_hatR_n
93+
#if defined(MFC_OpenACC)
9194
$:GPU_DECLARE(create='[nc_iface_vel_hatR_n]')
95+
#endif
9296
9397
type(vector_field), allocatable, dimension(:) :: qL_prim, qR_prim
9498
#if defined(MFC_OpenACC)

0 commit comments

Comments
 (0)