source: trunk/WRF.COMMON/WRFV2/mars_lmd/libf/phymars/aerice.h.02

Last change on this file was 11, checked in by aslmd, 14 years ago

spiga@svn-planeto:ajoute le modele meso-echelle martien
File size: 10.6 KB
Line 
1c-----------------------------------------------------------------------
2c INCLUDE 'aerice.h'
3c Spectral  Radiative properties of water ice PARTICLE RADIUS = 2 MICRONS (Franck Montmessin)
4c (Warren, 1984)
5
6c visible
7      integer nicevis
8      parameter(nicevis=58)
9      REAL longicevis(nicevis),epicevis(nicevis)
10     &    ,omegicevis(nicevis),gicevis(nicevis)
11
12
13c IR
14      integer niceir
15      parameter(niceir=144)
16      REAL longiceir(niceir),epiceir(niceir)
17     &    ,omegiceir(niceir),giceir(niceir)
18
19c Ratio solsirice = Tau(vis) / Tau (9 microns)
20      REAL solsirice
21      PARAMETER (solsirice=5.5E+0)
22c Optical properties used by initracer.F to determine Qextrhor
23      REAL rcrystal,qrefice
24      PARAMETER (rcrystal=2.e-6,qrefice=2.55)
25c---------------------------------------------------------------------
26             
27       data longicevis/
28     &.1033000E-06,.4000000E-06,.8000000E-06,.1000000E-05,.1504000E-05,
29     &.2000000E-05,.2600000E-05,.2817000E-05,.2899000E-05,.2915000E-05,
30     &.2933000E-05,.2950000E-05,.2967000E-05,.2985000E-05,.3003000E-05,
31     &.3021000E-05,.3040000E-05,.3058000E-05,.3077000E-05,.3096000E-05,
32     &.3115000E-05,.3135000E-05,.3155000E-05,.3175000E-05,.3195000E-05,
33     &.3215000E-05,.3236000E-05,.3257000E-05,.3279000E-05,.3300000E-05,
34     &.3322000E-05,.3345000E-05,.3367000E-05,.3390000E-05,.3413000E-05,
35     &.3436000E-05,.3460000E-05,.3484000E-05,.3509000E-05,.3534000E-05,
36     &.3559000E-05,.3624000E-05,.3732000E-05,.3775000E-05,.3847000E-05,
37     &.3969000E-05,.4099000E-05,.4239000E-05,.4348000E-05,.4387000E-05,
38     &.4444000E-05,.4505000E-05,.4547000E-05,.4560000E-05,.4580000E-05,
39     &.4719000E-05,.4904000E-05,.5000000E-05/
40       data longiceir/
41     &.5100000E-05,.5200000E-05,.5263000E-05,.5400000E-05,.5556000E-05,
42     &.5714000E-05,.5747000E-05,.5780000E-05,.5814000E-05,.5848000E-05,
43     &.5882000E-05,.6061000E-05,.6135000E-05,.6250000E-05,.6289000E-05,
44     &.6329000E-05,.6369000E-05,.6410000E-05,.6452000E-05,.6494000E-05,
45     &.6579000E-05,.6667000E-05,.6757000E-05,.6897000E-05,.7042000E-05,
46     &.7143000E-05,.7246000E-05,.7353000E-05,.7463000E-05,.7576000E-05,
47     &.7692000E-05,.7812000E-05,.7937000E-05,.8065000E-05,.8196999E-05,
48     &.8333001E-05,.8475000E-05,.8696000E-05,.8929000E-05,.9091000E-05,
49     &.9259000E-05,.9524000E-05,.9804000E-05,.1000000E-04,.1020000E-04,
50     &.1031000E-04,.1042000E-04,.1053000E-04,.1064000E-04,.1075000E-04,
51     &.1087000E-04,.1100000E-04,.1111000E-04,.1136000E-04,.1163000E-04,
52     &.1190000E-04,.1220000E-04,.1250000E-04,.1282000E-04,.1299000E-04,
53     &.1316000E-04,.1333000E-04,.1351000E-04,.1370000E-04,.1389000E-04,
54     &.1408000E-04,.1429000E-04,.1471000E-04,.1515000E-04,.1538000E-04,
55     &.1563000E-04,.1613000E-04,.1639000E-04,.1667000E-04,.1695000E-04,
56     &.1724000E-04,.1818000E-04,.1887000E-04,.1923000E-04,.1961000E-04,
57     &.2000000E-04,.2041000E-04,.2083000E-04,.2222000E-04,.2260000E-04,
58     &.2305000E-04,.2360000E-04,.2460000E-04,.2500000E-04,.2600000E-04,
59     &.2857000E-04,.3100000E-04,.3333000E-04,.3448000E-04,.3564000E-04,
60     &.3700000E-04,.3824000E-04,.3960000E-04,.4114000E-04,.4276000E-04,
61     &.4358000E-04,.4458000E-04,.4550000E-04,.4615000E-04,.4671000E-04,
62     &.4736000E-04,.4800000E-04,.4878000E-04,.5003000E-04,.5128000E-04,
63     &.5275000E-04,.5350000E-04,.5424000E-04,.5500000E-04,.5574000E-04,
64     &.5640000E-04,.5700000E-04,.5746000E-04,.5840000E-04,.5929000E-04,
65     &.6000000E-04,.6100000E-04,.6125000E-04,.6250000E-04,.6378000E-04,
66     &.6467000E-04,.6558000E-04,.6655000E-04,.6760000E-04,.6900000E-04,
67     &.7053000E-04,.7300000E-04,.7500000E-04,.7629000E-04,.8000000E-04,
68     &.8297000E-04,.8500000E-04,.8680001E-04,.9080000E-04,.9517000E-04,
69     &.1000000E-03,.1200000E-03,.1500000E-03,.1670000E-03/
70       data epicevis/
71     &2.0770404,2.1333470,2.4010422,2.4979005,3.0323684,
72     &3.1023693,1.8456773,0.6115797,1.2549678,1.4533914,
73     &1.6278559,1.7319367,1.8213371,1.9134820,2.0143185,
74     &2.1186094,2.2303414,2.3434513,2.4327984,2.4951937,
75     &2.5413978,2.5864980,2.6369226,2.6951535,2.7622788,
76     &2.8332534,2.8984516,2.9598370,3.0300596,3.0575798,
77     &3.0930560,3.1250999,3.1535439,3.1871719,3.2121134,
78     &3.2310603,3.2315695,3.2093773,3.1794426,3.1392601,
79     &3.0919006,2.9505072,2.7231605,2.6405320,2.5163631,
80     &2.3446450,2.1814499,2.0090101,1.8916085,1.8633907,
81     &1.8338290,1.8152963,1.8086077,1.8112632,1.8131738,
82     &1.7060630,1.5370420,1.4517928/
83       data epiceir/
84     &1.3677877,1.2895485,1.2393701,1.1429415,1.0560902,
85     &1.0034354,0.9967221,0.9962561,0.9977396,1.0125090,
86     &1.0341120,1.0880692,1.1033542,1.0976548,1.0879265,
87     &1.0804520,1.0700891,1.0510827,1.0297735,1.0111766,
88     &0.9773523,0.9594117,0.9459089,0.9159908,0.8764862,
89     &0.8542295,0.8300154,0.7979962,0.7717778,0.7486199,
90     &0.7285973,0.7015588,0.6676357,0.6260576,0.5785204,
91     &0.5338926,0.5080446,0.4684776,0.4333192,0.4139500,
92     &0.3915187,0.3532456,0.3098173,0.2878825,0.3012615,
93     &0.3171561,0.3421502,0.3891775,0.4544489,0.5433146,
94     &0.6361080,0.7489142,0.8315196,0.9866923,1.0865711,
95     &1.1662428,1.2104664,1.2263397,1.2011900,1.1775792,
96     &1.1506165,1.1109692,1.0695655,1.0244781,0.9760489,
97     &0.9209963,0.8573869,0.7222608,0.6077753,0.5570301,
98     &0.5179734,0.4515876,0.4286255,0.4101167,0.3839801,
99     &0.3538276,0.2605970,0.2226936,0.2192847,0.2094082,
100     &0.1883334,0.1602530,0.1354466,0.0878593,0.0806558,
101     &0.0747401,0.0696599,0.0635099,0.0620812,0.0608565,
102     &0.0708767,0.0859044,0.1087823,0.1332179,0.1678403,
103     &0.2047173,0.2441402,0.2811615,0.3213149,0.3657669,
104     &0.4021912,0.4198142,0.4433846,0.4508493,0.4361142,
105     &0.3870594,0.3401732,0.3004933,0.2788217,0.2592098,
106     &0.2339364,0.2185203,0.2035674,0.1773828,0.1576549,
107     &0.1412068,0.1290261,0.1220045,0.1392276,0.1544823,
108     &0.1700448,0.1902850,0.1939131,0.1865104,0.1808444,
109     &0.1743156,0.1667072,0.1563581,0.1424541,0.1275658,
110     &0.1140205,0.0962364,0.0843266,0.0779076,0.0582227,
111     &0.0489812,0.0453767,0.0424055,0.0373608,0.0329743,
112     &0.0294211,0.0211810,0.0134449,0.0103372/
113       data omegicevis/
114     &0.5456115,0.9999998,0.9999956,0.9999590,0.9916146,
115     &0.9859025,0.9887677,0.3030088,0.2913164,0.3281876,
116     &0.3529492,0.3651998,0.3768913,0.3895164,0.4031501,
117     &0.4161578,0.4291025,0.4413079,0.4489263,0.4537341,
118     &0.4575938,0.4624165,0.4686106,0.4772439,0.4906920,
119     &0.5103999,0.5342540,0.5620137,0.6054875,0.6363699,
120     &0.6767519,0.7208792,0.7611457,0.8031358,0.8346425,
121     &0.8628765,0.8866344,0.9024555,0.9187659,0.9315375,
122     &0.9414928,0.9542499,0.9594395,0.9604324,0.9575609,
123     &0.9427309,0.9280359,0.9029658,0.8663382,0.8482844,
124     &0.8309193,0.8149818,0.8138757,0.8108203,0.8191826,
125     &0.8778344,0.8991383,0.9015617/
126       data omegiceir/
127     &0.8934232,0.8818511,0.8737661,0.8382167,0.7786070,
128     &0.6939076,0.6735601,0.6493360,0.6269631,0.5988325,
129     &0.5805314,0.5477262,0.5506567,0.5654900,0.5726005,
130     &0.5761235,0.5833758,0.5930895,0.5978242,0.5985849,
131     &0.5960529,0.5830086,0.5764220,0.5759224,0.5773382,
132     &0.5725862,0.5723791,0.5748378,0.5679526,0.5619652,
133     &0.5570325,0.5608990,0.5682156,0.5793377,0.5887846,
134     &0.5845600,0.5571433,0.5294130,0.4933869,0.4654703,
135     &0.4418373,0.4019260,0.3476712,0.2847430,0.1985389,
136     &0.1588668,0.1246927,0.0997362,0.0880947,0.0885516,
137     &0.0949879,0.1061776,0.1158887,0.1351058,0.1506025,
138     &0.1648239,0.1789169,0.1923770,0.2058806,0.2128322,
139     &0.2198936,0.2270511,0.2336397,0.2410020,0.2492446,
140     &0.2583708,0.2685325,0.2880028,0.2994628,0.3033591,
141     &0.3015518,0.2984661,0.2927081,0.2880204,0.2918781,
142     &0.2983889,0.3187046,0.3071705,0.2860579,0.2815239,
143     &0.2940739,0.3184738,0.3403679,0.3687520,0.3625693,
144     &0.3473680,0.3237919,0.2777646,0.2580903,0.2082118,
145     &0.1032983,0.0523547,0.0255129,0.0169770,0.0125923,
146     &0.0104937,0.0098291,0.0097139,0.0098247,0.0101194,
147     &0.0108076,0.0114394,0.0123597,0.0134295,0.0146494,
148     &0.0156162,0.0159481,0.0155375,0.0147876,0.0145659,
149     &0.0146613,0.0148656,0.0152911,0.0160210,0.0162369,
150     &0.0162299,0.0157726,0.0147472,0.0112574,0.0095320,
151     &0.0086141,0.0081565,0.0082618,0.0086479,0.0087967,
152     &0.0089716,0.0091790,0.0094908,0.0098519,0.0101090,
153     &0.0102865,0.0104608,0.0105742,0.0106353,0.0118091,
154     &0.0111652,0.0106810,0.0103373,0.0095315,0.0087433,
155     &0.0078753,0.0051297,0.0033094,0.0028262/
156       data gicevis/
157     &0.9484491,0.8355189,0.7778400,0.7776268,0.8190585,
158     &0.8606436,0.8731218,0.8806872,0.8701044,0.8643763,
159     &0.8590536,0.8557699,0.8518856,0.8469009,0.8408017,
160     &0.8344239,0.8276296,0.8213363,0.8196754,0.8210629,
161     &0.8234175,0.8239279,0.8233964,0.8221809,0.8193476,
162     &0.8139911,0.8067252,0.7971323,0.7828836,0.7760382,
163     &0.7660869,0.7580626,0.7531731,0.7496098,0.7489922,
164     &0.7482402,0.7481378,0.7496041,0.7509772,0.7528265,
165     &0.7546561,0.7586707,0.7610235,0.7611462,0.7609918,
166     &0.7593807,0.7559055,0.7519168,0.7489015,0.7477896,
167     &0.7452020,0.7419832,0.7389061,0.7381128,0.7358862,
168     &0.7217935,0.7082421,0.7019699/
169       data giceir/
170     &0.6960046,0.6900042,0.6861350,0.6780239,0.6687398,
171     &0.6597540,0.6579545,0.6563612,0.6546398,0.6533316,
172     &0.6517801,0.6404516,0.6350707,0.6258222,0.6224794,
173     &0.6192569,0.6158453,0.6121228,0.6084902,0.6050581,
174     &0.5983168,0.5919929,0.5853947,0.5746408,0.5632364,
175     &0.5555539,0.5475681,0.5390213,0.5306059,0.5220675,
176     &0.5134400,0.5042357,0.4944685,0.4842367,0.4735520,
177     &0.4627753,0.4524445,0.4363809,0.4197907,0.4085655,
178     &0.3969283,0.3785424,0.3589033,0.3451340,0.3322701,
179     &0.3254838,0.3188725,0.3129705,0.3078346,0.3038980,
180     &0.3000817,0.2968043,0.2943990,0.2886447,0.2820266,
181     &0.2753667,0.2682444,0.2614060,0.2542432,0.2503684,
182     &0.2464747,0.2424094,0.2378109,0.2329219,0.2279974,
183     &0.2228620,0.2168691,0.2037218,0.1898008,0.1828437,
184     &0.1758485,0.1631169,0.1571932,0.1515194,0.1461390,
185     &0.1406711,0.1239195,0.1134407,0.1088622,0.1045607,
186     &0.1002667,0.0957376,0.0912288,0.0785050,0.0754995,
187     &0.0722006,0.0684929,0.0624823,0.0602997,0.0553188,
188     &0.0450513,0.0376778,0.0319985,0.0295693,0.0274262,
189     &0.0252342,0.0234632,0.0217670,0.0200484,0.0184050,
190     &0.0176370,0.0169397,0.0163182,0.0160728,0.0161649,
191     &0.0165620,0.0167632,0.0165711,0.0159091,0.0153961,
192     &0.0149173,0.0147177,0.0145685,0.0144148,0.0140963,
193     &0.0137293,0.0133060,0.0128724,0.0120525,0.0114887,
194     &0.0111030,0.0107191,0.0106819,0.0105141,0.0102884,
195     &0.0101648,0.0100523,0.0099577,0.0098403,0.0096062,
196     &0.0093154,0.0088192,0.0084187,0.0081718,0.0075791,
197     &0.0069006,0.0065386,0.0062486,0.0056770,0.0051429,
198     &0.0046372,0.0032037,0.0020571,0.0016664/
Note: See TracBrowser for help on using the repository browser.