Merge pull request #188 from PaulMullowney/trgtol_gstats

Missing GSTATS in trgtol
ecmwf-ifs · Dec 18, 2024 · 5a0a34e · 5a0a34e
2 parents 094eca2 + 4db7b34
commit 5a0a34e
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/trans/gpu/internal/dir_trans_ctl_mod.F90 b/src/trans/gpu/internal/dir_trans_ctl_mod.F90
@@ -156,10 +156,12 @@ SUBROUTINE DIR_TRANS_CTL(KF_UV_G,KF_SCALARS_G,KF_GP,KF_FS,KF_UV,KF_SCALARS,&
     CALL INSTANTIATE_ALLOCATOR(ALLOCATOR, GROWING_ALLOCATION)
 
     ! from the PGP arrays to PREEL_REAL
+    CALL GSTATS(158,0)
     CALL TRGTOL(ALLOCATOR,HTRGTOL,PREEL_REAL,KF_FS,KF_GP,KF_UV_G,KF_SCALARS_G,&
      & KVSETUV=KVSETUV,KVSETSC=KVSETSC,&
      & KVSETSC3A=KVSETSC3A,KVSETSC3B=KVSETSC3B,KVSETSC2=KVSETSC2,&
      & PGP=PGP,PGPUV=PGPUV,PGP3A=PGP3A,PGP3B=PGP3B,PGP2=PGP2)
+    CALL GSTATS(158,1)
 
     IF (KF_FS > 0) THEN