Allocate send/recv buffs even if nprocs eq 0

A better fix is to allocate 0 size SendBuff
and Recbuff if nprocs to send/receive are 0.

cime/src/externals/mct/mct/m_Rearranger.F90

@@ -792,9 +792,6 @@ subroutine rearrange_(SourceAVin,TargetAV,InRearranger,Tag,Sum,&
 
   ! ALLOCATE DATA STRUCTURES !
 
-  ! IF SENDING DATA
-  if(SendRout%nprocs > 0) then
-
      ! IF SENDING INTEGER DATA
      if(numi .ge. 1) then
 
@@ -825,17 +822,8 @@ subroutine rearrange_(SourceAVin,TargetAV,InRearranger,Tag,Sum,&
 
 
      endif
-  else
-! the m_swap call needs these allocated even if
-! SendRout%nprocs = 0.
-     if (useswapm) then
-        if(numi .ge. 1)  allocate(ISendBuf(1),stat=ier)
-        if(numr .ge. 1)  allocate(RSendBuf(1),stat=ier)
-     endif
-  endif
 
   ! IF RECEVING DATA
-  if(RecvRout%nprocs > 0) then
 
      ! IF RECEIVING INTEGER DATA
      if(numi .ge. 1) then
@@ -868,15 +856,6 @@ subroutine rearrange_(SourceAVin,TargetAV,InRearranger,Tag,Sum,&
 
      endif
 
-  else
-! the m_swap call needs these allocated even if
-! RecvRout%nprocs = 0.
-     if (useswapm) then
-        if(numi .ge. 1)  allocate(IRecvBuf(1),stat=ier)
-        if(numr .ge. 1)  allocate(RRecvBuf(1),stat=ier)
-     endif
-  endif
-
 !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 
   ! INVERT PE LIST !
@@ -1346,30 +1325,12 @@ subroutine rearrange_(SourceAVin,TargetAV,InRearranger,Tag,Sum,&
 
   ! DEALLOCATE ALL STRUCTURES
 
-  if(SendRout%nprocs > 0) then
-
      if(numi .ge. 1) then
 
 	! Deallocate the send buffer
 	deallocate(ISendBuf,stat=ier)
 	if(ier/=0) call die(myname_,'deallocate(ISendBuf)',ier)
 
-     endif
-
-     if(numr .ge. 1) then
-
-	! Deallocate the send buffer
-	deallocate(RSendBuf,stat=ier)
-	if(ier/=0) call die(myname_,'deallocate(RSendBuf)',ier)
-
-     endif
-
-  endif
-
-  if(RecvRout%nprocs > 0) then
-
-     if(numi .ge. 1) then
-
 	! Deallocate the receive buffer
 	deallocate(IRecvBuf,stat=ier)
 	if(ier/=0) call die(myname_,'deallocate(IRecvBuf)',ier)
@@ -1378,14 +1339,16 @@ subroutine rearrange_(SourceAVin,TargetAV,InRearranger,Tag,Sum,&
 
      if(numr .ge. 1) then
 
+	! Deallocate the send buffer
+	deallocate(RSendBuf,stat=ier)
+	if(ier/=0) call die(myname_,'deallocate(RSendBuf)',ier)
+
 	! Deallocate the receive buffer
 	deallocate(RRecvBuf,stat=ier)
 	if(ier/=0) call die(myname_,'deallocate(RRecvBuf)',ier)
 
      endif
 
-  endif
-
   nullify(SendRout,RecvRout)
 
  end subroutine rearrange_