c
c------------------------------------------------------------------
c
c Max number of fields on a history = mxfhist = 30, as follows:
c
c       tn      un      vn      o2      ox      n4s     noz     co
c       co2     h2o     h2      hox     o+      ch4     o21d    no2
c       no      o3      o1      oh      ho2     h       n2d     ti
c       te      ne      o2+     w       z       epot
c
c mxftot = max number of fields provided to user = 34, i.e.,
c   tn -> epot plus ui,vi,wi,n2
c
      parameter(imx=73,jmx=36,mxfhist=30,mxftot=mxfhist+4)
      parameter(imxp1=imx+1,nderived=mxftot-mxfhist,spval=1.e36)
      parameter(glat1=-87.5,dlat=5.)
      character*8 flab(mxftot)
      real gcmw(mxftot)
      common/rdtgcm_com/ gcmw,flab,lumag,ludipdec
      common/ixtgcm/ 
     +  ixt    ,ixu    ,ixv    ,ixo2   ,ixox   ,ixn4s  ,ixnoz  ,ixco ,
     +  ixco2  ,ixh2o  ,ixh2   ,ixhox  ,ixop   ,ixch4  ,ixo21d ,ixno2,
     +  ixno   ,ixo3   ,ixo1   ,ixoh   ,ixho2  ,ixh    ,ixn2d  ,ixti ,
     +  ixte   ,ixne   ,ixo2p  ,ixw    ,ixz    ,ixepot ,ixui   ,ixvi ,
     +  ixwi   ,ixn2
c