c
c------------------------------------------------------------------
c Begin file /home/sting/foster/timegcm/timerd.h
c------------------------------------------------------------------
c
c nfrd = 29 = number of fields to read off timegcm history:
c   tn,un,vn,o2,o,n4s,noz,co,co2,h2o,h2,hox,o+,ch4,o21d,no2,no,
c   o3,npo1,oh,ho2,h,n2d,ti,te,ne,o2+,w,z
c
c (1/28-29/92: added fields ch4 and o21d (o21d will be 1.e-20 for source 
c  histories)
c
      parameter(nfrd=29)
c
c Number of words in a latitude slice:
c nwlat = 1+74*25*27 (1 + longitude * pressure * nfrd)
c
      parameter (nwlat=1+imxp1*kmx*nfrd)
c
      common/timer/ frdummy,f(imxp1,kmx,nfrd)
      dimension frd(nwlat)
      equivalence(frd(2),f)
c