c
c Include file containing basic ti(e)gcm parameters:
c
c nfhist = 17: tn,un,vn,o2,o1,n4s,no,o+,n2d,ti,te,ne,o2+,w,z,pot,n2
c
      parameter (nfhist=17)
c
c Grid sizes:
      parameter (jmx=36,imx=73,kmx=25, imxp1=imx+1, imxp3=imx+3)
      parameter (glat1=-87.5, glon1=-180., zp1=-7.,
     +           dlat=5.,dlon=5.,dzp=0.5)
c
c For ti(e)gcm:
      common /tigcmix/ ixt,ixu,ixv,ixo2,ixo1,ixn4s,ixno,ixop,ixn2d,
     +                 ixti,ixte,ixne,ixo2p,ixw,ixz,ixpot,ixn2
      dimension ixgcm(nfhist)
      equivalence(ixgcm,ixt)
c
      parameter(mxvols=10,mxtms=241)
      character*24 histvol(mxvols)
      character*8 fieldlab(nfhist)
      common/chinp/ histvol
      common/input/ iden,mtimes(3,mxtms),ntms,ut(mxtms),nhvols,luhist,
     +  ivol,mkfields(nfhist),fieldlab,ilog(nfhist),censlt,ncenslt,
     +  ninterp,ixf,icontour,szp,cint,cmin,cmax,mkbob,info
      common/gcmgrid/ gcmlat(jmx),gcmlon(imx),gcmzp(kmx)
c