Skip to content

Commit 989b1e7

Browse files
committed
Fix nvfortran GPU build: drop pure from subroutines with GPU_LOOP directives
GPU_LOOP macros expand to OpenMP directives, which are not permitted inside pure subroutines (nvfortran S-0155). Remove pure from s_compute_re_visc and s_compute_mixture_re, which each contain multiple GPU_LOOP macros. The pure qualifier was semantically correct but syntactically invalid for older nvfortran (24.3, 24.5, 24.11) in OpenMP target offload builds.
1 parent 266c79e commit 989b1e7

1 file changed

Lines changed: 2 additions & 2 deletions

File tree

src/simulation/m_re_visc.fpp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -177,7 +177,7 @@ contains
177177
!! @param grad_x_vf Optional pre-computed x-direction gradients
178178
!! @param grad_y_vf Optional pre-computed y-direction gradients
179179
!! @param grad_z_vf Optional pre-computed z-direction gradients
180-
pure subroutine s_compute_re_visc(q_prim_vf, alpha_visc, j, k, l, Re_visc_per_phase, grad_x_vf, grad_y_vf, grad_z_vf)
180+
subroutine s_compute_re_visc(q_prim_vf, alpha_visc, j, k, l, Re_visc_per_phase, grad_x_vf, grad_y_vf, grad_z_vf)
181181

182182
$:GPU_ROUTINE(parallelism='[seq]')
183183

@@ -281,7 +281,7 @@ contains
281281
!! @param alpha Volume fractions
282282
!! @param Re_per_phase Per-phase Re_visc = 1/mu
283283
!! @param Re_mix Output: mixture Re (shear and bulk)
284-
pure subroutine s_compute_mixture_re(alpha, Re_per_phase, Re_mix)
284+
subroutine s_compute_mixture_re(alpha, Re_per_phase, Re_mix)
285285

286286
$:GPU_ROUTINE(parallelism='[seq]')
287287

0 commit comments

Comments
 (0)