missing imports, fix diffs

lukasm91 · Dec 9, 2024 · f214d16 · f214d16
1 parent 5a1d597
commit f214d16
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 4 deletions.
diff --git a/src/trans/gpu/external/setup_trans.F90 b/src/trans/gpu/external/setup_trans.F90
@@ -98,7 +98,7 @@ SUBROUTINE SETUP_TRANS(KSMAX,KDGL,KDLON,KLOEN,LDSPLIT,PSTRET,&
 !        R. El Khatib 07-Mar-2016 Better flexibility for Legendre polynomials computation in stretched mode
 !     ------------------------------------------------------------------
 
-USE PARKIND1,        ONLY: JPIM, JPRB, JPRD, JPIB
+USE PARKIND1,        ONLY: JPIM, JPRB, JPRD
 USE PARKIND_ECTRANS, ONLY: JPRBT
 
 !ifndef INTERFACE

diff --git a/src/trans/gpu/internal/ftdir_mod.F90 b/src/trans/gpu/internal/ftdir_mod.F90
@@ -22,7 +22,7 @@ MODULE FTDIR_MOD
 CONTAINS
 
   FUNCTION PREPARE_FTDIR(ALLOCATOR,KF_FS) RESULT(HFTDIR)
-    USE PARKIND_ECTRANS,        ONLY: JPIM, JPRBT
+    USE PARKIND_ECTRANS,        ONLY: JPIM, JPRBT, JPIB
     USE TPM_DISTR,              ONLY: D
     USE BUFFERED_ALLOCATOR_MOD, ONLY: BUFFERED_ALLOCATOR, RESERVE
     USE ISO_C_BINDING,          ONLY: C_SIZE_T, C_SIZEOF

diff --git a/src/trans/gpu/internal/ftinv_mod.F90 b/src/trans/gpu/internal/ftinv_mod.F90
@@ -21,7 +21,7 @@ MODULE FTINV_MOD
   END TYPE
 CONTAINS
   FUNCTION PREPARE_FTINV(ALLOCATOR,KF_FS) RESULT(HFTINV)
-    USE PARKIND_ECTRANS,        ONLY: JPIM, JPRBT
+    USE PARKIND_ECTRANS,        ONLY: JPIM, JPRBT, JPIB
     USE TPM_DISTR, ONLY: D
     USE BUFFERED_ALLOCATOR_MOD, ONLY: BUFFERED_ALLOCATOR, RESERVE
     USE ISO_C_BINDING,          ONLY: C_SIZE_T, C_SIZEOF

diff --git a/src/trans/gpu/internal/trgtol_mod.F90 b/src/trans/gpu/internal/trgtol_mod.F90
@@ -1,5 +1,6 @@
 #define ALIGN(I, A) (((I)+(A)-1)/(A)*(A))
-! (C) Copyright 1995- ECMWF.,KMLOC,KM  ! (C) Copyright 1995- Meteo-France.
+! (C) Copyright 1995- ECMWF.
+! (C) Copyright 1995- Meteo-France.
 ! (C) Copyright 2022- NVIDIA.
 !
 ! This software is licensed under the terms of the Apache Licence Version 2.0
@@ -717,6 +718,7 @@ SUBROUTINE TRGTOL(ALLOCATOR,HTRGTOL,PREEL_REAL,KF_FS,KF_GP,KF_UV_G,KF_SCALARS_G,
 #ifdef ACCGPU
       !$ACC END DATA
 #endif
+
     ENDIF
 
 

diff --git a/src/trans/gpu/internal/trltog_mod.F90 b/src/trans/gpu/internal/trltog_mod.F90
@@ -620,6 +620,7 @@ SUBROUTINE TRLTOG(ALLOCATOR,HTRLTOG,PREEL_REAL,KF_FS,KF_GP,KF_UV_G,KF_SCALARS_G,
 #ifdef ACCGPU
       !$ACC END DATA
 #endif
+
     ENDIF
 
     ! Figure out processes that send or recv something
-Original file line number
+Diff line change
@@ Expand Up @@
     #ifdef ACCGPU
           !$ACC END DATA
     #endif
         ENDIF
         ! Figure out processes that send or recv something
@@ Expand Down @@