1 
C $Header: /u/gcmpack/development/heimbach/ecco_env/model/inc/SIZE.h,v 1.3 2000/10/23 16:32:10 heimbach Exp $ 
2 
C 
3 
C /==========================================================\ 
4 
C  SIZE.h Declare size of underlying computational grid.  
5 
C ========================================================== 
6 
C  The design here support a threedimensional model grid  
7 
C  with indices I,J and K. The threedimensional 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 subgrid. 
16 
C sNy  No. Y points in subgrid. 
17 
C OLx  Overlap extent in X. 
18 
C OLy  Overlat extent in Y. 
19 
C nSx  No. subgrids in X. 
20 
C nSy  No. subgrids 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 = 30, 
39 
& sNy = 40, 
40 
& OLx = 3, 
41 
& OLy = 3, 
42 
& nSx = 1, 
43 
& nSy = 1, 
44 
cph & nPx = 1, 
45 
cph & nPy = 1, 
46 
& nPx = 6, 
47 
& nPy = 2, 
48 
& Nx = sNx*nSx*nPx, 
49 
& Ny = sNy*nSy*nPy, 
50 
& Nr = 23) 
51 

52 
C MAX_OLX  Set to the maximum overlap region size of any array 
53 
C MAX_OLY that will be exchanged. Controls the sizing of exch 
54 
C routine buufers. 
55 
INTEGER MAX_OLX 
56 
INTEGER MAX_OLY 
57 
PARAMETER ( MAX_OLX = OLx, 
58 
& MAX_OLY = OLy ) 
59 

60 
integer nobcs 
61 
parameter ( nobcs = 4 ) 