C     /==========================================================\
C     | EEPARAMS.h                                               |
C     |==========================================================|
C     | Parameters for "execution environemnt". These are used   |
C     | by both the particular numerical model and the "execution|
C     | environment" support routines.                           |
C     \==========================================================/

C--   precision to use
#ifndef USE_SINGLE_PRECISION
#define _d D
#define Real REAL*8
#else
#define _d E
#define Real REAL*4
#endif
C--   Symbolic constants
      INTEGER MAX_LEN_MBUF
      PARAMETER ( MAX_LEN_MBUF = 1024 )
      INTEGER MAX_LEN_FNAM
      PARAMETER ( MAX_LEN_FNAM =  256 )
C     SQUEEZE_RIGHT       - Flag indicating right blank space removal
C                           from text field.
C     SQUEEZE_LEFT        - Flag indicating left blank space removal
C                           from text field.
C     SQUEEZE_BOTH        - Flag indicating left and right blank
C                           space removal from text field.
      CHARACTER*(*) SQUEEZE_RIGHT
      PARAMETER ( SQUEEZE_RIGHT = 'R' )
      CHARACTER*(*) SQUEEZE_LEFT
      PARAMETER ( SQUEEZE_LEFT = 'L' )
      CHARACTER*(*) SQUEEZE_BOTH
      PARAMETER ( SQUEEZE_BOTH = 'B' )



C--   COMMON /EPARAMS_I/ Execution environment public integer variables.
C     errorMessageUnit    - Fortran IO unit for error messages
C     standardMessageUnit - Fortran IO unit for informational messages
C     numberOfProcs - Number of processes computing in parallel
C     myProcId      - My own "process" id.
C     myPx     - My X coord on the proc. grid.
C     myPy     - My Y coord on the proc. grid.
C     myXGlobalLo - My bottom-left (south-west) x-index
C                   global domain. The x-coordinate of this
C                   point in for example m or degrees is *not*
C                   specified here. A model needs to provide a
C                   mechanism for deducing that information if it
C                   is needed.
C     myYGlobalLo - My bottom-left (south-west) y-index in
C                   global domain. The y-coordinate of this
C                   point in for example m or degrees is *not*
C                   specified here. A model needs to provide a
C                   mechanism for deducing that information if it
C                   is needed.
      COMMON /EEPARAMS_I/ errorMessageUnit, standardMessageUnit,
     & numberOfProcs, myProcId,
     & myPx, myPy, myXGlobalLo, myYGlobalLo
      INTEGER errorMessageUnit
      INTEGER myProcId
      INTEGER myPx
      INTEGER myPy
      INTEGER myXGlobalLo
      INTEGER myYGlobalLo
      INTEGER numberOfProcs
      INTEGER standardMessageUnit

C $Id: EEPARAMS.h,v 1.2 2006/05/12 22:02:27 ce107 Exp $