From dd44c14d185efa4701bb48670815070ffa72be4a Mon Sep 17 00:00:00 2001 From: Sam Hatfield Date: Mon, 9 Oct 2023 13:31:21 +0100 Subject: [PATCH] Add missing variables to OpenACC directive DEFAULT(NONE) is specified so these loop variables must be declared as private. --- src/trans/gpu/internal/asre1b_mod.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/trans/gpu/internal/asre1b_mod.F90 b/src/trans/gpu/internal/asre1b_mod.F90 index 6e3add7d..e061a84e 100755 --- a/src/trans/gpu/internal/asre1b_mod.F90 +++ b/src/trans/gpu/internal/asre1b_mod.F90 @@ -90,8 +90,8 @@ SUBROUTINE ASRE1B(KFIELD,PAOA,PSOA) #ifdef ACCGPU !$ACC DATA PRESENT(PAOA,PSOA,D_MYMS,D_NPROCL,D_NSTAGT0B,D_NPNTGTB1,G_NDGLU,FOUBUF_IN,D_NUMP,& !$ACC& R_NDGNH,R_NDGL) -!$ACC PARALLEL LOOP COLLAPSE(2) DEFAULT(NONE) PRIVATE(KM,ISL,IPROC,ISTAN,IGLS,IPROCS,ISTAS) & -!$ACC& COPYIN(KFIELD) +!$ACC PARALLEL LOOP COLLAPSE(2) DEFAULT(NONE) COPYIN(KFIELD)& +!$ACC& PRIVATE(KM,ISL,IPROC,ISTAN,IGLS,IPROCS,ISTAS,KMLOC,JFLD,JGL) #endif DO KMLOC=1,D_NUMP DO JFLD=1,2*KFIELD