source: trunk/MESOSCALE/LMDZ.MARS/libf_gcm/phymars/aerice.h.05

Last change on this file 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 = 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=1.2E+0)
22c Optical properties used by initracer.F to determine Qextrhor
23      REAL rcrystal,qrefice
24      PARAMETER (rcrystal=5.e-6,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.0428143,2.0440466,2.1968415,2.2153285,2.2960923,
72     &2.3659375,2.8867066,1.4714612,1.7771624,1.8997087,
73     &1.9929919,2.0451753,2.0872736,2.1281450,2.1707144,
74     &2.2132783,2.2573934,2.3003073,2.3321264,2.3514304,
75     &2.3634045,2.3739398,2.3842189,2.3941483,2.4037600,
76     &2.4129043,2.4213498,2.4291728,2.4373298,2.4419029,
77     &2.4471161,2.4538815,2.4630349,2.4742622,2.4854822,
78     &2.5033839,2.5176528,2.5136092,2.5134516,2.5263309,
79     &2.5060482,2.6094491,2.6798794,2.6632533,2.7183650,
80     &2.8463554,2.9012349,2.9348140,2.9701750,2.9754398,
81     &2.9789634,2.9716895,2.9712498,2.9672985,2.9738250,
82     &3.0348940,3.1332080,3.1466768/
83       data epiceir/
84     &3.1348512,3.1135170,3.0980451,3.0516498,2.9460745,
85     &2.7977514,2.7647121,2.7296543,2.6980081,2.6652355,
86     &2.6520360,2.6446781,2.6661332,2.7014117,2.7124405,
87     &2.7181728,2.7285180,2.7372139,2.7347012,2.7262812,
88     &2.7032161,2.6736920,2.6591630,2.6453030,2.6226292,
89     &2.5987844,2.5791478,2.5533869,2.5169418,2.4857807,
90     &2.4605293,2.4401815,2.4123871,2.3720129,2.3076501,
91     &2.2154198,2.1208081,1.9929006,1.8554076,1.7655714,
92     &1.6732348,1.5088136,1.2957467,1.1248519,1.0043060,
93     &0.9623911,0.9399940,0.9638529,1.0305194,1.1452191,
94     &1.2687433,1.4178077,1.5291764,1.7348669,1.8864686,
95     &2.0165479,2.1304126,2.2267041,2.3057120,2.3408694,
96     &2.3737895,2.3992765,2.4196458,2.4389904,2.4559703,
97     &2.4664493,2.4680557,2.4285460,2.3429909,2.2869768,
98     &2.2235444,2.0965919,2.0351093,1.9889221,1.9465162,
99     &1.8934352,1.6640973,1.4980435,1.4440260,1.4054043,
100     &1.3498148,1.2628263,1.1601040,0.8777069,0.8140609,
101     &0.7497768,0.6831331,0.5837339,0.5504547,0.4820068,
102     &0.3904156,0.3576854,0.3641066,0.4038780,0.4747776,
103     &0.5532535,0.6412786,0.7272216,0.8227299,0.9304959,
104     &1.0245264,1.0890912,1.1736258,1.2312673,1.2493920,
105     &1.1830822,1.0889487,0.9851518,0.9227560,0.8740039,
106     &0.8118621,0.7720758,0.7351863,0.6589684,0.5922329,
107     &0.5316939,0.4811391,0.4445072,0.4707272,0.5020384,
108     &0.5401840,0.5982011,0.6122363,0.6017624,0.5915391,
109     &0.5768967,0.5586212,0.5319895,0.4920566,0.4455049,
110     &0.4009319,0.3399382,0.2980777,0.2753274,0.2093637,
111     &0.1716706,0.1567566,0.1449283,0.1247388,0.1076142,
112     &0.0937344,0.0625980,0.0375503,0.0283737/
113       data omegicevis/
114     &0.5494931,0.9999998,0.9999893,0.9999013,0.9758908,
115     &0.9520350,0.9813806,0.4902175,0.4373621,0.4608643,
116     &0.4736899,0.4790656,0.4847680,0.4913164,0.4985126,
117     &0.5050762,0.5111622,0.5159741,0.5158814,0.5132105,
118     &0.5098287,0.5077458,0.5059724,0.5035798,0.5004508,
119     &0.4974112,0.4955608,0.4956980,0.4999822,0.5055479,
120     &0.5182787,0.5389499,0.5644807,0.6003360,0.6358722,
121     &0.6744935,0.7115463,0.7406379,0.7754455,0.8046825,
122     &0.8330303,0.8720050,0.8909805,0.8971584,0.8986517,
123     &0.8775966,0.8676537,0.8459433,0.8139567,0.7968134,
124     &0.7813268,0.7666911,0.7660663,0.7625950,0.7705110,
125     &0.8471078,0.8871527,0.8974949/
126       data omegiceir/
127     &0.8977836,0.8945748,0.8924134,0.8738061,0.8388449,
128     &0.7859417,0.7726671,0.7557423,0.7397608,0.7176195,
129     &0.7014517,0.6706539,0.6709267,0.6829631,0.6896477,
130     &0.6933964,0.7002523,0.7101147,0.7166997,0.7200235,
131     &0.7232453,0.7166191,0.7139632,0.7179898,0.7246478,
132     &0.7245268,0.7280882,0.7347864,0.7340991,0.7336202,
133     &0.7333983,0.7403341,0.7504411,0.7639143,0.7766036,
134     &0.7794099,0.7640404,0.7500795,0.7291497,0.7110402,
135     &0.6959369,0.6683127,0.6242461,0.5602421,0.4472759,
136     &0.3841803,0.3222430,0.2709396,0.2443090,0.2429399,
137     &0.2540719,0.2731242,0.2887707,0.3170114,0.3380532,
138     &0.3559635,0.3733418,0.3897057,0.4070157,0.4162955,
139     &0.4258323,0.4362862,0.4465349,0.4581154,0.4711562,
140     &0.4861186,0.5037051,0.5414228,0.5708696,0.5832593,
141     &0.5885317,0.5983726,0.5977412,0.5976148,0.6077798,
142     &0.6216503,0.6655161,0.6657503,0.6467597,0.6461229,
143     &0.6660358,0.6987826,0.7269489,0.7691699,0.7678677,
144     &0.7591690,0.7429094,0.7052954,0.6864988,0.6300915,
145     &0.4480666,0.2989470,0.1806929,0.1314649,0.1033070,
146     &0.0896708,0.0859415,0.0864679,0.0888946,0.0928023,
147     &0.0989119,0.1047399,0.1125751,0.1210458,0.1301845,
148     &0.1373109,0.1401302,0.1382077,0.1341803,0.1336529,
149     &0.1354927,0.1375671,0.1411836,0.1473035,0.1498776,
150     &0.1508872,0.1485618,0.1416996,0.1143930,0.0999223,
151     &0.0919109,0.0879268,0.0889088,0.0927174,0.0943725,
152     &0.0961518,0.0982119,0.1012073,0.1047162,0.1074747,
153     &0.1096113,0.1120945,0.1138527,0.1148487,0.1264241,
154     &0.1220450,0.1182757,0.1155932,0.1089078,0.1020501,
155     &0.0940495,0.0660757,0.0452682,0.0393932/
156       data gicevis/
157     &0.9488561,0.8622694,0.8421568,0.8444307,0.8198477,
158     &0.8025251,0.8924177,0.9702666,0.9557836,0.9476732,
159     &0.9401344,0.9356233,0.9306720,0.9244909,0.9168691,
160     &0.9087364,0.8999177,0.8914922,0.8885176,0.8896047,
161     &0.8924723,0.8939612,0.8951342,0.8972442,0.9004632,
162     &0.9036172,0.9051868,0.9042581,0.8988889,0.8931115,
163     &0.8817939,0.8662245,0.8491337,0.8268852,0.8078062,
164     &0.7890281,0.7693759,0.7548954,0.7426000,0.7296526,
165     &0.7270693,0.7355062,0.7289565,0.7364469,0.7544447,
166     &0.7692665,0.7925164,0.8065700,0.8307455,0.8377706,
167     &0.8427537,0.8454301,0.8436610,0.8436959,0.8396172,
168     &0.8239458,0.8273445,0.8320904/
169       data giceir/
170     &0.8373514,0.8419112,0.8460672,0.8574966,0.8670993,
171     &0.8753594,0.8769836,0.8787410,0.8801410,0.8817471,
172     &0.8821138,0.8790489,0.8760744,0.8707907,0.8689077,
173     &0.8674014,0.8654746,0.8634583,0.8622014,0.8614331,
174     &0.8604119,0.8602243,0.8590601,0.8563642,0.8534315,
175     &0.8516557,0.8491830,0.8464145,0.8443506,0.8419912,
176     &0.8393673,0.8359801,0.8324290,0.8288801,0.8258969,
177     &0.8241146,0.8232231,0.8199658,0.8160087,0.8130227,
178     &0.8095026,0.8040639,0.7986902,0.7954774,0.7927923,
179     &0.7908941,0.7887109,0.7863154,0.7833571,0.7799240,
180     &0.7757225,0.7708758,0.7671629,0.7589634,0.7514880,
181     &0.7439123,0.7363079,0.7288431,0.7213242,0.7172369,
182     &0.7129840,0.7087308,0.7039406,0.6985872,0.6929027,
183     &0.6868637,0.6798444,0.6653367,0.6513552,0.6442967,
184     &0.6372020,0.6223192,0.6148563,0.6068394,0.5979654,
185     &0.5884917,0.5583712,0.5388037,0.5299017,0.5197192,
186     &0.5079988,0.4946542,0.4810905,0.4402598,0.4297767,
187     &0.4177190,0.4033195,0.3778822,0.3680294,0.3443614,
188     &0.2904477,0.2472555,0.2122748,0.1975763,0.1849724,
189     &0.1717572,0.1611385,0.1505969,0.1396510,0.1290195,
190     &0.1242519,0.1192575,0.1148210,0.1125826,0.1120808,
191     &0.1130957,0.1133712,0.1114241,0.1063793,0.1023448,
192     &0.0985022,0.0968736,0.0956093,0.0943082,0.0919330,
193     &0.0892278,0.0861601,0.0830894,0.0777779,0.0741764,
194     &0.0717541,0.0693096,0.0690498,0.0677189,0.0660590,
195     &0.0651242,0.0642725,0.0635431,0.0626790,0.0610575,
196     &0.0590792,0.0557436,0.0530752,0.0514414,0.0475330,
197     &0.0431135,0.0407930,0.0389434,0.0353244,0.0319652,
198     &0.0288019,0.0198931,0.0127889,0.0103672/
Note: See TracBrowser for help on using the repository browser.