pkg/exch2/W2_EXCH2_PARAMS.h

C $Header:  $
C $Name:  $

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).
C     W2_myTileList     :: list of tiles owned by this process
C     W2_mpi_myTileList :: same as W2_myTileList, but contains
C                          information for all processes
      INTEGER W2_myTileList(nSx), W2_mpi_myTileList(nPx*nPy,nSx)
c     INTEGER E2_MSGHANDLES(2,MAX_NEIGHBOURS, nSx)
      COMMON /W2_EXCH2_PARAMS_I/ W2_myTileList, W2_mpi_myTileList

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

C     e2FillValue_RX :: filling value for null regions (face-corner halo regions)
      INTEGER e2BufrRecSize
      PARAMETER (
     & e2BufrRecSize = ( (sNx+2*OLx)*2*OLy+(sNy+2*OLy)*2*OLx)*Nr
     &)
      _RL E2BUFR1_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
      _RL E2BUFR2_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
      _RS E2BUFR1_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
      _RS E2BUFR2_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
      _R4 E2BUFR1_R4( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
      _R4 E2BUFR2_R4( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
      _R8 E2BUFR1_R8( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
      _R8 E2BUFR2_R8( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
      _RL e2FillValue_RL
      _RS e2FillValue_RS
      _R4 e2FillValue_R4
      _R8 e2FillValue_R8
      COMMON /W2_EXCH2_BUF_RL/ E2BUFR1_RL, E2BUFR2_RL, e2FillValue_RL
      COMMON /W2_EXCH2_BUF_RS/ E2BUFR1_RS, E2BUFR2_RS, e2FillValue_RS
      COMMON /W2_EXCH2_BUF_R4/ E2BUFR1_R4, E2BUFR2_R4, e2FillValue_R4
      COMMON /W2_EXCH2_BUF_R8/ E2BUFR1_R8, E2BUFR2_R8, e2FillValue_R8

1	C $Header: $
2	C $Name: $
3
4	C
5	C /==========================================================\
6	C \| W2_EXCH2_PARAMS.h Parameters for a WRAPPER2 topology \|
7	C \|==========================================================\|
8	C \| \|
9	C \==========================================================/
10
11	C W2 tile id variables (tile ids are no longer a function of
12	C process and subgrid indicies).
13	C W2_myTileList :: list of tiles owned by this process
14	C W2_mpi_myTileList :: same as W2_myTileList, but contains
15	C information for all processes
16	INTEGER W2_myTileList(nSx), W2_mpi_myTileList(nPx*nPy,nSx)
17	c INTEGER E2_MSGHANDLES(2,MAX_NEIGHBOURS, nSx)
18	COMMON /W2_EXCH2_PARAMS_I/ W2_myTileList, W2_mpi_myTileList
19
20	CHARACTER W2_myCommFlag(MAX_NEIGHBOURS,nSx)
21	COMMON /W2_EXCH2_PARAMS_C/ W2_myCommFlag
22
23	C e2FillValue_RX :: filling value for null regions (face-corner halo regions)
24	INTEGER e2BufrRecSize
25	PARAMETER (
26	& e2BufrRecSize = ( (sNx+2OLx)2OLy+(sNy+2OLy)2OLx)*Nr
27	&)
28	_RL E2BUFR1_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
29	_RL E2BUFR2_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
30	_RS E2BUFR1_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
31	_RS E2BUFR2_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
32	_R4 E2BUFR1_R4( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
33	_R4 E2BUFR2_R4( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
34	_R8 E2BUFR1_R8( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
35	_R8 E2BUFR2_R8( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
36	_RL e2FillValue_RL
37	_RS e2FillValue_RS
38	_R4 e2FillValue_R4
39	_R8 e2FillValue_R8
40	COMMON /W2_EXCH2_BUF_RL/ E2BUFR1_RL, E2BUFR2_RL, e2FillValue_RL
41	COMMON /W2_EXCH2_BUF_RS/ E2BUFR1_RS, E2BUFR2_RS, e2FillValue_RS
42	COMMON /W2_EXCH2_BUF_R4/ E2BUFR1_R4, E2BUFR2_R4, e2FillValue_R4
43	COMMON /W2_EXCH2_BUF_R8/ E2BUFR1_R8, E2BUFR2_R8, e2FillValue_R8
44