c
c------------------------------------------------------------------
c Begin file /home/sting/foster/tigcm/blkdat.f
c------------------------------------------------------------------
c
      block data blkdat
      include 'tgcmparam.h'
      include 'input.h'
      include 'tigcm.h'
c
c luscr1 = logical unit on which to store lat vs ut
c luglbm1= logical unit on which to store zp vs ut
c luglbm2= logical unit on which to store ht vs ut
c
      data luscr1/60/, luglbm1/10/, luglbm2/20/
      data iframe/0/
c
c 5/14/91: try if ipltuv=-1 -> do vectors only for tn, pot
      data ipltuv/1/
c     data ipltuv/-1/
      data izmflag/-999/   ! flags zonal means for lon slices
      data r12flag/999./   ! flags local noon longitude
      data nhtscale/21/, ht1/100./, dht/20./
c
      end