c
c------------------------------------------------------------------
c Begin file /home/sting/foster/timesdif/blktime.f
c------------------------------------------------------------------
c
      block data blktime
      include 'gettime.h'
      include 'timesdif.h'
c
c Short field labels for timegcm:
c
      data timelab_short
     + /'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       ','EPOT    ',
     +  'N2      '/  
c
c If itimelog(1->ntimefld) = 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
     +   0,    1,   1,   0,  0,   0,  1/
c
c wtime(1->ntimefld) molecular weights
c
      data wtime
c       tn   un   vn   o2    o  n4s   noz   co  co2  h2o  h2 hox
     +/  0.,  0.,  0., 32., 16., 14.,  30., 28., 44., 18., 2.,17.,
c       o+   ch4  o21d no2  no   o3 npo1   oh   ho2    h  n2d   ti
     +   0., 16.,  32., 46.,30., 48., 16., 17.,  33.,  1., 14.,  0.,
c       te  ne  o2+    w   z   epot  n2
     +  0., 0.,  0.,   0., 0.,  0.,  28./
c
      data zmlon/999./  ! special value flag for zonal means
      end