c
      block data blkflx
      include "flxproc.h"
      include "ccm.h"
c
      data iframe/0/, luhist/20/, luccm/30/
      data mtimes/mxtms*ispval,mxtms*ispval,mxtms*ispval/
      data ccmres/'                '/
      data ixfcpl/mxflds*0/
      data flats/jmx*spval/
      data flat_zprange/jmx*spval,jmx*spval/
      data flons/imx*spval/
      data flon_zprange/imx*spval,imx*spval/
      data modelhts/1/, iyaxright/1/
c
c ccm T21 latitudes:
c
      data glat_t21
     +  /-85.76059,-80.26878,-74.74454,-69.21298,-63.67864,-58.14295,
     +   -52.60653,-47.06964,-41.53246,-35.99508,-30.45755,-24.91993,
     +   -19.38223,-13.84448, -8.30670, -2.76890,  2.76890,  8.30670,
     +    13.84448, 19.38223, 24.91993, 30.45755, 35.99508, 41.53246,
     +    47.06964, 52.60653, 58.14295, 63.67864, 69.21298, 74.74454,
     +    80.26878, 85.76059/
c
c ccm maccm2 latitudes:
c
      data glat_maccm
     +/-87.86380,  -85.09653,  -82.31291,  -79.52561,  -76.73690,  
     + -73.94752,  -71.15775,  -68.36776,  -65.57761,  -62.78735,
     + -59.99702,  -57.20663,  -54.41620,  -51.62573,  -48.83524,  
     + -46.04473,  -43.25419,  -40.46365,  -37.67309,  -34.88252,
     + -32.09194,  -29.30136,  -26.51077,  -23.72017,  -20.92957,  
     + -18.13897,  -15.34836,  -12.55776,   -9.76715,   -6.97653,
     +  -4.18592,   -1.39531,    1.39531,    4.18592,    6.97653,   
     +   9.76715,   12.55776,   15.34836,   18.13897,   20.92957,
     +  23.72017,   26.51077,   29.30136,   32.09194,   34.88252,  
     +  37.67309,   40.46365,   43.25419,   46.04473,   48.83524,
     +  51.62573,   54.41620,   57.20663,   59.99702,   62.78735,  
     +  65.57761,   68.36776,   71.15775,   73.94752,   76.73690,
     +  79.52561,   82.31291,   85.09653,   87.86380/
c
c Short field labels (see setflab for full names):
c (note new (derived) fields must be added before E6300)
c
      data flab8
     + /'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       ','POTEN   ',
     +  'UI      ','VI      ','WI      ','N2      '/
      data ccmflab8/mxccmf*'        '/
c
c Linear or log plot (if logplt(ip)=1, then plot log10 (if log10 flags
c are set, e.g., ilat_log10, ilon_log10, etc)
c
      data logplt
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
c     ui    vi    wi    n2
     +/0,    0,    0,    1,    1,    1,    1,    1,    1,    1,
     + 1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
     + 1,    1,    1,    0,    0,    1,    1,    0,    0,    0,
     + 0,    0,    0,    1/
      end