Add missing copy-in for D_NUMP (OpenMP)

ecmwf-ifs · Feb 3, 2025 · 1177da8 · 1177da8
1 parent 01c4641
commit 1177da8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/trans/gpu/external/setup_trans.F90 b/src/trans/gpu/external/setup_trans.F90
@@ -565,7 +565,7 @@ SUBROUTINE SETUP_TRANS(KSMAX,KDGL,KDLON,KLOEN,LDSPLIT,PSTRET,&
   !$OMP TARGET ENTER DATA MAP(TO:R)
   !$OMP TARGET ENTER DATA MAP(TO:F%RLAPIN,F%RACTHE,F%RW)
   !$OMP TARGET ENTER DATA MAP(TO:FG%ZAA,FG%ZAS,FG%ZEPSNM)
-  !$OMP TARGET ENTER DATA MAP(TO:D%MYMS,D%NPNTGTB0,D%NPNTGTB1,D%NSTAGT0B,D%NSTAGT1B,D%NSTAGTF,&
+  !$OMP TARGET ENTER DATA MAP(TO:D%NUMP,D%MYMS,D%NPNTGTB0,D%NPNTGTB1,D%NSTAGT0B,D%NSTAGT1B,D%NSTAGTF,&
   !$OMP&                         D%NPROCM,D%NPROCL,D%NPTRLS,D%MSTABF,D%NASM0,D%OFFSETS_GEMM1,&
   !$OMP&                         D%OFFSETS_GEMM2)
   !$OMP TARGET ENTER DATA MAP(TO:G%NDGLU,G%NMEN,G%NLOEN)