/[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.2 - (show annotations) (download)
Sat May 30 21:26:31 2009 UTC (15 years, 1 month ago) by jmc
Branch: MAIN
CVS Tags: checkpoint61r, checkpoint61p, checkpoint61q
Changes since 1.1: +8 -1 lines
File MIME type: text/plain 
- take buffer copy from/to array out of S/R exch2_send/recv into new
  S/R exch2_put/get ; Exch of local variable now works with MPI+MTH
  (tested by removing commom block statement in SOLVE_FOR_PRESSURE.h).
- simplify argument list of S/R exch2_get_uv_bounds & get_scal_bounds
- implement EXCH_IGNORE_CORNERS in scalar exchange (rx1);
1 C $Header: /u/gcmpack/MITgcm/pkg/exch2/W2_EXCH2_BUFFER.h,v 1.1 2009/05/12 19:44:59 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_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)
40 INTEGER iBuf2Filled( W2_maxNeighbours, nSx)
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 )
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