/[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.2 - (hide annotations) (download)
Sat May 30 21:26:31 2009 UTC (15 years 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 jmc 1.2 C $Header: /u/gcmpack/MITgcm/pkg/exch2/W2_EXCH2_BUFFER.h,v 1.1 2009/05/12 19:44:59 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     _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 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     INTEGER iBuf1Filled( W2_maxNeighbours, nSx)
40     INTEGER iBuf2Filled( W2_maxNeighbours, nSx)
41     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     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