LMDZ
suaerh.F90
Go to the documentation of this file.
1 SUBROUTINE suaerh
2 
3 
4 !**** *SUAERH* - SETS UP THE AEROSOL HORIZONTAL DISTRIBUTION
5 
6 ! PURPOSE.
7 ! --------
8 
9 ! THIS ROUTINE FETCHES VALUES OF A T10 SPECTRAL DISTRIBUTION
10 ! FOR FOUR AEROSOL TYPES OF DIFFERENT ORIGINS (SEA,LAND,URBAN AREAS
11 ! AND DESERTS). THE VALUES TO BE OBTAINED ARE BETWEEN ZERO AND ONE.
12 
13 !** INTERFACE.
14 ! ----------
15 
16 ! THERE ARE EIGHT DUMMY ARGUMENTS: *PAESC*, *PAESS*, *PAELC*,
17 ! *PAELS*, *PAEUC*, *PAEUS*, *PAEDC* AND *PAEDS*ARE ARRAYS FOR THE
18 ! T10 DISTRIBUTIONS (*S FOR SEA, *L FOR LAND, *U FOR URBAN AND *D
19 ! FOR DESERT, *C FOR COSINE AND *S FOR SINE).
20 
21 ! METHOD.
22 ! -------
23 
24 ! NONE.
25 
26 ! EXTERNALS.
27 ! ----------
28 
29 ! NONE.
30 
31 ! REFERENCE.
32 ! ----------
33 
34 ! NONE.
35 
36 ! AUTHOR
37 ! ------
38 ! J.-F. GELEYN E.C.M.W.F. 29/09/82.
39 
40 ! MODIFICATIONS
41 ! -------------
42 ! J.-J. MORCRETTE E.C.M.W.F. 91/07/14 ADAPTATION TO I.F.S.
43 
44 ! ------------------------------------------------------------------
45 
46 
47 #include "tsmbkind.h"
48 
49 USE yoeaerd , ONLY : rcaeros ,raesc ,raess ,raelc ,&
50  &raels ,raeuc ,raeus ,raedc ,raeds
51 
52 
53 IMPLICIT NONE
54 
55 
56 ! ------------------------------------------------------------------
57 
58 !* DATA STATEMENTS.
59 ! ---- -----------
60 
61 ! *RAE S/L/U/D C/S* (SEE ABOVE).
62 
63 raesc = (/&
64 &+.6688e+00_jprb,-.1172e+00_jprb,-.1013e+00_jprb,+.1636e-01_jprb,-.3699e-01_jprb,+.1775e-01_jprb,&
65  &-.9635e-02_jprb,+.1290e-02_jprb,+.4681e-04_jprb,-.9106e-04_jprb,+.9355e-04_jprb,&
66  &-.7076e-01_jprb,-.1782e-01_jprb,+.1856e-01_jprb,+.1372e-01_jprb,+.8210e-04_jprb,&
67  &+.2149e-02_jprb,+.4856e-03_jprb,+.2231e-03_jprb,+.1824e-03_jprb,+.1960e-05_jprb,&
68  &+.2057e-01_jprb,+.2703e-01_jprb,+.2424e-01_jprb,+.9716e-02_jprb,&
69  &+.1312e-02_jprb,-.8846e-03_jprb,-.3347e-03_jprb,+.6231e-04_jprb,+.6397e-04_jprb,&
70  &-.3341e-02_jprb,-.1295e-01_jprb,-.4598e-02_jprb,&
71  &+.3242e-03_jprb,+.8122e-03_jprb,-.2975e-03_jprb,-.7757e-04_jprb,+.7793e-04_jprb,&
72  &+.4455e-02_jprb,-.1584e-01_jprb,&
73  &-.2551e-02_jprb,+.1174e-02_jprb,+.1335e-04_jprb,+.5112e-04_jprb,+.5605e-04_jprb,&
74  &+.7412e-04_jprb,&
75  &+.1857e-02_jprb,-.1917e-03_jprb,+.4460e-03_jprb,+.1767e-04_jprb,-.5281e-04_jprb,&
76  &-.5043e-03_jprb,+.2467e-03_jprb,-.2497e-03_jprb,-.2377e-04_jprb,-.3954e-04_jprb,&
77  &+.2666e-03_jprb,-.8186e-03_jprb,-.1441e-03_jprb,-.1904e-04_jprb,&
78  &+.3337e-03_jprb,-.1696e-03_jprb,-.2503e-04_jprb,&
79  &+.1239e-03_jprb,-.9983e-04_jprb,&
80  &-.5283e-04_jprb &
81  &/)
82 raess = (/&
83  &-.3374e-01_jprb,-.3247e-01_jprb,-.1012e-01_jprb,+.6002e-02_jprb,+.5190e-02_jprb,&
84  &+.7784e-03_jprb,-.1090e-02_jprb,+.3294e-03_jprb,+.1719e-03_jprb,-.5866e-05_jprb,&
85  &-.4124e-03_jprb,-.3742e-01_jprb,-.5054e-02_jprb,+.3430e-02_jprb,&
86  &+.5513e-03_jprb,-.6235e-03_jprb,+.2892e-03_jprb,-.9730e-04_jprb,+.7078e-04_jprb,&
87  &-.3300e-01_jprb,+.5104e-03_jprb,-.2156e-02_jprb,&
88  &-.3194e-02_jprb,-.5079e-03_jprb,-.5517e-03_jprb,+.4632e-04_jprb,+.5369e-04_jprb,&
89  &-.2731e-01_jprb,+.5126e-02_jprb,&
90  &+.2241e-02_jprb,-.5789e-03_jprb,-.3048e-03_jprb,-.1774e-03_jprb,+.1946e-05_jprb,&
91  &-.8247e-02_jprb,&
92  &+.2338e-02_jprb,+.1021e-02_jprb,+.1575e-04_jprb,+.2612e-05_jprb,+.1995e-04_jprb,&
93  &-.1319e-02_jprb,+.1384e-02_jprb,-.4159e-03_jprb,-.2337e-03_jprb,+.5764e-04_jprb,&
94  &+.1495e-02_jprb,-.3727e-03_jprb,+.6075e-04_jprb,-.4642e-04_jprb,&
95  &+.5368e-03_jprb,-.7619e-04_jprb,+.3774e-04_jprb,&
96  &+.1206e-03_jprb,-.4104e-06_jprb,&
97  &+.2158e-04_jprb &
98  &/)
99 raelc = (/&
100 &+.1542e+00_jprb,+.8245e-01_jprb,-.1879e-03_jprb,+.4864e-02_jprb,-.5527e-02_jprb,-.7966e-02_jprb,&
101  &-.2683e-02_jprb,-.2011e-02_jprb,-.8889e-03_jprb,-.1058e-03_jprb,-.1614e-04_jprb,&
102  &+.4206e-01_jprb,+.1912e-01_jprb,-.9476e-02_jprb,-.6780e-02_jprb,+.1767e-03_jprb,&
103  &-.5422e-03_jprb,-.7753e-03_jprb,-.2106e-03_jprb,-.9870e-04_jprb,-.1721e-04_jprb,&
104  &-.9536e-02_jprb,-.9580e-02_jprb,-.1050e-01_jprb,-.5747e-02_jprb,&
105  &-.1282e-02_jprb,+.2248e-03_jprb,+.1694e-03_jprb,-.4782e-04_jprb,-.2441e-04_jprb,&
106  &+.5781e-03_jprb,+.6212e-02_jprb,+.1921e-02_jprb,&
107  &-.1102e-02_jprb,-.8145e-03_jprb,+.2497e-03_jprb,+.1539e-03_jprb,-.2538e-04_jprb,&
108  &-.3993e-02_jprb,+.9777e-02_jprb,&
109  &+.4837e-03_jprb,-.1304e-02_jprb,+.2417e-04_jprb,-.1370e-04_jprb,-.3731e-05_jprb,&
110  &+.1922e-02_jprb,&
111  &-.5167e-03_jprb,+.4295e-03_jprb,-.1888e-03_jprb,+.2427e-04_jprb,+.4012e-04_jprb,&
112  &+.1529e-02_jprb,-.2120e-03_jprb,+.8166e-04_jprb,+.2579e-04_jprb,+.3488e-04_jprb,&
113  &+.2140e-03_jprb,+.2274e-03_jprb,-.3447e-05_jprb,-.1075e-04_jprb,&
114  &-.1018e-03_jprb,+.2864e-04_jprb,+.3442e-04_jprb,&
115  &-.1002e-03_jprb,+.7117e-04_jprb,&
116  &+.2045e-04_jprb &
117  &/)
118 raels = (/&
119  &+.1637e-01_jprb,+.1935e-01_jprb,+.1080e-01_jprb,+.2784e-02_jprb,+.1606e-03_jprb,&
120  &+.1860e-02_jprb,+.1263e-02_jprb,-.2707e-03_jprb,-.2290e-03_jprb,-.9761e-05_jprb,&
121  &-.7317e-02_jprb,+.2465e-01_jprb,+.6799e-02_jprb,-.1913e-02_jprb,&
122  &+.1382e-02_jprb,+.6691e-03_jprb,+.1414e-03_jprb,+.3527e-04_jprb,-.5210e-04_jprb,&
123  &+.1873e-01_jprb,+.2977e-02_jprb,+.4650e-02_jprb,&
124  &+.2509e-02_jprb,+.3680e-03_jprb,+.1481e-03_jprb,-.6594e-04_jprb,-.5634e-04_jprb,&
125  &+.1592e-01_jprb,-.1875e-02_jprb,&
126  &-.1093e-02_jprb,+.3022e-03_jprb,+.2625e-03_jprb,+.3252e-04_jprb,-.3803e-04_jprb,&
127  &+.4218e-02_jprb,&
128  &-.1843e-02_jprb,-.1351e-02_jprb,-.2952e-03_jprb,-.8171e-05_jprb,-.1473e-04_jprb,&
129  &+.9076e-03_jprb,-.1057e-02_jprb,+.2676e-03_jprb,+.1307e-03_jprb,-.3628e-04_jprb,&
130  &-.9158e-03_jprb,+.4335e-03_jprb,+.2927e-04_jprb,+.6602e-04_jprb,&
131  &-.3570e-03_jprb,+.5760e-04_jprb,-.3465e-04_jprb,&
132  &-.8535e-04_jprb,-.2011e-04_jprb,&
133  &+.6612e-06_jprb &
134  &/)
135 raeuc = (/&
136 &+.8005e-01_jprb,+.7095e-01_jprb,+.2014e-01_jprb,-.1412e-01_jprb,-.2425e-01_jprb,-.1332e-01_jprb,&
137  &-.2904e-02_jprb,+.5068e-03_jprb,+.9369e-03_jprb,+.4114e-03_jprb,+.7549e-04_jprb,&
138  &+.1922e-01_jprb,+.2534e-01_jprb,+.2088e-01_jprb,+.1064e-01_jprb,+.1063e-02_jprb,&
139  &-.2526e-02_jprb,-.2091e-02_jprb,-.9660e-03_jprb,-.2030e-03_jprb,+.3865e-04_jprb,&
140  &-.9900e-02_jprb,-.5964e-02_jprb,+.2223e-02_jprb,+.4941e-02_jprb,&
141  &+.3277e-02_jprb,+.1038e-02_jprb,-.1480e-03_jprb,-.2844e-03_jprb,-.1208e-03_jprb,&
142  &+.3999e-02_jprb,+.6282e-02_jprb,+.2813e-02_jprb,&
143  &+.1475e-02_jprb,+.4571e-03_jprb,-.1349e-03_jprb,-.9011e-04_jprb,-.1936e-04_jprb,&
144  &+.1994e-02_jprb,+.3540e-02_jprb,&
145  &+.8837e-03_jprb,+.1992e-03_jprb,+.3092e-04_jprb,-.7979e-04_jprb,-.2664e-04_jprb,&
146  &-.5006e-04_jprb,&
147  &+.6447e-03_jprb,+.5550e-03_jprb,+.1197e-03_jprb,+.6657e-04_jprb,+.1488e-04_jprb,&
148  &-.9141e-04_jprb,-.2896e-03_jprb,-.1561e-03_jprb,-.6524e-04_jprb,-.1559e-04_jprb,&
149  &-.1082e-03_jprb,-.4126e-03_jprb,-.1732e-03_jprb,-.8286e-04_jprb,&
150  &-.1993e-04_jprb,+.3850e-04_jprb,+.2870e-04_jprb,&
151  &+.4493e-04_jprb,+.4721e-04_jprb,&
152  &+.1338e-04_jprb &
153  &/)
154 raeus = (/&
155  &+.6646e-02_jprb,+.8373e-02_jprb,+.5463e-02_jprb,+.4554e-02_jprb,+.3301e-02_jprb,&
156  &+.5725e-03_jprb,-.7482e-03_jprb,-.6222e-03_jprb,-.2603e-03_jprb,-.5127e-04_jprb,&
157  &-.3849e-04_jprb,+.9741e-02_jprb,+.8190e-02_jprb,+.5712e-02_jprb,&
158  &+.3039e-02_jprb,+.5290e-03_jprb,-.2044e-03_jprb,-.2309e-03_jprb,-.1160e-03_jprb,&
159  &+.9160e-02_jprb,+.1286e-01_jprb,+.1170e-01_jprb,&
160  &+.5491e-02_jprb,+.1393e-02_jprb,-.6288e-04_jprb,-.2715e-03_jprb,-.1047e-03_jprb,&
161  &+.4873e-02_jprb,+.3545e-02_jprb,&
162  &+.3069e-02_jprb,+.1819e-02_jprb,+.6947e-03_jprb,+.1416e-03_jprb,-.1538e-04_jprb,&
163  &-.4351e-03_jprb,&
164  &-.1907e-02_jprb,-.5774e-03_jprb,-.2247e-03_jprb,+.5345e-04_jprb,+.9052e-04_jprb,&
165  &-.3972e-04_jprb,-.9665e-04_jprb,+.7912e-04_jprb,-.1094e-04_jprb,-.6776e-05_jprb,&
166  &+.2724e-03_jprb,+.1973e-03_jprb,+.6837e-04_jprb,+.4313e-04_jprb,&
167  &-.7174e-05_jprb,+.8527e-05_jprb,-.2160e-05_jprb,&
168  &-.7852e-04_jprb,+.3453e-06_jprb,&
169  &-.2402e-05_jprb &
170  &/)
171 raedc = (/&
172 &+.2840e-01_jprb,+.1775e-01_jprb,-.1069e-01_jprb,-.1553e-01_jprb,-.3299e-02_jprb,+.3583e-02_jprb,&
173  &+.2274e-02_jprb,+.5767e-04_jprb,-.3678e-03_jprb,-.1050e-03_jprb,+.2133e-04_jprb,&
174  &+.2326e-01_jprb,+.1566e-01_jprb,-.3130e-02_jprb,-.8253e-02_jprb,-.2615e-02_jprb,&
175  &+.1247e-02_jprb,+.1059e-02_jprb,+.1196e-03_jprb,-.1303e-03_jprb,-.5094e-04_jprb,&
176  &+.1185e-01_jprb,+.7238e-02_jprb,-.1562e-02_jprb,-.3665e-02_jprb,&
177  &-.1182e-02_jprb,+.4678e-03_jprb,+.4448e-03_jprb,+.8307e-04_jprb,-.3468e-04_jprb,&
178  &+.5273e-02_jprb,+.3037e-02_jprb,-.4014e-03_jprb,&
179  &-.1202e-02_jprb,-.4647e-03_jprb,+.5148e-04_jprb,+.1014e-03_jprb,+.2996e-04_jprb,&
180  &+.2505e-02_jprb,+.1495e-02_jprb,&
181  &+.2438e-03_jprb,-.1223e-03_jprb,-.7669e-04_jprb,-.1638e-04_jprb,+.1869e-05_jprb,&
182  &+.1094e-02_jprb,&
183  &+.6131e-03_jprb,+.1508e-03_jprb,+.1765e-04_jprb,+.1360e-05_jprb,-.7998e-06_jprb,&
184  &+.4475e-03_jprb,+.2737e-03_jprb,+.6430e-04_jprb,-.6759e-05_jprb,-.6761e-05_jprb,&
185  &+.1992e-03_jprb,+.1531e-03_jprb,+.4828e-04_jprb,+.5103e-06_jprb,&
186  &+.7454e-04_jprb,+.5917e-04_jprb,+.2152e-04_jprb,&
187  &+.9300e-05_jprb,+.9790e-05_jprb,&
188  &-.8853e-05_jprb &
189  &/)
190 raeds = (/&
191  &+.9815e-02_jprb,+.8436e-02_jprb,+.1087e-02_jprb,-.2717e-02_jprb,-.1755e-02_jprb,&
192  &-.1559e-03_jprb,+.2367e-03_jprb,+.8808e-04_jprb,+.2001e-05_jprb,-.1244e-05_jprb,&
193  &+.1041e-01_jprb,+.8039e-02_jprb,+.1005e-02_jprb,-.1981e-02_jprb,&
194  &-.1090e-02_jprb,+.1595e-05_jprb,+.1787e-03_jprb,+.4644e-04_jprb,-.1052e-04_jprb,&
195  &+.6593e-02_jprb,+.3983e-02_jprb,-.1527e-03_jprb,&
196  &-.1235e-02_jprb,-.5078e-03_jprb,+.3649e-04_jprb,+.1005e-03_jprb,+.3182e-04_jprb,&
197  &+.3225e-02_jprb,+.1672e-02_jprb,&
198  &-.7752e-04_jprb,-.4312e-03_jprb,-.1872e-03_jprb,-.1666e-04_jprb,+.1872e-04_jprb,&
199  &+.1133e-02_jprb,&
200  &+.5643e-03_jprb,+.7747e-04_jprb,-.2980e-04_jprb,-.2092e-04_jprb,-.8590e-05_jprb,&
201  &+.2988e-03_jprb,+.6714e-04_jprb,-.6249e-05_jprb,+.1052e-04_jprb,+.8790e-05_jprb,&
202  &+.1569e-03_jprb,-.1175e-04_jprb,-.3033e-04_jprb,-.9777e-06_jprb,&
203  &+.1101e-03_jprb,+.6827e-05_jprb,-.1023e-04_jprb,&
204  &+.4231e-04_jprb,+.4905e-05_jprb,&
205  &+.6229e-05_jprb &
206  &/)
207 
208 ! ------------------------------------------------------------------
209 rcaeros= 0.1462e-16_jprb
210 ! ------------------------------------------------------------------
211 
212 RETURN
213 END SUBROUTINE suaerh
suaerh
subroutine suaerh
Definition: suaerh.F90:2
yoeaerd::raelc
real(kind=jprb), dimension(66) raelc
Definition: yoeaerd.F90:20
yoeaerd::raedc
real(kind=jprb), dimension(66) raedc
Definition: yoeaerd.F90:24
yoeaerd::raeus
real(kind=jprb), dimension(55) raeus
Definition: yoeaerd.F90:23
yoeaerd::raeuc
real(kind=jprb), dimension(66) raeuc
Definition: yoeaerd.F90:22
yoeaerd::raess
real(kind=jprb), dimension(55) raess
Definition: yoeaerd.F90:19
yoeaerd::rcaeros
real(kind=jprb) rcaeros
Definition: yoeaerd.F90:37
yoeaerd::raesc
real(kind=jprb), dimension(66) raesc
Definition: yoeaerd.F90:18
yoeaerd::raeds
real(kind=jprb), dimension(55) raeds
Definition: yoeaerd.F90:25
yoeaerd::raels
real(kind=jprb), dimension(55) raels
Definition: yoeaerd.F90:21