eesupp/inc/EEBUFF_SCPU.h

C $Header: /u/gcmpack/MITgcm/eesupp/inc/EEIO.h,v 1.5 2001/09/21 03:54:35 cnh Exp $
C $Name:  $

CBOP
C     !ROUTINE: EEBUFF_SCPU.h
C     !INTERFACE:
C     include "EEBUFF_SCPU.h"
C
C     !DESCRIPTION:
C     *==========================================================*
C     | EEBUFF_SCPU.h
C     | o Buffers used by S/R gather_2d and scatter_2d,
C     |   in mapping 2-D local array from all processes to/from
C     |   2-D Global (X,Y) array from Master-Proc (SingleCPU)
C     | o Contain both 2-D Global (X,Y) buffers and
C     |   Shared Local Buffer (for multi-threaded).
C     *==========================================================*
C     | presently used with:
C     | - SingleCpu IO
C     | - global-sum SingleCpu
C     *==========================================================*
CEOP

      INTEGER xyBuffer_size
#ifdef ALLOW_EXCH2
      PARAMETER ( xyBuffer_size = W2_ioBufferSize )
#else  /* ALLOW_EXCH2 */
      PARAMETER ( xyBuffer_size = Nx*Ny )
#endif /* ALLOW_EXCH2 */

C--   COMMON /EE_BUFFERS_GLOBAL/  2-D Global Buffers
C     Those buffers are in common block to save some memory
C     xy_buffer_r8 :: 2-D global Real*8 buffer.
C     xy_buffer_r4 :: 2-D global Real*4 buffer.
      COMMON /EE_BUFFERS_GLOBAL/ xy_buffer_r8, xy_buffer_r4
      Real*8 xy_buffer_r8(xyBuffer_size)
      Real*4 xy_buffer_r4(xyBuffer_size)

C--   COMMON /EE_BUFFERS_LOCAL/  2-D Shared Local Buffers
C     Those buffers have be in common block to be shared by all threads
C sharedLocBuf_rx :: Heap storage buffer to which master thread copies
C                    data (during read) as part of a scatter/gather and
C                    from which all threads read data (during read).
      COMMON /EE_BUFFERS_LOCAL/ sharedLocBuf_r8, sharedLocBuf_r4
      Real*8 sharedLocBuf_r8(1:sNx,1:sNy,nSx,nSy)
      Real*4 sharedLocBuf_r4(1:sNx,1:sNy,nSx,nSy)

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
1	C $Header: /u/gcmpack/MITgcm/eesupp/inc/EEIO.h,v 1.5 2001/09/21 03:54:35 cnh Exp $
2	C $Name: $
3
4	CBOP
5	C !ROUTINE: EEBUFF_SCPU.h
6	C !INTERFACE:
7	C include "EEBUFF_SCPU.h"
8	C
9	C !DESCRIPTION:
10	C ==========================================================
11	C \| EEBUFF_SCPU.h
12	C \| o Buffers used by S/R gather_2d and scatter_2d,
13	C \| in mapping 2-D local array from all processes to/from
14	C \| 2-D Global (X,Y) array from Master-Proc (SingleCPU)
15	C \| o Contain both 2-D Global (X,Y) buffers and
16	C \| Shared Local Buffer (for multi-threaded).
17	C ==========================================================
18	C \| presently used with:
19	C \| - SingleCpu IO
20	C \| - global-sum SingleCpu
21	C ==========================================================
22	CEOP
23
24	INTEGER xyBuffer_size
25	#ifdef ALLOW_EXCH2
26	PARAMETER ( xyBuffer_size = W2_ioBufferSize )
27	#else /* ALLOW_EXCH2 */
28	PARAMETER ( xyBuffer_size = Nx*Ny )
29	#endif /* ALLOW_EXCH2 */
30
31	C-- COMMON /EE_BUFFERS_GLOBAL/ 2-D Global Buffers
32	C Those buffers are in common block to save some memory
33	C xy_buffer_r8 :: 2-D global Real*8 buffer.
34	C xy_buffer_r4 :: 2-D global Real*4 buffer.
35	COMMON /EE_BUFFERS_GLOBAL/ xy_buffer_r8, xy_buffer_r4
36	Real*8 xy_buffer_r8(xyBuffer_size)
37	Real*4 xy_buffer_r4(xyBuffer_size)
38
39	C-- COMMON /EE_BUFFERS_LOCAL/ 2-D Shared Local Buffers
40	C Those buffers have be in common block to be shared by all threads
41	C sharedLocBuf_rx :: Heap storage buffer to which master thread copies
42	C data (during read) as part of a scatter/gather and
43	C from which all threads read data (during read).
44	COMMON /EE_BUFFERS_LOCAL/ sharedLocBuf_r8, sharedLocBuf_r4
45	Real*8 sharedLocBuf_r8(1:sNx,1:sNy,nSx,nSy)
46	Real*4 sharedLocBuf_r4(1:sNx,1:sNy,nSx,nSy)
47
48	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|