Version with persistent buffers. This commit is for trgtol only.

dmitrypek · Apr 11, 2024 · 6115947 · 6115947
1 parent 470b2ce
commit 6115947
Show file tree

Hide file tree

Showing 2 changed files with 159 additions and 99 deletions.
diff --git a/src/trans/internal/tpm_trans.F90 b/src/trans/internal/tpm_trans.F90
@@ -14,7 +14,7 @@ MODULE TPM_TRANS
 
 !
 USE PARKIND1  ,ONLY : JPIM,   JPRB
-
+USE TPM_DISTR ,ONLY : NPROC
 IMPLICIT NONE
 
 SAVE
@@ -55,4 +55,8 @@ MODULE TPM_TRANS
 
 LOGICAL :: LGPNORM = .FALSE.  ! indicates whether transform is being done for gpnorm
 
+INTEGER(KIND=JPIM), ALLOCATABLE :: IREQ_RECV_gtol(:),KRECVTOT_gtol(:),IREQ_SEND_gtol(:),KSENDTOT_gtol(:)
+REAL(KIND=JPRB), ALLOCATABLE :: PCOMBUFR_gtol(:,:),PCOMBUFS_gtol(:,:)
+INTEGER(KIND=JPIM) :: KNRECV_gtol,KNSEND_gtol,TRGTOL_COUNT=0
+
 END MODULE TPM_TRANS