Skip to content

Commit

Permalink
Add missing variables to OpenACC directive
Browse files Browse the repository at this point in the history
DEFAULT(NONE) is specified so these loop variables must be declared as private.
  • Loading branch information
samhatfield authored and wdeconinck committed Jan 8, 2024
1 parent 82bfc09 commit 1e7a646
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/trans/gpu/internal/asre1b_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit 1e7a646

Please sign in to comment.