pkg/exch2/W2_EXCH2_PARAMS.h

C $Header: /u/u0/gcmpack/MITgcm/pkg/exch2/W2_EXCH2_PARAMS.h,v 1.2 2004/03/17 03:34:03 cnh 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*OLy+(sNy+2*OLy)*2*OLx)*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 )
      _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 )
      COMMON /W2_EXCH2_BUF_RL/ E2BUFR1_RL, E2BUFR2_RL
      COMMON /W2_EXCH2_BUF_RS/ E2BUFR1_RS, E2BUFR2_RS
      COMMON /W2_EXCH2_BUF_R4/ E2BUFR1_R4, E2BUFR2_R4
      COMMON /W2_EXCH2_BUF_R8/ E2BUFR1_R8, E2BUFR2_R8
1	cnh	1.3	C $Header: /u/u0/gcmpack/MITgcm/pkg/exch2/W2_EXCH2_PARAMS.h,v 1.2 2004/03/17 03:34:03 cnh Exp $
2	afe	1.1	C
3			C /==========================================================\
4			C \| W2_EXCH2_PARAMS.h Parameters for a WRAPPER2 topology \|
5			C \|==========================================================\|
6			C \| \|
7			C \==========================================================/
8
9			C W2 tile id variables (tile ids are no longer a function of
10			C process and subgrid indicies).
11			INTEGER W2_myTileList(nSx)
12			INTEGER E2_MSGHANDLES(2,MAX_NEIGHBOURS, nSx)
13			COMMON /W2_EXCH2_PARAMS_I/ W2_myTileList
14
15			CHARACTER W2_myCommFlag(MAX_NEIGHBOURS,nSx)
16			COMMON /W2_EXCH2_PARAMS_C/ W2_myCommFlag
17
18			INTEGER e2BufrRecSize
19	cnh	1.2	PARAMETER (
20			& e2BufrRecSize = ( (sNx+2OLx)2OLy+(sNy+2OLy)2OLx)*Nr
21			&)
22	afe	1.1	_RL E2BUFR1_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
23			_RL E2BUFR2_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
24			_RL E2BUFR1_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
25			_RL E2BUFR2_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
26	cnh	1.3	_R4 E2BUFR1_R4( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
27			_R4 E2BUFR2_R4( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
28			_R8 E2BUFR1_R8( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
29			_R8 E2BUFR2_R8( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
30	afe	1.1	COMMON /W2_EXCH2_BUF_RL/ E2BUFR1_RL, E2BUFR2_RL
31			COMMON /W2_EXCH2_BUF_RS/ E2BUFR1_RS, E2BUFR2_RS
32	cnh	1.3	COMMON /W2_EXCH2_BUF_R4/ E2BUFR1_R4, E2BUFR2_R4
33			COMMON /W2_EXCH2_BUF_R8/ E2BUFR1_R8, E2BUFR2_R8