include file: pmgrid.h 8 c c $Id: pmgrid.h,v 1.1.20.1 1998/08/11 19:20:35 zender Exp $ c $Author: zender $ 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 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 of 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 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 = PLON) parameter (plev = PLEV) 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 (i1 = 1 + nxpt) parameter (j1 = 1 + nxpt + jintmx) parameter (numbnd = nxpt + jintmx) 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 C