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

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

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

Revision 1.3 - (hide annotations) (download)
Sun Jun 28 00:58:42 2009 UTC (15 years 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 jmc 1.3 C $Header: /u/gcmpack/MITgcm/pkg/exch2/W2_EXCH2_BUFFER.h,v 1.2 2009/05/30 21:26:31 jmc Exp $
2 jmc 1.1 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 jmc 1.3 _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 jmc 1.1
36 jmc 1.2 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 jmc 1.3 INTEGER iBuf1Filled( W2_maxNeighbours, nSx, nSy )
40     INTEGER iBuf2Filled( W2_maxNeighbours, nSx, nSy )
41 jmc 1.2 COMMON /W2_EXCH2_BUF_I/ iBuf1Filled, iBuf2Filled
42    
43 jmc 1.1 C-- COMMON /W2_EXCH2_COMMFLAG/ EXCH2 character Flag for type of communication
44 jmc 1.3 CHARACTER W2_myCommFlag( W2_maxNeighbours, nSx, nSy )
45 jmc 1.1 COMMON /W2_EXCH2_COMMFLAG/ W2_myCommFlag
46    
47     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
  ViewVC Help
Powered by ViewVC 1.1.22