1 |
C $Header: /u/gcmpack/MITgcm/model/inc/PARAMS.h,v 1.255 2011/12/07 22:08:12 jmc Exp $ |
2 |
C $Name: $ |
3 |
C |
4 |
|
5 |
CBOP |
6 |
C !ROUTINE: SET_GRID.h |
7 |
C !INTERFACE: |
8 |
C #include SET_GRID.h |
9 |
|
10 |
C !DESCRIPTION: |
11 |
C Header file holding some 1-D arrays which are used to set-up the model grid. |
12 |
C========================================================================== |
13 |
C IMPORTANT : This header file can only be included after the options |
14 |
C file PACKAGES_CONFIG.h and the header file W2_EXCH2_SIZE.h |
15 |
C========================================================================== |
16 |
|
17 |
CEOP |
18 |
|
19 |
C grid_maxNx :: Maximum length of delX vector |
20 |
C grid_maxNy :: Maximum length of delY vector |
21 |
INTEGER grid_maxNx, grid_maxNy |
22 |
#ifdef ALLOW_EXCH2 |
23 |
PARAMETER( grid_maxNx = W2_maxXStackNx ) |
24 |
PARAMETER( grid_maxNy = W2_maxYStackNy ) |
25 |
#else /* ALLOW_EXCH2 */ |
26 |
PARAMETER( grid_maxNx = Nx ) |
27 |
PARAMETER( grid_maxNy = Ny ) |
28 |
#endif /* ALLOW_EXCH2 */ |
29 |
|
30 |
C-- COMMON /SET_GRID_R/ "Real" valued parameters used to set-up the model grid. |
31 |
C delX :: Separation between cell faces (m) or (deg), depending on type |
32 |
C delY type of horizontal grid choice (cartesian/spherical-polar ...) |
33 |
COMMON /SET_GRID_R/ |
34 |
& delX, delY |
35 |
|
36 |
_RL delX(grid_maxNx) |
37 |
_RL delY(grid_maxNy) |
38 |
|
39 |
CEH3 ;;; Local Variables: *** |
40 |
CEH3 ;;; mode:fortran *** |
41 |
CEH3 ;;; End: *** |