diff --git a/src/trans/internal/trgtol_mod.F90 b/src/trans/internal/trgtol_mod.F90
index 8f1776278..451a42446 100644
--- a/src/trans/internal/trgtol_mod.F90
+++ b/src/trans/internal/trgtol_mod.F90
@@ -177,7 +177,7 @@ SUBROUTINE TRGTOL_PROLOG(KF_FS,KF_GP,KVSET,&
 
 INTEGER(KIND=JPIM) :: IGPTRRECV(NPRTRNS)
 INTEGER(KIND=JPIM) :: IFIRSTLAT, IGL, IGLL, ILASTLAT, JROC, IPOS, ISETB, ISETA
-INTEGER(KIND=JPIM) :: ISETV, J, JFLD, JGL, JL, ISETW,  INDOFFX,IBUFLENS,IBUFLENR
+INTEGER(KIND=JPIM) :: ISETV, J, JFLD, JGL, JL, ISETW,  INDOFFX
 
 !     ------------------------------------------------------------------
 
@@ -189,8 +189,6 @@ SUBROUTINE TRGTOL_PROLOG(KF_FS,KF_GP,KVSET,&
 CALL INIGPTR(KGPTRSEND,IGPTRRECV)
 
 INDOFFX  = 0
-IBUFLENS = 0
-IBUFLENR = 0
 KNRECV   = 0
 KNSEND   = 0
 
@@ -206,7 +204,6 @@ SUBROUTINE TRGTOL_PROLOG(KF_FS,KF_GP,KVSET,&
   KSENDTOT(JROC) = IGPTRRECV(ISETW)*IPOS
 
   IF( JROC /= MYPROC) THEN
-    IBUFLENS = MAX(IBUFLENS,KSENDTOT(JROC))
     IF(KSENDTOT(JROC) > 0) THEN
       KNSEND = KNSEND+1
       KSEND(KNSEND)=JROC
@@ -227,7 +224,6 @@ SUBROUTINE TRGTOL_PROLOG(KF_FS,KF_GP,KVSET,&
     KNRECV = KNRECV + 1
     KRECV(KNRECV)=JROC
   ENDIF
-  IF( JROC /= MYPROC) IBUFLENR = MAX(IBUFLENR,KRECVTOT(JROC))
 
   IF(IPOS > 0) THEN
     KNDOFF(JROC) = INDOFFX