c
c------------------------------------------------------------------
c Begin file /home/sting/foster/tigcm/tigcm.h
c------------------------------------------------------------------
c
      parameter(mxdays=10,mxloc=25)
      character*32 runlab
c
c utlat = store ut vs lat fields at each location
c iptigcm(ntigcmf) = selected fields (0 or 1) to be plotted
c iplutlat = contour ut vs lat (if = 1)
c iplglb = contour lon vs lat at current ut (if = 1)
c iplpol = make polar plots (if > 0)
c          (if 1 -> southern hem only, if 2 -> northern only,
c           if 3 -> make for both hems)
c ipllatzp = make longitude slice contours (lat on x-axis, zp on y-axis)
c ipllatht = make longitude slice contours (lat on x-axis, ht on y-axis)
c ipltuv = add wind vectors to lon vs lat (if=1)
c iplsatv = make satellite view contours 
c rloc,ixloc = lat/lon coords and indices for center of sat view projections
c conints(ntigcmf) = contour intervals for each field (if 0., let
c                    conpack choose interval and levels)
c
      common/tigcmplt/ gcmuts(mxtms,jmx,ntigcmf+ntiegcmf),iframe,
     +  iplutlat,iptigcm(ntigcmf),ndays,iyd(mxdays),log10pl,
     +  luscr1,luglbm1,luglbm2,iplutzpm,iplglb,ipltuv,iplpol,
     +  ipllatzp,ipluthtm,iplcool,ipllatht,iplsatv,rloc(2,mxloc),
     +  ixloc(2,mxloc),nloc,conints(ntigcmf),conmins(ntigcmf),
     +  conmaxs(ntigcmf),idyn,iptiegcm(ntiegcmf),cmindyn(ntiegcmf),
     +  cmaxdyn(ntiegcmf),cintdyn(ntiegcmf),izmflag,r12flag
c
c Linear height scale for y-axis zonal means (iplhtzm=1):
c (defined in tigcm.f)
c
c Note: nhtscale, ht1, dht may be changed here to vary scale of y-axis 
c       heights, for example: 
c  1. for sme comparisons:  htscale = 100->160km where ht1=100, dht=3
c                             and nhtscale = 21
c  2. for typical tigcm:    htscale = 100->500km where ht1=100, dht=20
c                             and nhtscale = 21
c (Viewport may also be changed in appropriate routine, e.g., pltlatht)
c
c     parameter (nhtscale=21,ht1=100.,dht=3.)  ! sme comparison (field NO) 
c     parameter (nhtscale=21,ht1=100.,dht=20.) ! usual tigcm
      parameter (mxhtscal=25)
      common/linht/ finterp(imx,jmx,mxhtscal),htscale(mxhtscal),
     +              nhtscale,ht1,dht
c
c tigcmch contains character types:
c
      common/tigcmch/ runlab
c
c Cooling (and heating) terms:
c (global cooling parameters are in proclib/cool.h and blkcool.f
c
      common/coolti/ cooluts(mxtms,jmx,ncoolt)