c
      parameter(imx=73,kmx=45,jmx=36,nflds=29)
      parameter(imxp1=imx+1, nwlat=1+imxp1*kmx*nflds)
      parameter(zp1=-17.,dzp=0.5)
c
      common/tgcmrd/ frd(nwlat),gcmwtime(nflds),gcmn2(imxp1,kmx)
      dimension f(imxp1,kmx,nflds)
      equivalence(frd(2),f)
      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
      dimension ixtime(nflds)
      equivalence(ixtime,itxt)