MODULE module_ra_rrtm 2
! Parameters
INTEGER, PRIVATE :: IDATA
INTEGER, PARAMETER :: MG=16
INTEGER, PARAMETER :: NBANDS=16
INTEGER, PARAMETER :: NGPT=140
INTEGER, PARAMETER :: NG1=8
INTEGER, PARAMETER :: NG2=14
INTEGER, PARAMETER :: NG3=16
INTEGER, PARAMETER :: NG4=14
INTEGER, PARAMETER :: NG5=16
INTEGER, PARAMETER :: NG6=8
INTEGER, PARAMETER :: NG7=12
INTEGER, PARAMETER :: NG8=8
INTEGER, PARAMETER :: NG9=12
INTEGER, PARAMETER :: NG10=6
INTEGER, PARAMETER :: NG11=8
INTEGER, PARAMETER :: NG12=8
INTEGER, PARAMETER :: NG13=4
INTEGER, PARAMETER :: NG14=2
INTEGER, PARAMETER :: NG15=2
INTEGER, PARAMETER :: NG16=2
INTEGER, PARAMETER :: MAXINPX=35
INTEGER, PARAMETER :: MAXXSEC=4
INTEGER, PARAMETER :: NMOL = 6
REAL, PARAMETER :: ONEMINUS = 1. - 1.E-6
! var
REAL , SAVE :: FLUXFAC
INTEGER , SAVE :: NLAYERS
!
! data 1
!
REAL,SAVE :: abscoefL1(5,13,MG), abscoefH1(5,13:59,MG), &
SELFREF1(10,MG)
REAL,SAVE :: abscoefL2(5,13,MG), abscoefH2(5,13:59,MG), &
SELFREF2(10,MG)
REAL,SAVE :: abscoefL3(10,5,13,MG), abscoefH3(5,5,13:59,MG), &
SELFREF3(10,MG)
REAL,SAVE :: abscoefL4(9,5,13,MG), abscoefH4(6,5,13:59,MG), &
SELFREF4(10,MG)
REAL,SAVE :: abscoefL5(9,5,13,MG), abscoefH5(5,5,13:59,MG), &
SELFREF5(10,MG)
REAL,SAVE :: abscoefL6(5,13,MG), SELFREF6(10,MG)
REAL,SAVE :: abscoefL7(9,5,13,MG), abscoefH7(5,13:59,MG), &
SELFREF7(10,MG)
REAL,SAVE :: abscoefL8(5,7,MG), abscoefH8(5,7:59,MG), &
SELFREF8(10,MG)
REAL,SAVE :: abscoefL9(11,5,13,MG), abscoefH9(5,13:59,MG), &
SELFREF9(10,MG)
REAL,SAVE :: abscoefL10(5,13,MG), abscoefH10(5,13:59,MG)
REAL,SAVE :: abscoefL11(5,13,MG), abscoefH11(5,13:59,MG), &
SELFREF11(10,MG)
REAL,SAVE :: abscoefL12(9,5,13,MG), SELFREF12(10,MG)
REAL,SAVE :: abscoefL13(9,5,13,MG), SELFREF13(10,MG)
REAL,SAVE :: abscoefL14(5,13,MG), abscoefH14(5,13:59,MG), &
SELFREF14(10,MG)
REAL,SAVE :: abscoefL15(9,5,13,MG), SELFREF15(10,MG)
REAL,SAVE :: abscoefL16(9,5,13,MG), SELFREF16(10,MG)
!
! data 2
!
INTEGER,SAVE :: NGM(MG*NBANDS), NGC(NBANDS), NGS(NBANDS), &
NGN(NGPT), NGB(NGPT)
REAL,SAVE :: WT(MG)
!
! data 3
!
REAL,SAVE :: FRACREFA1(MG), FRACREFB1(MG), FORREF1(MG)
REAL,SAVE :: FRACREFA2(MG,13), FRACREFB2(MG), FORREF2(MG)
REAL,SAVE :: FRACREFA3(MG,10), FRACREFB3(MG,5)
REAL,SAVE :: FORREF3(MG), ABSN2OA3(MG), ABSN2OB3(MG)
REAL,SAVE :: FRACREFA4(MG,9), FRACREFB4(MG,6)
REAL,SAVE :: FRACREFA5(MG,9), FRACREFB5(MG,5), CCL45(MG)
REAL,SAVE :: FRACREFA6(MG), ABSCO26(MG), CFC11ADJ6(MG), CFC126(MG)
REAL,SAVE :: FRACREFA7(MG,9), FRACREFB7(MG), ABSCO27(MG)
REAL,SAVE :: FRACREFA8(MG), FRACREFB8(MG), ABSCO2A8(MG), ABSCO2B8(MG)
REAL,SAVE :: ABSN2OA8(MG), ABSN2OB8(MG), CFC128(MG), CFC22ADJ8(MG)
REAL,SAVE :: FRACREFA9(MG,9), FRACREFB9(MG), ABSN2O9(3*MG)
REAL,SAVE :: FRACREFA10(MG), FRACREFB10(MG)
REAL,SAVE :: FRACREFA11(MG), FRACREFB11(MG)
REAL,SAVE :: FRACREFA12(MG,9)
REAL,SAVE :: FRACREFA13(MG,9)
REAL,SAVE :: FRACREFA14(MG), FRACREFB14(MG)
REAL,SAVE :: FRACREFA15(MG,9)
REAL,SAVE :: FRACREFA16(MG,9)
!
! data 4
!
INTEGER,SAVE :: NXMOL, IXINDX(MAXINPX)
! data 5
REAL,SAVE :: WAVENUM1(NBANDS),WAVENUM2(NBANDS),DELWAVE(NBANDS)
! data 6
INTEGER,SAVE :: NG(NBANDS),NSPA(NBANDS),NSPB(NBANDS)
REAL, SAVE :: HEATFAC
REAL, SAVE :: PREF(59),PREFLOG(59),TREF(59)
! data 7
REAL, SAVE :: TOTPLNK(181,NBANDS), TOTPLK16(181)
! data
REAL, SAVE :: TAU(0:5000),TF(0:5000),TRANS(0:5000)
!
REAL, SAVE :: ABSA1(5*13,NG1), ABSB1(5*(59-13+1),NG1), &
SELFREFC1(10,NG1), FORREFC1(NG1)
REAL, SAVE :: ABSA2(5*13,NG2), ABSB2(5*(59-13+1),NG2), &
SELFREFC2(10,NG2), FORREFC2(NG2)
REAL, SAVE :: ABSA3(10*5*13,NG3), ABSB3(5*5*(59-13+1),NG3), &
SELFREFC3(10,NG3), FORREFC3(NG3), &
ABSN2OAC3(NG3), ABSN2OBC3(NG3)
REAL, SAVE :: ABSA4(9*5*13,NG4), ABSB4(6*5*(59-13+1),NG4), &
SELFREFC4(10,NG4)
REAL, SAVE :: ABSA5(9*5*13,NG5), ABSB5(5*5*(59-13+1),NG5), &
SELFREFC5(10,NG5), CCL4C5(NG5)
REAL, SAVE :: ABSA6(5*13,NG6), SELFREFC6(10,NG6), &
ABSCO2C6(NG6), CFC11ADJC6(NG6), CFC12C6(NG6)
REAL, SAVE :: ABSA7(9*5*13,NG7), ABSB7(5*(59-13+1),NG7), &
SELFREFC7(10,NG7), ABSCO2C7(NG7)
REAL, SAVE :: ABSA8(5*7,NG8), ABSB8(5*(59-7+1),NG8), &
SELFREFC8(10,NG8), &
ABSCO2AC8(NG8), ABSCO2BC8(NG8), &
ABSN2OAC8(NG8), ABSN2OBC8(NG8), &
CFC12C8(NG8), CFC22ADJC8(NG8)
REAL, SAVE :: ABSA9(11*5*13,NG9), ABSB9(5*(59-13+1),NG9), &
SELFREFC9(10,NG9), ABSN2OC9(3*NG9)
REAL, SAVE :: ABSA10(5*13,NG10), ABSB10(5*(59-13+1),NG10)
REAL, SAVE :: ABSA11(5*13,NG11), ABSB11(5*(59-13+1),NG11), &
SELFREFC11(10,NG11)
REAL, SAVE :: ABSA12(9*5*13,NG12), SELFREFC12(10,NG12)
REAL, SAVE :: ABSA13(9*5*13,NG13), SELFREFC13(10,NG13)
REAL, SAVE :: ABSA14(5*13,NG14), ABSB14(5*(59-13+1),NG14), &
SELFREFC14(10,NG14)
REAL, SAVE :: ABSA15(9*5*13,NG15), SELFREFC15(10,NG15)
REAL, SAVE :: ABSA16(9*5*13,NG16), SELFREFC16(10,NG16)
REAL, SAVE :: FRACREFAC1(NG1), FRACREFBC1(NG1)
REAL, SAVE :: FRACREFAC2(NG2,13), FRACREFBC2(NG2)
REAL, SAVE :: FRACREFAC3(NG3,10), FRACREFBC3(NG3,5)
REAL, SAVE :: FRACREFAC4(NG4,9), FRACREFBC4(NG4,6)
REAL, SAVE :: FRACREFAC5(NG5,9), FRACREFBC5(NG5,5)
REAL, SAVE :: FRACREFAC6(NG6)
REAL, SAVE :: FRACREFAC7(NG7,9), FRACREFBC7(NG7)
REAL, SAVE :: FRACREFAC8(NG8), FRACREFBC8(NG8)
REAL, SAVE :: FRACREFAC9(NG9,9), FRACREFBC9(NG9)
REAL, SAVE :: FRACREFAC10(NG10), FRACREFBC10(NG10)
REAL, SAVE :: FRACREFAC11(NG11), FRACREFBC11(NG11)
REAL, SAVE :: FRACREFAC12(NG12,9)
REAL, SAVE :: FRACREFAC13(NG13,9)
REAL, SAVE :: FRACREFAC14(NG14), FRACREFBC14(NG14)
REAL, SAVE :: FRACREFAC15(NG15,9)
REAL, SAVE :: FRACREFAC16(NG16,9)
REAL, SAVE :: CORR1(0:200),CORR2(0:200)
REAL, SAVE :: BPADE
REAL, SAVE :: RWGT(MG*NBANDS)
!----------------------------------------------------------------------------
!
! start data 2
! Arrays for the g-point reduction from 256 to 140 for the 16 LW bands:
! This mapping from 256 to 140 points has been carefully selected to
! minimize the effect on the resulting fluxes and cooling rates, and
! caution should be used if the mapping is modified.
!
! NGPT The total number of new g-points
! NGC The number of new g-points in each band
! NGM The index of each new g-point relative to the original
! 16 g-points for each band.
! NGN The number of original g-points that are combined to make
! each new g-point in each band.
! NGB The band index for each new g-point.
! WT RRTM weights for 16 g-points.
! Data Statements
DATA NGC /8,14,16,14,16,8,12,8,12,6,8,8,4,2,2,2/
DATA NGS /8,22,38,52,68,76,88,96,108,114,122,130,134,136,138,140/
DATA NGM /1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, & ! Band 1
1,2,3,4,5,6,7,8,9,10,11,12,13,13,14,14, & ! Band 2
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! Band 3
1,2,3,4,5,6,7,8,9,10,11,12,13,14,14,14, & ! Band 4
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! Band 5
1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, & ! Band 6
1,1,2,2,3,4,5,6,7,8,9,10,11,11,12,12, & ! Band 7
1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, & ! Band 8
1,2,3,4,5,6,7,8,9,9,10,10,11,11,12,12, & ! Band 9
1,1,2,2,3,3,4,4,5,5,5,5,6,6,6,6, & ! Band 10
1,2,3,3,4,4,5,5,6,6,7,7,7,8,8,8, & ! Band 11
1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, & ! Band 12
1,1,1,2,2,2,3,3,3,3,4,4,4,4,4,4, & ! Band 13
1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, & ! Band 14
1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, & ! Band 15
1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2/ ! Band 16
DATA NGN /2,2,2,2,2,2,2,2, & ! Band 1
1,1,1,1,1,1,1,1,1,1,1,1,2,2, & ! Band 2
16*1, & ! Band 3
1,1,1,1,1,1,1,1,1,1,1,1,1,3, & ! Band 4
16*1, & ! Band 5
2,2,2,2,2,2,2,2, & ! Band 6
2,2,1,1,1,1,1,1,1,1,2,2, & ! Band 7
2,2,2,2,2,2,2,2, & ! Band 8
1,1,1,1,1,1,1,1,2,2,2,2, & ! Band 9
2,2,2,2,4,4, & ! Band 10
1,1,2,2,2,2,3,3, & ! Band 11
1,1,1,1,2,2,4,4, & ! Band 12
3,3,4,6, & ! Band 13
8,8, & ! Band 14
8,8, & ! Band 15
8,8/ ! Band 16
DATA NGB /8*1, & ! Band 1
14*2, & ! Band 2
16*3, & ! Band 3
14*4, & ! Band 4
16*5, & ! Band 5
8*6, & ! Band 6
12*7, & ! Band 7
8*8, & ! Band 8
12*9, & ! Band 9
6*10, & ! Band 10
8*11, & ! Band 11
8*12, & ! Band 12
4*13, & ! Band 13
2*14, & ! Band 14
2*15, & ! Band 15
2*16/ ! Band 16
DATA WT/ &
0.1527534276,0.1491729617,0.1420961469,0.1316886544, &
0.1181945205,0.1019300893,0.0832767040,0.0626720116, &
0.0424925,0.0046269894,0.0038279891,0.0030260086, &
0.0022199750,0.0014140010,0.000533,0.000075/
!
! end of data 2
!
!-----------------------------------------------------------------------
! start data 3
! Data
DATA FRACREFA1/ &
0.08452097,0.17952873,0.16214369,0.13602182, &
0.12760490,0.10302561,0.08392423,0.06337652, &
0.04206551,0.00487497,0.00410743,0.00344421, &
0.00285731,0.00157327,0.00080648,0.00012406/
DATA FRACREFB1/ &
0.15492001,0.17384727,0.15165100,0.12675308, &
0.10986247,0.09006091,0.07584465,0.05990077, &
0.04113461,0.00438638,0.00374754,0.00313924, &
0.00234381,0.00167167,0.00062744,0.00010889/
DATA FORREF1/ &
-4.50470E-02,-1.18908E-01,-7.21730E-02,-2.83862E-02, &
-3.01961E-02,-1.56877E-02,-1.53684E-02,-1.29135E-02, &
-1.27963E-02,-1.81742E-03, 4.40008E-05, 1.05260E-02, &
2.17290E-02, 1.65571E-02, 7.60751E-02, 1.47405E-01/
! Data
! The ith set of reference fractions are from the ith reference
! pressure level.
DATA FRACREFA2/ &
0.18068060,0.16803175,0.15140158,0.12221480, 0.10240850,0.09330297,0.07518960,0.05611294, &
0.03781487,0.00387192,0.00321285,0.00244440, 0.00179546,0.00107704,0.00038798,0.00005060, &
0.17927621,0.16731168,0.15129538,0.12328085, 0.10243484,0.09354796,0.07538418,0.05633071, &
0.03810832,0.00398347,0.00320262,0.00250029, 0.00178666,0.00111127,0.00039438,0.00005169, &
0.17762886,0.16638555,0.15115446,0.12470623, 0.10253213,0.09383459,0.07560240,0.05646568, &
0.03844077,0.00409142,0.00322521,0.00254918, 0.00179296,0.00113652,0.00040169,0.00005259, &
0.17566043,0.16539773,0.15092199,0.12571971, 0.10340609,0.09426189,0.07559051,0.05678188, &
0.03881499,0.00414102,0.00328551,0.00258795, 0.00181648,0.00115145,0.00040969,0.00005357, &
0.17335825,0.16442548,0.15070701,0.12667464, 0.10452303,0.09450833,0.07599410,0.05706393, &
0.03910370,0.00417880,0.00335256,0.00261708, 0.00185491,0.00116627,0.00041759,0.00005464, &
0.17082544,0.16321516,0.15044247,0.12797612, 0.10574646,0.09470057,0.07647423,0.05738756, &
0.03935621,0.00423789,0.00342651,0.00264549, 0.00190188,0.00118281,0.00042592,0.00005583, &
0.16809277,0.16193336,0.15013184,0.12937409, 0.10720784,0.09485368,0.07692636,0.05771774, &
0.03966988,0.00427754,0.00349696,0.00268946, 0.00193536,0.00120222,0.00043462,0.00005712, &
0.16517997,0.16059248,0.14984852,0.13079269, 0.10865030,0.09492947,0.07759736,0.05812201, &
0.03997169,0.00432356,0.00355308,0.00274031, 0.00197243,0.00122401,0.00044359,0.00005849, &
0.16209179,0.15912023,0.14938223,0.13198245, 0.11077233,0.09487948,0.07831636,0.05863440, &
0.04028239,0.00436804,0.00360407,0.00279885, 0.00200364,0.00124861,0.00045521,0.00005996, &
0.15962425,0.15789343,0.14898103,0.13275230, 0.11253940,0.09503502,0.07884382,0.05908009, &
0.04053524,0.00439971,0.00364269,0.00284965, 0.00202758,0.00127076,0.00046408,0.00006114, &
0.15926200,0.15770932,0.14891729,0.13283882, 0.11276010,0.09507311,0.07892222,0.05919230, &
0.04054824,0.00440833,0.00365575,0.00286459, 0.00203786,0.00128405,0.00046504,0.00006146, &
0.15926351,0.15770483,0.14891177,0.13279966, 0.11268171,0.09515216,0.07890341,0.05924807, &
0.04052851,0.00440870,0.00365425,0.00286878, 0.00205747,0.00128916,0.00046589,0.00006221, &
0.15937765,0.15775780,0.14892603,0.13273248, 0.11252731,0.09521657,0.07885858,0.05927679, &
0.04050184,0.00440285,0.00365748,0.00286791, 0.00207507,0.00129193,0.00046679,0.00006308/
! From P = 0.432 mb.
DATA FRACREFB2/ &
0.17444289,0.16467269,0.15021490,0.12460902, &
0.10400643,0.09481928,0.07590704,0.05752856, &
0.03931715,0.00428572,0.00349352,0.00278938, &
0.00203448,0.00130037,0.00051560,0.00006255/
DATA FORREF2/ &
-2.34550E-03,-8.42698E-03,-2.01816E-02,-5.66701E-02, &
-8.93189E-02,-6.37487E-02,-4.56455E-02,-4.41417E-02, &
-4.48605E-02,-4.74696E-02,-5.16648E-02,-5.63099E-02, &
-4.74781E-02,-3.84704E-02,-2.49905E-02, 2.02114E-03/
! Data
DATA FRACREFA3/ &
! From P = 1053.6 mb.
0.15116400,0.14875700,0.14232300,0.13234501, 0.11881600,0.10224100,0.08345580,0.06267490, &
0.04250650,0.00462650,0.00382259,0.00302600, 0.00222004,0.00141397,0.00053379,0.00007421, &
0.15266000,0.14888400,0.14195900,0.13179500, 0.11842700,0.10209000,0.08336130,0.06264370, &
0.04247660,0.00461946,0.00381536,0.00302601, 0.00222004,0.00141397,0.00053302,0.00007498, &
0.15282799,0.14903000,0.14192399,0.13174300, 0.11835300,0.10202700,0.08329830,0.06264830, &
0.04246910,0.00460242,0.00381904,0.00301573, 0.00222004,0.00141397,0.00053379,0.00007421, &
0.15298399,0.14902800,0.14193401,0.13173500, 0.11833300,0.10195800,0.08324730,0.06264770, &
0.04246490,0.00460489,0.00381123,0.00301893, 0.00221093,0.00141397,0.00053379,0.00007421, &
0.15307599,0.14907201,0.14198899,0.13169800, 0.11827300,0.10192300,0.08321600,0.06263490, &
0.04245600,0.00460846,0.00380836,0.00301663, 0.00221402,0.00141167,0.00052807,0.00007376, &
0.15311401,0.14915401,0.14207301,0.13167299, 0.11819300,0.10188900,0.08318760,0.06261960, &
0.04243890,0.00461584,0.00380929,0.00300815, 0.00221736,0.00140588,0.00052776,0.00007376, &
0.15316001,0.14925499,0.14213000,0.13170999, 0.11807700,0.10181400,0.08317400,0.06260300, &
0.04242720,0.00461520,0.00381381,0.00301285, 0.00220275,0.00140371,0.00052776,0.00007376, &
0.15321200,0.14940999,0.14222500,0.13164200, 0.11798200,0.10174500,0.08317500,0.06253640, &
0.04243130,0.00461724,0.00381534,0.00300320, 0.00220091,0.00140364,0.00052852,0.00007300, &
0.15312800,0.14973100,0.14234400,0.13168900, 0.11795200,0.10156100,0.08302990,0.06252240, &
0.04240980,0.00461035,0.00381381,0.00300176, 0.00220160,0.00140284,0.00052774,0.00007376, &
0.15292500,0.14978001,0.14242400,0.13172600, 0.11798800,0.10156400,0.08303050,0.06251670, &
0.04240970,0.00461302,0.00381452,0.00300250, 0.00220126,0.00140324,0.00052850,0.00007300/
DATA FRACREFB3/ &
! From P = 64.1 mb.
0.16340201,0.15607700,0.14601400,0.13182700, &
0.11524700,0.09666570,0.07825360,0.05849780, &
0.03949650,0.00427980,0.00353719,0.00279303, &
0.00204788,0.00130139,0.00049055,0.00006904, &
0.15762900,0.15494700,0.14659800,0.13267800, &
0.11562700,0.09838360,0.07930420,0.05962700, &
0.04036360,0.00438053,0.00361463,0.00285723, &
0.00208345,0.00132135,0.00050528,0.00008003, &
0.15641500,0.15394500,0.14633600,0.13180400, &
0.11617100,0.09924170,0.08000510,0.06021420, &
0.04082730,0.00441694,0.00365364,0.00287723, &
0.00210914,0.00135784,0.00054651,0.00008003, &
0.15482700,0.15286300,0.14392500,0.13244100, &
0.11712000,0.09994920,0.08119200,0.06104360, &
0.04135600,0.00446685,0.00368377,0.00290767, &
0.00215445,0.00142865,0.00056142,0.00008003, &
0.15975100,0.15653500,0.14214399,0.12892200, &
0.11508400,0.09906020,0.08087940,0.06078190, &
0.04140530,0.00452724,0.00374558,0.00295328, &
0.00218509,0.00138644,0.00056018,0.00008003/
DATA ABSN2OA3/ &
1.50387E-01,2.91407E-01,6.28803E-01,9.65619E-01, &
1.15054E-00,2.23424E-00,1.83392E-00,1.39033E-00, &
4.28457E-01,2.73502E-01,1.84307E-01,1.61325E-01, &
7.66314E-02,1.33862E-01,6.71196E-07,1.59293E-06/
DATA ABSN2OB3/ &
9.37044E-05,1.23318E-03,7.91720E-03,5.33005E-02, &
1.72343E-01,4.29571E-01,1.01288E+00,3.83863E+00, &
1.15312E+01,1.08383E+00,2.24847E+00,1.51268E+00, &
3.33177E-01,7.82102E-01,3.44631E-01,1.61039E-03/
DATA FORREF3/ &
1.76842E-04, 1.77913E-04, 1.25186E-04, 1.07912E-04, &
1.05217E-04, 7.48726E-05, 1.11701E-04, 7.68921E-05, &
9.87242E-05, 9.85711E-05, 6.16557E-05,-1.61291E-05, &
-1.26794E-04,-1.19011E-04,-2.67814E-04, 6.95005E-05/
! Data
DATA FRACREFA4/ &
! From P =
0.15579100,0.14918099,0.14113800,0.13127001, &
0.11796300,0.10174300,0.08282370,0.06238150, &
0.04213440,0.00458968,0.00377949,0.00298736, &
0.00220743,0.00140644,0.00053024,0.00007459, &
0.15292799,0.15004000,0.14211500,0.13176700, &
0.11821100,0.10186300,0.08288040,0.06241390, &
0.04220720,0.00459006,0.00377919,0.00298743, &
0.00220743,0.00140644,0.00053024,0.00007459, &
0.14386199,0.15125300,0.14650001,0.13377000, &
0.11895900,0.10229400,0.08312110,0.06239520, &
0.04225560,0.00459428,0.00378865,0.00298860, &
0.00220743,0.00140644,0.00053024,0.00007459, &
0.14359100,0.14561599,0.14479300,0.13740200, &
0.12150100,0.10315400,0.08355480,0.06247240, &
0.04230980,0.00459916,0.00378373,0.00300063, &
0.00221111,0.00140644,0.00053024,0.00007459, &
0.14337599,0.14451601,0.14238000,0.13520500, &
0.12354200,0.10581200,0.08451810,0.06262440, &
0.04239590,0.00460297,0.00378701,0.00300466, &
0.00221899,0.00141020,0.00053024,0.00007459, &
0.14322001,0.14397401,0.14117201,0.13401900, &
0.12255500,0.10774100,0.08617650,0.06296420, &
0.04249590,0.00463406,0.00378241,0.00302037, &
0.00221583,0.00141103,0.00053814,0.00007991, &
0.14309500,0.14364301,0.14043900,0.13348100, &
0.12211600,0.10684700,0.08820590,0.06374610, &
0.04264730,0.00464231,0.00384022,0.00303427, &
0.00221825,0.00140943,0.00055564,0.00007991, &
0.15579100,0.14918099,0.14113800,0.13127001, &
0.11796300,0.10174300,0.08282370,0.06238150, &
0.04213440,0.00458968,0.00377949,0.00298736, &
0.00220743,0.00140644,0.00053024,0.00007459, &
0.15937001,0.15159500,0.14242800,0.13078900, &
0.11671300,0.10035700,0.08143450,0.06093850, &
0.04105320,0.00446233,0.00369844,0.00293784, &
0.00216425,0.00143403,0.00054571,0.00007991/
DATA FRACREFB4/ &
! From P = 1.17 mb.
0.15558299,0.14930600,0.14104301,0.13124099, &
0.11792900,0.10159200,0.08314130,0.06240450, &
0.04217020,0.00459313,0.00379798,0.00299835, &
0.00218950,0.00140615,0.00053010,0.00007457, &
0.15592700,0.14918999,0.14095700,0.13115700, &
0.11788900,0.10158000,0.08313780,0.06240240, &
0.04217000,0.00459313,0.00379798,0.00299835, &
0.00218950,0.00140615,0.00053010,0.00007457, &
0.15949000,0.15014900,0.14162201,0.13080800, &
0.11713500,0.10057100,0.08170080,0.06128110, &
0.04165600,0.00459202,0.00379835,0.00299717, &
0.00218958,0.00140616,0.00053010,0.00007457, &
0.15967900,0.15038200,0.14196999,0.13074800, &
0.11701700,0.10053000,0.08160790,0.06122690, &
0.04128310,0.00456598,0.00379486,0.00299457, &
0.00219016,0.00140619,0.00053011,0.00007456, &
0.15989800,0.15057300,0.14207700,0.13068600, &
0.11682900,0.10053900,0.08163610,0.06121870, &
0.04121690,0.00449061,0.00371235,0.00294207, &
0.00217778,0.00139877,0.00053011,0.00007455, &
0.15950100,0.15112500,0.14199100,0.13071300, &
0.11680800,0.10054600,0.08179050,0.06120910, &
0.04126050,0.00444324,0.00366843,0.00289369, &
0.00211550,0.00134746,0.00050874,0.00007863/
! Data
DATA FRACREFA5/ &
! From P = 387.6 mb.
0.13966499,0.14138900,0.13763399,0.13076700, &
0.12299100,0.10747700,0.08942000,0.06769200, &
0.04587610,0.00501173,0.00415809,0.00328398, &
0.00240015,0.00156222,0.00059104,0.00008323, &
0.13958199,0.14332899,0.13785399,0.13205400, &
0.12199700,0.10679600,0.08861080,0.06712320, &
0.04556030,0.00500863,0.00416315,0.00328629, &
0.00240023,0.00156220,0.00059104,0.00008323, &
0.13907100,0.14250501,0.13889600,0.13297300, &
0.12218700,0.10683800,0.08839260,0.06677310, &
0.04538570,0.00495402,0.00409863,0.00328219, &
0.00240805,0.00156266,0.00059104,0.00008323, &
0.13867700,0.14190100,0.13932300,0.13327099, &
0.12280800,0.10692500,0.08844510,0.06658510, &
0.04519340,0.00492276,0.00408832,0.00323856, &
0.00239289,0.00155698,0.00059104,0.00008323, &
0.13845000,0.14158800,0.13929300,0.13295600, &
0.12348300,0.10736700,0.08859480,0.06650610, &
0.04498230,0.00491335,0.00406968,0.00322901, &
0.00234666,0.00155235,0.00058813,0.00008323, &
0.13837101,0.14113200,0.13930500,0.13283101, &
0.12349200,0.10796400,0.08890490,0.06646480, &
0.04485990,0.00489554,0.00405264,0.00320313, &
0.00234742,0.00151159,0.00058438,0.00008253, &
0.13834500,0.14093500,0.13896500,0.13262001, &
0.12326900,0.10828900,0.08950050,0.06674610, &
0.04476560,0.00489624,0.00400962,0.00317423, &
0.00233479,0.00148249,0.00058590,0.00008253, &
0.13831300,0.14069000,0.13871400,0.13247600, &
0.12251400,0.10831300,0.08977090,0.06776920, &
0.04498390,0.00484111,0.00398948,0.00316069, &
0.00229741,0.00150104,0.00058608,0.00008253, &
0.14027201,0.14420401,0.14215700,0.13446601, &
0.12303700,0.10596100,0.08650370,0.06409570, &
0.04312310,0.00471110,0.00393954,0.00310850, &
0.00229588,0.00146366,0.00058194,0.00008253/
DATA FRACREFB5/ &
! From P = 1.17 mb.
0.14339100,0.14358699,0.13935301,0.13306700, &
0.12135700,0.10590600,0.08688240,0.06553220, &
0.04446740,0.00483580,0.00399413,0.00316225, &
0.00233007,0.00149135,0.00056246,0.00008059, &
0.14330500,0.14430299,0.14053699,0.13355300, &
0.12151200,0.10529100,0.08627630,0.06505230, &
0.04385850,0.00476555,0.00395010,0.00313878, &
0.00232273,0.00149354,0.00056246,0.00008059, &
0.14328399,0.14442700,0.14078601,0.13390100, &
0.12132600,0.10510600,0.08613660,0.06494630, &
0.04381310,0.00475378,0.00394166,0.00313076, &
0.00231235,0.00149159,0.00056301,0.00008059, &
0.14326900,0.14453100,0.14114200,0.13397101, &
0.12127200,0.10493400,0.08601380,0.06483360, &
0.04378900,0.00474655,0.00393549,0.00312583, &
0.00230686,0.00148433,0.00056502,0.00008059, &
0.14328900,0.14532700,0.14179000,0.13384600, &
0.12093700,0.10461500,0.08573010,0.06461340, &
0.04366570,0.00473087,0.00392539,0.00311238, &
0.00229865,0.00147572,0.00056517,0.00007939/
DATA CCL45/ &
26.1407, 53.9776, 63.8085, 36.1701, &
15.4099, 10.23116, 4.82948, 5.03836, &
1.75558,0.,0.,0., &
0.,0.,0.,0./
! Data
DATA FRACREFA6/ &
! From P = 706 mb.
0.13739009,0.14259538,0.14033118,0.13547136, &
0.12569460,0.11028396,0.08626066,0.06245148, &
0.04309394,0.00473551,0.00403920,0.00321695, &
0.00232470,0.00147662,0.00056095,0.00007373/
DATA CFC11ADJ6/ &
0., 0., 36.7627, 150.757, &
81.4109, 74.9112, 56.9325, 49.3226, &
57.1074, 66.1202, 109.557, 89.0562, &
149.865, 196.140, 258.393, 80.9923/
DATA CFC126/ &
62.8368, 43.2626, 26.7549, 22.2487, &
23.5029, 34.8323, 26.2335, 23.2306, &
18.4062, 13.9534, 22.6268, 24.2604, &
30.0088, 26.3634, 15.8237, 57.5050/
DATA ABSCO26/ &
7.44852E-05, 6.29208E-05, 7.34031E-05, 6.65218E-05, &
7.87511E-05, 1.22489E-04, 3.39785E-04, 9.33040E-04, &
1.54323E-03, 4.07220E-04, 4.34332E-04, 8.76418E-05, &
9.80381E-05, 3.51680E-05, 5.31766E-05, 1.01542E-05/
! Data
DATA FRACREFA7/ &
0.16461779, 0.14889984, 0.14233345, 0.13156526, &
0.11679733, 0.09988949, 0.08078653, 0.06006384, &
0.04028391, 0.00435899, 0.00359173, 0.00281707, &
0.00206767, 0.00135012, 0.00050720, 0.00007146, &
0.16442357, 0.14944240, 0.14245804, 0.13111183, &
0.11688625, 0.09983791, 0.08085148, 0.05993948, &
0.04028057, 0.00435939, 0.00358708, 0.00284036, &
0.00208869, 0.00133256, 0.00049260, 0.00006931, &
0.16368519, 0.15018989, 0.14262174, 0.13084342, &
0.11682195, 0.09996257, 0.08074036, 0.05985692, &
0.04045362, 0.00436208, 0.00358257, 0.00287122, &
0.00211004, 0.00133804, 0.00049260, 0.00006931, &
0.16274056, 0.15133780, 0.14228874, 0.13081114, &
0.11688486, 0.09979610, 0.08073687, 0.05996741, &
0.04040616, 0.00439869, 0.00368910, 0.00293041, &
0.00211604, 0.00133536, 0.00049260, 0.00006931, &
0.16176532, 0.15207882, 0.14226955, 0.13079646, &
0.11688191, 0.09966998, 0.08066384, 0.06020275, &
0.04047901, 0.00446696, 0.00377456, 0.00294410, &
0.00211082, 0.00133536, 0.00049260, 0.00006931, &
0.15993737, 0.15305527, 0.14259829, 0.13078023, &
0.11686983, 0.09980131, 0.08058286, 0.06031430, &
0.04082833, 0.00450509, 0.00377574, 0.00294823, &
0.00210977, 0.00133302, 0.00049260, 0.00006931, &
0.15371189, 0.15592396, 0.14430280, 0.13076764, &
0.11720382, 0.10023471, 0.08066396, 0.06073554, &
0.04121581, 0.00451202, 0.00377832, 0.00294609, &
0.00210943, 0.00133336, 0.00049260, 0.00006931, &
0.14262275, 0.14572631, 0.14560597, 0.13736825, &
0.12271351, 0.10419556, 0.08294533, 0.06199794, &
0.04157615, 0.00452842, 0.00377704, 0.00293852, &
0.00211034, 0.00133278, 0.00049259, 0.00006931, &
0.14500433, 0.14590444, 0.14430299, 0.13770708, &
0.12288283, 0.10350952, 0.08269450, 0.06130579, &
0.04144571, 0.00452096, 0.00377382, 0.00294532, &
0.00210943, 0.00133228, 0.00049260, 0.00006931/
DATA FRACREFB7/ &
0.15355594,0.15310939,0.14274909,0.13129812, &
0.11736792,0.10118213,0.08215259,0.06165591, &
0.04164486,0.00451141,0.00372837,0.00294095, &
0.00215259,0.00136792,0.00051233,0.00007075/
DATA ABSCO27/ &
9.30038E-05, 1.74061E-04, 2.09293E-04, 2.52360E-04, &
3.13404E-04, 4.16619E-04, 6.27394E-04, 1.29386E-03, &
4.05192E-03, 3.97050E-03, 7.00634E-04, 6.06617E-04, &
7.66978E-04, 6.70661E-04, 7.89971E-04, 7.55709E-04/
! Data
DATA FRACREFA8/ &
! From P = 1053.6 mb.
0.15309700,0.15450300,0.14458799,0.13098200, &
0.11817900,0.09953490,0.08132080,0.06139960, &
0.04132010,0.00446788,0.00372533,0.00294053, &
0.00211371,0.00128122,0.00048050,0.00006759/
DATA FRACREFB8/ &
! From P = 28.9 mb.
0.14105400,0.14728899,0.14264800,0.13331699, &
0.12034100,0.10467000,0.08574980,0.06469390, &
0.04394640,0.00481284,0.00397375,0.00315006, &
0.00228636,0.00144606,0.00054604,0.00007697/
DATA CFC128/ &
85.4027, 89.4696, 74.0959, 67.7480, &
61.2444, 59.9073, 60.8296, 63.0998, &
59.6110, 64.0735, 57.2622, 58.9721, &
43.5505, 26.1192, 32.7023, 32.8667/
DATA CFC22ADJ8/ &
! Original CFC22 is multiplied by 1.485 to account for the 780-850 cm-1
! and 1290-1335 cm-1 bands.
135.335, 89.6642, 76.2375, 65.9748, &
63.1164, 60.2935, 64.0299, 75.4264, &
51.3018, 7.07911, 5.86928, 0.398693, &
2.82885, 9.12751, 6.28271, 0./
DATA ABSCO2A8/ &
1.11233E-05, 3.92400E-05, 6.62059E-05, 8.51687E-05, &
7.79035E-05, 1.34058E-04, 2.82553E-04, 5.41741E-04, &
1.47029E-05, 2.34982E-05, 6.91094E-08, 8.48917E-08, &
6.58783E-08, 4.64849E-08, 3.62742E-08, 3.62742E-08/
DATA ABSCO2B8/ &
4.10977E-09, 5.65200E-08, 1.70800E-07, 4.16840E-07, &
9.53684E-07, 2.36468E-06, 7.29502E-06, 4.93883E-05, &
5.10440E-04, 9.75248E-04, 1.36495E-03, 2.40451E-03, &
4.50277E-03, 2.24486E-02, 4.06756E-02, 2.17447E-10/
DATA ABSN2OA8/ &
1.28527E-02,5.28651E-02,1.01668E-01,1.57224E-01, &
2.76947E-01,4.93048E-01,6.71387E-01,3.48809E-01, &
4.19840E-01,3.13558E-01,2.44432E-01,2.05108E-01, &
1.21423E-01,1.22158E-01,1.49702E-01,1.47799E-01/
DATA ABSN2OB8/ &
3.15864E-03,4.87347E-03,8.63235E-03,2.16053E-02, &
3.63699E-02,7.89149E-02,3.53807E-01,1.27140E-00, &
2.31464E-00,7.75834E-02,5.15063E-02,4.07059E-02, &
5.91947E-02,5.83546E-02,3.12716E-01,1.47456E-01/
! Data
DATA FRACREFA9/ &
! From P = 1053.6 mb.
0.16898900,0.15898301,0.13575301,0.12600900, &
0.11545800,0.09879170,0.08106830,0.06063440, &
0.03988780,0.00421760,0.00346635,0.00278779, &
0.00206225,0.00132324,0.00050033,0.00007038, &
0.18209399,0.15315101,0.13571000,0.12504999, &
0.11379100,0.09680810,0.08008570,0.05970280, &
0.03942860,0.00413383,0.00343186,0.00275558, &
0.00204657,0.00130219,0.00045454,0.00005664, &
0.18459500,0.15512000,0.13395500,0.12576801, &
0.11276800,0.09645190,0.07956650,0.05903340, &
0.03887050,0.00412226,0.00339453,0.00273518, &
0.00196922,0.00119411,0.00040263,0.00005664, &
0.18458800,0.15859900,0.13278100,0.12589300, &
0.11272700,0.09599660,0.07903030,0.05843600, &
0.03843400,0.00405181,0.00337980,0.00263818, &
0.00186869,0.00111807,0.00040263,0.00005664, &
0.18459301,0.16176100,0.13235000,0.12528200, &
0.11237100,0.09618840,0.07833760,0.05800770, &
0.03787610,0.00408253,0.00330363,0.00250445, &
0.00176725,0.00111753,0.00040263,0.00005664, &
0.18454400,0.16505300,0.13221300,0.12476600, &
0.11158300,0.09618120,0.07797340,0.05740380, &
0.03742820,0.00392691,0.00312208,0.00246306, &
0.00176735,0.00111721,0.00040263,0.00005664, &
0.18452001,0.16697501,0.13445500,0.12391300, &
0.11059100,0.09596890,0.07761050,0.05643200, &
0.03686520,0.00377086,0.00309351,0.00246297, &
0.00176765,0.00111700,0.00040263,0.00005664, &
0.18460999,0.16854499,0.13922299,0.12266400, &
0.10962200,0.09452030,0.07653800,0.05551340, &
0.03609660,0.00377043,0.00309367,0.00246304, &
0.00176749,0.00111689,0.00040263,0.00005664, &
0.18312500,0.16787501,0.14720701,0.12766500, &
0.10890900,0.08935530,0.07310870,0.05443140, &
0.03566380,0.00376446,0.00309521,0.00246510, &
0.00176139,0.00111543,0.00040263,0.00005664/
DATA FRACREFB9/ &
! From P = 0.071 mb.
0.20148601,0.15252700,0.13376500,0.12184600, &
0.10767800,0.09307410,0.07674570,0.05876940, &
0.04001480,0.00424612,0.00346896,0.00269954, &
0.00196864,0.00122562,0.00043628,0.00004892/
DATA ABSN2O9/ &
! From P = 952 mb.
3.26267E-01,2.42869E-00,1.15455E+01,7.39478E-00, &
5.16550E-00,2.54474E-00,3.53082E-00,3.82278E-00, &
1.81297E-00,6.65313E-01,1.23652E-01,1.83895E-03, &
1.70592E-03,2.68434E-09,0.,0., &
! From P = 620 mb.
2.08632E-01,1.11865E+00,4.95975E+00,8.10907E+00, &
1.10408E+01,5.45460E+00,4.18611E+00,3.53422E+00, &
2.54164E+00,3.65093E-01,5.84480E-01,2.26918E-01, &
1.36230E-03,5.54400E-10,6.83703E-10,0., &
! From P = 313 mb.
6.20022E-02,2.69521E-01,9.81928E-01,1.65004E-00, &
3.08089E-00,5.38696E-00,1.14600E+01,2.41211E+01, &
1.69655E+01,1.37556E-00,5.43254E-01,3.52079E-01, &
4.31888E-01,4.82523E-06,5.74747E-11,0./
! Data
DATA FRACREFA10/ &
! From P = 473 mb.
0.16271301,0.15141940,0.14065412,0.12899506, &
0.11607002,0.10142808,0.08116794,0.06104711, &
0.04146209,0.00447386,0.00372902,0.00287258, &
0.00206028,0.00134634,0.00049232,0.00006927/
DATA FRACREFB10/ &
! From P = 1.17 mb.
0.16571465,0.15262246,0.14036226,0.12620729, &
0.11477834,0.09967982,0.08155201,0.06159503, &
0.04196607,0.00453940,0.00376881,0.00300437, &
0.00223034,0.00139432,0.00051516,0.00007095/
! Data
DATA FRACREFA11/ &
! From P = 473 mb.
0.14152819,0.13811260,0.14312185,0.13705885, &
0.11944738,0.10570189,0.08866373,0.06565409, &
0.04428961,0.00481540,0.00387058,0.00329187, &
0.00238294,0.00150971,0.00049287,0.00005980/
DATA FRACREFB11/ &
! From P = 1.17 mb.
0.10874039,0.15164889,0.15149839,0.14515044, &
0.12486220,0.10725017,0.08715712,0.06463144, &
0.04332319,0.00441193,0.00393819,0.00305960, &
0.00224221,0.00145100,0.00055586,0.00007934/
! Data
DATA FRACREFA12/ &
! From P = 706.3 mb.
0.21245100,0.15164700,0.14486700,0.13075501, &
0.11629600,0.09266050,0.06579930,0.04524000, &
0.03072870,0.00284297,0.00234660,0.00185208, &
0.00133978,0.00082214,0.00031016,0.00004363, &
0.14703900,0.16937999,0.15605700,0.14159000, &
0.12088500,0.10058500,0.06809110,0.05131470, &
0.03487040,0.00327281,0.00250183,0.00190024, &
0.00133978,0.00082214,0.00031016,0.00004363, &
0.13689300,0.16610400,0.15723500,0.14299500, &
0.12399400,0.09907820,0.07169690,0.05367370, &
0.03671630,0.00378148,0.00290510,0.00221076, &
0.00142810,0.00093527,0.00031016,0.00004363, &
0.13054299,0.16273800,0.15874299,0.14279599, &
0.12674300,0.09664900,0.07462200,0.05620080, &
0.03789090,0.00411690,0.00322920,0.00245036, &
0.00178303,0.00098595,0.00040802,0.00010150, &
0.12828299,0.15824600,0.15688400,0.14449100, &
0.12787800,0.09517830,0.07679350,0.05890820, &
0.03883570,0.00442304,0.00346796,0.00255333, &
0.00212519,0.00116168,0.00067065,0.00010150, &
0.12649800,0.15195100,0.15646499,0.14569700, &
0.12669300,0.09653520,0.07887920,0.06106920, &
0.04043910,0.00430390,0.00364453,0.00314360, &
0.00203206,0.00187787,0.00067075,0.00010150, &
0.12500300,0.14460599,0.15672199,0.14724600, &
0.11978900,0.10190200,0.08196710,0.06315770, &
0.04240100,0.00433645,0.00404097,0.00329466, &
0.00288491,0.00187803,0.00067093,0.00010150, &
0.12317200,0.14118700,0.15242000,0.13794300, &
0.12119200,0.10655400,0.08808350,0.06521370, &
0.04505680,0.00485949,0.00477105,0.00401468, &
0.00288491,0.00187786,0.00067110,0.00010150, &
0.10193600,0.11693000,0.13236099,0.14053200, &
0.13749801,0.12193100,0.10221000,0.07448910, &
0.05205320,0.00572312,0.00476882,0.00403380, &
0.00288871,0.00187396,0.00067218,0.00010150/
! Data
DATA FRACREFA13/ &
! From P = 706.3 mb.
0.17683899,0.17319500,0.15712699,0.13604601, &
0.10776200,0.08750010,0.06808820,0.04905150, &
0.03280360,0.00350836,0.00281864,0.00219862, &
0.00160943,0.00101885,0.00038147,0.00005348, &
0.17535400,0.16999300,0.15610200,0.13589200, &
0.10842100,0.08988550,0.06943920,0.04974900, &
0.03323400,0.00352752,0.00289402,0.00231003, &
0.00174659,0.00101884,0.00038147,0.00005348, &
0.17409500,0.16846400,0.15641899,0.13503000, &
0.10838600,0.08985800,0.07092720,0.05075710, &
0.03364180,0.00354241,0.00303507,0.00243391, &
0.00177502,0.00114638,0.00043585,0.00005348, &
0.17248300,0.16778600,0.15543500,0.13496999, &
0.10826300,0.09028740,0.07156720,0.05187120, &
0.03424890,0.00363933,0.00324715,0.00255030, &
0.00187380,0.00116978,0.00051229,0.00009768, &
0.17061099,0.16715799,0.15405200,0.13471501, &
0.10896400,0.09069460,0.07229760,0.05218280, &
0.03555340,0.00379576,0.00330240,0.00274693, &
0.00201587,0.00119598,0.00061885,0.00009768, &
0.16789700,0.16629100,0.15270300,0.13360199, &
0.11047200,0.09151080,0.07325000,0.05261450, &
0.03657990,0.00450092,0.00349537,0.00283321, &
0.00208396,0.00140354,0.00066587,0.00009768, &
0.16412200,0.16387400,0.15211500,0.13062200, &
0.11325100,0.09348130,0.07381380,0.05434740, &
0.03803160,0.00481346,0.00393592,0.00296633, &
0.00222532,0.00163762,0.00066648,0.00009768, &
0.15513401,0.15768200,0.14850400,0.13330200, &
0.11446500,0.09868230,0.07642050,0.05624170, &
0.04197810,0.00502288,0.00429452,0.00315347, &
0.00263559,0.00171772,0.00066860,0.00009768, &
0.15732600,0.15223300,0.14271900,0.13563600, &
0.11859600,0.10274200,0.07934560,0.05763410, &
0.03921740,0.00437741,0.00337921,0.00280212, &
0.00200156,0.00124812,0.00064664,0.00009768/
! Data
DATA FRACREFA14/ &
! From P = 1053.6 mb.
0.18446200,0.16795200,0.14949700,0.12036000, &
0.10440100,0.09024280,0.07435880,0.05629380, &
0.03825420,0.00417276,0.00345278,0.00272949, &
0.00200378,0.00127404,0.00050721,0.00004141/
DATA FRACREFB14/ &
! From P = 0.64 mb.
0.19128500,0.16495700,0.14146100,0.11904500, &
0.10350200,0.09151190,0.07604270,0.05806020, &
0.03979950,0.00423959,0.00357439,0.00287559, &
0.00198860,0.00116529,0.00043616,0.00005987/
! Data
DATA FRACREFA15/ &
! From P = 1053.6 mb.
0.11287100,0.12070200,0.12729000,0.12858100, &
0.12743001,0.11961800,0.10290400,0.07888980, &
0.05900120,0.00667979,0.00552926,0.00436993, &
0.00320611,0.00204765,0.00077371,0.00010894, &
0.13918801,0.16353001,0.16155800,0.14090499, &
0.11322300,0.08757720,0.07225720,0.05173390, &
0.04731360,0.00667979,0.00552926,0.00436993, &
0.00320611,0.00204765,0.00077371,0.00010894, &
0.14687300,0.17853101,0.15664500,0.13351700, &
0.10791200,0.08684320,0.07158090,0.05198410, &
0.04340110,0.00667979,0.00552926,0.00436993, &
0.00320611,0.00204765,0.00077371,0.00010894, &
0.15760700,0.17759100,0.15158001,0.13193300, &
0.10742800,0.08693760,0.07159490,0.05196250, &
0.04065270,0.00667979,0.00552926,0.00436993, &
0.00320611,0.00204765,0.00077371,0.00010894, &
0.16646700,0.17299300,0.15018500,0.13138700, &
0.10735900,0.08713110,0.07130330,0.05279420, &
0.03766730,0.00667979,0.00552926,0.00436993, &
0.00320611,0.00204765,0.00077371,0.00010894, &
0.17546000,0.16666500,0.14969499,0.13105400, &
0.10782500,0.08718610,0.07156770,0.05308320, &
0.03753960,0.00432465,0.00509623,0.00436993, &
0.00320611,0.00204765,0.00077371,0.00010894, &
0.18378501,0.16064601,0.14940400,0.13146400, &
0.10810300,0.08775740,0.07115360,0.05400040, &
0.03689970,0.00388333,0.00323610,0.00353414, &
0.00320611,0.00204765,0.00077371,0.00010894, &
0.18966800,0.15744300,0.14993000,0.13152599, &
0.10899200,0.08858690,0.07142920,0.05399600, &
0.03433460,0.00374886,0.00302066,0.00240653, &
0.00199205,0.00204765,0.00077371,0.00010894, &
0.11887100,0.12479600,0.12569501,0.12839900, &
0.12473500,0.12012800,0.11086700,0.08493590, &
0.05063770,0.00328723,0.00266849,0.00210232, &
0.00152114,0.00095635,0.00035374,0.00004980/
! Data
DATA FRACREFA16/ &
! From P = 862.6 mb.
0.17356300,0.18880001,0.17704099,0.13661300, &
0.10691600,0.08222480,0.05939860,0.04230810, &
0.02526330,0.00244532,0.00193541,0.00150415, &
0.00103528,0.00067068,0.00024951,0.00003348, &
0.17779499,0.19837400,0.16557600,0.13470000, &
0.11013600,0.08342720,0.05987030,0.03938700, &
0.02293650,0.00238849,0.00192400,0.00149921, &
0.00103539,0.00067150,0.00024822,0.00003348, &
0.18535601,0.19407199,0.16053200,0.13300700, &
0.10779000,0.08408500,0.06480450,0.04070160, &
0.02203590,0.00227779,0.00189074,0.00146888, &
0.00103147,0.00066770,0.00024751,0.00003348, &
0.19139200,0.18917400,0.15748601,0.13240699, &
0.10557300,0.08383260,0.06724060,0.04364450, &
0.02175820,0.00225436,0.00184421,0.00143153, &
0.00103027,0.00066066,0.00024222,0.00003148, &
0.19547801,0.18539500,0.15442000,0.13114899, &
0.10515600,0.08350350,0.06909780,0.04671630, &
0.02168820,0.00224400,0.00182009,0.00139098, &
0.00102582,0.00065367,0.00023202,0.00003148, &
0.19757500,0.18266800,0.15208900,0.12897800, &
0.10637200,0.08391220,0.06989830,0.04964120, &
0.02155800,0.00224310,0.00177358,0.00138184, &
0.00101538,0.00063370,0.00023227,0.00003148, &
0.20145500,0.17692900,0.14940600,0.12690400, &
0.10828800,0.08553720,0.07004940,0.05153430, &
0.02268740,0.00216943,0.00178603,0.00137754, &
0.00098344,0.00063165,0.00023218,0.00003148, &
0.20383500,0.17047501,0.14570600,0.12679300, &
0.11043100,0.08719150,0.07045440,0.05345420, &
0.02448340,0.00215839,0.00175893,0.00138296, &
0.00098318,0.00063188,0.00023199,0.00003148, &
0.18680701,0.15961801,0.15092900,0.13049100, &
0.11418400,0.09380540,0.07093450,0.05664280, &
0.02938410,0.00217751,0.00176766,0.00138275, &
0.00098377,0.00063181,0.00023193,0.00003148/
!
! end of data 3
!
!-----------------------------------------------------------------------
! start data 4
DATA NXMOL /2/
DATA IXINDX /0,2,3,0,31*0/
!
! end of data 4
!
!-----------------------------------------------------------------------
! start data 5
!
! Longwave spectral band data
DATA WAVENUM1(1) /10./, WAVENUM2(1) /250./, DELWAVE(1) /240./
DATA WAVENUM1(2) /250./, WAVENUM2(2) /500./, DELWAVE(2) /250./
DATA WAVENUM1(3) /500./, WAVENUM2(3) /630./, DELWAVE(3) /130./
DATA WAVENUM1(4) /630./, WAVENUM2(4) /700./, DELWAVE(4) /70./
DATA WAVENUM1(5) /700./, WAVENUM2(5) /820./, DELWAVE(5) /120./
DATA WAVENUM1(6) /820./, WAVENUM2(6) /980./, DELWAVE(6) /160./
DATA WAVENUM1(7) /980./, WAVENUM2(7) /1080./, DELWAVE(7) /100./
DATA WAVENUM1(8) /1080./, WAVENUM2(8) /1180./, DELWAVE(8) /100./
DATA WAVENUM1(9) /1180./, WAVENUM2(9) /1390./, DELWAVE(9) /210./
DATA WAVENUM1(10) /1390./,WAVENUM2(10) /1480./,DELWAVE(10) /90./
DATA WAVENUM1(11) /1480./,WAVENUM2(11) /1800./,DELWAVE(11) /320./
DATA WAVENUM1(12) /1800./,WAVENUM2(12) /2080./,DELWAVE(12) /280./
DATA WAVENUM1(13) /2080./,WAVENUM2(13) /2250./,DELWAVE(13) /170./
DATA WAVENUM1(14) /2250./,WAVENUM2(14) /2380./,DELWAVE(14) /130./
DATA WAVENUM1(15) /2380./,WAVENUM2(15) /2600./,DELWAVE(15) /220./
DATA WAVENUM1(16) /2600./,WAVENUM2(16) /3000./,DELWAVE(16) /400./
!
! end of data 5
!
!-----------------------------------------------------------------------
! start data 6
DATA NG /16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16/
DATA NSPA /1, 1,10, 9, 9, 1, 9, 1,11, 1, 1, 9, 9, 1, 9, 9/
DATA NSPB /1, 1, 5, 6, 5, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0/
! HEATFAC is the factor by which one must multiply delta-flux/
! delta-pressure, with flux in w/m-2 and pressure in mbar, to get
! the heating rate in units of degrees/day. It is equal to
! (g)x(#sec/day)x(1e-5)/(specific heat of air at const. p)
! = (9.8066)(3600)(1e-5)/(1.004)
DATA HEATFAC /8.4391/
! These pressures are chosen such that the ln of the first pressure
! has only a few non-zero digits (i.e. ln(PREF(1)) = 6.96000) and
! each subsequent ln(pressure) differs from the previous one by 0.2.
DATA PREF / &
1.05363E+03,8.62642E+02,7.06272E+02,5.78246E+02,4.73428E+02, &
3.87610E+02,3.17348E+02,2.59823E+02,2.12725E+02,1.74164E+02, &
1.42594E+02,1.16746E+02,9.55835E+01,7.82571E+01,6.40715E+01, &
5.24573E+01,4.29484E+01,3.51632E+01,2.87892E+01,2.35706E+01, &
1.92980E+01,1.57998E+01,1.29358E+01,1.05910E+01,8.67114E+00, &
7.09933E+00,5.81244E+00,4.75882E+00,3.89619E+00,3.18993E+00, &
2.61170E+00,2.13828E+00,1.75067E+00,1.43333E+00,1.17351E+00, &
9.60789E-01,7.86628E-01,6.44036E-01,5.27292E-01,4.31710E-01, &
3.53455E-01,2.89384E-01,2.36928E-01,1.93980E-01,1.58817E-01, &
1.30029E-01,1.06458E-01,8.71608E-02,7.13612E-02,5.84256E-02, &
4.78349E-02,3.91639E-02,3.20647E-02,2.62523E-02,2.14936E-02, &
1.75975E-02,1.44076E-02,1.17959E-02,9.65769E-03/
DATA PREFLOG / &
6.9600E+00, 6.7600E+00, 6.5600E+00, 6.3600E+00, 6.1600E+00, &
5.9600E+00, 5.7600E+00, 5.5600E+00, 5.3600E+00, 5.1600E+00, &
4.9600E+00, 4.7600E+00, 4.5600E+00, 4.3600E+00, 4.1600E+00, &
3.9600E+00, 3.7600E+00, 3.5600E+00, 3.3600E+00, 3.1600E+00, &
2.9600E+00, 2.7600E+00, 2.5600E+00, 2.3600E+00, 2.1600E+00, &
1.9600E+00, 1.7600E+00, 1.5600E+00, 1.3600E+00, 1.1600E+00, &
9.6000E-01, 7.6000E-01, 5.6000E-01, 3.6000E-01, 1.6000E-01, &
-4.0000E-02,-2.4000E-01,-4.4000E-01,-6.4000E-01,-8.4000E-01, &
-1.0400E+00,-1.2400E+00,-1.4400E+00,-1.6400E+00,-1.8400E+00, &
-2.0400E+00,-2.2400E+00,-2.4400E+00,-2.6400E+00,-2.8400E+00, &
-3.0400E+00,-3.2400E+00,-3.4400E+00,-3.6400E+00,-3.8400E+00, &
-4.0400E+00,-4.2400E+00,-4.4400E+00,-4.6400E+00/
! These are the temperatures associated with the respective
! pressures for the MLS standard atmosphere.
DATA TREF / &
2.9420E+02, 2.8799E+02, 2.7894E+02, 2.6925E+02, 2.5983E+02, &
2.5017E+02, 2.4077E+02, 2.3179E+02, 2.2306E+02, 2.1578E+02, &
2.1570E+02, 2.1570E+02, 2.1570E+02, 2.1706E+02, 2.1858E+02, &
2.2018E+02, 2.2174E+02, 2.2328E+02, 2.2479E+02, 2.2655E+02, &
2.2834E+02, 2.3113E+02, 2.3401E+02, 2.3703E+02, 2.4022E+02, &
2.4371E+02, 2.4726E+02, 2.5085E+02, 2.5457E+02, 2.5832E+02, &
2.6216E+02, 2.6606E+02, 2.6999E+02, 2.7340E+02, 2.7536E+02, &
2.7568E+02, 2.7372E+02, 2.7163E+02, 2.6955E+02, 2.6593E+02, &
2.6211E+02, 2.5828E+02, 2.5360E+02, 2.4854E+02, 2.4348E+02, &
2.3809E+02, 2.3206E+02, 2.2603E+02, 2.2000E+02, 2.1435E+02, &
2.0887E+02, 2.0340E+02, 1.9792E+02, 1.9290E+02, 1.8809E+02, &
1.8329E+02, 1.7849E+02, 1.7394E+02, 1.7212E+02/
!
! end of data 6
!
!-----------------------------------------------------------------------
! start data 7
DATA (TOTPLNK(IDATA, 1),IDATA=1,50)/ &
1.13735E-06,1.15150E-06,1.16569E-06,1.17992E-06,1.19419E-06, &
1.20850E-06,1.22285E-06,1.23723E-06,1.25164E-06,1.26610E-06, &
1.28059E-06,1.29511E-06,1.30967E-06,1.32426E-06,1.33889E-06, &
1.35355E-06,1.36824E-06,1.38296E-06,1.39772E-06,1.41250E-06, &
1.42732E-06,1.44217E-06,1.45704E-06,1.47195E-06,1.48689E-06, &
1.50185E-06,1.51684E-06,1.53186E-06,1.54691E-06,1.56198E-06, &
1.57709E-06,1.59222E-06,1.60737E-06,1.62255E-06,1.63776E-06, &
1.65299E-06,1.66825E-06,1.68352E-06,1.69883E-06,1.71416E-06, &
1.72951E-06,1.74488E-06,1.76028E-06,1.77570E-06,1.79114E-06, &
1.80661E-06,1.82210E-06,1.83760E-06,1.85313E-06,1.86868E-06/
DATA (TOTPLNK(IDATA, 1),IDATA=51,100)/ &
1.88425E-06,1.89985E-06,1.91546E-06,1.93109E-06,1.94674E-06, &
1.96241E-06,1.97811E-06,1.99381E-06,2.00954E-06,2.02529E-06, &
2.04105E-06,2.05684E-06,2.07264E-06,2.08846E-06,2.10429E-06, &
2.12015E-06,2.13602E-06,2.15190E-06,2.16781E-06,2.18373E-06, &
2.19966E-06,2.21562E-06,2.23159E-06,2.24758E-06,2.26358E-06, &
2.27959E-06,2.29562E-06,2.31167E-06,2.32773E-06,2.34381E-06, &
2.35990E-06,2.37601E-06,2.39212E-06,2.40825E-06,2.42440E-06, &
2.44056E-06,2.45673E-06,2.47292E-06,2.48912E-06,2.50533E-06, &
2.52157E-06,2.53781E-06,2.55406E-06,2.57032E-06,2.58660E-06, &
2.60289E-06,2.61919E-06,2.63550E-06,2.65183E-06,2.66817E-06/
DATA (TOTPLNK(IDATA, 1),IDATA=101,150)/ &
2.68452E-06,2.70088E-06,2.71726E-06,2.73364E-06,2.75003E-06, &
2.76644E-06,2.78286E-06,2.79929E-06,2.81572E-06,2.83218E-06, &
2.84864E-06,2.86510E-06,2.88159E-06,2.89807E-06,2.91458E-06, &
2.93109E-06,2.94762E-06,2.96415E-06,2.98068E-06,2.99724E-06, &
3.01379E-06,3.03036E-06,3.04693E-06,3.06353E-06,3.08013E-06, &
3.09674E-06,3.11335E-06,3.12998E-06,3.14661E-06,3.16324E-06, &
3.17989E-06,3.19656E-06,3.21323E-06,3.22991E-06,3.24658E-06, &
3.26328E-06,3.27998E-06,3.29669E-06,3.31341E-06,3.33013E-06, &
3.34686E-06,3.36360E-06,3.38034E-06,3.39709E-06,3.41387E-06, &
3.43063E-06,3.44742E-06,3.46420E-06,3.48099E-06,3.49779E-06/
DATA (TOTPLNK(IDATA, 1),IDATA=151,181)/ &
3.51461E-06,3.53141E-06,3.54824E-06,3.56506E-06,3.58191E-06, &
3.59875E-06,3.61559E-06,3.63244E-06,3.64931E-06,3.66617E-06, &
3.68305E-06,3.69992E-06,3.71682E-06,3.73372E-06,3.75061E-06, &
3.76753E-06,3.78443E-06,3.80136E-06,3.81829E-06,3.83522E-06, &
3.85215E-06,3.86910E-06,3.88605E-06,3.90301E-06,3.91997E-06, &
3.93694E-06,3.95390E-06,3.97087E-06,3.98788E-06,4.00485E-06, &
4.02187E-06/
DATA (TOTPLNK(IDATA, 2),IDATA=1,50)/ &
2.13441E-06,2.18076E-06,2.22758E-06,2.27489E-06,2.32268E-06, &
2.37093E-06,2.41966E-06,2.46886E-06,2.51852E-06,2.56864E-06, &
2.61922E-06,2.67026E-06,2.72175E-06,2.77370E-06,2.82609E-06, &
2.87893E-06,2.93221E-06,2.98593E-06,3.04008E-06,3.09468E-06, &
3.14970E-06,3.20515E-06,3.26103E-06,3.31732E-06,3.37404E-06, &
3.43118E-06,3.48873E-06,3.54669E-06,3.60506E-06,3.66383E-06, &
3.72301E-06,3.78259E-06,3.84256E-06,3.90293E-06,3.96368E-06, &
4.02483E-06,4.08636E-06,4.14828E-06,4.21057E-06,4.27324E-06, &
4.33629E-06,4.39971E-06,4.46350E-06,4.52765E-06,4.59217E-06, &
4.65705E-06,4.72228E-06,4.78787E-06,4.85382E-06,4.92011E-06/
DATA (TOTPLNK(IDATA, 2),IDATA=51,100)/ &
4.98675E-06,5.05374E-06,5.12106E-06,5.18873E-06,5.25674E-06, &
5.32507E-06,5.39374E-06,5.46274E-06,5.53207E-06,5.60172E-06, &
5.67169E-06,5.74198E-06,5.81259E-06,5.88352E-06,5.95475E-06, &
6.02629E-06,6.09815E-06,6.17030E-06,6.24276E-06,6.31552E-06, &
6.38858E-06,6.46192E-06,6.53557E-06,6.60950E-06,6.68373E-06, &
6.75824E-06,6.83303E-06,6.90810E-06,6.98346E-06,7.05909E-06, &
7.13500E-06,7.21117E-06,7.28763E-06,7.36435E-06,7.44134E-06, &
7.51859E-06,7.59611E-06,7.67388E-06,7.75192E-06,7.83021E-06, &
7.90875E-06,7.98755E-06,8.06660E-06,8.14589E-06,8.22544E-06, &
8.30522E-06,8.38526E-06,8.46553E-06,8.54604E-06,8.62679E-06/
DATA (TOTPLNK(IDATA, 2),IDATA=101,150)/ &
8.70777E-06,8.78899E-06,8.87043E-06,8.95211E-06,9.03402E-06, &
9.11616E-06,9.19852E-06,9.28109E-06,9.36390E-06,9.44692E-06, &
9.53015E-06,9.61361E-06,9.69729E-06,9.78117E-06,9.86526E-06, &
9.94957E-06,1.00341E-05,1.01188E-05,1.02037E-05,1.02888E-05, &
1.03742E-05,1.04597E-05,1.05454E-05,1.06313E-05,1.07175E-05, &
1.08038E-05,1.08903E-05,1.09770E-05,1.10639E-05,1.11509E-05, &
1.12382E-05,1.13257E-05,1.14133E-05,1.15011E-05,1.15891E-05, &
1.16773E-05,1.17656E-05,1.18542E-05,1.19429E-05,1.20317E-05, &
1.21208E-05,1.22100E-05,1.22994E-05,1.23890E-05,1.24787E-05, &
1.25686E-05,1.26587E-05,1.27489E-05,1.28393E-05,1.29299E-05/
DATA (TOTPLNK(IDATA, 2),IDATA=151,181)/ &
1.30206E-05,1.31115E-05,1.32025E-05,1.32937E-05,1.33850E-05, &
1.34765E-05,1.35682E-05,1.36600E-05,1.37520E-05,1.38441E-05, &
1.39364E-05,1.40288E-05,1.41213E-05,1.42140E-05,1.43069E-05, &
1.43999E-05,1.44930E-05,1.45863E-05,1.46797E-05,1.47733E-05, &
1.48670E-05,1.49608E-05,1.50548E-05,1.51489E-05,1.52431E-05, &
1.53375E-05,1.54320E-05,1.55267E-05,1.56214E-05,1.57164E-05, &
1.58114E-05/
DATA (TOTPLNK(IDATA, 3),IDATA=1,50)/ &
1.34822E-06,1.39134E-06,1.43530E-06,1.48010E-06,1.52574E-06, &
1.57222E-06,1.61956E-06,1.66774E-06,1.71678E-06,1.76666E-06, &
1.81741E-06,1.86901E-06,1.92147E-06,1.97479E-06,2.02898E-06, &
2.08402E-06,2.13993E-06,2.19671E-06,2.25435E-06,2.31285E-06, &
2.37222E-06,2.43246E-06,2.49356E-06,2.55553E-06,2.61837E-06, &
2.68207E-06,2.74664E-06,2.81207E-06,2.87837E-06,2.94554E-06, &
3.01356E-06,3.08245E-06,3.15221E-06,3.22282E-06,3.29429E-06, &
3.36662E-06,3.43982E-06,3.51386E-06,3.58876E-06,3.66451E-06, &
3.74112E-06,3.81857E-06,3.89688E-06,3.97602E-06,4.05601E-06, &
4.13685E-06,4.21852E-06,4.30104E-06,4.38438E-06,4.46857E-06/
DATA (TOTPLNK(IDATA, 3),IDATA=51,100)/ &
4.55358E-06,4.63943E-06,4.72610E-06,4.81359E-06,4.90191E-06, &
4.99105E-06,5.08100E-06,5.17176E-06,5.26335E-06,5.35573E-06, &
5.44892E-06,5.54292E-06,5.63772E-06,5.73331E-06,5.82970E-06, &
5.92688E-06,6.02485E-06,6.12360E-06,6.22314E-06,6.32346E-06, &
6.42455E-06,6.52641E-06,6.62906E-06,6.73247E-06,6.83664E-06, &
6.94156E-06,7.04725E-06,7.15370E-06,7.26089E-06,7.36883E-06, &
7.47752E-06,7.58695E-06,7.69712E-06,7.80801E-06,7.91965E-06, &
8.03201E-06,8.14510E-06,8.25891E-06,8.37343E-06,8.48867E-06, &
8.60463E-06,8.72128E-06,8.83865E-06,8.95672E-06,9.07548E-06, &
9.19495E-06,9.31510E-06,9.43594E-06,9.55745E-06,9.67966E-06/
DATA (TOTPLNK(IDATA, 3),IDATA=101,150)/ &
9.80254E-06,9.92609E-06,1.00503E-05,1.01752E-05,1.03008E-05, &
1.04270E-05,1.05539E-05,1.06814E-05,1.08096E-05,1.09384E-05, &
1.10679E-05,1.11980E-05,1.13288E-05,1.14601E-05,1.15922E-05, &
1.17248E-05,1.18581E-05,1.19920E-05,1.21265E-05,1.22616E-05, &
1.23973E-05,1.25337E-05,1.26706E-05,1.28081E-05,1.29463E-05, &
1.30850E-05,1.32243E-05,1.33642E-05,1.35047E-05,1.36458E-05, &
1.37875E-05,1.39297E-05,1.40725E-05,1.42159E-05,1.43598E-05, &
1.45044E-05,1.46494E-05,1.47950E-05,1.49412E-05,1.50879E-05, &
1.52352E-05,1.53830E-05,1.55314E-05,1.56803E-05,1.58297E-05, &
1.59797E-05,1.61302E-05,1.62812E-05,1.64327E-05,1.65848E-05/
DATA (TOTPLNK(IDATA, 3),IDATA=151,181)/ &
1.67374E-05,1.68904E-05,1.70441E-05,1.71982E-05,1.73528E-05, &
1.75079E-05,1.76635E-05,1.78197E-05,1.79763E-05,1.81334E-05, &
1.82910E-05,1.84491E-05,1.86076E-05,1.87667E-05,1.89262E-05, &
1.90862E-05,1.92467E-05,1.94076E-05,1.95690E-05,1.97309E-05, &
1.98932E-05,2.00560E-05,2.02193E-05,2.03830E-05,2.05472E-05, &
2.07118E-05,2.08768E-05,2.10423E-05,2.12083E-05,2.13747E-05, &
2.15414E-05/
DATA (TOTPLNK(IDATA, 4),IDATA=1,50)/ &
8.90528E-07,9.24222E-07,9.58757E-07,9.94141E-07,1.03038E-06, &
1.06748E-06,1.10545E-06,1.14430E-06,1.18403E-06,1.22465E-06, &
1.26618E-06,1.30860E-06,1.35193E-06,1.39619E-06,1.44136E-06, &
1.48746E-06,1.53449E-06,1.58246E-06,1.63138E-06,1.68124E-06, &
1.73206E-06,1.78383E-06,1.83657E-06,1.89028E-06,1.94495E-06, &
2.00060E-06,2.05724E-06,2.11485E-06,2.17344E-06,2.23303E-06, &
2.29361E-06,2.35519E-06,2.41777E-06,2.48134E-06,2.54592E-06, &
2.61151E-06,2.67810E-06,2.74571E-06,2.81433E-06,2.88396E-06, &
2.95461E-06,3.02628E-06,3.09896E-06,3.17267E-06,3.24741E-06, &
3.32316E-06,3.39994E-06,3.47774E-06,3.55657E-06,3.63642E-06/
DATA (TOTPLNK(IDATA, 4),IDATA=51,100)/ &
3.71731E-06,3.79922E-06,3.88216E-06,3.96612E-06,4.05112E-06, &
4.13714E-06,4.22419E-06,4.31227E-06,4.40137E-06,4.49151E-06, &
4.58266E-06,4.67485E-06,4.76806E-06,4.86229E-06,4.95754E-06, &
5.05383E-06,5.15113E-06,5.24946E-06,5.34879E-06,5.44916E-06, &
5.55053E-06,5.65292E-06,5.75632E-06,5.86073E-06,5.96616E-06, &
6.07260E-06,6.18003E-06,6.28848E-06,6.39794E-06,6.50838E-06, &
6.61983E-06,6.73229E-06,6.84573E-06,6.96016E-06,7.07559E-06, &
7.19200E-06,7.30940E-06,7.42779E-06,7.54715E-06,7.66749E-06, &
7.78882E-06,7.91110E-06,8.03436E-06,8.15859E-06,8.28379E-06, &
8.40994E-06,8.53706E-06,8.66515E-06,8.79418E-06,8.92416E-06/
DATA (TOTPLNK(IDATA, 4),IDATA=101,150)/ &
9.05510E-06,9.18697E-06,9.31979E-06,9.45356E-06,9.58826E-06, &
9.72389E-06,9.86046E-06,9.99793E-06,1.01364E-05,1.02757E-05, &
1.04159E-05,1.05571E-05,1.06992E-05,1.08422E-05,1.09861E-05, &
1.11309E-05,1.12766E-05,1.14232E-05,1.15707E-05,1.17190E-05, &
1.18683E-05,1.20184E-05,1.21695E-05,1.23214E-05,1.24741E-05, &
1.26277E-05,1.27822E-05,1.29376E-05,1.30939E-05,1.32509E-05, &
1.34088E-05,1.35676E-05,1.37273E-05,1.38877E-05,1.40490E-05, &
1.42112E-05,1.43742E-05,1.45380E-05,1.47026E-05,1.48680E-05, &
1.50343E-05,1.52014E-05,1.53692E-05,1.55379E-05,1.57074E-05, &
1.58778E-05,1.60488E-05,1.62207E-05,1.63934E-05,1.65669E-05/
DATA (TOTPLNK(IDATA, 4),IDATA=151,181)/ &
1.67411E-05,1.69162E-05,1.70920E-05,1.72685E-05,1.74459E-05, &
1.76240E-05,1.78029E-05,1.79825E-05,1.81629E-05,1.83440E-05, &
1.85259E-05,1.87086E-05,1.88919E-05,1.90760E-05,1.92609E-05, &
1.94465E-05,1.96327E-05,1.98199E-05,2.00076E-05,2.01961E-05, &
2.03853E-05,2.05752E-05,2.07658E-05,2.09571E-05,2.11491E-05, &
2.13418E-05,2.15352E-05,2.17294E-05,2.19241E-05,2.21196E-05, &
2.23158E-05/
DATA (TOTPLNK(IDATA, 5),IDATA=1,50)/ &
5.70230E-07,5.94788E-07,6.20085E-07,6.46130E-07,6.72936E-07, &
7.00512E-07,7.28869E-07,7.58019E-07,7.87971E-07,8.18734E-07, &
8.50320E-07,8.82738E-07,9.15999E-07,9.50110E-07,9.85084E-07, &
1.02093E-06,1.05765E-06,1.09527E-06,1.13378E-06,1.17320E-06, &
1.21353E-06,1.25479E-06,1.29698E-06,1.34011E-06,1.38419E-06, &
1.42923E-06,1.47523E-06,1.52221E-06,1.57016E-06,1.61910E-06, &
1.66904E-06,1.71997E-06,1.77192E-06,1.82488E-06,1.87886E-06, &
1.93387E-06,1.98991E-06,2.04699E-06,2.10512E-06,2.16430E-06, &
2.22454E-06,2.28584E-06,2.34821E-06,2.41166E-06,2.47618E-06, &
2.54178E-06,2.60847E-06,2.67626E-06,2.74514E-06,2.81512E-06/
DATA (TOTPLNK(IDATA, 5),IDATA=51,100)/ &
2.88621E-06,2.95841E-06,3.03172E-06,3.10615E-06,3.18170E-06, &
3.25838E-06,3.33618E-06,3.41511E-06,3.49518E-06,3.57639E-06, &
3.65873E-06,3.74221E-06,3.82684E-06,3.91262E-06,3.99955E-06, &
4.08763E-06,4.17686E-06,4.26725E-06,4.35880E-06,4.45150E-06, &
4.54537E-06,4.64039E-06,4.73659E-06,4.83394E-06,4.93246E-06, &
5.03215E-06,5.13301E-06,5.23504E-06,5.33823E-06,5.44260E-06, &
5.54814E-06,5.65484E-06,5.76272E-06,5.87177E-06,5.98199E-06, &
6.09339E-06,6.20596E-06,6.31969E-06,6.43460E-06,6.55068E-06, &
6.66793E-06,6.78636E-06,6.90595E-06,7.02670E-06,7.14863E-06, &
7.27173E-06,7.39599E-06,7.52142E-06,7.64802E-06,7.77577E-06/
DATA (TOTPLNK(IDATA, 5),IDATA=101,150)/ &
7.90469E-06,8.03477E-06,8.16601E-06,8.29841E-06,8.43198E-06, &
8.56669E-06,8.70256E-06,8.83957E-06,8.97775E-06,9.11706E-06, &
9.25753E-06,9.39915E-06,9.54190E-06,9.68580E-06,9.83085E-06, &
9.97704E-06,1.01243E-05,1.02728E-05,1.04224E-05,1.05731E-05, &
1.07249E-05,1.08779E-05,1.10320E-05,1.11872E-05,1.13435E-05, &
1.15009E-05,1.16595E-05,1.18191E-05,1.19799E-05,1.21418E-05, &
1.23048E-05,1.24688E-05,1.26340E-05,1.28003E-05,1.29676E-05, &
1.31361E-05,1.33056E-05,1.34762E-05,1.36479E-05,1.38207E-05, &
1.39945E-05,1.41694E-05,1.43454E-05,1.45225E-05,1.47006E-05, &
1.48797E-05,1.50600E-05,1.52413E-05,1.54236E-05,1.56070E-05/
DATA (TOTPLNK(IDATA, 5),IDATA=151,181)/ &
1.57914E-05,1.59768E-05,1.61633E-05,1.63509E-05,1.65394E-05, &
1.67290E-05,1.69197E-05,1.71113E-05,1.73040E-05,1.74976E-05, &
1.76923E-05,1.78880E-05,1.80847E-05,1.82824E-05,1.84811E-05, &
1.86808E-05,1.88814E-05,1.90831E-05,1.92857E-05,1.94894E-05, &
1.96940E-05,1.98996E-05,2.01061E-05,2.03136E-05,2.05221E-05, &
2.07316E-05,2.09420E-05,2.11533E-05,2.13657E-05,2.15789E-05, &
2.17931E-05/
DATA (TOTPLNK(IDATA, 6),IDATA=1,50)/ &
2.73493E-07,2.87408E-07,3.01848E-07,3.16825E-07,3.32352E-07, &
3.48439E-07,3.65100E-07,3.82346E-07,4.00189E-07,4.18641E-07, &
4.37715E-07,4.57422E-07,4.77774E-07,4.98784E-07,5.20464E-07, &
5.42824E-07,5.65879E-07,5.89638E-07,6.14115E-07,6.39320E-07, &
6.65266E-07,6.91965E-07,7.19427E-07,7.47666E-07,7.76691E-07, &
8.06516E-07,8.37151E-07,8.68607E-07,9.00896E-07,9.34029E-07, &
9.68018E-07,1.00287E-06,1.03860E-06,1.07522E-06,1.11274E-06, &
1.15117E-06,1.19052E-06,1.23079E-06,1.27201E-06,1.31418E-06, &
1.35731E-06,1.40141E-06,1.44650E-06,1.49257E-06,1.53965E-06, &
1.58773E-06,1.63684E-06,1.68697E-06,1.73815E-06,1.79037E-06/
DATA (TOTPLNK(IDATA, 6),IDATA=51,100)/ &
1.84365E-06,1.89799E-06,1.95341E-06,2.00991E-06,2.06750E-06, &
2.12619E-06,2.18599E-06,2.24691E-06,2.30895E-06,2.37212E-06, &
2.43643E-06,2.50189E-06,2.56851E-06,2.63628E-06,2.70523E-06, &
2.77536E-06,2.84666E-06,2.91916E-06,2.99286E-06,3.06776E-06, &
3.14387E-06,3.22120E-06,3.29975E-06,3.37953E-06,3.46054E-06, &
3.54280E-06,3.62630E-06,3.71105E-06,3.79707E-06,3.88434E-06, &
3.97288E-06,4.06270E-06,4.15380E-06,4.24617E-06,4.33984E-06, &
4.43479E-06,4.53104E-06,4.62860E-06,4.72746E-06,4.82763E-06, &
4.92911E-06,5.03191E-06,5.13603E-06,5.24147E-06,5.34824E-06, &
5.45634E-06,5.56578E-06,5.67656E-06,5.78867E-06,5.90213E-06/
DATA (TOTPLNK(IDATA, 6),IDATA=101,150)/ &
6.01694E-06,6.13309E-06,6.25060E-06,6.36947E-06,6.48968E-06, &
6.61126E-06,6.73420E-06,6.85850E-06,6.98417E-06,7.11120E-06, &
7.23961E-06,7.36938E-06,7.50053E-06,7.63305E-06,7.76694E-06, &
7.90221E-06,8.03887E-06,8.17690E-06,8.31632E-06,8.45710E-06, &
8.59928E-06,8.74282E-06,8.88776E-06,9.03409E-06,9.18179E-06, &
9.33088E-06,9.48136E-06,9.63323E-06,9.78648E-06,9.94111E-06, &
1.00971E-05,1.02545E-05,1.04133E-05,1.05735E-05,1.07351E-05, &
1.08980E-05,1.10624E-05,1.12281E-05,1.13952E-05,1.15637E-05, &
1.17335E-05,1.19048E-05,1.20774E-05,1.22514E-05,1.24268E-05, &
1.26036E-05,1.27817E-05,1.29612E-05,1.31421E-05,1.33244E-05/
DATA (TOTPLNK(IDATA, 6),IDATA=151,181)/ &
1.35080E-05,1.36930E-05,1.38794E-05,1.40672E-05,1.42563E-05, &
1.44468E-05,1.46386E-05,1.48318E-05,1.50264E-05,1.52223E-05, &
1.54196E-05,1.56182E-05,1.58182E-05,1.60196E-05,1.62223E-05, &
1.64263E-05,1.66317E-05,1.68384E-05,1.70465E-05,1.72559E-05, &
1.74666E-05,1.76787E-05,1.78921E-05,1.81069E-05,1.83230E-05, &
1.85404E-05,1.87591E-05,1.89791E-05,1.92005E-05,1.94232E-05, &
1.96471E-05/
DATA (TOTPLNK(IDATA, 7),IDATA=1,50)/ &
1.25349E-07,1.32735E-07,1.40458E-07,1.48527E-07,1.56954E-07, &
1.65748E-07,1.74920E-07,1.84481E-07,1.94443E-07,2.04814E-07, &
2.15608E-07,2.26835E-07,2.38507E-07,2.50634E-07,2.63229E-07, &
2.76301E-07,2.89864E-07,3.03930E-07,3.18508E-07,3.33612E-07, &
3.49253E-07,3.65443E-07,3.82195E-07,3.99519E-07,4.17428E-07, &
4.35934E-07,4.55050E-07,4.74785E-07,4.95155E-07,5.16170E-07, &
5.37844E-07,5.60186E-07,5.83211E-07,6.06929E-07,6.31355E-07, &
6.56498E-07,6.82373E-07,7.08990E-07,7.36362E-07,7.64501E-07, &
7.93420E-07,8.23130E-07,8.53643E-07,8.84971E-07,9.17128E-07, &
9.50123E-07,9.83969E-07,1.01868E-06,1.05426E-06,1.09073E-06/
DATA (TOTPLNK(IDATA, 7),IDATA=51,100)/ &
1.12810E-06,1.16638E-06,1.20558E-06,1.24572E-06,1.28680E-06, &
1.32883E-06,1.37183E-06,1.41581E-06,1.46078E-06,1.50675E-06, &
1.55374E-06,1.60174E-06,1.65078E-06,1.70087E-06,1.75200E-06, &
1.80421E-06,1.85749E-06,1.91186E-06,1.96732E-06,2.02389E-06, &
2.08159E-06,2.14040E-06,2.20035E-06,2.26146E-06,2.32372E-06, &
2.38714E-06,2.45174E-06,2.51753E-06,2.58451E-06,2.65270E-06, &
2.72210E-06,2.79272E-06,2.86457E-06,2.93767E-06,3.01201E-06, &
3.08761E-06,3.16448E-06,3.24261E-06,3.32204E-06,3.40275E-06, &
3.48476E-06,3.56808E-06,3.65271E-06,3.73866E-06,3.82595E-06, &
3.91456E-06,4.00453E-06,4.09584E-06,4.18851E-06,4.28254E-06/
DATA (TOTPLNK(IDATA, 7),IDATA=101,150)/ &
4.37796E-06,4.47475E-06,4.57293E-06,4.67249E-06,4.77346E-06, &
4.87583E-06,4.97961E-06,5.08481E-06,5.19143E-06,5.29948E-06, &
5.40896E-06,5.51989E-06,5.63226E-06,5.74608E-06,5.86136E-06, &
5.97810E-06,6.09631E-06,6.21597E-06,6.33713E-06,6.45976E-06, &
6.58388E-06,6.70950E-06,6.83661E-06,6.96521E-06,7.09531E-06, &
7.22692E-06,7.36005E-06,7.49468E-06,7.63084E-06,7.76851E-06, &
7.90773E-06,8.04846E-06,8.19072E-06,8.33452E-06,8.47985E-06, &
8.62674E-06,8.77517E-06,8.92514E-06,9.07666E-06,9.22975E-06, &
9.38437E-06,9.54057E-06,9.69832E-06,9.85762E-06,1.00185E-05, &
1.01810E-05,1.03450E-05,1.05106E-05,1.06777E-05,1.08465E-05/
DATA (TOTPLNK(IDATA, 7),IDATA=151,181)/ &
1.10168E-05,1.11887E-05,1.13621E-05,1.15372E-05,1.17138E-05, &
1.18920E-05,1.20718E-05,1.22532E-05,1.24362E-05,1.26207E-05, &
1.28069E-05,1.29946E-05,1.31839E-05,1.33749E-05,1.35674E-05, &
1.37615E-05,1.39572E-05,1.41544E-05,1.43533E-05,1.45538E-05, &
1.47558E-05,1.49595E-05,1.51647E-05,1.53716E-05,1.55800E-05, &
1.57900E-05,1.60017E-05,1.62149E-05,1.64296E-05,1.66460E-05, &
1.68640E-05/
DATA (TOTPLNK(IDATA, 8),IDATA=1,50)/ &
6.74445E-08,7.18176E-08,7.64153E-08,8.12456E-08,8.63170E-08, &
9.16378E-08,9.72168E-08,1.03063E-07,1.09184E-07,1.15591E-07, &
1.22292E-07,1.29296E-07,1.36613E-07,1.44253E-07,1.52226E-07, &
1.60540E-07,1.69207E-07,1.78236E-07,1.87637E-07,1.97421E-07, &
2.07599E-07,2.18181E-07,2.29177E-07,2.40598E-07,2.52456E-07, &
2.64761E-07,2.77523E-07,2.90755E-07,3.04468E-07,3.18673E-07, &
3.33381E-07,3.48603E-07,3.64352E-07,3.80638E-07,3.97474E-07, &
4.14871E-07,4.32841E-07,4.51395E-07,4.70547E-07,4.90306E-07, &
5.10687E-07,5.31699E-07,5.53357E-07,5.75670E-07,5.98652E-07, &
6.22315E-07,6.46672E-07,6.71731E-07,6.97511E-07,7.24018E-07/
DATA (TOTPLNK(IDATA, 8),IDATA=51,100)/ &
7.51266E-07,7.79269E-07,8.08038E-07,8.37584E-07,8.67922E-07, &
8.99061E-07,9.31016E-07,9.63797E-07,9.97417E-07,1.03189E-06, &
1.06722E-06,1.10343E-06,1.14053E-06,1.17853E-06,1.21743E-06, &
1.25726E-06,1.29803E-06,1.33974E-06,1.38241E-06,1.42606E-06, &
1.47068E-06,1.51630E-06,1.56293E-06,1.61056E-06,1.65924E-06, &
1.70894E-06,1.75971E-06,1.81153E-06,1.86443E-06,1.91841E-06, &
1.97350E-06,2.02968E-06,2.08699E-06,2.14543E-06,2.20500E-06, &
2.26573E-06,2.32762E-06,2.39068E-06,2.45492E-06,2.52036E-06, &
2.58700E-06,2.65485E-06,2.72393E-06,2.79424E-06,2.86580E-06, &
2.93861E-06,3.01269E-06,3.08803E-06,3.16467E-06,3.24259E-06/
DATA (TOTPLNK(IDATA, 8),IDATA=101,150)/ &
3.32181E-06,3.40235E-06,3.48420E-06,3.56739E-06,3.65192E-06, &
3.73779E-06,3.82502E-06,3.91362E-06,4.00359E-06,4.09494E-06, &
4.18768E-06,4.28182E-06,4.37737E-06,4.47434E-06,4.57273E-06, &
4.67254E-06,4.77380E-06,4.87651E-06,4.98067E-06,5.08630E-06, &
5.19339E-06,5.30196E-06,5.41201E-06,5.52356E-06,5.63660E-06, &
5.75116E-06,5.86722E-06,5.98479E-06,6.10390E-06,6.22453E-06, &
6.34669E-06,6.47042E-06,6.59569E-06,6.72252E-06,6.85090E-06, &
6.98085E-06,7.11238E-06,7.24549E-06,7.38019E-06,7.51646E-06, &
7.65434E-06,7.79382E-06,7.93490E-06,8.07760E-06,8.22192E-06, &
8.36784E-06,8.51540E-06,8.66459E-06,8.81542E-06,8.96786E-06/
DATA (TOTPLNK(IDATA, 8),IDATA=151,181)/ &
9.12197E-06,9.27772E-06,9.43513E-06,9.59419E-06,9.75490E-06, &
9.91728E-06,1.00813E-05,1.02471E-05,1.04144E-05,1.05835E-05, &
1.07543E-05,1.09267E-05,1.11008E-05,1.12766E-05,1.14541E-05, &
1.16333E-05,1.18142E-05,1.19969E-05,1.21812E-05,1.23672E-05, &
1.25549E-05,1.27443E-05,1.29355E-05,1.31284E-05,1.33229E-05, &
1.35193E-05,1.37173E-05,1.39170E-05,1.41185E-05,1.43217E-05, &
1.45267E-05/
DATA (TOTPLNK(IDATA, 9),IDATA=1,50)/ &
2.61522E-08,2.80613E-08,3.00838E-08,3.22250E-08,3.44899E-08, &
3.68841E-08,3.94129E-08,4.20820E-08,4.48973E-08,4.78646E-08, &
5.09901E-08,5.42799E-08,5.77405E-08,6.13784E-08,6.52001E-08, &
6.92126E-08,7.34227E-08,7.78375E-08,8.24643E-08,8.73103E-08, &
9.23832E-08,9.76905E-08,1.03240E-07,1.09039E-07,1.15097E-07, &
1.21421E-07,1.28020E-07,1.34902E-07,1.42075E-07,1.49548E-07, &
1.57331E-07,1.65432E-07,1.73860E-07,1.82624E-07,1.91734E-07, &
2.01198E-07,2.11028E-07,2.21231E-07,2.31818E-07,2.42799E-07, &
2.54184E-07,2.65983E-07,2.78205E-07,2.90862E-07,3.03963E-07, &
3.17519E-07,3.31541E-07,3.46039E-07,3.61024E-07,3.76507E-07/
DATA (TOTPLNK(IDATA, 9),IDATA=51,100)/ &
3.92498E-07,4.09008E-07,4.26050E-07,4.43633E-07,4.61769E-07, &
4.80469E-07,4.99744E-07,5.19606E-07,5.40067E-07,5.61136E-07, &
5.82828E-07,6.05152E-07,6.28120E-07,6.51745E-07,6.76038E-07, &
7.01010E-07,7.26674E-07,7.53041E-07,7.80124E-07,8.07933E-07, &
8.36482E-07,8.65781E-07,8.95845E-07,9.26683E-07,9.58308E-07, &
9.90732E-07,1.02397E-06,1.05803E-06,1.09292E-06,1.12866E-06, &
1.16526E-06,1.20274E-06,1.24109E-06,1.28034E-06,1.32050E-06, &
1.36158E-06,1.40359E-06,1.44655E-06,1.49046E-06,1.53534E-06, &
1.58120E-06,1.62805E-06,1.67591E-06,1.72478E-06,1.77468E-06, &
1.82561E-06,1.87760E-06,1.93066E-06,1.98479E-06,2.04000E-06/
DATA (TOTPLNK(IDATA, 9),IDATA=101,150)/ &
2.09631E-06,2.15373E-06,2.21228E-06,2.27196E-06,2.33278E-06, &
2.39475E-06,2.45790E-06,2.52222E-06,2.58773E-06,2.65445E-06, &
2.72238E-06,2.79152E-06,2.86191E-06,2.93354E-06,3.00643E-06, &
3.08058E-06,3.15601E-06,3.23273E-06,3.31075E-06,3.39009E-06, &
3.47074E-06,3.55272E-06,3.63605E-06,3.72072E-06,3.80676E-06, &
3.89417E-06,3.98297E-06,4.07315E-06,4.16474E-06,4.25774E-06, &
4.35217E-06,4.44802E-06,4.54532E-06,4.64406E-06,4.74428E-06, &
4.84595E-06,4.94911E-06,5.05376E-06,5.15990E-06,5.26755E-06, &
5.37671E-06,5.48741E-06,5.59963E-06,5.71340E-06,5.82871E-06, &
5.94559E-06,6.06403E-06,6.18404E-06,6.30565E-06,6.42885E-06/
DATA (TOTPLNK(IDATA, 9),IDATA=151,181)/ &
6.55364E-06,6.68004E-06,6.80806E-06,6.93771E-06,7.06898E-06, &
7.20190E-06,7.33646E-06,7.47267E-06,7.61056E-06,7.75010E-06, &
7.89133E-06,8.03423E-06,8.17884E-06,8.32514E-06,8.47314E-06, &
8.62284E-06,8.77427E-06,8.92743E-06