| 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 =  16, | 
| 40 | &           OLx =   3, | 
| 41 | &           OLy =   3, | 
| 42 | &           nSx =  12, | 
| 43 | &           nSy =   1, | 
| 44 | &           nPx =   1, | 
| 45 | &           nPy =   1, | 
| 46 | &           Nx  = sNx*nSx*nPx, | 
| 47 | &           Ny  = sNy*nSy*nPy, | 
| 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 ) |