source: trunk/mesoscale/LMDZ.MARS/libf_gcm/phymars/aerice.h.10 @ 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 = 10 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=0.8E+0)
22c Optical properties used by initracer.F to determine Qextrhor
23      REAL rcrystal,qrefice
24      PARAMETER (rcrystal=1.e-5,qrefice=2.1)
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.0273049,2.0553651,2.1324184,2.1634929,2.1279089,
72     &2.2649884,2.2698500,2.0945108,1.9718964,2.0290234,
73     &2.0724838,2.0969706,2.1164510,2.1352997,2.1550443,
74     &2.1750197,2.1959615,2.2164886,2.2313924,2.2397768,
75     &2.2443697,2.2484777,2.2524328,2.2560196,2.2593305,
76     &2.2624981,2.2655437,2.2686977,2.2731700,2.2766244,
77     &2.2794294,2.2792618,2.2795415,2.2846086,2.2950807,
78     &2.3121541,2.3191226,2.3011398,2.2936110,2.2905064,
79     &2.2727025,2.3178666,2.3242922,2.3330655,2.3261759,
80     &2.3501878,2.3524554,2.3359809,2.3611195,2.3675768,
81     &2.3733923,2.3748493,2.3755083,2.3754752,2.3756132,
82     &2.3760719,2.4271755,2.3955469/
83       data epiceir/
84     &2.4612815,2.4641292,2.4568148,2.5147929,2.5530331,
85     &2.5705762,2.5728459,2.5721469,2.5704122,2.5617049,
86     &2.5519185,2.5355358,2.5353646,2.5456607,2.5519402,
87     &2.5570130,2.5640745,2.5747874,2.5854921,2.5940452,
88     &2.6071377,2.6118498,2.6188061,2.6403730,2.6669781,
89     &2.6775784,2.6885033,2.7046711,2.7192614,2.7353652,
90     &2.7494493,2.7692459,2.7941475,2.8259096,2.8570986,
91     &2.8766527,2.8766177,2.8746240,2.8368504,2.7997968,
92     &2.7614427,2.6663651,2.4818733,2.2510304,1.9602349,
93     &1.8146522,1.6854036,1.6102730,1.6048870,1.6705624,
94     &1.7576077,1.8667697,1.9497169,2.0947831,2.2019422,
95     &2.2885010,2.3667836,2.4332867,2.4948113,2.5246017,
96     &2.5532246,2.5817444,2.6085849,2.6368368,2.6661391,
97     &2.6972022,2.7322018,2.8090558,2.8837960,2.9189849,
98     &2.9399867,2.9627054,2.9581554,2.9556482,2.9702957,
99     &2.9914343,3.0622592,3.0227430,2.9683504,2.9483757,
100     &2.9425662,2.9222951,2.8775811,2.6872020,2.5973134,
101     &2.4775703,2.3277271,2.0808144,1.9930708,1.7932411,
102     &1.3749977,1.1105362,0.9519616,0.9414314,1.0029964,
103     &1.0884044,1.1978686,1.3110209,1.4375935,1.5781999,
104     &1.7028408,1.8087940,1.9384904,2.0478878,2.1342847,
105     &2.1552835,2.1219630,2.0431452,1.9908499,1.9683007,
106     &1.9452211,1.9265127,1.9173379,1.8556699,1.7696880,
107     &1.6679885,1.5544487,1.4389187,1.3726599,1.3709559,
108     &1.4067492,1.4992472,1.5341307,1.5684799,1.5883886,
109     &1.5933384,1.5931257,1.5828085,1.5444956,1.4816657,
110     &1.4080117,1.2855885,1.1866654,1.1282085,0.9652229,
111     &0.7942671,0.7229686,0.6674553,0.5672902,0.4800995,
112     &0.4058672,0.2359050,0.1220444,0.0873671/
113       data omegicevis/
114     &0.5504259,0.9999992,0.9999804,0.9997928,0.9548051,
115     &0.9126351,0.9571041,0.5516225,0.4932337,0.5069626,
116     &0.5145947,0.5177403,0.5216092,0.5264726,0.5321194,
117     &0.5374104,0.5423936,0.5462285,0.5453517,0.5420842,
118     &0.5383082,0.5359790,0.5340598,0.5316239,0.5284724,
119     &0.5251024,0.5221875,0.5200486,0.5182305,0.5173715,
120     &0.5181928,0.5213331,0.5280793,0.5438614,0.5659477,
121     &0.5936272,0.6220001,0.6461561,0.6788177,0.7087492,
122     &0.7393658,0.7893919,0.8146747,0.8209112,0.8149179,
123     &0.7802355,0.7582701,0.7185146,0.6685008,0.6464375,
124     &0.6278486,0.6119440,0.6113081,0.6078985,0.6163179,
125     &0.7056757,0.7598560,0.7761379/
126       data omegiceir/
127     &0.7759839,0.7669778,0.7639439,0.7364159,0.6928631,
128     &0.6428539,0.6326926,0.6199911,0.6088360,0.5931817,
129     &0.5812727,0.5587846,0.5566773,0.5620723,0.5661795,
130     &0.5687336,0.5732306,0.5805613,0.5866805,0.5907671,
131     &0.5969589,0.5957459,0.5962836,0.6028957,0.6124275,
132     &0.6156567,0.6218417,0.6321118,0.6370467,0.6411974,
133     &0.6447079,0.6546141,0.6691408,0.6888857,0.7109522,
134     &0.7267580,0.7246028,0.7274987,0.7256792,0.7211279,
135     &0.7193315,0.7149989,0.7013977,0.6651995,0.5782154,
136     &0.5228451,0.4628350,0.4070674,0.3747672,0.3693838,
137     &0.3776684,0.3927504,0.4044872,0.4236842,0.4359979,
138     &0.4452721,0.4529338,0.4591291,0.4647588,0.4675789,
139     &0.4704044,0.4736306,0.4769657,0.4809483,0.4857694,
140     &0.4920136,0.5005317,0.5248833,0.5530189,0.5680709,
141     &0.5790995,0.6006733,0.6076213,0.6135495,0.6271621,
142     &0.6453611,0.7096416,0.7277915,0.7180390,0.7214272,
143     &0.7430624,0.7781302,0.8105813,0.8638036,0.8667906,
144     &0.8650255,0.8590664,0.8432143,0.8341830,0.8032821,
145     &0.6736456,0.5327421,0.3821245,0.3023261,0.2506925,
146     &0.2248830,0.2181999,0.2206931,0.2274191,0.2371715,
147     &0.2492834,0.2612511,0.2759819,0.2907880,0.3061035,
148     &0.3189336,0.3259392,0.3269015,0.3248960,0.3278614,
149     &0.3352942,0.3411323,0.3492400,0.3630564,0.3716860,
150     &0.3780700,0.3789840,0.3714330,0.3232819,0.2950966,
151     &0.2783259,0.2697008,0.2717506,0.2816038,0.2868812,
152     &0.2919132,0.2975354,0.3052135,0.3144514,0.3230745,
153     &0.3308428,0.3415695,0.3497911,0.3546669,0.3859474,
154     &0.3858507,0.3821296,0.3797063,0.3712473,0.3611613,
155     &0.3470088,0.2835475,0.2232076,0.2036654/
156       data gicevis/
157     &0.9488313,0.8737755,0.8699134,0.8632549,0.8664746,
158     &0.8654723,0.8639066,0.9867598,0.9718844,0.9635127,
159     &0.9558461,0.9512742,0.9462659,0.9400148,0.9322755,
160     &0.9239700,0.9149156,0.9062143,0.9031032,0.9042205,
161     &0.9072103,0.9088409,0.9101745,0.9125225,0.9162391,
162     &0.9205437,0.9242871,0.9270018,0.9297845,0.9314710,
163     &0.9314710,0.9295564,0.9256747,0.9176448,0.9091137,
164     &0.8993065,0.8857244,0.8742417,0.8625565,0.8491372,
165     &0.8415641,0.8312504,0.8189208,0.8167353,0.8238611,
166     &0.8239230,0.8371644,0.8417686,0.8616024,0.8695507,
167     &0.8752736,0.8796579,0.8782625,0.8792304,0.8746206,
168     &0.8405395,0.8161123,0.8190467/
169       data giceir/
170     &0.8215228,0.8188539,0.8235543,0.8430634,0.8634555,
171     &0.8889333,0.8943647,0.9004826,0.9057037,0.9118157,
172     &0.9151983,0.9186423,0.9165455,0.9109817,0.9085578,
173     &0.9069400,0.9043546,0.9010347,0.8988791,0.8976911,
174     &0.8963661,0.8980653,0.8983047,0.8966079,0.8940747,
175     &0.8933308,0.8913805,0.8891829,0.8896720,0.8898105,
176     &0.8894080,0.8870043,0.8841559,0.8807722,0.8783676,
177     &0.8806533,0.8874398,0.8930346,0.8980618,0.9013399,
178     &0.9038298,0.9075544,0.9122803,0.9171227,0.9216645,
179     &0.9230088,0.9236676,0.9233609,0.9217389,0.9185820,
180     &0.9143328,0.9086544,0.9041949,0.8948452,0.8875402,
181     &0.8805291,0.8743904,0.8689287,0.8643938,0.8621209,
182     &0.8597336,0.8575692,0.8550812,0.8520836,0.8486272,
183     &0.8446994,0.8398250,0.8288277,0.8186790,0.8140771,
184     &0.8110483,0.8041257,0.8015433,0.7980613,0.7919027,
185     &0.7852415,0.7688640,0.7656652,0.7660689,0.7611709,
186     &0.7521669,0.7417981,0.7344227,0.7222472,0.7201254,
187     &0.7173442,0.7131014,0.7038283,0.6999976,0.6905708,
188     &0.6637480,0.6310949,0.5964675,0.5787684,0.5612767,
189     &0.5405343,0.5222011,0.5027949,0.4812989,0.4589987,
190     &0.4483198,0.4369166,0.4259420,0.4192472,0.4154068,
191     &0.4142449,0.4130682,0.4088767,0.3968293,0.3857591,
192     &0.3742922,0.3692816,0.3648685,0.3617240,0.3566430,
193     &0.3508260,0.3437443,0.3361050,0.3206013,0.3090643,
194     &0.3008432,0.2916748,0.2902482,0.2839455,0.2766951,
195     &0.2723766,0.2683532,0.2648085,0.2613389,0.2555560,
196     &0.2486358,0.2367881,0.2269753,0.2207384,0.2052476,
197     &0.1863302,0.1759822,0.1676274,0.1511226,0.1356524,
198     &0.1210628,0.0811427,0.0511400,0.0412876/
Note: See TracBrowser for help on using the repository browser.