1 |
C $Header: /u/gcmpack/MITgcm/pkg/exch2/W2_EXCH2_BUFFER.h,v 1.3 2009/06/28 00:58:42 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, nSy, 2 ) |
24 |
_RL e2Bufr2_RL( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 ) |
25 |
_RS e2Bufr1_RS( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 ) |
26 |
_RS e2Bufr2_RS( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 ) |
27 |
_R4 e2Bufr1_R4( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 ) |
28 |
_R4 e2Bufr2_R4( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 ) |
29 |
_R8 e2Bufr1_R8( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 ) |
30 |
_R8 e2Bufr2_R8( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 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_BUF_I/ integer type Buffer used by W2-EXCH2 |
37 |
C iBuf1Filled :: actual length of buffer-1 which has been filled in. |
38 |
C iBuf2Filled :: actual length of buffer-2 which has been filled in. |
39 |
INTEGER iBuf1Filled( W2_maxNeighbours, nSx, nSy ) |
40 |
INTEGER iBuf2Filled( W2_maxNeighbours, nSx, nSy ) |
41 |
COMMON /W2_EXCH2_BUF_I/ iBuf1Filled, iBuf2Filled |
42 |
|
43 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |