block data c c*********************************************************************** c c blockdata c c september, 2001 by charlie wellemeyer ssai corporation c c purpose c initialize various parameters in common c c modification c Q. Zhao, STG, May 2006 c Initialize the orbit identifier used in rdatar c c c ********************************************************************** c implicit none c integer i integer*4 lscanp, lsmpmn, lsmpmx, lsmskp, lscanx c include 'contrl.com' include 'absoft.com' include 'pterp.com' include 'lpoly.com' include 'stndprof.com' include 'totret.com' c common/subset/lscanp,lsmpmn,lsmpmx,lsmskp,lscanx,lscan,lsampl(35) logical*4 lscan,lsampl character*3 moname(12) common /months/moname c c real fgtmp, stprf, profl, terroz c common /stndprof/fgtmp(11),stprf(11,21),profl(21),terroz(21) c c** Processing control parameters c data ioseq/0/,sunmax/92.0/, 1 xlatlo/-90./,xlathi/90.0/,xlonlo/-180./,xlonhi/180./, 2 lprint/30*.false./,iopts/25*.false./ c c c interpolation points for 10 solar zenith angles (log sec(sza)) c data xzlog/0.0000000d0, 0.1438410d0, 0.3465740d0, 0.6931472d0, 1 1.0728856d0, 1.4918724d0, 1.8551181d0, 2.2582959d0, 2 2.6627451d0, 3.3552829d0/ c c log pressure interpolation points for 1.0, 0.7, 0.4, and 0.25 Atm. c data logpr/0.,-.154902,-.397940,-.602060/ c c data lscanp,lsmpmn,lsmpmx,lsmskp,lscanx/1,1,35,1,0/ c data moname/'JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG', 1 'SEP','OCT','NOV','DEC'/ c c standard temperature profile from us standard atmosphere c data fgtmp/269.724,236.405,216.719,216.735,217.887, 1 222.402,226.738,236.998,250.838,265.859,270.648/ c c 21 standard 11 layer ozone profiles c data (stprf(i, 1),i=1,11)/ 15.00, 9.00, 4.94, 5.91, 1 25.75, 62.60, 57.00, 29.40, 10.90, 3.20, 1.30/ data (stprf(i, 2),i=1,11)/ 15.00, 9.00, 5.61, 14.66, 1 50.68, 78.25, 57.00, 29.40, 10.90, 3.20, 1.30/ data (stprf(i, 3),i=1,11)/ 15.00, 9.00, 10.98, 30.51, 1 71.05, 86.66, 57.00, 29.40, 10.90, 3.20, 1.30/ data (stprf(i, 4),i=1,11)/ 15.09, 9.03, 8.68, 18.55, 1 45.11, 53.84, 36.26, 22.56, 10.75, 3.70, 1.43/ data (stprf(i, 5),i=1,11)/ 15.09, 11.46, 15.41, 29.67, 1 61.57, 63.64, 39.72, 22.56, 10.75, 3.70, 1.43/ data (stprf(i, 6),i=1,11)/ 15.09, 14.08, 25.51, 43.64, 1 75.49, 70.32, 42.43, 22.56, 10.75, 3.70, 1.43/ data (stprf(i, 7),i=1,11)/ 15.09, 16.91, 39.73, 61.73, 1 87.09, 73.51, 42.50, 22.56, 10.75, 3.70, 1.43/ data (stprf(i, 8),i=1,11)/ 15.09, 19.93, 56.13, 82.00, 1 96.26, 74.25, 42.90, 22.56, 10.75, 3.70, 1.43/ data (stprf(i, 9),i=1,11)/ 15.09, 23.15, 73.24,103.71, 1 104.09, 74.28, 43.00, 22.56, 10.75, 3.70, 1.43/ data (stprf(i,10),i=1,11)/ 15.09, 26.57, 91.54,126.67, 1 110.15, 73.54, 43.00, 22.56, 10.75, 3.70, 1.43/ data (stprf(i,11),i=1,11)/ 15.09, 30.19,111.11,150.11, 1 114.67, 72.39, 43.00, 22.56, 10.75, 3.70, 1.43/ data (stprf(i,12),i=1,11)/ 14.11, 8.47, 18.56, 5.91, 1 5.00, 23.28, 22.94, 15.87, 7.37, 2.53, 0.96/ data (stprf(i,13),i=1,11)/ 14.11, 8.73, 18.53, 16.91, 1 23.61, 33.26, 30.08, 17.91, 8.06, 2.73, 1.07/ data (stprf(i,14),i=1,11)/ 14.11, 9.89, 21.62, 28.94, 1 41.27, 41.10, 35.61, 19.65, 8.71, 2.93, 1.17/ data (stprf(i,15),i=1,11)/ 14.11, 11.85, 27.72, 42.14, 1 57.09, 47.89, 39.54, 21.02, 9.28, 3.11, 1.25/ data (stprf(i,16),i=1,11)/ 14.11, 14.61, 36.84, 56.58, 1 71.10, 53.60, 41.88, 21.98, 9.72, 3.27, 1.31/ data (stprf(i,17),i=1,11)/ 14.11, 17.80, 49.19, 72.51, 1 83.51, 58.34, 42.33, 22.35, 10.09, 3.41, 1.36/ data (stprf(i,18),i=1,11)/ 14.11, 22.50, 64.50, 89.46, 1 93.69, 61.65, 41.70, 22.40, 10.08, 3.51, 1.40/ data (stprf(i,19),i=1,11)/ 14.11, 29.41, 82.32,106.83, 1 101.07, 63.21, 40.80, 22.34, 9.95, 3.54, 1.42/ data (stprf(i,20),i=1,11)/ 14.11, 38.08,102.60,124.66, 1 105.87, 63.22, 39.45, 22.17, 9.90, 3.52, 1.42/ data (stprf(i,21),i=1,11)/ 14.11, 48.45,125.21,142.90, 1 108.23, 61.79, 37.65, 21.90, 9.88, 3.47, 1.41/ c data profl/225.,275.,325.,225.,275.,325.,375.,425.,475., 1 525.,575.,125.,175.,225.,275.,325.,375.,425.,475., 2 525.,575./ c data terroz/3*15.0,8*15.09,10*14.11/ c c ozone absorption coefficients for use in chain rule for temperature c c n07 data c0n07/ 0.000e+00, 1.409e+01, 7.815e+00, 4.621e+00, 1 1.824e+00, 9.712e-01, 1.641e-01, 3.657e-02/ data c1n07/ 0.000e+00, 2.007e-02, 1.326e-02, 9.822e-03, 1 5.383e-03, 3.045e-03, 7.264e-04, 3.713e-04/ data c2n07/ 0.000e+00, 1.002e-04, 4.826e-05, 4.166e-05, 1 2.806e-05, 1.860e-05, 3.841e-06, 2.699e-06/ c n09 data c0n09/ 0.000e+00, 1.447e+01, 8.010e+00, 4.700e+00, 1 1.871e+00, 9.850e-01, 1.692e-01, 3.494e-02/ data c1n09/ 0.000e+00, 2.025e-02, 1.353e-02, 1.005e-02, 1 5.473e-03, 3.118e-03, 7.153e-04, 3.864e-04/ data c2n09/ 0.000e+00, 1.007e-04, 4.899e-05, 4.199e-05, 1 2.888e-05, 1.796e-05, 4.069e-06, 2.775e-06/ c n11 data c0n11/ 0.000e+00, 1.411e+01, 7.834e+00, 4.646e+00, 1 1.837e+00, 9.761e-01, 1.659e-01, 3.625e-02/ data c1n11/ 0.000e+00, 2.008e-02, 1.328e-02, 9.891e-03, 1 5.413e-03, 3.064e-03, 7.231e-04, 3.745e-04/ data c2n11/ 0.000e+00, 1.002e-04, 4.834e-05, 4.174e-05, 1 2.833e-05, 1.830e-05, 3.902e-06, 2.716e-06/ c n14 zigzag mode 3&4 data c0n14/ 0.000e+00, 1.421e+01, 7.883e+00, 4.670e+00, 1 1.851e+00, 9.796e-01, 1.670e-01, 3.593e-02/ data c1n14/ 0.000e+00, 2.012e-02, 1.335e-02, 9.960e-03, 1 5.440e-03, 3.082e-03, 7.208e-04, 3.777e-04/ data c2n14/ 0.000e+00, 1.003e-04, 4.855e-05, 4.183e-05, 1 2.857e-05, 1.814e-05, 3.950e-06, 2.732e-06/ c n14 fix mode, LK Huang Sept 2004 data c0n14a/0.000e+00, 1.370E+01, 7.579E+00, 4.561E+00, 1 1.789E+00, 9.643E-01, 1.556E-01, 3.831E-02/ data c1n14a/0.000e+00, 2.003E-02, 1.315E-02, 9.698E-03, 1 5.293E-03, 2.991E-03, 7.386E-04, 3.478E-04/ data c2n14a/0.000e+00, 1.000E-04, 4.770E-05, 4.138E-05, 1 2.740E-05, 1.860E-05, 3.663E-06, 2.554E-06/ c n16 data c0n16/ 0.000e+00, 1.415e+01, 7.859e+00, 4.624e+00, 1 1.827e+00, 9.722e-01, 1.672e-01, 3.654e-02/ data c1n16/ 0.000e+00, 2.010e-02, 1.332e-02, 9.829e-03, 1 5.391e-03, 3.048e-03, 7.204e-04, 3.715e-04/ data c2n16/ 0.000e+00, 1.003e-04, 4.844e-05, 4.167e-05, 1 2.813e-05, 1.853e-05, 3.958e-06, 2.700e-06/ c n17 data c0n17/ 0.000e+00, 1.422e+01, 7.887e+00, 4.672e+00, 1 1.852e+00, 9.802e-01, 1.673e-01, 3.581e-02/ data c1n17/ 0.000e+00, 2.013e-02, 1.336e-02, 9.967e-03, 1 5.443e-03, 3.085e-03, 7.202e-04, 3.787e-04/ data c2n17/ 0.000e+00, 1.003e-04, 4.857e-05, 4.185e-05, 1 2.860e-05, 1.812e-05, 3.962e-06, 2.737e-06/ c n18 data c0n18/ 0.000e+01, 1.398e+01, 7.800e+00, 4.653e+00, 1 1.814e+00, 9.839e-01, 1.659e-01, 3.678e-02/ data c1n18/ 0.000e-02, 2.015e-02, 1.338e-02, 9.970e-03, 1 5.372e-03, 3.042e-03, 7.210e-04, 3.702e-04/ data c2n18/ 0.000e-00, 1.005e-04, 4.819e-05, 4.181e-05, 1 2.801e-05, 1.721e-05, 3.928e-06, 2.663e-06/ c n19 data c0n19/ 0.000E+00, 1.388E+01, 7.719E+00, 4.621E+00, 1 1.800E+00, 9.777E-01, 1.626E-01, 3.734E-02/ data c1n19/ 0.000E-00, 2.010E-02, 1.330E-02, 9.873E-03, 1 5.323E-03, 3.021E-03, 7.269E-04, 3.629E-04/ data c2n19/ 0.000E-00, 1.003E-04, 4.796E-05, 4.165E-05, 1 2.767E-05, 1.754E-05, 3.833E-06, 2.627E-06/ c n19 with channel-12 at 343.022 nm data c0n19n/ 0.000E+00, 1.388E+01, 7.719E+00, 4.621E+00, 1 1.800E+00, 9.777E-01, 1.626E-01, 1.797e-02/ data c1n19n/ 0.000E-00, 2.010E-02, 1.330E-02, 9.873E-03, 1 5.323E-03, 3.021E-03, 7.269E-04, 2.050e-04/ data c2n19n/ 0.000E-00, 1.003E-04, 4.796E-05, 4.165E-05, 1 2.767E-05, 1.754E-05, 3.833E-06, 1.188e-06/ c n19 with channel-12 at 335.0 nm data c0n19m/ 0.000E+00, 1.388E+01, 7.719E+00, 4.621E+00, 1 1.800E+00, 9.777E-01, 1.626E-01, 6.157e-02/ data c1n19m/ 0.000E-00, 2.010E-02, 1.330E-02, 9.873E-03, 1 5.323E-03, 3.021E-03, 7.269E-04, 5.556e-04/ data c2n19m/ 0.000E-00, 1.003E-04, 4.796E-05, 4.165E-05, 1 2.767E-05, 1.754E-05, 3.833E-06, 3.046e-06/ c n19 with channel-12 at 331 nm data c0n19l/ 0.000E+00, 1.388E+01, 7.719E+00, 4.621E+00, 1 1.800E+00, 9.777E-01, 1.626E-01, 1.626E-01/ data c1n19l/ 0.000E-00, 2.010E-02, 1.330E-02, 9.873E-03, 1 5.323E-03, 3.021E-03, 7.269E-04, 7.269E-04/ data c2n19l/ 0.000E-00, 1.003E-04, 4.796E-05, 4.165E-05, 1 2.767E-05, 1.754E-05, 3.833E-06, 3.833E-06/ c ssb data c0ssb/ 0.000e+00, 1.399e+01, 7.776e+00, 4.583e+00, 1 1.805e+00, 9.618e-01, 1.593e-01, 3.745e-02/ data c1ssb/ 0.000e+00, 2.002e-02, 1.321e-02, 9.713e-03, 1 5.329e-03, 3.025e-03, 7.345e-04, 3.604e-04/ data c2ssb/ 0.000e+00, 9.999e-05, 4.812e-05, 4.146e-05, 1 2.762e-05, 1.931e-05, 3.717e-06, 2.642e-06/ c n04 data c0n04/ 0.000e+00, 1.411e+01, 7.842e+00, 4.635e+00, 1 1.833e+00, 9.751e-01, 1.658e-01, 3.648e-02/ data c1n04/ 0.000e+00, 2.008e-02, 1.329e-02, 9.860e-03, 1 5.404e-03, 3.060e-03, 7.232e-04, 3.722e-04/ data c2n04/ 0.000e+00, 1.002e-04, 4.837e-05, 4.171e-05, 1 2.825e-05, 1.836e-05, 3.900e-06, 2.704e-06/ c c Orbit identifier used in rdatar c data iorbit_prv/-1/ c end