c
c------------------------------------------------------------------
c
c Include file containing basic timesproc parameters:
c
c nfhist = 31: tn,un,vn,o2,ox,n4s,noz,co,co2,h2o,h2,hox,o+,ch4,o21d,
c              no2,no,o3,o1,oh,ho2,h,n2d,ti,te,ne,o2+,w,z,epot,n2
c nftot = 39: 31 fields of nfhist plus: ui,vi,wi, o/o2, o/n2, o2/n2, rho, htot
c  (adding htot 2/17/94)
c ifget(nfhist) = fields to allocate for fields array, get from history
c nfget = number of fields to get from history (sum of ifget(ip) > 0)
c ifplt(nftot) = fields to plot, and indices to plot arrays
c
      parameter (nftot=42,nfhist=31)
c
c Grid sizes:
      parameter (jmx=36,imx=73,kmx=45, imxp1=imx+1, imxp3=imx+3)
      parameter (glat1=-87.5, glon1=-180., zp1=-17.,
     +           dlat=5.,     dlon=5.,     dzp=0.5)
      parameter (cpspval=1.e36)		! special value for conpack
      parameter (pi = 3.14159)		! pi
      parameter (dtr = pi/180.)		! deg to radians
      parameter (rtd = 180./pi)		! radians to deg
      parameter (p0=5.e-7)		! for pressure (mb) (pmb)
c
c For timesproc:
      common/timeix/itxt,itxu,itxv,itxo2,itxox,itxn4s,itxnoz,itxco,
     +              itxco2,itxh2o,itxh2,itxhox,itxop,itxch4,itxo21d,
     +              itxno2,itxno,itxo3,itxo1,itxoh,itxho2,itxh,
     +              itxn2d,itxti,itxte,itxne,itxo2p,itxw,itxz,itxpot,
     +              itxn2,itxui,itxvi,itxwi,itxoo2,itxon2,itxo2n2,
     +              itxrho,itxhtot,ixe5577,ixe6300,ixeo200
      dimension itxgcm(nftot)
      equivalence(itxgcm,itxt)
c
      parameter (mxloc=10,mxpolat=10,mxsatv=25)
      character*16 flab(nftot)
      character*56 dirascii,dircgm
      pointer(phtscale,htscale(1))
      common/chcomm/ flab
      common/timescom/ ifplt(nftot),
     +  iplglb,iframe,iplloc,perimlat(mxpolat),npollat,ipllon,ipllat,
     +  cint(nftot),cmin(nftot),cmax(nftot),icont,ipsltglb,
     +  zprange(2),izprange(2),iplglbm,udat(imx,jmx),vdat(imx,jmx),
     +  itimelog(nftot),censatv(2,mxsatv),nsatv,modelhts,izuv,
     +  icolor,htbot,httop,delht,censlt,ituv,ipuv,ifget(nfhist),nfget,
     +  nfplt,iampha,iwrascii,dirascii,phtscale,nhtscale,labels,finc,
     +  dircgm,log10map,iwrgrid,ovpollat(jmx),nvpollat,logvert,uvmax,
     +  ifdep(nfhist,nftot-nfhist),pmb(kmx),iyax_r,ionvel
c
c Ion drifts (pointers allocated space only if drifts are to be plotted)
      pointer(pglbui,glbui(imx,kmx,jmx)), (pglbvi,glbvi(imx,kmx,jmx)),
     +       (pglbwi,glbwi(imx,kmx,jmx))
      common/drifts/ pglbui,pglbvi,pglbwi
c
c Note zmflag is special flag, meaning calculate zonal means in pltlatzp.
c Note r12flag means use local noon longitude with sat view projections
c (both defined in blktimes.f)
c
      common/sgrid/ spls(kmx),npls,rloc(2,mxloc),nloc,slon(imx),
     +  nlon,slat(jmx),nlat,zmflag,shts(kmx),nhts,r12flag,nslt,
     +  sslt(imx)
c
      parameter(mxvols=20,mxtms=241)
      character*24 histvol(mxvols)
      logical isdyn,istimes
      common/chinp/ histvol
      common/input/ iden,mtimes(3,mxtms),ntms,ut(mxtms),nhvols,luhist,
     +  ivol,luascii,isdyn,lumag,ludipdec
      common/gcmgrid/ gcmlat(jmx),gcmlon(imx),gcmzp(kmx)
c