source: trunk/MESOSCALE/LMDZ.MARS/libf_gcm/phymars/aerice.h.01 @ 134

Last change on this file since 134 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 = 1 MICRONS (Franck M ontmessin)
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=23.E+0)
22c Optical properties used by initracer.F to determine Qextrhor
23      REAL rcrystal,qrefice
24      PARAMETER (rcrystal=1.e-6,qrefice=2.75)
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.1192634,2.3866904,3.0710473,3.2044775,2.4812233,
72     &1.5408986,0.5308650,0.2823303,0.8151994,0.9982054,
73     &1.1776563,1.2913215,1.3945227,1.5075399,1.6387790,
74     &1.7810757,1.9404513,2.1077142,2.2311430,2.3039091,
75     &2.3424239,2.3839264,2.4322689,2.4745319,2.4916942,
76     &2.4703403,2.4206913,2.3665223,2.2752666,2.1747661,
77     &2.0781898,1.9706942,1.8699772,1.7651500,1.6681471,
78     &1.5780047,1.4902014,1.4125437,1.3384955,1.2692254,
79     &1.2053254,1.0666140,0.9020291,0.8492430,0.7754933,
80     &0.6846126,0.6097632,0.5495253,0.5234407,0.5223706,
81     &0.5196257,0.5199762,0.5163358,0.5186846,0.5133317,
82     &0.4363440,0.3637202,0.3336293/
83       data epiceir/
84     &0.3097547,0.2899992,0.2780589,0.2617716,0.2548404,
85     &0.2650286,0.2694660,0.2773825,0.2855305,0.3007740,
86     &0.3150952,0.3452618,0.3475289,0.3352611,0.3274985,
87     &0.3222899,0.3144871,0.3029351,0.2930705,0.2859025,
88     &0.2744837,0.2721885,0.2687397,0.2570274,0.2420578,
89     &0.2354512,0.2268017,0.2151964,0.2083238,0.2020417,
90     &0.1963370,0.1862280,0.1736113,0.1585643,0.1430934,
91     &0.1316877,0.1294224,0.1228625,0.1185373,0.1171891,
92     &0.1139945,0.1080297,0.1016796,0.1029433,0.1216047,
93     &0.1356978,0.1546041,0.1849135,0.2246722,0.2768484,
94     &0.3310658,0.3965377,0.4426499,0.5253468,0.5668955,
95     &0.5922215,0.5880766,0.5654298,0.5190575,0.4913011,
96     &0.4635427,0.4314885,0.4015174,0.3712321,0.3411348,
97     &0.3102629,0.2780339,0.2194865,0.1779260,0.1610434,
98     &0.1496597,0.1303599,0.1247039,0.1198948,0.1110008,
99     &0.1007371,0.0712706,0.0622413,0.0636172,0.0611146,
100     &0.0536605,0.0437097,0.0355698,0.0220631,0.0205425,
101     &0.0196398,0.0191828,0.0191171,0.0193923,0.0208254,
102     &0.0290338,0.0383325,0.0509648,0.0635566,0.0810146,
103     &0.0995692,0.1192388,0.1375636,0.1572995,0.1789836,
104     &0.1963544,0.2039599,0.2141546,0.2161427,0.2071475,
105     &0.1822319,0.1595332,0.1409966,0.1310656,0.1218277,
106     &0.1098314,0.1025169,0.0953714,0.0830212,0.0738609,
107     &0.0662767,0.0607402,0.0576721,0.0664149,0.0740372,
108     &0.0816919,0.0914682,0.0931417,0.0893927,0.0865822,
109     &0.0833833,0.0796740,0.0746523,0.0679690,0.0608707,
110     &0.0544375,0.0460094,0.0403652,0.0373210,0.0279000,
111     &0.0235664,0.0218776,0.0204772,0.0180988,0.0160214,
112     &0.0143370,0.0104088,0.0066479,0.0051210/
113       data omegicevis/
114     &0.5386420,1.0000000,0.9999983,0.9999850,0.9955066,
115     &0.9844767,0.9774309,0.1614970,0.1627708,0.1939070,
116     &0.2183838,0.2320055,0.2452919,0.2601796,0.2772272,
117     &0.2949594,0.3144796,0.3355922,0.3536791,0.3691771,
118     &0.3833629,0.3993029,0.4197326,0.4469427,0.4815640,
119     &0.5188605,0.5528998,0.5873977,0.6337127,0.6578971,
120     &0.6923810,0.7275212,0.7585961,0.7921193,0.8169167,
121     &0.8410107,0.8620409,0.8756065,0.8913837,0.9042724,
122     &0.9147988,0.9275904,0.9291340,0.9284223,0.9196891,
123     &0.8876197,0.8561562,0.8072060,0.7431433,0.7140535,
124     &0.6865323,0.6620798,0.6595058,0.6550942,0.6665309,
125     &0.7495020,0.7778903,0.7786440/
126       data omegiceir/
127     &0.7604749,0.7366999,0.7205958,0.6580536,0.5668025,
128     &0.4587096,0.4356672,0.4097329,0.3868122,0.3598266,
129     &0.3431242,0.3130278,0.3147338,0.3254214,0.3307036,
130     &0.3329236,0.3383887,0.3458877,0.3488805,0.3483467,
131     &0.3436954,0.3301307,0.3225699,0.3191252,0.3170218,
132     &0.3108034,0.3083988,0.3079879,0.2998554,0.2926259,
133     &0.2863949,0.2870713,0.2903223,0.2965344,0.3012683,
134     &0.2946250,0.2699749,0.2452659,0.2165022,0.1961797,
135     &0.1795562,0.1537112,0.1230571,0.0931165,0.0588126,
136     &0.0449536,0.0339055,0.0263423,0.0229347,0.0230562,
137     &0.0248910,0.0281887,0.0311059,0.0369957,0.0417154,
138     &0.0460758,0.0503238,0.0543560,0.0582899,0.0602842,
139     &0.0623192,0.0643389,0.0661152,0.0681381,0.0704755,
140     &0.0731053,0.0760185,0.0814240,0.0838108,0.0843268,
141     &0.0827206,0.0799519,0.0771474,0.0748236,0.0755603,
142     &0.0772232,0.0825206,0.0770989,0.0693231,0.0673670,
143     &0.0711028,0.0790820,0.0865735,0.0959862,0.0931518,
144     &0.0868936,0.0778482,0.0618916,0.0556907,0.0414274,
145     &0.0172511,0.0079517,0.0036608,0.0023874,0.0017483,
146     &0.0014435,0.0013443,0.0013223,0.0013315,0.0013663,
147     &0.0014583,0.0015426,0.0016673,0.0018146,0.0019850,
148     &0.0021217,0.0021683,0.0021083,0.0019995,0.0019657,
149     &0.0019761,0.0020031,0.0020611,0.0021607,0.0021879,
150     &0.0021838,0.0021172,0.0019728,0.0014927,0.0012580,
151     &0.0011338,0.0010718,0.0010859,0.0011371,0.0011565,
152     &0.0011796,0.0012070,0.0012485,0.0012965,0.0013299,
153     &0.0013524,0.0013734,0.0013868,0.0013938,0.0015480,
154     &0.0014583,0.0013921,0.0013452,0.0012361,0.0011303,
155     &0.0010147,0.0006545,0.0004192,0.0003572/
156       data gicevis/
157     &0.9472355,0.7817819,0.8104869,0.8370932,0.8250610,
158     &0.7729445,0.6907796,0.6560782,0.6408569,0.6389719,
159     &0.6383793,0.6379554,0.6365179,0.6343526,0.6319877,
160     &0.6300194,0.6284310,0.6279051,0.6303032,0.6338103,
161     &0.6368135,0.6378741,0.6381156,0.6375306,0.6352661,
162     &0.6311954,0.6260597,0.6201031,0.6121832,0.6065006,
163     &0.5996023,0.5927197,0.5867192,0.5807193,0.5757619,
164     &0.5710542,0.5665758,0.5626292,0.5584362,0.5544021,
165     &0.5504646,0.5406969,0.5247300,0.5183126,0.5077586,
166     &0.4904415,0.4721469,0.4530136,0.4389606,0.4342998,
167     &0.4274060,0.4202327,0.4151474,0.4137563,0.4111845,
168     &0.3915503,0.3674690,0.3556202/
169       data giceir/
170     &0.3438542,0.3325318,0.3255288,0.3110588,0.2956603,
171     &0.2814386,0.2786329,0.2760077,0.2733599,0.2710718,
172     &0.2689575,0.2567067,0.2516982,0.2434593,0.2405528,
173     &0.2376774,0.2347744,0.2316430,0.2284427,0.2253558,
174     &0.2193370,0.2136727,0.2081797,0.1998119,0.1914108,
175     &0.1859097,0.1804893,0.1749370,0.1695419,0.1642952,
176     &0.1592050,0.1540809,0.1488775,0.1436688,0.1384313,
177     &0.1332790,0.1283971,0.1213205,0.1144493,0.1100211,
178     &0.1056500,0.0991218,0.0926120,0.0882538,0.0841548,
179     &0.0820158,0.0799326,0.0779781,0.0761736,0.0745909,
180     &0.0730158,0.0714981,0.0703739,0.0679849,0.0657191,
181     &0.0636815,0.0617775,0.0601208,0.0585010,0.0576308,
182     &0.0567537,0.0558357,0.0547788,0.0536580,0.0525378,
183     &0.0513812,0.0500444,0.0471741,0.0441685,0.0426759,
184     &0.0411515,0.0383862,0.0370815,0.0358252,0.0346632,
185     &0.0334926,0.0298874,0.0275405,0.0264717,0.0254866,
186     &0.0245280,0.0235218,0.0225007,0.0195162,0.0187928,
187     &0.0179918,0.0170857,0.0156065,0.0150664,0.0138279,
188     &0.0112556,0.0094019,0.0079691,0.0073517,0.0068074,
189     &0.0062553,0.0058107,0.0053889,0.0049634,0.0045574,
190     &0.0043685,0.0042020,0.0040541,0.0040013,0.0040349,
191     &0.0041445,0.0041994,0.0041524,0.0039878,0.0038609,
192     &0.0037426,0.0036932,0.0036563,0.0036177,0.0035376,
193     &0.0034454,0.0033390,0.0032297,0.0030226,0.0028803,
194     &0.0027832,0.0026872,0.0026783,0.0026373,0.0025813,
195     &0.0025507,0.0025227,0.0024990,0.0024694,0.0024103,
196     &0.0023370,0.0022120,0.0021112,0.0020491,0.0019000,
197     &0.0017298,0.0016389,0.0015661,0.0014226,0.0012886,
198     &0.0011617,0.0008021,0.0005148,0.0004169/
Note: See TracBrowser for help on using the repository browser.