C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/exch2/W2_EXCH2_PARAMS.h,v 1.1 2004/01/09 20:46:09 afe Exp $
C
C     /==========================================================\
C     | W2_EXCH2_PARAMS.h Parameters for a WRAPPER2 topology     |
C     |==========================================================|
C     |                                                          |
C     \==========================================================/

C     W2 tile id variables (tile ids are no longer a function of
C     process and subgrid indicies).
      INTEGER W2_myTileList(nSx)
      INTEGER E2_MSGHANDLES(2,MAX_NEIGHBOURS, nSx)
      COMMON /W2_EXCH2_PARAMS_I/ W2_myTileList

      CHARACTER W2_myCommFlag(MAX_NEIGHBOURS,nSx)
      COMMON /W2_EXCH2_PARAMS_C/ W2_myCommFlag

      INTEGER e2BufrRecSize
      PARAMETER ( e2BufrRecSize = ( (sNx+2*OLx)*2+(sNy+2*OLy)*2)*Nr )
      _RL E2BUFR1_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
      _RL E2BUFR2_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
      _RL E2BUFR1_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
      _RL E2BUFR2_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
      COMMON /W2_EXCH2_BUF_RL/ E2BUFR1_RL, E2BUFR2_RL
      COMMON /W2_EXCH2_BUF_RS/ E2BUFR1_RS, E2BUFR2_RS