/[MITgcm]/MITgcm/pkg/exch2/W2_EXCH2_BUFFER.h
ViewVC logotype

Contents of /MITgcm/pkg/exch2/W2_EXCH2_BUFFER.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.3 - (show annotations) (download)
Sun Jun 28 00:58:42 2009 UTC (14 years, 10 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint62, checkpoint63, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61s, checkpoint61z, checkpoint61x, checkpoint61y
Changes since 1.2: +16 -16 lines
File MIME type: text/plain 
add bj in exch2 arrays and S/R
1 C $Header: /u/gcmpack/MITgcm/pkg/exch2/W2_EXCH2_BUFFER.h,v 1.2 2009/05/30 21:26:31 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-- COMMON /W2_EXCH2_COMMFLAG/ EXCH2 character Flag for type of communication
44 CHARACTER W2_myCommFlag( W2_maxNeighbours, nSx, nSy )
45 COMMON /W2_EXCH2_COMMFLAG/ W2_myCommFlag
46
47 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
  ViewVC Help
Powered by ViewVC 1.1.22