1 |
C $Header: /u/gcmpack/MITgcm/pkg/exch2/W2_EXCH2_PARAMS.h,v 1.7 2007/10/09 00:03:33 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
CBOP |
5 |
C !ROUTINE: W2_EXCH2_BUFFER.h |
6 |
C !INTERFACE: |
7 |
C #include W2_EXCH2_BUFFER.h |
8 |
|
9 |
C !DESCRIPTION: |
10 |
C *==========================================================* |
11 |
C | W2_EXCH2_BUFFER.h |
12 |
C | o Definition of W2-EXCH2 Buffers |
13 |
C *==========================================================* |
14 |
CEOP |
15 |
|
16 |
C e2BufrRecSize :: Exch2 Buffer size |
17 |
INTEGER e2BufrRecSize |
18 |
PARAMETER ( e2BufrRecSize |
19 |
& = ( (sNx+2*OLx)*2*OLy+(sNy+2*OLy)*2*OLx)*Nr |
20 |
& ) |
21 |
|
22 |
C-- COMMON /W2_EXCH2_BUF_RX/ real type Buffer used by W2-EXCH2 |
23 |
_RL E2BUFR1_RL( e2BufrRecSize, W2_maxNeighbours, nSx, 2 ) |
24 |
_RL E2BUFR2_RL( e2BufrRecSize, W2_maxNeighbours, nSx, 2 ) |
25 |
_RS E2BUFR1_RS( e2BufrRecSize, W2_maxNeighbours, nSx, 2 ) |
26 |
_RS E2BUFR2_RS( e2BufrRecSize, W2_maxNeighbours, nSx, 2 ) |
27 |
_R4 E2BUFR1_R4( e2BufrRecSize, W2_maxNeighbours, nSx, 2 ) |
28 |
_R4 E2BUFR2_R4( e2BufrRecSize, W2_maxNeighbours, nSx, 2 ) |
29 |
_R8 E2BUFR1_R8( e2BufrRecSize, W2_maxNeighbours, nSx, 2 ) |
30 |
_R8 E2BUFR2_R8( e2BufrRecSize, W2_maxNeighbours, nSx, 2 ) |
31 |
COMMON /W2_EXCH2_BUF_RL/ E2BUFR1_RL, E2BUFR2_RL |
32 |
COMMON /W2_EXCH2_BUF_RS/ E2BUFR1_RS, E2BUFR2_RS |
33 |
COMMON /W2_EXCH2_BUF_R4/ E2BUFR1_R4, E2BUFR2_R4 |
34 |
COMMON /W2_EXCH2_BUF_R8/ E2BUFR1_R8, E2BUFR2_R8 |
35 |
|
36 |
C-- COMMON /W2_EXCH2_COMMFLAG/ EXCH2 character Flag for type of communication |
37 |
CHARACTER W2_myCommFlag( W2_maxNeighbours, nSx ) |
38 |
COMMON /W2_EXCH2_COMMFLAG/ W2_myCommFlag |
39 |
|
40 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |