LMDZ
suaerh.F90
Go to the documentation of this file.
1 SUBROUTINE suaerh
2 
3 !**** *SUAERH* - SETS UP THE AEROSOL HORIZONTAL DISTRIBUTION
4 
5 ! PURPOSE.
6 ! --------
7 
8 ! THIS ROUTINE FETCHES VALUES OF A T10 SPECTRAL DISTRIBUTION
9 ! FOR FOUR AEROSOL TYPES OF DIFFERENT ORIGINS (SEA,LAND,URBAN AREAS
10 ! AND DESERTS). THE VALUES TO BE OBTAINED ARE BETWEEN ZERO AND ONE.
11 
12 !** INTERFACE.
13 ! ----------
14 
15 ! THERE ARE EIGHT DUMMY ARGUMENTS: *PAESC*, *PAESS*, *PAELC*,
16 ! *PAELS*, *PAEUC*, *PAEUS*, *PAEDC* AND *PAEDS*ARE ARRAYS FOR THE
17 ! T10 DISTRIBUTIONS (*S FOR SEA, *L FOR LAND, *U FOR URBAN AND *D
18 ! FOR DESERT, *C FOR COSINE AND *S FOR SINE).
19 
20 ! METHOD.
21 ! -------
22 
23 ! NONE.
24 
25 ! EXTERNALS.
26 ! ----------
27 
28 ! NONE.
29 
30 ! REFERENCE.
31 ! ----------
32 
33 ! NONE.
34 
35 ! AUTHOR
36 ! ------
37 ! J.-F. GELEYN E.C.M.W.F. 29/09/82.
38 
39 ! MODIFICATIONS
40 ! -------------
41 ! J.-J. MORCRETTE E.C.M.W.F. 91/07/14 ADAPTATION TO I.F.S.
42 ! M.Hamrud 01-Oct-2003 CY28 Cleaning
43 
44 ! ------------------------------------------------------------------
45 
46 USE parkind1 ,ONLY : jpim ,jprb
47 USE yomhook ,ONLY : lhook, dr_hook
48 
49 USE yoeaerd , ONLY : rcaeros ,raesc ,raess ,raelc ,&
50  & raels ,raeuc ,raeus ,raedc ,raeds
51 
52 IMPLICIT NONE
53 
54 ! ------------------------------------------------------------------
55 
56 !* DATA STATEMENTS.
57 ! ---- -----------
58 
59 ! *RAE S/L/U/D C/S* (SEE ABOVE).
60 
61 REAL(KIND=JPRB) :: ZHOOK_HANDLE
62 IF (lhook) CALL dr_hook('SUAERH',0,zhook_handle)
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 IF (lhook) CALL dr_hook('SUAERH',1,zhook_handle)
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
parkind1::jprb
integer, parameter jprb
Definition: parkind1.F90:31
yomhook::lhook
logical lhook
Definition: yomhook.F90:12
yoeaerd::rcaeros
real(kind=jprb) rcaeros
Definition: yoeaerd.F90:37
yoeaerd::raesc
real(kind=jprb), dimension(66) raesc
Definition: yoeaerd.F90:18
yomhook::dr_hook
subroutine dr_hook(CDNAME, KSWITCH, PKEY)
Definition: yomhook.F90:17
parkind1::jpim
integer, parameter jpim
Definition: parkind1.F90:13
yoeaerd::raeds
real(kind=jprb), dimension(55) raeds
Definition: yoeaerd.F90:25
yoeaerd::raels
real(kind=jprb), dimension(55) raels
Definition: yoeaerd.F90:21