[DRAFT] Remove redundant adjoint GPU communication routines

src/trans/gpu/internal/dir_trans_ctlad_mod.F90

@@ -81,10 +81,10 @@ SUBROUTINE DIR_TRANS_CTLAD(KF_UV_G,KF_SCALARS_G,KF_GP,KF_FS,KF_UV,KF_SCALARS,&
     USE FTINV_MOD,              ONLY: FTINV_HANDLE, PREPARE_FTINV, FTINV
     USE LTDIRAD_MOD,            ONLY: LTDIRAD_HANDLE, PREPARE_LTDIRAD, LTDIRAD
     USE TRLTOG_MOD,             ONLY: TRLTOG_HANDLE, PREPARE_TRLTOG, TRLTOG
-    USE TRLTOMAD_MOD,           ONLY: TRLTOMAD_HANDLE, PREPARE_TRLTOMAD, TRLTOMAD
-    USE TRLTOMAD_PACK_UNPACK,   ONLY: TRLTOMAD_PACK_HANDLE, TRLTOMAD_UNPACK_HANDLE, &
-      &                               PREPARE_TRLTOMAD_PACK, PREPARE_TRLTOMAD_UNPACK, TRLTOMAD_PACK, &
-      &                               TRLTOMAD_UNPACK
+    USE TRMTOL_MOD,             ONLY: TRMTOL_HANDLE, PREPARE_TRMTOL, TRMTOL
+    USE TRMTOL_PACK_UNPACK,     ONLY: TRMTOL_PACK_HANDLE, TRMTOL_UNPACK_HANDLE, &
+      &                               PREPARE_TRMTOL_PACK, PREPARE_TRMTOL_UNPACK
+    USE TRLTOMAD_PACK_UNPACK,   ONLY: TRLTOMAD_PACK, TRLTOMAD_UNPACK
     USE ABORT_TRANS_MOD,        ONLY: ABORT_TRANS
 
     IMPLICIT NONE
@@ -124,9 +124,9 @@ SUBROUTINE DIR_TRANS_CTLAD(KF_UV_G,KF_SCALARS_G,KF_GP,KF_FS,KF_UV,KF_SCALARS,&
     TYPE(BUFFERED_ALLOCATOR) :: ALLOCATOR
     TYPE(TRLTOG_HANDLE) :: HTRLTOG
     TYPE(FTINV_HANDLE) :: HFTINV
-    TYPE(TRLTOMAD_PACK_HANDLE) :: HTRLTOM_PACK
-    TYPE(TRLTOMAD_HANDLE) :: HTRLTOM
-    TYPE(TRLTOMAD_UNPACK_HANDLE) :: HTRLTOM_UNPACK
+    TYPE(TRMTOL_UNPACK_HANDLE) :: HTRMTOL_UNPACK
+    TYPE(TRMTOL_HANDLE) :: HTRMTOL
+    TYPE(TRMTOL_PACK_HANDLE) :: HTRMTOL_PACK
     TYPE(LTDIRAD_HANDLE) :: HLTDIR
 
     IF (NPROMATR > 0) THEN
@@ -137,9 +137,9 @@ SUBROUTINE DIR_TRANS_CTLAD(KF_UV_G,KF_SCALARS_G,KF_GP,KF_FS,KF_UV,KF_SCALARS,&
     ALLOCATOR = MAKE_BUFFERED_ALLOCATOR()
     IF (KF_FS > 0) THEN
       HLTDIR = PREPARE_LTDIRAD(ALLOCATOR, KF_FS, KF_UV)
-      HTRLTOM_UNPACK = PREPARE_TRLTOMAD_UNPACK(ALLOCATOR, KF_FS)
-      HTRLTOM = PREPARE_TRLTOMAD(ALLOCATOR, KF_FS)
-      HTRLTOM_PACK = PREPARE_TRLTOMAD_PACK(ALLOCATOR, KF_FS)
+      HTRMTOL_PACK = PREPARE_TRMTOL_PACK(ALLOCATOR, KF_FS)
+      HTRMTOL = PREPARE_TRMTOL(ALLOCATOR, KF_FS)
+      HTRMTOL_UNPACK = PREPARE_TRMTOL_UNPACK(ALLOCATOR, KF_FS)
       HFTINV = PREPARE_FTINV(ALLOCATOR,KF_FS)
     ENDIF
     HTRLTOG = PREPARE_TRLTOG(ALLOCATOR,KF_GP,KF_FS)
@@ -152,9 +152,9 @@ SUBROUTINE DIR_TRANS_CTLAD(KF_UV_G,KF_SCALARS_G,KF_GP,KF_FS,KF_UV,KF_SCALARS,&
                  & PSPSC3A,PSPSC3B,PSPSC2)
 
       CALL GSTATS(153,0)
-      CALL TRLTOMAD_UNPACK(ALLOCATOR,HTRLTOM_UNPACK,FOUBUF,ZINPS,ZINPA,ZINPS0,ZINPA0,KF_FS,KF_UV)
-      CALL TRLTOMAD(ALLOCATOR,HTRLTOM,FOUBUF_IN,FOUBUF,KF_FS)
-      CALL TRLTOMAD_PACK(ALLOCATOR,HTRLTOM_PACK,PREEL_COMPLEX,FOUBUF_IN,KF_FS)
+      CALL TRLTOMAD_UNPACK(ALLOCATOR,HTRMTOL_PACK,FOUBUF,ZINPS,ZINPA,ZINPS0,ZINPA0,KF_FS,KF_UV)
+      CALL TRMTOL(ALLOCATOR,HTRMTOL,FOUBUF,FOUBUF_IN,KF_FS)
+      CALL TRLTOMAD_PACK(ALLOCATOR,HTRMTOL_UNPACK,PREEL_COMPLEX,FOUBUF_IN,KF_FS)
       CALL GSTATS(153,1)
 
       ! fourier transform from PREEL_REAL to PREEL_COMPLEX (in-place!)

src/trans/gpu/internal/inv_trans_ctlad_mod.F90

@@ -88,7 +88,7 @@ SUBROUTINE INV_TRANS_CTLAD(KF_UV_G,KF_SCALARS_G,KF_GP,KF_FS,KF_OUT_LT,&
       USE TPM_TRANS,              ONLY: LDIVGP, LSCDERS, LUVDER, LVORGP, GROWING_ALLOCATION
       USE ABORT_TRANS_MOD,        ONLY: ABORT_TRANS
       USE BUFFERED_ALLOCATOR_MOD, ONLY: BUFFERED_ALLOCATOR, MAKE_BUFFERED_ALLOCATOR, INSTANTIATE_ALLOCATOR
-      USE TRMTOLAD_MOD,           ONLY: PREPARE_TRMTOLAD, TRMTOLAD_HANDLE, TRMTOLAD
+      USE TRLTOM_MOD,             ONLY: PREPARE_TRLTOM, TRLTOM_HANDLE, TRLTOM
       USE LTINVAD_MOD,            ONLY: PREPARE_LTINVAD, LTINVAD_HANDLE, LTINVAD
       USE TRMTOLAD_PACK_UNPACK,   ONLY: TRMTOLAD_PACK_HANDLE, TRMTOLAD_UNPACK_HANDLE, &
         &                               PREPARE_TRMTOLAD_PACK, PREPARE_TRMTOLAD_UNPACK, TRMTOLAD_PACK, &
@@ -141,7 +141,7 @@ SUBROUTINE INV_TRANS_CTLAD(KF_UV_G,KF_SCALARS_G,KF_GP,KF_FS,KF_OUT_LT,&
       TYPE(BUFFERED_ALLOCATOR) :: ALLOCATOR
       TYPE(LTINVAD_HANDLE) :: HLTINVAD
       TYPE(TRMTOLAD_PACK_HANDLE) :: HTRMTOL_PACK
-      TYPE(TRMTOLAD_HANDLE) :: HTRMTOL
+      TYPE(TRLTOM_HANDLE) :: HTRLTOM
       TYPE(TRMTOLAD_UNPACK_HANDLE) :: HTRMTOL_UNPACK
       TYPE(FTDIR_HANDLE) :: HFTDIR
       TYPE(TRGTOL_HANDLE) :: HTRGTOL
@@ -191,7 +191,7 @@ SUBROUTINE INV_TRANS_CTLAD(KF_UV_G,KF_SCALARS_G,KF_GP,KF_FS,KF_OUT_LT,&
       IF (KF_FS > 0) THEN
         HFTDIR = PREPARE_FTDIR(ALLOCATOR,IF_FOURIER)
         HTRMTOL_UNPACK = PREPARE_TRMTOLAD_UNPACK(ALLOCATOR,IF_LEG)
-        HTRMTOL = PREPARE_TRMTOLAD(ALLOCATOR,IF_LEG)
+        HTRLTOM = PREPARE_TRLTOM(ALLOCATOR,IF_LEG)
         HTRMTOL_PACK = PREPARE_TRMTOLAD_PACK(ALLOCATOR,KF_UV,KF_SCALARS,LVORGP,LDIVGP,LSCDERS)
         HLTINVAD = PREPARE_LTINVAD(ALLOCATOR,KF_UV,KF_SCALARS,LVORGP,LDIVGP,LSCDERS)
       ENDIF
@@ -218,7 +218,7 @@ SUBROUTINE INV_TRANS_CTLAD(KF_UV_G,KF_SCALARS_G,KF_GP,KF_FS,KF_OUT_LT,&
         ! Packing into send buffer, to fourier space and unpack
         CALL GSTATS(152,0)
         CALL TRMTOLAD_UNPACK(ALLOCATOR,HTRMTOL_UNPACK,FOUBUF,PREEL_COMPLEX,IF_LEG,IF_FOURIER)
-        CALL TRMTOLAD(ALLOCATOR,HTRMTOL,FOUBUF_IN,FOUBUF,IF_LEG)
+        CALL TRLTOM(ALLOCATOR,HTRLTOM,FOUBUF,FOUBUF_IN,IF_LEG)
         CALL TRMTOLAD_PACK(ALLOCATOR,HTRMTOL_PACK,ZOUTS,ZOUTA,ZOUTS0,ZOUTA0,FOUBUF_IN,IF_LEG)
         CALL GSTATS(152,1)