source: trunk/MESOSCALE/LMDZ.MARS/libf_gcm/phymars/aerice.h.005 @ 1242

Last change on this file since 1242 was 57, checked in by aslmd, 14 years ago

mineur LMD_MM_MARS: ajout du GCM ancienne physique, systeme maintenant complet sur SVN (ne manque que la base de donnees d'etats initiaux)
File size: 10.6 KB
Line 
1c-----------------------------------------------------------------------
2c INCLUDE 'aerice.h'
3c Spectral  Radiative properties of water ice PARTICLE RADIUS = 0.5 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=65.E+0)
22c Optical properties used by initracer.F to determine Qextrhor
23      REAL rcrystal,qrefice
24      PARAMETER (rcrystal=.5e-6,qrefice=2.8)
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.1832037,3.0220087,2.4477277,1.7936502,0.7896869,
72     &0.3638896,0.0989704,0.1296485,0.4747359,0.6042269,
73     &0.7391522,0.8270491,0.9101521,1.0053538,1.1204786,
74     &1.2478381,1.3907613,1.5331460,1.5983437,1.5859528,
75     &1.5294470,1.4795980,1.4226713,1.3357474,1.2130061,
76     &1.0765146,0.9549081,0.8522044,0.7333566,0.6579455,
77     &0.5836973,0.5145633,0.4580996,0.4042850,0.3620397,
78     &0.3252469,0.2931417,0.2685316,0.2455204,0.2259372,
79     &0.2092481,0.1779757,0.1460140,0.1362165,0.1238611,
80     &0.1114724,0.1013308,0.0958610,0.0989326,0.1026265,
81     &0.1056360,0.1088488,0.1078976,0.1089309,0.1056082,
82     &0.0775238,0.0604925,0.0548426/
83       data epiceir/
84     &0.0518859,0.0499921,0.0489281,0.0504541,0.0563693,
85     &0.0690525,0.0726885,0.0778081,0.0828819,0.0909149,
86     &0.0975723,0.1109497,0.1108328,0.1043100,0.1007861,
87     &0.0985987,0.0951375,0.0903377,0.0868122,0.0846175,
88     &0.0815860,0.0824196,0.0820647,0.0784795,0.0737793,
89     &0.0722562,0.0696436,0.0659283,0.0645018,0.0631230,
90     &0.0617881,0.0583767,0.0540010,0.0487309,0.0435927,
91     &0.0405531,0.0414796,0.0409568,0.0413717,0.0422409,
92     &0.0421894,0.0416819,0.0412459,0.0438362,0.0547753,
93     &0.0626479,0.0729752,0.0890032,0.1097846,0.1367236,
94     &0.1645632,0.1977923,0.2204414,0.2592581,0.2749909,
95     &0.2818336,0.2731296,0.2562519,0.2294758,0.2146772,
96     &0.2003647,0.1846708,0.1704422,0.1563350,0.1425573,
97     &0.1287259,0.1145926,0.0897004,0.0727098,0.0659172,
98     &0.0615737,0.0541199,0.0521104,0.0503624,0.0466379,
99     &0.0422906,0.0299038,0.0264714,0.0274238,0.0264572,
100     &0.0231405,0.0186739,0.0150726,0.0092988,0.0087124,
101     &0.0084247,0.0083568,0.0085502,0.0087600,0.0096209,
102     &0.0139307,0.0186971,0.0250932,0.0314043,0.0401234,
103     &0.0493907,0.0591965,0.0683152,0.0781187,0.0888679,
104     &0.0974246,0.1010759,0.1059724,0.1067670,0.1021143,
105     &0.0896822,0.0784708,0.0693838,0.0645370,0.0599980,
106     &0.0540903,0.0504870,0.0469609,0.0408812,0.0363856,
107     &0.0326679,0.0299615,0.0284745,0.0328476,0.0366500,
108     &0.0404568,0.0452998,0.0461202,0.0442455,0.0428461,
109     &0.0412572,0.0394165,0.0369267,0.0336194,0.0301124,
110     &0.0269362,0.0227761,0.0199896,0.0184862,0.0138242,
111     &0.0116880,0.0108555,0.0101642,0.0089899,0.0079631,
112     &0.0071303,0.0051857,0.0033162,0.0025556/
113       data omegicevis/
114     &0.5254589,1.0000000,0.9999991,0.9999862,0.9916013,
115     &0.9620332,0.9309642,0.0638710,0.0662553,0.0823147,
116     &0.0963694,0.1048159,0.1133009,0.1232222,0.1352970,
117     &0.1488444,0.1650357,0.1841903,0.2017575,0.2166039,
118     &0.2292029,0.2433622,0.2616843,0.2852339,0.3131889,
119     &0.3412718,0.3660752,0.3928272,0.4309901,0.4492646,
120     &0.4801873,0.5139056,0.5460804,0.5844365,0.6146011,
121     &0.6468718,0.6772872,0.6975922,0.7236167,0.7461668,
122     &0.7655625,0.7888166,0.7862524,0.7823967,0.7588729,
123     &0.6857340,0.6214526,0.5368491,0.4470918,0.4119983,
124     &0.3805366,0.3541514,0.3503601,0.3458159,0.3562116,
125     &0.4411552,0.4703839,0.4680012/
126       data omegiceir/
127     &0.4410178,0.4089485,0.3886294,0.3210695,0.2419387,
128     &0.1693097,0.1560958,0.1421160,0.1303703,0.1174139,
129     &0.1096975,0.0955347,0.0956753,0.0990973,0.1009341,
130     &0.1015035,0.1034342,0.1062110,0.1070629,0.1064178,
131     &0.1036404,0.0972966,0.0935797,0.0912126,0.0893898,
132     &0.0863554,0.0848208,0.0840290,0.0804088,0.0772171,
133     &0.0744647,0.0741630,0.0747523,0.0763844,0.0774963,
134     &0.0745925,0.0657440,0.0572360,0.0481501,0.0421850,
135     &0.0375024,0.0306774,0.0232991,0.0167966,0.0100478,
136     &0.0075047,0.0055527,0.0042542,0.0036752,0.0036866,
137     &0.0039804,0.0045186,0.0049973,0.0059663,0.0067372,
138     &0.0074513,0.0081464,0.0088094,0.0094550,0.0097817,
139     &0.0101162,0.0104466,0.0107313,0.0110585,0.0114425,
140     &0.0118786,0.0123615,0.0132487,0.0135842,0.0136287,
141     &0.0132877,0.0127042,0.0121676,0.0117236,0.0118197,
142     &0.0120773,0.0129020,0.0118840,0.0105257,0.0101722,
143     &0.0107762,0.0121118,0.0133881,0.0149663,0.0144329,
144     &0.0133009,0.0117145,0.0090358,0.0080348,0.0058144,
145     &0.0023043,0.0010388,0.0004725,0.0003068,0.0002241,
146     &0.0001846,0.0001716,0.0001686,0.0001696,0.0001738,
147     &0.0001855,0.0001962,0.0002120,0.0002308,0.0002526,
148     &0.0002702,0.0002761,0.0002683,0.0002543,0.0002499,
149     &0.0002511,0.0002545,0.0002619,0.0002746,0.0002779,
150     &0.0002773,0.0002686,0.0002502,0.0001890,0.0001591,
151     &0.0001434,0.0001354,0.0001372,0.0001437,0.0001462,
152     &0.0001491,0.0001526,0.0001578,0.0001639,0.0001681,
153     &0.0001709,0.0001735,0.0001751,0.0001759,0.0001954,
154     &0.0001839,0.0001755,0.0001695,0.0001556,0.0001422,
155     &0.0001276,0.0000821,0.0000525,0.0000447/
156       data gicevis/
157     &0.9440147,0.7965972,0.8107608,0.7669883,0.6258456,
158     &0.4763368,0.3164644,0.2653029,0.2540545,0.2543145,
159     &0.2552853,0.2555421,0.2551991,0.2546355,0.2543354,
160     &0.2544852,0.2551972,0.2571523,0.2610470,0.2657359,
161     &0.2696103,0.2723087,0.2749877,0.2770225,0.2766140,
162     &0.2729803,0.2674728,0.2618006,0.2547111,0.2485000,
163     &0.2423996,0.2361834,0.2305830,0.2249461,0.2198020,
164     &0.2149920,0.2103154,0.2060570,0.2018775,0.1979253,
165     &0.1941856,0.1853729,0.1727509,0.1681767,0.1610373,
166     &0.1502239,0.1399678,0.1301550,0.1233758,0.1211795,
167     &0.1180928,0.1149843,0.1129097,0.1123236,0.1113603,
168     &0.1042673,0.0958210,0.0918495/
169       data giceir/
170     &0.0879977,0.0844017,0.0822360,0.0778328,0.0732655,
171     &0.0690960,0.0682752,0.0674878,0.0666989,0.0659700,
172     &0.0653013,0.0618198,0.0604822,0.0583973,0.0576873,
173     &0.0569741,0.0562715,0.0555336,0.0547710,0.0540252,
174     &0.0525653,0.0511566,0.0498082,0.0478042,0.0458238,
175     &0.0445190,0.0432495,0.0419659,0.0407013,0.0394739,
176     &0.0382847,0.0371085,0.0359234,0.0347448,0.0335567,
177     &0.0323681,0.0312087,0.0295399,0.0279082,0.0268502,
178     &0.0258095,0.0242507,0.0226832,0.0216094,0.0205569,
179     &0.0199994,0.0194464,0.0189064,0.0183935,0.0179262,
180     &0.0174721,0.0170318,0.0167252,0.0161173,0.0156093,
181     &0.0151735,0.0148010,0.0144899,0.0141909,0.0140236,
182     &0.0138500,0.0136646,0.0134407,0.0131990,0.0129545,
183     &0.0126989,0.0123981,0.0117364,0.0110220,0.0106622,
184     &0.0102900,0.0096114,0.0092885,0.0089773,0.0086913,
185     &0.0084029,0.0075082,0.0069195,0.0066498,0.0064030,
186     &0.0061638,0.0059125,0.0056564,0.0049044,0.0047217,
187     &0.0045194,0.0042905,0.0039171,0.0037807,0.0034683,
188     &0.0028199,0.0023535,0.0019931,0.0018378,0.0017011,
189     &0.0015627,0.0014514,0.0013460,0.0012398,0.0011386,
190     &0.0010917,0.0010505,0.0010140,0.0010014,0.0010106,
191     &0.0010385,0.0010523,0.0010404,0.0009990,0.0009673,
192     &0.0009376,0.0009252,0.0009159,0.0009061,0.0008860,
193     &0.0008628,0.0008361,0.0008086,0.0007567,0.0007210,
194     &0.0006967,0.0006727,0.0006705,0.0006603,0.0006463,
195     &0.0006386,0.0006316,0.0006257,0.0006182,0.0006034,
196     &0.0005850,0.0005536,0.0005284,0.0005128,0.0004754,
197     &0.0004328,0.0004100,0.0003918,0.0003559,0.0003223,
198     &0.0002906,0.0002006,0.0001287,0.0001043/
Note: See TracBrowser for help on using the repository browser.