From 90dd381a7a24d7221132bf82abe72367720be8c0 Mon Sep 17 00:00:00 2001
From: "Igor S. Gerasimov" <foxtranigor@gmail.com>
Date: Thu, 11 Sep 2025 14:17:53 +0200
Subject: [PATCH] Remove strange wordlen

---
 mpp/include/mpp_do_redistribute.fh | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/mpp/include/mpp_do_redistribute.fh b/mpp/include/mpp_do_redistribute.fh
index 5acf4bb314..29cd8f6734 100644
--- a/mpp/include/mpp_do_redistribute.fh
+++ b/mpp/include/mpp_do_redistribute.fh
@@ -35,7 +35,7 @@
       integer :: to_pe, from_pe
       MPP_TYPE_ :: buffer(size(mpp_domains_stack(:)))
       pointer( ptr, buffer )
-      integer :: buffer_pos, wordlen, errunit
+      integer :: buffer_pos, errunit
 
 !fix ke
       errunit = stderr()
@@ -45,7 +45,6 @@
 
       buffer_pos = 0
       ptr = LOC(mpp_domains_stack)
-      wordlen = size(TRANSFER(buffer(1),mpp_domains_stack))
 
 !pre-post recv
       n = d_comm%Rlist_size