/wrfv2_fire/phys/module_ra_rrtm.F
FORTRAN Legacy | 7106 lines | 4755 code | 726 blank | 1625 comment | 2 complexity | 119ff3e851024555f663cd2a285902ba MD5 | raw file
Possible License(s): AGPL-1.0
Large files files are truncated, but you can click here to view the full file
- MODULE module_ra_rrtm
- ! 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
- REAL, PARAMETER :: deltap = 4. ! Pressure interval for buffer layer in mb
- ! 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 =…
Large files files are truncated, but you can click here to view the full file