include file: prgrid.h 20
c
c $Id: prgrid.h,v 1.1.20.1 1998/08/11 19:20:36 zender Exp $
c $Author: zender $
c
C
C Radiation resolution and I/O parameters
C
      integer plon       ! number of longitudes
      integer plev       ! number of vertical levels
      integer plat       ! number of latitudes
      integer pcnst      ! number of constituents (including water vapor)
      integer pnats      ! number of non-advected trace species
      integer plevmx     ! number of subsurface levels
C
      integer plevp      ! plev + 1
      integer nxpt       ! no.of pts outside active domain for interpolant
      integer jintmx     ! number of extra latitudes in polar region
      integer plond      ! slt extended domain longitude
      integer platd      ! slt extended domain lat.
      integer p3d        ! dimensioning construct: num. of 3-d flds in /com3d/
C
      integer plevd      ! fold plev,pcnst indices into one
      integer plngbuf    ! length of absorptivity/emissivity record
C
      integer beglat     ! beg. index for latitudes owned by a given proc
      integer endlat     ! end. index for latitudes owned by a given proc
      integer beglatex   ! extended grid beglat
      integer endlatex   ! extended grid endlat
      integer numlats    ! number of latitudes owned by a given proc
C
      logical masterproc ! Flag for (iam eq 0)
C
      parameter (plon    = PLON) 
      parameter (plev    = PLEVR)
      parameter (plat    = PLAT)
      parameter (pcnst   = PCNST)
      parameter (pnats   = PNATS)
      parameter (plevmx  = 4)
      parameter (plevp   = plev + 1)
      parameter (nxpt    = 1)
      parameter (jintmx  = 1)
c++csz
c      parameter (plond   = plon + 1 + 2*nxpt)
      parameter (plond   = PLON)
c--csz
      parameter (platd   = plat + 2*nxpt + 2*jintmx)
      parameter (p3d     = 3 + pcnst + pnats)
      parameter (plevd   = plev*p3d)
      parameter (plngbuf = 512*((plond*plevp*plevp + plond*plev*4 +
     $                          plond*plevp)/512 + 1))
C
#if ( defined SPMD )
      common/spmdlats/beglat  ,endlat  ,numlats ,beglatex,endlatex 
      common/spmdlats/masterproc
#else              
      parameter (beglat   = 1)
      parameter (endlat   = plat)
      parameter (numlats  = plat)
      parameter (beglatex = 1)
      parameter (endlatex = platd)
      parameter (masterproc = .true.)
#endif