--- MITgcm/pkg/exch2/exch2_recv_rx2.template	2009/05/30 21:18:59	1.10
+++ MITgcm/pkg/exch2/exch2_recv_rx2.template	2012/09/04 00:45:25	1.12
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/exch2/exch2_recv_rx2.template,v 1.10 2009/05/30 21:18:59 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/exch2/exch2_recv_rx2.template,v 1.12 2012/09/04 00:45:25 jmc Exp $
 C $Name:  $
 
 #include "CPP_EEOPTIONS.h"
@@ -31,11 +31,11 @@
 
 C !INPUT/OUTPUT PARAMETERS:
 C     === Routine arguments ===
-C     thisTile      :: receiveing tile Id. number
+C     thisTile      :: receiving tile Id. number
 C     nN            :: Neighbour entry that we are processing
 C     e2BufrRecSize :: Number of elements in each entry of e2Bufr1_RX
-C     iBufr1        :: number of buffer-1 elements to transfert
-C     iBufr2        :: number of buffer-2 elements to transfert
+C     iBufr1        :: number of buffer-1 elements to transfer
+C     iBufr2        :: number of buffer-2 elements to transfer
 C     e2Bufr1_RX    :: Data transport buffer array. This array is used in one of
 C     e2Bufr2_RX    :: two ways. For PUT communication the entry in the buffer
 C                   :: associated with the source for this receive (determined
@@ -80,8 +80,8 @@
 C      Setup MPI stuff here
        theTag1 = (soT-1)*W2_maxNeighbours*2 + oNb-1
        theTag2 = (soT-1)*W2_maxNeighbours*2 + W2_maxNeighbours + oNb-1
-       tProc = exch2_tProc(thisTile)-1
-       sProc = exch2_tProc(soT)-1
+       tProc = W2_tileProc(thisTile)-1
+       sProc = W2_tileProc(soT)-1
        theType = _MPI_TYPE_RX
        CALL MPI_Recv( e2Bufr1_RX, iBufr1, theType, sProc,
      &                theTag1, MPI_COMM_MODEL, mpiStatus, mpiRc )