1 
C $Header: /u/gcmpack/MITgcm/verification/cfc_offline/code/SIZE.h,v 1.1 2005/05/05 17:47:12 stephd Exp $ 
2 
C $Name: $ 
3 

4 
C 
5 
CBOP 
6 
C !ROUTINE: SIZE.h 
7 
C !INTERFACE: 
8 
C include SIZE.h 
9 
C !DESCRIPTION: \bv 
10 
C *==========================================================* 
11 
C  SIZE.h Declare size of underlying computational grid. 
12 
C *==========================================================* 
13 
C  The design here support a threedimensional model grid 
14 
C  with indices I,J and K. The threedimensional domain 
15 
C  is comprised of nPx*nSx blocks of size sNx along one axis 
16 
C  nPy*nSy blocks of size sNy along another axis and one 
17 
C  block of size Nz along the final axis. 
18 
C  Blocks have overlap regions of size OLx and OLy along the 
19 
C  dimensions that are subdivided. 
20 
C *==========================================================* 
21 
C \ev 
22 
CEOP 
23 
C Voodoo numbers controlling data layout. 
24 
C sNx :: No. X points in subgrid. 
25 
C sNy :: No. Y points in subgrid. 
26 
C OLx :: Overlap extent in X. 
27 
C OLy :: Overlat extent in Y. 
28 
C nSx :: No. subgrids in X. 
29 
C nSy :: No. subgrids in Y. 
30 
C nPx :: No. of processes to use in X. 
31 
C nPy :: No. of processes to use in Y. 
32 
C Nx :: No. points in X for the total domain. 
33 
C Ny :: No. points in Y for the total domain. 
34 
C Nr :: No. points in Z for full process domain. 
35 
INTEGER sNx 
36 
INTEGER sNy 
37 
INTEGER OLx 
38 
INTEGER OLy 
39 
INTEGER nSx 
40 
INTEGER nSy 
41 
INTEGER nPx 
42 
INTEGER nPy 
43 
INTEGER Nx 
44 
INTEGER Ny 
45 
INTEGER Nr 
46 
PARAMETER ( 
47 
& sNx = 128, 
48 
& sNy = 64, 
49 
& OLx = 4, 
50 
& OLy = 4, 
51 
& nSx = 1, 
52 
& nSy = 1, 
53 
& nPx = 1, 
54 
& nPy = 1, 
55 
& Nx = sNx*nSx*nPx, 
56 
& Ny = sNy*nSy*nPy, 
57 
& Nr = 15) 
58 

59 
C MAX_OLX  Set to the maximum overlap region size of any array 
60 
C MAX_OLY that will be exchanged. Controls the sizing of exch 
61 
C routine buufers. 
62 
INTEGER MAX_OLX 
63 
INTEGER MAX_OLY 
64 
PARAMETER ( MAX_OLX = OLx, 
65 
& MAX_OLY = OLy ) 
66 

67 
c for ctrl 
68 
integer nobcs 
69 
parameter ( nobcs = 4 ) 