source: trunk/mesoscale/LMDZ.MARS/libf_gcm/phymars/aerice.h @ 57

Last change on this file since 57 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.5 KB
RevLine 
[57]1c-----------------------------------------------------------------------
2c INCLUDE 'aerice.h'
3c Spectral  Radiative properties of water ice
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=2.5E+0)
22c Optical properties used by initracer.F to determine Qextrhor
23      REAL rcrystal,qrefice
24      PARAMETER (rcrystal=3.e-6,qrefice=2.2)
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.0594757,2.0556829,2.2896707,2.3257456,2.5099661,
72     &2.9161227,2.8020720,0.9336269,1.5134708,1.6889371,
73     &1.8322314,1.9146321,1.9831489,2.0514481,2.1239402,
74     &2.1971617,2.2737679,2.3492715,2.4073563,2.4458375,
75     &2.4726937,2.4971056,2.5221505,2.5486584,2.5773935,
76     &2.6081295,2.6391418,2.6699214,2.7093878,2.7364888,
77     &2.7674158,2.8051183,2.8506889,2.9136717,2.9810331,
78     &3.0470915,3.0933173,3.1121876,3.1349294,3.1638598,
79     &3.1912117,3.2744172,3.2761116,3.2431061,3.2102768,
80     &3.1776469,3.0866187,2.9577594,2.8526461,2.8176398,
81     &2.7821639,2.7549253,2.7503767,2.7499533,2.7608297,
82     &2.7274404,2.5991304,2.5173609/
83       data epiceir/
84     &2.4190733,2.3199425,2.2540693,2.1095867,1.9555371,
85     &1.8269345,1.8036077,1.7855358,1.7711544,1.7690116,
86     &1.7829260,1.8295234,1.8549844,1.8687238,1.8656639,
87     &1.8619236,1.8579320,1.8448261,1.8235378,1.8017112,
88     &1.7578924,1.7259388,1.7054915,1.6687690,1.6185619,
89     &1.5858195,1.5535859,1.5112923,1.4703351,1.4347173,
90     &1.4047177,1.3697965,1.3251381,1.2680571,1.1960392,
91     &1.1172380,1.0578237,0.9745934,0.8949080,0.8474779,
92     &0.7968613,0.7102672,0.6077121,0.5407101,0.5224510,
93     &0.5266400,0.5439359,0.5927324,0.6681964,0.7765685,
94     &0.8902640,1.0280455,1.1302272,1.3228931,1.4579507,
95     &1.5726897,1.6591437,1.7202030,1.7452124,1.7473249,
96     &1.7453249,1.7290004,1.7075497,1.6815135,1.6501899,
97     &1.6082871,1.5523466,1.4047438,1.2489705,1.1717392,
98     &1.1052268,0.9884429,0.9432285,0.9081387,0.8657278,
99     &0.8152991,0.6394543,0.5499370,0.5321090,0.5103995,
100     &0.4716277,0.4179623,0.3657534,0.2508311,0.2299716,
101     &0.2108125,0.1924924,0.1673682,0.1598235,0.1464571,
102     &0.1420538,0.1533015,0.1798090,0.2135266,0.2636204,
103     &0.3173732,0.3756316,0.4310254,0.4916850,0.5594596,
104     &0.6165060,0.6480070,0.6899570,0.7094871,0.6969641,
105     &0.6295437,0.5589720,0.4951279,0.4591832,0.4279796,
106     &0.3880569,0.3635468,0.3400364,0.2975883,0.2645470,
107     &0.2365445,0.2152134,0.2020684,0.2264057,0.2488454,
108     &0.2725164,0.3044016,0.3105968,0.3001241,0.2917667,
109     &0.2818419,0.2701418,0.2540473,0.2319813,0.2079458,
110     &0.1858774,0.1567208,0.1371507,0.1266034,0.0947660,
111     &0.0791723,0.0730714,0.0680956,0.0596443,0.0523504,
112     &0.0464472,0.0328870,0.0206243,0.0157984/
113       data omegicevis/
114     &0.5478598,0.9999998,0.9999930,0.9999391,0.9852892,
115     &0.9747255,0.9896471,0.3921073,0.3646954,0.3975615,
116     &0.4174147,0.4264744,0.4352827,0.4448440,0.4550543,
117     &0.4644430,0.4733422,0.4809923,0.4836857,0.4835298,
118     &0.4823884,0.4821825,0.4822653,0.4822173,0.4828566,
119     &0.4861327,0.4930841,0.5041330,0.5267492,0.5471958,
120     &0.5780509,0.6176673,0.6584746,0.7053177,0.7443977,
121     &0.7823801,0.8173603,0.8434741,0.8708835,0.8929197,
122     &0.9106523,0.9344197,0.9465593,0.9499664,0.9501572,
123     &0.9384264,0.9281004,0.9095014,0.8796501,0.8642664,
124     &0.8496780,0.8360837,0.8353950,0.8325557,0.8399941,
125     &0.8961539,0.9191431,0.9229702/
126       data omegiceir/
127     &0.9181703,0.9106198,0.9053057,0.8796571,0.8349904,
128     &0.7679166,0.7511637,0.7306502,0.7113808,0.6862068,
129     &0.6691588,0.6380840,0.6405194,0.6548850,0.6619208,
130     &0.6655905,0.6727100,0.6823230,0.6875201,0.6890487,
131     &0.6883412,0.6776634,0.6725497,0.6736822,0.6769779,
132     &0.6740052,0.6752223,0.6791695,0.6745857,0.6706817,
133     &0.6675888,0.6726563,0.6810013,0.6928600,0.7032822,
134     &0.7016219,0.6788723,0.6561857,0.6251051,0.5999153,
135     &0.5784231,0.5407491,0.4858367,0.4156316,0.3081297,
136     &0.2542117,0.2051306,0.1674406,0.1491730,0.1494159,
137     &0.1588227,0.1749455,0.1886469,0.2149218,0.2356885,
138     &0.2543647,0.2729447,0.2907736,0.3091933,0.3188552,
139     &0.3287012,0.3389443,0.3486176,0.3593718,0.3712797,
140     &0.3844498,0.3992367,0.4283787,0.4480617,0.4557256,
141     &0.4565090,0.4582297,0.4537602,0.4503480,0.4573702,
142     &0.4677775,0.5004078,0.4921789,0.4687816,0.4652704,
143     &0.4829984,0.5146720,0.5423340,0.5802344,0.5751773,
144     &0.5603711,0.5358865,0.4843219,0.4606548,0.3958648,
145     &0.2311990,0.1309277,0.0689810,0.0473044,0.0357645,
146     &0.0302096,0.0285216,0.0283661,0.0288575,0.0298694,
147     &0.0319034,0.0337869,0.0364643,0.0395041,0.0429032,
148     &0.0455614,0.0464966,0.0454506,0.0435048,0.0429859,
149     &0.0433492,0.0439662,0.0451907,0.0472841,0.0479729,
150     &0.0480491,0.0468699,0.0440733,0.0341798,0.0291907,
151     &0.0265080,0.0251720,0.0254859,0.0266501,0.0271129,
152     &0.0276442,0.0282702,0.0292041,0.0302890,0.0310830,
153     &0.0316508,0.0322409,0.0326373,0.0328552,0.0364115,
154     &0.0346299,0.0332475,0.0322650,0.0299256,0.0276080,
155     &0.0250169,0.0166050,0.0108650,0.0093190/
156       data gicevis/
157     &0.9487292,0.8501517,0.8084917,0.8064129,0.7796354,
158     &0.8265753,0.9093526,0.9365674,0.9241107,0.9169607,
159     &0.9102123,0.9061169,0.9015271,0.8957432,0.8886193,
160     &0.8810557,0.8728880,0.8651341,0.8625306,0.8636174,
161     &0.8661903,0.8671943,0.8675743,0.8681570,0.8683062,
162     &0.8662376,0.8610609,0.8520109,0.8346523,0.8228595,
163     &0.8053397,0.7876619,0.7732534,0.7589003,0.7500000,
164     &0.7413471,0.7345427,0.7344642,0.7366309,0.7405840,
165     &0.7467821,0.7644036,0.7784136,0.7846442,0.7965618,
166     &0.8083032,0.8136568,0.8199432,0.8255728,0.8271201,
167     &0.8275242,0.8268972,0.8249819,0.8245324,0.8223208,
168     &0.8117355,0.8062472,0.8041336/
169       data giceir/
170     &0.8028125,0.8016422,0.8009415,0.7998557,0.7981417,
171     &0.7963558,0.7960360,0.7959067,0.7956044,0.7956340,
172     &0.7950525,0.7882976,0.7844244,0.7777230,0.7753325,
173     &0.7731695,0.7707492,0.7681598,0.7659332,0.7639940,
174     &0.7603320,0.7571294,0.7533165,0.7466281,0.7393790,
175     &0.7345678,0.7292926,0.7235673,0.7182128,0.7126561,
176     &0.7069229,0.7005080,0.6936766,0.6865230,0.6792384,
177     &0.6722496,0.6657850,0.6547473,0.6428918,0.6345846,
178     &0.6255974,0.6109424,0.5946515,0.5828903,0.5715944,
179     &0.5652506,0.5587830,0.5527261,0.5470884,0.5424237,
180     &0.5377048,0.5334029,0.5303385,0.5231666,0.5153511,
181     &0.5072109,0.4983860,0.4895755,0.4802338,0.4751357,
182     &0.4699576,0.4646551,0.4586791,0.4522615,0.4457387,
183     &0.4389421,0.4309897,0.4133823,0.3940207,0.3839259,
184     &0.3734751,0.3533985,0.3436313,0.3339687,0.3244507,
185     &0.3145035,0.2824177,0.2612788,0.2519038,0.2428105,
186     &0.2333613,0.2230495,0.2126012,0.1826718,0.1755434,
187     &0.1677177,0.1589084,0.1445894,0.1393903,0.1275548,
188     &0.1034226,0.0862908,0.0732680,0.0678129,0.0630464,
189     &0.0581228,0.0541460,0.0502856,0.0463469,0.0425679,
190     &0.0408138,0.0391414,0.0376537,0.0370017,0.0370768,
191     &0.0378109,0.0381619,0.0376564,0.0360912,0.0348694,
192     &0.0337249,0.0332462,0.0328845,0.0325112,0.0317704,
193     &0.0309227,0.0299524,0.0289665,0.0271364,0.0258780,
194     &0.0250178,0.0241542,0.0240672,0.0236685,0.0231454,
195     &0.0228576,0.0225964,0.0223764,0.0221073,0.0215770,
196     &0.0209200,0.0198007,0.0188984,0.0183424,0.0170089,
197     &0.0154822,0.0146694,0.0140185,0.0127366,0.0115393,
198     &0.0104058,0.0071931,0.0046216,0.0037448/
Note: See TracBrowser for help on using the repository browser.