source: trunk/MESOSCALE/LMDZ.MARS/libf_gcm/phymars/aerdust.h.clan91 @ 1242

Last change on this file since 1242 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: 6.9 KB
Line 
1c-----------------------------------------------------------------------
2c INCLUDE 'aerdust.h'
3c Spectral  Radiative properties of the Martian dust
4c SPECIAL "bright dust" (Clancy and Lee, 1991)
5
6
7c visible (Clancy and Lee, 1991)
8      integer ndustvis
9      parameter(ndustvis=2)
10      REAL longdustvis(ndustvis),epdustvis(ndustvis)
11     &    ,omegdustvis(ndustvis),gdustvis(ndustvis)
12
13
14c IR (composite: Toon 1977 (5-15micrometers) + Forget, 1996 (>15micrometers)
15      integer ndustir
16      parameter(ndustir=124)
17      REAL longdustir(ndustir),epdustir(ndustir)
18     &    ,omegdustir(ndustir),gdustir(ndustir)
19
20c Ratio solsir = Tau(vis) / Tau (9 microns)
21      REAL solsir
22      PARAMETER (solsir=2.E+0)
23
24c-----------------------------------------------------------------------
25       
26
27      data longdustvis/
28     & 0.210000E-06,0.414800E-05/
29      data epdustvis/2.5,2.5/
30      data omegdustvis/0.92,0.92/
31      data gdustvis/0.55,0.55/
32      data longdustir/
33     & 0.556000E-05,0.625000E-05,0.714000E-05,0.725000E-05,0.735000E-05
34     &,0.746000E-05,0.758000E-05,0.769000E-05,0.781000E-05,0.794000E-05
35     &,0.800000E-05,0.807000E-05,0.813000E-05,0.820000E-05,0.826000E-05
36     &,0.833000E-05,0.840000E-05,0.848000E-05,0.855000E-05,0.862000E-05
37     &,0.870000E-05,0.877000E-05,0.880000E-05,0.884956E-05,0.892857E-05
38     &,0.900901E-05,0.909091E-05,0.917431E-05,0.925926E-05,0.934579E-05
39     &,0.943396E-05,0.952381E-05,0.961539E-05,0.970874E-05,0.980392E-05
40     &,0.990099E-05,0.100000E-04,0.101010E-04,0.102041E-04,0.103093E-04
41     &,0.104167E-04,0.105263E-04,0.106383E-04,0.107527E-04,0.108696E-04
42     &,0.109890E-04,0.111111E-04,0.112360E-04,0.113636E-04,0.114942E-04
43     &,0.116279E-04,0.117647E-04,0.119048E-04,0.120482E-04,0.121951E-04
44     &,0.123457E-04,0.125000E-04,0.126582E-04,0.128205E-04,0.129870E-04
45     &,0.131579E-04,0.133333E-04,0.135135E-04,0.136986E-04,0.138889E-04
46     &,0.140845E-04,0.142857E-04,0.144928E-04,0.147059E-04,0.149254E-04
47     &,0.151515E-04,0.153846E-04,0.156250E-04,0.158730E-04,0.161290E-04
48     &,0.163934E-04,0.166667E-04,0.169492E-04,0.172414E-04,0.175439E-04
49     &,0.178571E-04,0.181818E-04,0.185185E-04,0.188679E-04,0.192308E-04
50     &,0.196078E-04,0.200000E-04,0.204082E-04,0.208333E-04,0.212766E-04
51     &,0.217391E-04,0.222222E-04,0.227273E-04,0.232558E-04,0.238095E-04
52     &,0.243902E-04,0.250000E-04,0.256410E-04,0.263158E-04,0.270270E-04
53     &,0.277778E-04,0.285714E-04,0.294118E-04,0.303030E-04,0.312500E-04
54     &,0.322581E-04,0.333333E-04,0.344828E-04,0.357143E-04,0.370370E-04
55     &,0.384615E-04,0.400000E-04,0.500000E-04,0.600000E-04,0.700000E-04
56     &,0.800000E-04,0.100000E-03,0.120000E-03,0.140000E-03,0.170000E-03
57     &,0.200000E-03,0.230000E-03,0.260000E-03,0.300000E-03/
58      data epdustir/
59     & 1.8223799,1.3646801,0.6918110,0.6400360,0.6000190
60     &,0.5436750,0.5075750,0.5349990,0.5741300,0.6528150
61     &,0.7026240,0.8045070,0.9152510,0.9964510,1.1199900
62     &,1.2508200,1.4647000,1.6723000,1.7668300,1.8770100
63     &,2.0622301,2.2681601,2.3134601,2.3844199,2.4568000
64     &,2.4623699,2.5139699,2.7634001,3.1062000,3.2699001
65     &,3.0982399,2.8657801,2.7559099,2.6911600,2.6657801
66     &,2.6558800,2.6744900,2.6645300,2.6016099,2.5456300
67     &,2.4316900,2.3356500,2.2314799,2.1130800,2.0792401
68     &,2.0617199,2.0427401,1.9252200,1.9074700,1.9007500
69     &,1.7614900,1.5749300,1.5687200,1.5357200,1.3301001
70     &,1.1643699,1.0552500,1.3750900,1.3406500,1.4579200
71     &,1.2703400,1.2499200,0.9752970,1.0887500,1.0551100
72     &,0.8680390,0.9080590,0.9270510,0.8930280,0.7252980
73     &,0.7761930,0.7722600,0.6197060,0.8046810,0.9906260
74     &,1.1675600,1.3232200,1.4563700,1.5742900,1.6683700
75     &,1.6386300,1.6082799,1.5773100,1.5452300,1.5131000
76     &,1.4803500,1.4470100,1.4130900,1.3785900,1.3430200
77     &,1.3074800,1.2714100,1.2348300,1.1977800,1.1602700
78     &,1.1218801,1.0836500,1.0450701,1.0062100,0.9670900
79     &,0.9273350,0.8879470,0.8485210,0.8090940,0.7697440
80     &,0.7305380,0.6912350,0.6527100,0.6146080,0.5770320
81     &,0.5400900,0.5038810,0.3378440,0.2453480,0.1899010
82     &,0.1543380,0.1124400,0.0889283,0.0739620,0.0593130
83     &,0.0496814,0.0428006,0.0376627,0.0324836/
84      data omegdustir/
85     & 0.9455460,0.9255780,0.6110340,0.5893190,0.4896250
86     &,0.3736060,0.2719810,0.1933450,0.1591350,0.1584020
87     &,0.1842620,0.2511510,0.2616600,0.2910640,0.3243100
88     &,0.3532210,0.3744530,0.3675350,0.3614250,0.3678870
89     &,0.3820890,0.3866010,0.3842250,0.3821830,0.3814160
90     &,0.3779760,0.3837150,0.4103900,0.4473680,0.4952290
91     &,0.5245740,0.5125160,0.4980300,0.4833010,0.4788940
92     &,0.4769360,0.4898900,0.5542500,0.5697640,0.6304710
93     &,0.6634610,0.6500820,0.6469200,0.6292330,0.5847980
94     &,0.5847600,0.6166800,0.6622360,0.6334560,0.6793890
95     &,0.7708860,0.7351760,0.6715080,0.7118780,0.8014710
96     &,0.7203560,0.5123400,0.4070190,0.4575710,0.4804760
97     &,0.5493510,0.5477680,0.5564710,0.5089200,0.5221230
98     &,0.5291490,0.4292840,0.4024670,0.4110070,0.3907940
99     &,0.3085770,0.2905000,0.2411480,0.3065880,0.3493080
100     &,0.3836540,0.4065040,0.4211960,0.4325340,0.4396850
101     &,0.4379220,0.4360720,0.4341270,0.4320340,0.4298880
102     &,0.4276300,0.4252520,0.4227480,0.4201070,0.4172670
103     &,0.4143320,0.4112310,0.4079530,0.4044860,0.4008160
104     &,0.3968690,0.3927530,0.3883870,0.3837510,0.3788250
105     &,0.3735170,0.3679440,0.3620120,0.3556900,0.3489460
106     &,0.3417450,0.3339700,0.3257680,0.3170010,0.3076270
107     &,0.2976060,0.2868930,0.2218360,0.1676840,0.1255320
108     &,0.0942349,0.0544707,0.0330144,0.0214071,0.0119898
109     &,0.0073572,0.0047672,0.0033577,0.0022074/
110      data gdustir/
111     & 0.7727880,0.7891680,0.8149010,0.8143680,0.8141810
112     &,0.8135650,0.8105500,0.8033680,0.7936510,0.7786140
113     &,0.7633720,0.7376310,0.7232250,0.7045770,0.6794170
114     &,0.6532190,0.6216970,0.6061300,0.6006830,0.5882300
115     &,0.5672470,0.5528980,0.5515480,0.5486130,0.5436640
116     &,0.5431460,0.5333350,0.5041380,0.4678710,0.4283810
117     &,0.4064880,0.4156190,0.4282650,0.4454850,0.4535160
118     &,0.4693080,0.4752720,0.4885620,0.5029940,0.5025310
119     &,0.5189140,0.5377080,0.5533670,0.5710530,0.5778970
120     &,0.5762890,0.5706920,0.5760510,0.5783530,0.5683710
121     &,0.5678870,0.5920300,0.5962880,0.5909690,0.5981750
122     &,0.6187920,0.6339570,0.6020770,0.6024800,0.5877340
123     &,0.5985190,0.5957170,0.6125820,0.6001100,0.5978010
124     &,0.6065740,0.5983230,0.5910160,0.5887040,0.5944530
125     &,0.5810070,0.5743440,0.5758550,0.5615340,0.5437820
126     &,0.5243770,0.5039760,0.4829940,0.4609260,0.4389000
127     &,0.4355460,0.4321260,0.4286380,0.4247460,0.4211400
128     &,0.4174550,0.4136880,0.4098350,0.4058920,0.4015100
129     &,0.3974090,0.3932030,0.3888870,0.3844560,0.3799040
130     &,0.3748690,0.3700950,0.3651760,0.3601050,0.3548730
131     &,0.3490900,0.3435280,0.3377980,0.3318590,0.3256990
132     &,0.3192870,0.3122380,0.3053810,0.2982310,0.2907650
133     &,0.2829610,0.2747820,0.2274640,0.1885150,0.1562300
134     &,0.1306820,0.0917524,0.0638560,0.0486232,0.0311882
135     &,0.0219897,0.0157278,0.0129793,0.0101294/
Note: See TracBrowser for help on using the repository browser.