!
! ProTeX sample FORTRAN include: Style 1
!
!    NOTE: Styles 1 and 2 differ only on the order of the !DESCRIPTION 
!          keyword.
!
! Last update: 28Jun97 (ams)


!-------------------------------------------------------------------------
!         NASA/GSFC, Data Assimilation Office, Code 910.3, GEOS/DAS      !
!-------------------------------------------------------------------------
!BOP
!
! !INCLUDE: atess_dim.h --- ATESS dimension parameters
! 
! !DEFINED PARAMETERS: 
!
!     Dimensions of O-F Grids (4x4.5, 19 levels)
!     ------------------------------------------      
      integer     idm                        ! no. zonal      gridpoints
      integer     jdm                        ! no. meridional gridpoints
      integer     kdm                        ! no. vertical   levels
      integer     ldm                        ! type of O-F grid:
                                             !   ldm=1: all data
                                             !   ldm=2: co-located data
      parameter ( idm=72, jdm=46, kdm=19, ldm=2 )
 

!     Dimensions of Height Error Grids (2x2.5, 19 levels)
!     ---------------------------------------------------      
      integer     im                         ! no. zonal      gridpoints
      integer     jm                         ! no. meridional gridpoints
      integer     km                         ! no. vertical   levels
      parameter ( im=144, jm=91, km=19 )
      integer     imh,          jmh
      parameter ( imh = im / 2, jmh = jm / 2 )


!     Longitudinal grid
!     -----------------
      real        lambda(im)                 ! longitude (deg)
      real        LonMin                     ! = lambda(1)
      real        LonMax                     ! = lambda(im)
      real        dLon                       ! mesh size (deg)


!     Latitudinal grid
!     ----------------
      real        phi(jm)                    ! latitude (deg)
      real        LatMin                     ! = phi(1)
      real        LatMax                     ! = phi(jm)
      real        dLat                       ! mesh size (deg)
      real        cosphi(jm)                 ! cosine(latitude)


!     Pressure Levels (hPa)
!     ---------------------
      real        plevs(km) 


!     Missing value
!     -------------
      real        AMISS
      parameter  (AMISS = 1.0E15 )

!     Land value
!     ----------
      real        ALAND
      parameter  (ALAND = -1.0E15 )


!     Physical constants (TO DO: move elsewhere) 
!     ------------------------------------------
      real        RERTH           
      parameter ( RERTH = 6.378 E 6 )

!
! !DESCRIPTION: 
!
!        Internal ``data structures'' for the {\em Adaptive Tuning of Error
!  Statistics Subsystem} (ATESS). It primarily defines the dimensions
!  of the O-F and sigF grids. The actual vertical pressure levels
!  are also avilable through this include file.
!
! !SEE ALSO: 
!
!  atess.f        -   ATESS driver.
!  ATESS_Init()   -   ATESS initializer; the vertical pressure levels
!                     are set by this routine.
!  ATESS_Grids()  -   Initialize grid parameters.
!
! !REVISION HISTORY: 
!
!  09Nov96   da Silva   Original code.
!
!EOP
!-------------------------------------------------------------------------

      common / atess_grids / lambda, LonMin, LonMax, dLon,
     .                       phi,    LatMin, LatMax, dlat, cosphi, 
     .                       plevs