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

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

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

revision 1.2 by jmc, Sat May 30 21:26:31 2009 UTC revision 1.3 by jmc, Sun Jun 28 00:58:42 2009 UTC
# Line 20  C     e2BufrRecSize  :: Exch2 Buffer siz Line 20  C     e2BufrRecSize  :: Exch2 Buffer siz
20       &          )       &          )
21    
22  C--   COMMON /W2_EXCH2_BUF_RX/ real type Buffer used by W2-EXCH2  C--   COMMON /W2_EXCH2_BUF_RX/ real type Buffer used by W2-EXCH2
23        _RL E2BUFR1_RL( e2BufrRecSize, W2_maxNeighbours, nSx, 2 )        _RL e2Bufr1_RL( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
24        _RL E2BUFR2_RL( e2BufrRecSize, W2_maxNeighbours, nSx, 2 )        _RL e2Bufr2_RL( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
25        _RS E2BUFR1_RS( e2BufrRecSize, W2_maxNeighbours, nSx, 2 )        _RS e2Bufr1_RS( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
26        _RS E2BUFR2_RS( e2BufrRecSize, W2_maxNeighbours, nSx, 2 )        _RS e2Bufr2_RS( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
27        _R4 E2BUFR1_R4( e2BufrRecSize, W2_maxNeighbours, nSx, 2 )        _R4 e2Bufr1_R4( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
28        _R4 E2BUFR2_R4( e2BufrRecSize, W2_maxNeighbours, nSx, 2 )        _R4 e2Bufr2_R4( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
29        _R8 E2BUFR1_R8( e2BufrRecSize, W2_maxNeighbours, nSx, 2 )        _R8 e2Bufr1_R8( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
30        _R8 E2BUFR2_R8( e2BufrRecSize, W2_maxNeighbours, nSx, 2 )        _R8 e2Bufr2_R8( e2BufrRecSize, W2_maxNeighbours, nSx, nSy, 2 )
31        COMMON /W2_EXCH2_BUF_RL/ E2BUFR1_RL, E2BUFR2_RL        COMMON /W2_EXCH2_BUF_RL/ e2Bufr1_RL, e2Bufr2_RL
32        COMMON /W2_EXCH2_BUF_RS/ E2BUFR1_RS, E2BUFR2_RS        COMMON /W2_EXCH2_BUF_RS/ e2Bufr1_RS, e2Bufr2_RS
33        COMMON /W2_EXCH2_BUF_R4/ E2BUFR1_R4, E2BUFR2_R4        COMMON /W2_EXCH2_BUF_R4/ e2Bufr1_R4, e2Bufr2_R4
34        COMMON /W2_EXCH2_BUF_R8/ E2BUFR1_R8, E2BUFR2_R8        COMMON /W2_EXCH2_BUF_R8/ e2Bufr1_R8, e2Bufr2_R8
35    
36  C--   COMMON /W2_EXCH2_BUF_I/ integer type Buffer used by W2-EXCH2  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.  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.  C     iBuf2Filled :: actual length of buffer-2 which has been filled in.
39        INTEGER iBuf1Filled( W2_maxNeighbours, nSx)        INTEGER iBuf1Filled( W2_maxNeighbours, nSx, nSy )
40        INTEGER iBuf2Filled( W2_maxNeighbours, nSx)        INTEGER iBuf2Filled( W2_maxNeighbours, nSx, nSy )
41        COMMON /W2_EXCH2_BUF_I/ iBuf1Filled, iBuf2Filled        COMMON /W2_EXCH2_BUF_I/ iBuf1Filled, iBuf2Filled
42    
43  C--   COMMON /W2_EXCH2_COMMFLAG/ EXCH2 character Flag for type of communication  C--   COMMON /W2_EXCH2_COMMFLAG/ EXCH2 character Flag for type of communication
44        CHARACTER W2_myCommFlag( W2_maxNeighbours, nSx )        CHARACTER W2_myCommFlag( W2_maxNeighbours, nSx, nSy )
45        COMMON /W2_EXCH2_COMMFLAG/ W2_myCommFlag        COMMON /W2_EXCH2_COMMFLAG/ W2_myCommFlag
46    
47  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22