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 none 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 'fracs.com' include 'lpoly.com' include 'stndprof.com' c common/subset/lscanp,lsmpmn,lsmpmx,lsmskp,lscanx,lscan,lsampl(35) logical*4 lscan,lsampl c character*3 moname(12) c 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/20*.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 fractional time interpolation factors for individual channel c measurements within a single scan c data fracn07/0.574,0.522,0.471,0.423,0.375,0.328,0.281, 1 0.234,.186875,.139375,.090625,.043125/ data fracsb2/0.0195,0.0820,0.1445,0.2070,0.2695,0.3320, 1 0.3945,0.4570,0.5195,0.5820,0.6445,0.7070/ c c data moname/'JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG', c 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 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 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 end