source: trunk/mesoscale/LMDZ.MARS/libf_gcm/phymars/aerice.h.04 @ 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.6 KB
Line 
1c-----------------------------------------------------------------------
2c INCLUDE 'aerice.h'
3c Spectral  Radiative properties of water ice PARTICLE RADIUS = 4 MICRONS (Franck Montmessin)
4
5c (Warren, 1984)
6
7c visible
8      integer nicevis
9      parameter(nicevis=58)
10      REAL longicevis(nicevis),epicevis(nicevis)
11     &    ,omegicevis(nicevis),gicevis(nicevis)
12
13
14c IR
15      integer niceir
16      parameter(niceir=144)
17      REAL longiceir(niceir),epiceir(niceir)
18     &    ,omegiceir(niceir),giceir(niceir)
19
20c Ratio solsirice = Tau(vis) / Tau (9 microns)
21      REAL solsirice
22      PARAMETER (solsirice=2.1E+0)
23c Optical properties used by initracer.F to determine Qextrhor
24      REAL rcrystal,qrefice
25      PARAMETER (rcrystal=4.e-6,qrefice=2.1)
26c---------------------------------------------------------------------
27             
28       data longicevis/
29     &.1802000E-06,.4000000E-06,.8000000E-06,.1000000E-05,.1504000E-05,
30     &.2000000E-05,.2600000E-05,.2817000E-05,.2899000E-05,.2915000E-05,
31     &.2933000E-05,.2950000E-05,.2967000E-05,.2985000E-05,.3003000E-05,
32     &.3021000E-05,.3040000E-05,.3058000E-05,.3077000E-05,.3096000E-05,
33     &.3115000E-05,.3135000E-05,.3155000E-05,.3175000E-05,.3195000E-05,
34     &.3215000E-05,.3236000E-05,.3257000E-05,.3279000E-05,.3300000E-05,
35     &.3322000E-05,.3345000E-05,.3367000E-05,.3390000E-05,.3413000E-05,
36     &.3436000E-05,.3460000E-05,.3484000E-05,.3509000E-05,.3534000E-05,
37     &.3559000E-05,.3624000E-05,.3732000E-05,.3775000E-05,.3847000E-05,
38     &.3969000E-05,.4099000E-05,.4239000E-05,.4348000E-05,.4387000E-05,
39     &.4444000E-05,.4505000E-05,.4547000E-05,.4560000E-05,.4580000E-05,
40     &.4719000E-05,.4904000E-05,.5000000E-05/
41       data longiceir/
42     &.5100000E-05,.5200000E-05,.5263000E-05,.5400000E-05,.5556000E-05,
43     &.5714000E-05,.5747000E-05,.5780000E-05,.5814000E-05,.5848000E-05,
44     &.5882000E-05,.6061000E-05,.6135000E-05,.6250000E-05,.6289000E-05,
45     &.6329000E-05,.6369000E-05,.6410000E-05,.6452000E-05,.6494000E-05,
46     &.6579000E-05,.6667000E-05,.6757000E-05,.6897000E-05,.7042000E-05,
47     &.7143000E-05,.7246000E-05,.7353000E-05,.7463000E-05,.7576000E-05,
48     &.7692000E-05,.7812000E-05,.7937000E-05,.8065000E-05,.8197000E-05,
49     &.8333000E-05,.8475000E-05,.8696000E-05,.8929000E-05,.9091000E-05,
50     &.9259000E-05,.9524000E-05,.9804000E-05,.1000000E-04,.1020000E-04,
51     &.1031000E-04,.1042000E-04,.1053000E-04,.1064000E-04,.1075000E-04,
52     &.1087000E-04,.1100000E-04,.1111000E-04,.1136000E-04,.1163000E-04,
53     &.1190000E-04,.1220000E-04,.1250000E-04,.1282000E-04,.1299000E-04,
54     &.1316000E-04,.1333000E-04,.1351000E-04,.1370000E-04,.1389000E-04,
55     &.1408000E-04,.1429000E-04,.1471000E-04,.1515000E-04,.1538000E-04,
56     &.1563000E-04,.1613000E-04,.1639000E-04,.1667000E-04,.1695000E-04,
57     &.1724000E-04,.1818000E-04,.1887000E-04,.1923000E-04,.1961000E-04,
58     &.2000000E-04,.2041000E-04,.2083000E-04,.2222000E-04,.2260000E-04,
59     &.2305000E-04,.2360000E-04,.2460000E-04,.2500000E-04,.2600000E-04,
60     &.2857000E-04,.3100000E-04,.3333000E-04,.3448000E-04,.3564000E-04,
61     &.3700000E-04,.3824000E-04,.3960000E-04,.4114000E-04,.4276000E-04,
62     &.4358000E-04,.4458000E-04,.4550000E-04,.4615000E-04,.4671000E-04,
63     &.4736000E-04,.4800000E-04,.4878000E-04,.5003000E-04,.5128000E-04,
64     &.5275000E-04,.5350000E-04,.5424000E-04,.5500000E-04,.5574000E-04,
65     &.5640000E-04,.5700000E-04,.5746000E-04,.5840000E-04,.5929000E-04,
66     &.6000000E-04,.6100000E-04,.6125000E-04,.6250000E-04,.6378000E-04,
67     &.6467000E-04,.6558000E-04,.6655000E-04,.6760000E-04,.6900000E-04,
68     &.7053000E-04,.7300000E-04,.7500000E-04,.7629000E-04,.8000000E-04,
69     &.8297000E-04,.8500000E-04,.8680000E-04,.9080000E-04,.9517000E-04,
70     &.1000000E-03,.1200000E-03,.1500000E-03,.1670000E-03/
71       data epicevis/
72     &2.0854822,2.0504486,2.2594056,2.2905577,2.4309553,
73     &2.7394925,2.9738858,1.0479889,1.5827071,1.7473683,
74     &1.8791661,1.9542847,2.0162247,2.0774747,2.1420606,
75     &2.2070080,2.2746674,2.3410056,2.3915425,2.4243052,
76     &2.4465380,2.4664531,2.4864873,2.5070593,2.5285199,
77     &2.5506347,2.5724538,2.5936350,2.6196233,2.6374214,
78     &2.6572831,2.6830637,2.7173599,2.7675186,2.8233521,
79     &2.8801521,2.9195511,2.9341195,2.9565225,2.9903221,
80     &3.0211312,3.1489194,3.2117107,3.1927426,3.1992998,
81     &3.2346768,3.1870882,3.0997686,3.0240328,2.9942008,
82     &2.9638598,2.9380857,2.9347956,2.9330930,2.9452588,
83     &2.9445502,2.8607601,2.7946008/
84       data epiceir/
85     &2.7047184,2.6120941,2.5504249,2.4083079,2.2449776,
86     &2.0963051,2.0678715,2.0435539,2.0233198,2.0134084,
87     &2.0220503,2.0596078,2.0865511,2.1071296,2.1073430,
88     &2.1056444,2.1049262,2.0960135,2.0772534,2.0565253,
89     &2.0132797,1.9785371,1.9572351,1.9217145,1.8724474,
90     &1.8385008,1.8061319,1.7637404,1.7201956,1.6824483,
91     &1.6508880,1.6160781,1.5712145,1.5128543,1.4363862,
92     &1.3483616,1.2774042,1.1795400,1.0840162,1.0261202,
93     &0.9651563,0.8602540,0.7339102,0.6469975,0.6119478,
94     &0.6091090,0.6207982,0.6672347,0.7434798,0.8558041,
95     &0.9740046,1.1170480,1.2233814,1.4233819,1.5659507,
96     &1.6880697,1.7848208,1.8579589,1.8989074,1.9101462,
97     &1.9175409,1.9114984,1.8998538,1.8840935,1.8632078,
98     &1.8316492,1.7857095,1.6508096,1.4954219,1.4151742,
99     &1.3432500,1.2148845,1.1631782,1.1234219,1.0776615,
100     &1.0225006,0.8207632,0.7104143,0.6854881,0.6592867,
101     &0.6146109,0.5515194,0.4878044,0.3406532,0.3125988,
102     &0.2862523,0.2605937,0.2247351,0.2136279,0.1929169,
103     &0.1780802,0.1848382,0.2104575,0.2466988,0.3018862,
104     &0.3613543,0.4261933,0.4881637,0.5562663,0.6325883,
105     &0.6974163,0.7349945,0.7849246,0.8107314,0.8016415,
106     &0.7301529,0.6518985,0.5788133,0.5371399,0.5015947,
107     &0.4561899,0.4281780,0.4014403,0.3523277,0.3134494,
108     &0.2802024,0.2545224,0.2382317,0.2645295,0.2893848,
109     &0.3160831,0.3526863,0.3600670,0.3487748,0.3395592,
110     &0.3284123,0.3151843,0.2968681,0.2714744,0.2435622,
111     &0.2178014,0.1836341,0.1606565,0.1482674,0.1111388,
112     &0.0925535,0.0852699,0.0793584,0.0693137,0.0606733,
113     &0.0536815,0.0376899,0.0234903,0.0179599/
114       data omegicevis/
115     &0.9997557,0.9999997,0.9999922,0.9999319,0.9834057,
116     &0.9697400,0.9889413,0.4170863,0.3839164,0.4148017,
117     &0.4329225,0.4410049,0.4489707,0.4576899,0.4670268,
118     &0.4755634,0.4835813,0.4903115,0.4920676,0.4910262,
119     &0.4890484,0.4880903,0.4873634,0.4862187,0.4850952,
120     &0.4856144,0.4890416,0.4960548,0.5125623,0.5285751,
121     &0.5546114,0.5898761,0.6277213,0.6730058,0.7122949,
122     &0.7517495,0.7888858,0.8171780,0.8476295,0.8725174,
123     &0.8933310,0.9217324,0.9365012,0.9409229,0.9421082,
124     &0.9300490,0.9206304,0.9031980,0.8741305,0.8588691,
125     &0.8445156,0.8310569,0.8304268,0.8275097,0.8349118,
126     &0.8934678,0.9187520,0.9234176/
127       data omegiceir/
128     &0.9195789,0.9130654,0.9084498,0.8848193,0.8432430,
129     &0.7802753,0.7644560,0.7449288,0.7265303,0.7022048,
130     &0.6854911,0.6547806,0.6568891,0.6708937,0.6778638,
131     &0.6815536,0.6886025,0.6981948,0.7035849,0.7054032,
132     &0.7053613,0.6954878,0.6908569,0.6925153,0.6964372,
133     &0.6940646,0.6957520,0.7002053,0.6964250,0.6932367,
134     &0.6907555,0.6961634,0.7047681,0.7167735,0.7274370,
135     &0.7265938,0.7055041,0.6847062,0.6557705,0.6320110,
136     &0.6117497,0.5758710,0.5225218,0.4523725,0.3413817,
137     &0.2842636,0.2313632,0.1900614,0.1697527,0.1697629,
138     &0.1798291,0.1970501,0.2115807,0.2391071,0.2606377,
139     &0.2798113,0.2988472,0.3170983,0.3361139,0.3461500,
140     &0.3563966,0.3671677,0.3774159,0.3888194,0.4014468,
141     &0.4154617,0.4312829,0.4628420,0.4848666,0.4936416,
142     &0.4953880,0.4988511,0.4951004,0.4923347,0.5001683,
143     &0.5114973,0.5471412,0.5407871,0.5179877,0.5151565,
144     &0.5338754,0.5665359,0.5949027,0.6346611,0.6304472,
145     &0.6168448,0.5937971,0.5441191,0.5208242,0.4555555,
146     &0.2795748,0.1643928,0.0891554,0.0618627,0.0471263,
147     &0.0400198,0.0378990,0.0377831,0.0385226,0.0399469,
148     &0.0426608,0.0451856,0.0487382,0.0527340,0.0571690,
149     &0.0606253,0.0618599,0.0605589,0.0581096,0.0574950,
150     &0.0580301,0.0588644,0.0604849,0.0632511,0.0642014,
151     &0.0643580,0.0628783,0.0592713,0.0462856,0.0396805,
152     &0.0361116,0.0343350,0.0347561,0.0363269,0.0369600,
153     &0.0376791,0.0385242,0.0397799,0.0412408,0.0423222,
154     &0.0431063,0.0439387,0.0445039,0.0448168,0.0496150,
155     &0.0473067,0.0454896,0.0441976,0.0410999,0.0380139,
156     &0.0345402,0.0231292,0.0152373,0.0130964/
157       data gicevis/
158     &0.8343501,0.8539270,0.8165237,0.8181057,0.7824335,
159     &0.8121903,0.9116917,0.9469896,0.9339413,0.9264918,
160     &0.9194773,0.9152379,0.9105224,0.9045991,0.8973010,
161     &0.8895398,0.8811479,0.8731629,0.8704250,0.8714981,
162     &0.8741569,0.8753158,0.8759663,0.8770830,0.8782619,
163     &0.8777608,0.8743001,0.8669701,0.8513806,0.8396250,
164     &0.8215540,0.8018272,0.7843039,0.7655624,0.7525014,
165     &0.7398580,0.7289740,0.7259218,0.7254756,0.7268577,
166     &0.7324639,0.7521768,0.7661537,0.7739922,0.7902248,
167     &0.8065580,0.8156578,0.8255079,0.8347661,0.8373555,
168     &0.8387650,0.8389051,0.8371919,0.8368247,0.8344242,
169     &0.8242407,0.8213838,0.8203836/
170       data giceir/
171     &0.8202859,0.8204761,0.8207446,0.8218899,0.8224330,
172     &0.8225752,0.8226243,0.8228495,0.8228806,0.8232125,
173     &0.8228349,0.8170514,0.8134916,0.8073353,0.8051527,
174     &0.8032251,0.8010219,0.7986862,0.7967891,0.7952084,
175     &0.7923052,0.7898931,0.7867939,0.7811755,0.7750518,
176     &0.7710254,0.7664988,0.7615658,0.7570799,0.7523895,
177     &0.7475237,0.7419846,0.7361146,0.7300106,0.7239206,
178     &0.7182872,0.7132332,0.7041776,0.6943774,0.6874813,
179     &0.6799427,0.6676864,0.6541361,0.6444608,0.6352317,
180     &0.6299193,0.6244130,0.6191449,0.6140400,0.6095717,
181     &0.6048778,0.6003752,0.5971281,0.5896495,0.5818252,
182     &0.5736867,0.5649501,0.5561939,0.5469384,0.5418788,
183     &0.5367152,0.5314598,0.5255540,0.5191799,0.5126669,
184     &0.5058801,0.4979611,0.4805868,0.4616396,0.4517272,
185     &0.4414385,0.4213243,0.4114112,0.4014477,0.3914565,
186     &0.3809337,0.3465430,0.3234292,0.3130346,0.3027512,
187     &0.2918884,0.2798819,0.2676042,0.2318030,0.2231267,
188     &0.2135321,0.2026399,0.1847338,0.1781789,0.1631734,
189     &0.1323553,0.1103728,0.0936858,0.0867514,0.0807283,
190     &0.0744888,0.0694563,0.0645469,0.0595233,0.0546962,
191     &0.0524681,0.0503008,0.0483757,0.0475037,0.0475338,
192     &0.0483772,0.0487606,0.0480684,0.0460275,0.0444297,
193     &0.0429296,0.0423003,0.0418224,0.0413265,0.0403650,
194     &0.0392690,0.0380197,0.0367560,0.0344374,0.0328447,
195     &0.0317576,0.0306637,0.0305520,0.0300328,0.0293586,
196     &0.0289865,0.0286487,0.0283637,0.0280170,0.0273389,
197     &0.0265009,0.0250756,0.0239277,0.0232211,0.0215270,
198     &0.0195894,0.0185593,0.0177348,0.0161119,0.0145967,
199     &0.0131628,0.0091000,0.0058481,0.0047391/
Note: See TracBrowser for help on using the repository browser.