c
c------------------------------------------------------------------
c Begin file /home/sting/foster/proclib/tgcmparam.h
c------------------------------------------------------------------
c
c Include file containing basic tigcm and tiegcm parameters:
c
c ngcmflds = 16: tn,un,vn,o2,o,n4s,no,o+,n2d,ti,te,ne,o2+,w,z,n2
c ntigcmf = 20: tn-n2 as above, plus fof2,hmf2,rho,rat
c ntiegcmf = 4: potential, ui, vi, wi
c mxflds = 24 for total parameters 
c
      parameter (ngcmflds=16,ntigcmf=20,ntiegcmf=4,
     +           mxflds=ntigcmf+ntiegcmf,ncoolt=6)
c
c Grid sizes:
      parameter (jmx=36,imx=73,kmx=29,imxp1=imx+1)
c
c Delta lat,lon,zp for the 3d grid:
      parameter (dlat=5.,dlon=5.,dzp=0.5)
c
c Special value for conpack:
      parameter (cpspval=1.e36)
c
c degrees to radians:
      parameter (pi = 3.14159)
      parameter (dtr = pi/180.)
c
c radians to degrees:
      parameter (rtd = 180./pi)
c
c For tigcm proc:
      common /tigcmix/ ixt,ixu,ixv,ixo2,ixo1,ixn4s,ixno,ixop,ixn2d,ixti, 
     +                 ixte,ixne,ixo2p,ixw,ixz,ixn2,ixfof2,ixhmf2,
     +                 ixrho,ixrat
      common /tigcm/ gcmwt(ntigcmf),igcmlog(ntigcmf)
      dimension ixgcm(ntigcmf) 
      equivalence(ixgcm,ixt)
c
c For tiegcm proc:
      common /tiegcmix/ ixpot,ixui,ixvi,ixwi
      common /tiegcm/ idynlog(ntiegcmf)
c