From f214d167b04365778b7e07cef78cd50ee194e860 Mon Sep 17 00:00:00 2001 From: Lukas Mosimann Date: Sun, 8 Dec 2024 22:34:23 -0800 Subject: [PATCH] missing imports, fix diffs --- src/trans/gpu/external/setup_trans.F90 | 2 +- src/trans/gpu/internal/ftdir_mod.F90 | 2 +- src/trans/gpu/internal/ftinv_mod.F90 | 2 +- src/trans/gpu/internal/trgtol_mod.F90 | 4 +++- src/trans/gpu/internal/trltog_mod.F90 | 1 + 5 files changed, 7 insertions(+), 4 deletions(-) diff --git a/src/trans/gpu/external/setup_trans.F90 b/src/trans/gpu/external/setup_trans.F90 index 5b91a7d9..89427f33 100755 --- 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 index 54468007..7d373bbc 100755 --- 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 index 21de8e95..ddd07deb 100755 --- 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 index 794c1f99..d2420a18 100755 --- 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 index ba17789b..072ee014 100755 --- 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