MITgcm_contrib/edge_problem/SIZE.h

C $Header: /u/gcmpack/MITgcm/verification/global_ocean.cs32x15/code_alt/code.12t_32x16/SIZE.h,v 1.1 2004/03/15 01:37:23 cnh Exp $
C
C     /==========================================================\
C     | SIZE.h Declare size of underlying computational grid.    |
C     |==========================================================|
C     | The design here support a three-dimensional model grid   |
C     | with indices I,J and K. The three-dimensional domain     |
C     | is comprised of nPx*nSx blocks of size sNx along one axis|
C     | nPy*nSy blocks of size sNy along another axis and one    |
C     | block of size Nz along the final axis.                   |
C     | Blocks have overlap regions of size OLx and OLy along the|
C     | dimensions that are subdivided.                          |
C     \==========================================================/
C     Voodoo numbers controlling data layout.
C     sNx - No. X points in sub-grid.
C     sNy - No. Y points in sub-grid.
C     OLx - Overlap extent in X.
C     OLy - Overlat extent in Y.
C     nSx - No. sub-grids in X.
C     nSy - No. sub-grids in Y.
C     nPx - No. of processes to use in X.
C     nPy - No. of processes to use in Y.
C     Nx  - No. points in X for the total domain.
C     Ny  - No. points in Y for the total domain.
C     Nr  - No. points in Z for full process domain.
      INTEGER sNx
      INTEGER sNy
      INTEGER OLx
      INTEGER OLy
      INTEGER nSx
      INTEGER nSy
      INTEGER nPx
      INTEGER nPy
      INTEGER Nx
      INTEGER Ny
      INTEGER Nr
      PARAMETER (
     &           sNx =  32,
     &           sNy =  32,
     &           OLx =   3,
     &           OLy =   3,
     &           nSx =   6,
     &           nSy =   1,
     &           nPx =   1,
     &           nPy =   1,
     &           Nx  = sNx*nSx*nPx,
     &           Ny  = sNy*nSy*nPy,
     &           Nr  =  15)

C     MAX_OLX  - Set to the maximum overlap region size of any array
C     MAX_OLY    that will be exchanged. Controls the sizing of exch
C                routine buufers.
      INTEGER MAX_OLX
      INTEGER MAX_OLY
      PARAMETER ( MAX_OLX = OLx,
     &            MAX_OLY = OLy )

1	C $Header: /u/gcmpack/MITgcm/verification/global_ocean.cs32x15/code_alt/code.12t_32x16/SIZE.h,v 1.1 2004/03/15 01:37:23 cnh Exp $
2	C
3	C /==========================================================\
4	C \| SIZE.h Declare size of underlying computational grid. \|
5	C \|==========================================================\|
6	C \| The design here support a three-dimensional model grid \|
7	C \| with indices I,J and K. The three-dimensional domain \|
8	C \| is comprised of nPx*nSx blocks of size sNx along one axis\|
9	C \| nPy*nSy blocks of size sNy along another axis and one \|
10	C \| block of size Nz along the final axis. \|
11	C \| Blocks have overlap regions of size OLx and OLy along the\|
12	C \| dimensions that are subdivided. \|
13	C \==========================================================/
14	C Voodoo numbers controlling data layout.
15	C sNx - No. X points in sub-grid.
16	C sNy - No. Y points in sub-grid.
17	C OLx - Overlap extent in X.
18	C OLy - Overlat extent in Y.
19	C nSx - No. sub-grids in X.
20	C nSy - No. sub-grids in Y.
21	C nPx - No. of processes to use in X.
22	C nPy - No. of processes to use in Y.
23	C Nx - No. points in X for the total domain.
24	C Ny - No. points in Y for the total domain.
25	C Nr - No. points in Z for full process domain.
26	INTEGER sNx
27	INTEGER sNy
28	INTEGER OLx
29	INTEGER OLy
30	INTEGER nSx
31	INTEGER nSy
32	INTEGER nPx
33	INTEGER nPy
34	INTEGER Nx
35	INTEGER Ny
36	INTEGER Nr
37	PARAMETER (
38	& sNx = 32,
39	& sNy = 32,
40	& OLx = 3,
41	& OLy = 3,
42	& nSx = 6,
43	& nSy = 1,
44	& nPx = 1,
45	& nPy = 1,
46	& Nx = sNxnSxnPx,
47	& Ny = sNynSynPy,
48	& Nr = 15)
49
50	C MAX_OLX - Set to the maximum overlap region size of any array
51	C MAX_OLY that will be exchanged. Controls the sizing of exch
52	C routine buufers.
53	INTEGER MAX_OLX
54	INTEGER MAX_OLY
55	PARAMETER ( MAX_OLX = OLx,
56	& MAX_OLY = OLy )
57