model/inc/SET_GRID.h

1e8bf13d3f Jean*0001 C
                0002
                0003 CBOP
                0004 C     !ROUTINE: SET_GRID.h
                0005 C     !INTERFACE:
                0006 C     #include SET_GRID.h
                0007
                0008 C     !DESCRIPTION:
                0009 C     Header file holding some 1-D arrays which are used to set-up the model grid.
                0010 C==========================================================================
                0011 C  IMPORTANT : This header file can only be included after the options
                0012 C              file PACKAGES_CONFIG.h and the header file W2_EXCH2_SIZE.h
                0013 C==========================================================================
                0014
                0015 CEOP
                0016
                0017 C    grid_maxNx :: Maximum length of delX vector
                0018 C    grid_maxNy :: Maximum length of delY vector
                0019       INTEGER grid_maxNx, grid_maxNy
                0020 #ifdef ALLOW_EXCH2
                0021       PARAMETER( grid_maxNx = W2_maxXStackNx )
                0022       PARAMETER( grid_maxNy = W2_maxYStackNy )
                0023 #else  /* ALLOW_EXCH2 */
                0024       PARAMETER( grid_maxNx = Nx )
                0025       PARAMETER( grid_maxNy = Ny )
                0026 #endif /* ALLOW_EXCH2 */
                0027
                0028 C--   COMMON /SET_GRID_R/ "Real" valued parameters used to set-up the model grid.
                0029 C     delX      :: Separation between cell faces (m) or (deg), depending on type
                0030 C     delY         type of horizontal grid choice (cartesian/spherical-polar ...)
                0031       COMMON /SET_GRID_R/
                0032      & delX, delY
                0033
                0034       _RL delX(grid_maxNx)
                0035       _RL delY(grid_maxNy)
                0036
                0037 CEH3 ;;; Local Variables: ***
                0038 CEH3 ;;; mode:fortran ***
                0039 CEH3 ;;; End: ***