c
c------------------------------------------------------------------
c Begin file /home/sting/foster/timesproc/blktimes.f
c------------------------------------------------------------------
c
      block data blktimes
      include 'timesproc.h'
c
c For timegcm:
      data          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,itxpot,
     +              itxn2,itxui,itxvi,itxwi,itxoo2,itxon2,itxo2n2,
     +              itxrho,itxhtot,ixe5577,ixe6300,ixeo200
     +  /1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,
     +   24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42/
c
c If itimelog(1->ntigcmf) = 0, do not plot log10, otherwise do:
c
      data itimelog 
c       tn   un   vn   o2    o  n4s   noz   co  co2  h2o  h2 hox 
     +/  0,   0,   0,   1,   1,   1,    1,   1,   1,   1,  1,  1,
c       o+   ch4 o21d no2  no   o3 npo1   oh   ho2    h  n2d   ti  
     +   1,    1,  1,   1,  1,   1,   1,   1,    1,   1,   1,   0,
c       te  ne  o2+    w   z   epot  n2  ui  vi  wi  o/o2  o/n2  
     +   0,  1,   1,   0,  0,   0,   1,  0,  0,  0,  0,    0,    
c       o2/n2  rho htot e5577 e6300 eo200
     +   0,    1,   1,    1,    1,    1/
c
c Short field labels for timegcm:
c
      data flab
     + /'TN              ','UN              ','VN              ',
     +  'O2              ','OX              ','N4S             ',
     +  'NOZ             ','CO              ','CO2             ',
     +  'H2O             ','H2              ','HOX             ',
     +  'O+              ','CH4             ','O21D            ',
     +  'NO2             ','NO              ','O3              ',
     +  'O1              ','OH              ','HO2             ',
     +  'H               ','N2D             ','TI              ',
     +  'TE              ','NE              ','O2+             ',
     +  'W               ','Z               ','EPOTEN          ',
     +  'N2              ','UI ExB          ','VI ExB          ',
     +  'WI ExB          ','O/O2            ','O/N2            ',
     +  'O2/N2           ','O+O2+N2         ','HTOT            ',
     +  'E5577           ','E6300           ','EO200           '/
c
c msc:
c
      data luhist/10/, luascii/90/, ludipdec/91/
      data iframe/0/
      data zmflag/999./	! special value flag for zonal means
      data r12flag/999./	! special value flag for local noon
      data lumag/99/	! unit number for mag field strengths file (mkuivi)
c
c Field dependencies (see chflds):
c
c     tn    un    vn    o2    ox    n4s   noz   co    co2   h2o  
c     h2    hox   o+    ch4   o21d  no2   no    o3    o1    oh 
c     ho2   h     n2d   ti    te    ne    o2+   w     z     epot   n2 
c
c     ui    vi    wi    o/o2  o/n2  o2/n2 rho   htot  e5577 e6300  eo200
c
      data ifdep /
     + 29*0,1,0, 29*0,1,0, 29*0,1,0,	! ui,vi,wi are dependent only on epot
c o/o2 is dependent on o1 and o2:
     +0,    0,    0,    1,    0,    0,    0,    0,    0,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    1,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    0,    0,     0,
c o/n2 is dependent on o1 and n2:
     +0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    1,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    0,    0,     1,
c o2/n2 is dependent on o2 and n2:
     +0,    0,    0,    1,    0,    0,    0,    0,    0,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    0,    0,     1,
c rho is dependent on o2, o1, and n2:
     +0,    0,    0,    1,    0,    0,    0,    0,    0,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    1,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    0,    0,     1,
c htot is dependent on h2o,h2,ch4,oh,ho2,h (also o2,o1,n2):
     +0,    0,    0,    1,    0,    0,    0,    0,    0,    1,
     +1,    0,    0,    1,    0,    0,    0,    0,    1,    1,
     +1,    1,    0,    0,    0,    0,    0,    0,    0,    0,     1,
c e5577 is dependent on t, o2, o1, and n2:
     +1,    0,    0,    1,    0,    0,    0,    0,    0,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    1,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    0,    0,     1,
c e6300 is dependent on t, te, o2, o1, n2, o2+, and ne:
     +1,    0,    0,    1,    0,    0,    0,    0,    0,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    1,    0,
     +0,    0,    0,    0,    1,    1,    1,    0,    0,    0,     1,
c eo200 is dependent on t, o2, o1, and n2:
     +1,    0,    0,    1,    0,    0,    0,    0,    0,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    1,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    0,    0,     1/
c
      end