c
c $Id: pmgrid.h,v 1.3 1995/10/14 21:21:53 rosinski Exp $
c $Author: rosinski $
c
C
C Grid point resolution 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 plevmx     ! number of subsurface levels
C
      integer plevp      ! plev + 1
      integer nxpt       ! no.of pts outside active domain of interpolant
      integer jintmx     ! number of extra latitudes in polar region
      integer plond      ! slt extended domain longitude
      integer platd      ! slt extended domain lat.
C
      integer plevd      ! fold plev,pcnst indices into one
      integer i1         ! model starting longitude index
      integer j1         ! model starting latitude index
      integer numbnd     ! no.of latitudes passed N and S of forecast lat
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   = 72)
      parameter(plev   = NLEV)
      parameter(plat   = 36)
      parameter(pcnst  = 1)
      parameter(plevmx = 4)
      parameter(plevp  = plev + 1)
      parameter(nxpt   = 1)
      parameter(jintmx = 1)
c      parameter(plond  = plon + 1 + 2*nxpt)
      parameter(plond  = plon+4)
      parameter(platd  = plat + 2*nxpt + 2*jintmx)
      parameter(plevd  = plev*(3 + pcnst))
      parameter(i1     = 1 + nxpt)
      parameter(j1     = 1 + nxpt + jintmx)
      parameter(numbnd = nxpt + jintmx)
C
c#if ( defined SPMD )
c      common/spmdlats/beglat  ,endlat  ,numlats ,beglatex,endlatex 
c      common/spmdlats/masterproc
c#else
      parameter(beglat   = 1)
      parameter(endlat   = plat)
      parameter(numlats  = plat)
      parameter(beglatex = 1)
      parameter(endlatex = platd)
      parameter(masterproc = .true.)
c#endif
C
c#ifdef LOGENTRY 
c$Log: pmgrid.h,v $
c#endif