LMDZ
suecaebc_11.F90
Go to the documentation of this file.
1 SUBROUTINE suecaebc_11
2 
3 !** OPTICAL THICKNESS OF BLACK CARBON AEROSOLS (URBAN/FOREST FIRE ORIGIN)
4 ! November
5 
6 ! PURPOSE.
7 ! --------
8 
9 !** INTERFACE.
10 ! ----------
11 ! CALL *SUECAEBC* FROM *SUECRAD*
12 
13 ! EXPLICIT ARGUMENTS :
14 ! --------------------
15 ! ==== INPUTS ===
16 ! ==== OUTPUTS ===
17 
18 ! IMPLICIT ARGUMENTS : NONE
19 ! --------------------
20 
21 ! METHOD.
22 ! -------
23 
24 
25 ! EXTERNALS.
26 ! ----------
27 
28 ! NONE
29 
30 ! REFERENCE.
31 ! ----------
32 
33 ! SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
34 ! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
35 
36 ! AUTHOR.
37 ! -------
38 ! J.-J. MORCRETTE E.C.M.W.F. 98/12/21
39 
40 ! MODIFICATIONS.
41 ! --------------
42 ! H. GALLEE L.G.G.E. 04/01/15: split for the NEC SX5
43 
44 !-----------------------------------------------------------------------
45 
46 #include "tsmbkind.h"
47 
48 USE yoeaerc , ONLY : raerbc
49 
50 
51 IMPLICIT NONE
52 
53 
54 ! -----------------------------------------------------------------
55 
56 !* 0.1 ARGUMENTS.
57 ! ----------
58 
59 ! -----------------------------------------------------------------
60 
61 !* 0.2 LOCAL ARRAYS.
62 ! -------------
63 
64 real_b :: zaer(72,46,11:11)
65 
66 ! LOCAL INTEGER SCALARS
67 integer_m :: ji, jl, jm
68 
69 ! LOCAL REAL SCALARS
70 real_b :: zmax, zmin
71 
72 ! ------------------------------------------------------------------
73 
74 !-- Tegen et al., 1997
75 
76 !-- Black Carbon Aerosol month: 11 --- lat: 1 90.0
77 zaer(:, 1,11) = (/&
78 &.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,&
79 &.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,&
80 &.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,&
81 &.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,&
82 &.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,&
83 &.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,&
84 &.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,&
85 &.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,&
86 &.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,&
87 &.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,.860e-04_jprb,&
88 &.860e-04_jprb,.860e-04_jprb/)
89 !-- Black Carbon Aerosol month: 11 --- lat: 2 86.0
90 zaer(:, 2,11) = (/&
91 &.884e-04_jprb,.884e-04_jprb,.887e-04_jprb,.889e-04_jprb,.890e-04_jprb,.891e-04_jprb,.892e-04_jprb,&
92 &.892e-04_jprb,.892e-04_jprb,.892e-04_jprb,.891e-04_jprb,.891e-04_jprb,.890e-04_jprb,.889e-04_jprb,&
93 &.888e-04_jprb,.887e-04_jprb,.886e-04_jprb,.885e-04_jprb,.883e-04_jprb,.882e-04_jprb,.881e-04_jprb,&
94 &.879e-04_jprb,.878e-04_jprb,.877e-04_jprb,.874e-04_jprb,.873e-04_jprb,.871e-04_jprb,.867e-04_jprb,&
95 &.865e-04_jprb,.862e-04_jprb,.859e-04_jprb,.856e-04_jprb,.853e-04_jprb,.849e-04_jprb,.846e-04_jprb,&
96 &.844e-04_jprb,.841e-04_jprb,.837e-04_jprb,.835e-04_jprb,.833e-04_jprb,.831e-04_jprb,.830e-04_jprb,&
97 &.829e-04_jprb,.828e-04_jprb,.827e-04_jprb,.827e-04_jprb,.827e-04_jprb,.827e-04_jprb,.828e-04_jprb,&
98 &.829e-04_jprb,.830e-04_jprb,.830e-04_jprb,.832e-04_jprb,.833e-04_jprb,.834e-04_jprb,.837e-04_jprb,&
99 &.839e-04_jprb,.840e-04_jprb,.843e-04_jprb,.846e-04_jprb,.848e-04_jprb,.850e-04_jprb,.854e-04_jprb,&
100 &.857e-04_jprb,.860e-04_jprb,.865e-04_jprb,.867e-04_jprb,.870e-04_jprb,.875e-04_jprb,.877e-04_jprb,&
101 &.880e-04_jprb,.884e-04_jprb/)
102 !-- Black Carbon Aerosol month: 11 --- lat: 3 82.0
103 zaer(:, 3,11) = (/&
104 &.949e-04_jprb,.949e-04_jprb,.958e-04_jprb,.960e-04_jprb,.961e-04_jprb,.960e-04_jprb,.957e-04_jprb,&
105 &.955e-04_jprb,.949e-04_jprb,.944e-04_jprb,.940e-04_jprb,.934e-04_jprb,.929e-04_jprb,.926e-04_jprb,&
106 &.922e-04_jprb,.919e-04_jprb,.917e-04_jprb,.915e-04_jprb,.913e-04_jprb,.913e-04_jprb,.912e-04_jprb,&
107 &.912e-04_jprb,.912e-04_jprb,.912e-04_jprb,.912e-04_jprb,.911e-04_jprb,.910e-04_jprb,.904e-04_jprb,&
108 &.898e-04_jprb,.893e-04_jprb,.882e-04_jprb,.872e-04_jprb,.863e-04_jprb,.850e-04_jprb,.839e-04_jprb,&
109 &.831e-04_jprb,.820e-04_jprb,.810e-04_jprb,.804e-04_jprb,.797e-04_jprb,.792e-04_jprb,.789e-04_jprb,&
110 &.786e-04_jprb,.785e-04_jprb,.785e-04_jprb,.785e-04_jprb,.788e-04_jprb,.790e-04_jprb,.792e-04_jprb,&
111 &.797e-04_jprb,.800e-04_jprb,.802e-04_jprb,.807e-04_jprb,.809e-04_jprb,.812e-04_jprb,.815e-04_jprb,&
112 &.817e-04_jprb,.819e-04_jprb,.823e-04_jprb,.827e-04_jprb,.831e-04_jprb,.837e-04_jprb,.847e-04_jprb,&
113 &.854e-04_jprb,.864e-04_jprb,.879e-04_jprb,.889e-04_jprb,.900e-04_jprb,.917e-04_jprb,.927e-04_jprb,&
114 &.936e-04_jprb,.949e-04_jprb/)
115 !-- Black Carbon Aerosol month: 11 --- lat: 4 78.0
116 zaer(:, 4,11) = (/&
117 &.107e-03_jprb,.107e-03_jprb,.108e-03_jprb,.108e-03_jprb,.107e-03_jprb,.106e-03_jprb,.105e-03_jprb,&
118 &.104e-03_jprb,.102e-03_jprb,.100e-03_jprb,.988e-04_jprb,.972e-04_jprb,.961e-04_jprb,.954e-04_jprb,&
119 &.945e-04_jprb,.939e-04_jprb,.937e-04_jprb,.935e-04_jprb,.936e-04_jprb,.938e-04_jprb,.941e-04_jprb,&
120 &.950e-04_jprb,.956e-04_jprb,.963e-04_jprb,.976e-04_jprb,.981e-04_jprb,.986e-04_jprb,.986e-04_jprb,&
121 &.980e-04_jprb,.973e-04_jprb,.954e-04_jprb,.935e-04_jprb,.919e-04_jprb,.892e-04_jprb,.869e-04_jprb,&
122 &.853e-04_jprb,.830e-04_jprb,.811e-04_jprb,.800e-04_jprb,.786e-04_jprb,.777e-04_jprb,.773e-04_jprb,&
123 &.769e-04_jprb,.769e-04_jprb,.771e-04_jprb,.774e-04_jprb,.785e-04_jprb,.792e-04_jprb,.800e-04_jprb,&
124 &.812e-04_jprb,.819e-04_jprb,.824e-04_jprb,.829e-04_jprb,.830e-04_jprb,.830e-04_jprb,.827e-04_jprb,&
125 &.823e-04_jprb,.820e-04_jprb,.817e-04_jprb,.817e-04_jprb,.819e-04_jprb,.826e-04_jprb,.840e-04_jprb,&
126 &.852e-04_jprb,.871e-04_jprb,.902e-04_jprb,.923e-04_jprb,.950e-04_jprb,.990e-04_jprb,.101e-03_jprb,&
127 &.103e-03_jprb,.106e-03_jprb/)
128 !-- Black Carbon Aerosol month: 11 --- lat: 5 74.0
129 zaer(:, 5,11) = (/&
130 &.121e-03_jprb,.121e-03_jprb,.123e-03_jprb,.122e-03_jprb,.121e-03_jprb,.118e-03_jprb,.115e-03_jprb,&
131 &.113e-03_jprb,.109e-03_jprb,.106e-03_jprb,.104e-03_jprb,.102e-03_jprb,.998e-04_jprb,.987e-04_jprb,&
132 &.975e-04_jprb,.967e-04_jprb,.964e-04_jprb,.961e-04_jprb,.964e-04_jprb,.967e-04_jprb,.972e-04_jprb,&
133 &.987e-04_jprb,.999e-04_jprb,.101e-03_jprb,.104e-03_jprb,.106e-03_jprb,.107e-03_jprb,.109e-03_jprb,&
134 &.109e-03_jprb,.108e-03_jprb,.106e-03_jprb,.104e-03_jprb,.102e-03_jprb,.979e-04_jprb,.947e-04_jprb,&
135 &.924e-04_jprb,.893e-04_jprb,.866e-04_jprb,.850e-04_jprb,.831e-04_jprb,.819e-04_jprb,.814e-04_jprb,&
136 &.809e-04_jprb,.811e-04_jprb,.816e-04_jprb,.823e-04_jprb,.845e-04_jprb,.860e-04_jprb,.875e-04_jprb,&
137 &.902e-04_jprb,.911e-04_jprb,.919e-04_jprb,.921e-04_jprb,.914e-04_jprb,.906e-04_jprb,.887e-04_jprb,&
138 &.869e-04_jprb,.855e-04_jprb,.836e-04_jprb,.826e-04_jprb,.823e-04_jprb,.826e-04_jprb,.840e-04_jprb,&
139 &.856e-04_jprb,.882e-04_jprb,.928e-04_jprb,.963e-04_jprb,.101e-03_jprb,.108e-03_jprb,.112e-03_jprb,&
140 &.116e-03_jprb,.121e-03_jprb/)
141 !-- Black Carbon Aerosol month: 11 --- lat: 6 70.0
142 zaer(:, 6,11) = (/&
143 &.135e-03_jprb,.136e-03_jprb,.138e-03_jprb,.137e-03_jprb,.136e-03_jprb,.130e-03_jprb,.126e-03_jprb,&
144 &.123e-03_jprb,.118e-03_jprb,.114e-03_jprb,.111e-03_jprb,.108e-03_jprb,.106e-03_jprb,.105e-03_jprb,&
145 &.103e-03_jprb,.103e-03_jprb,.102e-03_jprb,.102e-03_jprb,.102e-03_jprb,.102e-03_jprb,.102e-03_jprb,&
146 &.103e-03_jprb,.104e-03_jprb,.105e-03_jprb,.108e-03_jprb,.111e-03_jprb,.113e-03_jprb,.116e-03_jprb,&
147 &.117e-03_jprb,.117e-03_jprb,.115e-03_jprb,.114e-03_jprb,.112e-03_jprb,.108e-03_jprb,.106e-03_jprb,&
148 &.103e-03_jprb,.101e-03_jprb,.982e-04_jprb,.968e-04_jprb,.951e-04_jprb,.939e-04_jprb,.934e-04_jprb,&
149 &.929e-04_jprb,.930e-04_jprb,.934e-04_jprb,.939e-04_jprb,.963e-04_jprb,.984e-04_jprb,.101e-03_jprb,&
150 &.105e-03_jprb,.106e-03_jprb,.107e-03_jprb,.107e-03_jprb,.105e-03_jprb,.103e-03_jprb,.994e-04_jprb,&
151 &.961e-04_jprb,.936e-04_jprb,.902e-04_jprb,.884e-04_jprb,.876e-04_jprb,.873e-04_jprb,.886e-04_jprb,&
152 &.902e-04_jprb,.930e-04_jprb,.987e-04_jprb,.103e-03_jprb,.109e-03_jprb,.119e-03_jprb,.124e-03_jprb,&
153 &.129e-03_jprb,.135e-03_jprb/)
154 !-- Black Carbon Aerosol month: 11 --- lat: 7 66.0
155 zaer(:, 7,11) = (/&
156 &.150e-03_jprb,.150e-03_jprb,.152e-03_jprb,.152e-03_jprb,.150e-03_jprb,.144e-03_jprb,.140e-03_jprb,&
157 &.136e-03_jprb,.131e-03_jprb,.126e-03_jprb,.123e-03_jprb,.119e-03_jprb,.116e-03_jprb,.114e-03_jprb,&
158 &.113e-03_jprb,.112e-03_jprb,.112e-03_jprb,.111e-03_jprb,.110e-03_jprb,.110e-03_jprb,.109e-03_jprb,&
159 &.108e-03_jprb,.109e-03_jprb,.109e-03_jprb,.111e-03_jprb,.113e-03_jprb,.115e-03_jprb,.118e-03_jprb,&
160 &.119e-03_jprb,.119e-03_jprb,.119e-03_jprb,.119e-03_jprb,.119e-03_jprb,.117e-03_jprb,.116e-03_jprb,&
161 &.116e-03_jprb,.115e-03_jprb,.115e-03_jprb,.114e-03_jprb,.114e-03_jprb,.114e-03_jprb,.114e-03_jprb,&
162 &.113e-03_jprb,.113e-03_jprb,.113e-03_jprb,.112e-03_jprb,.113e-03_jprb,.115e-03_jprb,.118e-03_jprb,&
163 &.122e-03_jprb,.124e-03_jprb,.125e-03_jprb,.124e-03_jprb,.121e-03_jprb,.119e-03_jprb,.113e-03_jprb,&
164 &.109e-03_jprb,.106e-03_jprb,.102e-03_jprb,.100e-03_jprb,.997e-04_jprb,.994e-04_jprb,.101e-03_jprb,&
165 &.103e-03_jprb,.106e-03_jprb,.112e-03_jprb,.117e-03_jprb,.122e-03_jprb,.133e-03_jprb,.138e-03_jprb,&
166 &.143e-03_jprb,.150e-03_jprb/)
167 !-- Black Carbon Aerosol month: 11 --- lat: 8 62.0
168 zaer(:, 8,11) = (/&
169 &.163e-03_jprb,.163e-03_jprb,.165e-03_jprb,.165e-03_jprb,.165e-03_jprb,.161e-03_jprb,.156e-03_jprb,&
170 &.152e-03_jprb,.146e-03_jprb,.142e-03_jprb,.139e-03_jprb,.135e-03_jprb,.131e-03_jprb,.129e-03_jprb,&
171 &.127e-03_jprb,.125e-03_jprb,.123e-03_jprb,.121e-03_jprb,.119e-03_jprb,.117e-03_jprb,.116e-03_jprb,&
172 &.115e-03_jprb,.115e-03_jprb,.114e-03_jprb,.116e-03_jprb,.116e-03_jprb,.117e-03_jprb,.119e-03_jprb,&
173 &.119e-03_jprb,.119e-03_jprb,.120e-03_jprb,.121e-03_jprb,.122e-03_jprb,.124e-03_jprb,.126e-03_jprb,&
174 &.129e-03_jprb,.133e-03_jprb,.135e-03_jprb,.136e-03_jprb,.137e-03_jprb,.137e-03_jprb,.137e-03_jprb,&
175 &.137e-03_jprb,.135e-03_jprb,.134e-03_jprb,.132e-03_jprb,.133e-03_jprb,.134e-03_jprb,.135e-03_jprb,&
176 &.140e-03_jprb,.141e-03_jprb,.142e-03_jprb,.140e-03_jprb,.137e-03_jprb,.135e-03_jprb,.131e-03_jprb,&
177 &.128e-03_jprb,.125e-03_jprb,.121e-03_jprb,.118e-03_jprb,.118e-03_jprb,.118e-03_jprb,.120e-03_jprb,&
178 &.122e-03_jprb,.125e-03_jprb,.131e-03_jprb,.135e-03_jprb,.141e-03_jprb,.151e-03_jprb,.155e-03_jprb,&
179 &.159e-03_jprb,.163e-03_jprb/)
180 !-- Black Carbon Aerosol month: 11 --- lat: 9 58.0
181 zaer(:, 9,11) = (/&
182 &.181e-03_jprb,.182e-03_jprb,.184e-03_jprb,.184e-03_jprb,.184e-03_jprb,.179e-03_jprb,.174e-03_jprb,&
183 &.170e-03_jprb,.163e-03_jprb,.160e-03_jprb,.157e-03_jprb,.153e-03_jprb,.149e-03_jprb,.146e-03_jprb,&
184 &.143e-03_jprb,.139e-03_jprb,.136e-03_jprb,.133e-03_jprb,.129e-03_jprb,.127e-03_jprb,.124e-03_jprb,&
185 &.123e-03_jprb,.124e-03_jprb,.125e-03_jprb,.126e-03_jprb,.126e-03_jprb,.127e-03_jprb,.126e-03_jprb,&
186 &.127e-03_jprb,.128e-03_jprb,.129e-03_jprb,.131e-03_jprb,.132e-03_jprb,.134e-03_jprb,.138e-03_jprb,&
187 &.142e-03_jprb,.148e-03_jprb,.153e-03_jprb,.155e-03_jprb,.155e-03_jprb,.156e-03_jprb,.156e-03_jprb,&
188 &.157e-03_jprb,.155e-03_jprb,.153e-03_jprb,.152e-03_jprb,.150e-03_jprb,.152e-03_jprb,.153e-03_jprb,&
189 &.158e-03_jprb,.159e-03_jprb,.159e-03_jprb,.157e-03_jprb,.156e-03_jprb,.155e-03_jprb,.154e-03_jprb,&
190 &.152e-03_jprb,.149e-03_jprb,.145e-03_jprb,.142e-03_jprb,.141e-03_jprb,.140e-03_jprb,.141e-03_jprb,&
191 &.143e-03_jprb,.147e-03_jprb,.153e-03_jprb,.158e-03_jprb,.165e-03_jprb,.174e-03_jprb,.177e-03_jprb,&
192 &.179e-03_jprb,.181e-03_jprb/)
193 !-- Black Carbon Aerosol month: 11 --- lat: 10 54.0
194 zaer(:,10,11) = (/&
195 &.205e-03_jprb,.205e-03_jprb,.207e-03_jprb,.206e-03_jprb,.205e-03_jprb,.199e-03_jprb,.192e-03_jprb,&
196 &.187e-03_jprb,.178e-03_jprb,.174e-03_jprb,.170e-03_jprb,.166e-03_jprb,.162e-03_jprb,.160e-03_jprb,&
197 &.158e-03_jprb,.154e-03_jprb,.151e-03_jprb,.147e-03_jprb,.143e-03_jprb,.140e-03_jprb,.138e-03_jprb,&
198 &.138e-03_jprb,.140e-03_jprb,.143e-03_jprb,.146e-03_jprb,.146e-03_jprb,.147e-03_jprb,.146e-03_jprb,&
199 &.147e-03_jprb,.147e-03_jprb,.150e-03_jprb,.152e-03_jprb,.153e-03_jprb,.155e-03_jprb,.157e-03_jprb,&
200 &.159e-03_jprb,.163e-03_jprb,.166e-03_jprb,.168e-03_jprb,.167e-03_jprb,.168e-03_jprb,.169e-03_jprb,&
201 &.171e-03_jprb,.172e-03_jprb,.171e-03_jprb,.169e-03_jprb,.167e-03_jprb,.167e-03_jprb,.168e-03_jprb,&
202 &.171e-03_jprb,.172e-03_jprb,.173e-03_jprb,.170e-03_jprb,.170e-03_jprb,.170e-03_jprb,.171e-03_jprb,&
203 &.170e-03_jprb,.169e-03_jprb,.166e-03_jprb,.163e-03_jprb,.162e-03_jprb,.160e-03_jprb,.162e-03_jprb,&
204 &.165e-03_jprb,.171e-03_jprb,.178e-03_jprb,.184e-03_jprb,.191e-03_jprb,.198e-03_jprb,.200e-03_jprb,&
205 &.202e-03_jprb,.205e-03_jprb/)
206 !-- Black Carbon Aerosol month: 11 --- lat: 11 50.0
207 zaer(:,11,11) = (/&
208 &.233e-03_jprb,.233e-03_jprb,.233e-03_jprb,.231e-03_jprb,.230e-03_jprb,.220e-03_jprb,.213e-03_jprb,&
209 &.206e-03_jprb,.194e-03_jprb,.188e-03_jprb,.184e-03_jprb,.180e-03_jprb,.177e-03_jprb,.176e-03_jprb,&
210 &.176e-03_jprb,.173e-03_jprb,.170e-03_jprb,.166e-03_jprb,.162e-03_jprb,.160e-03_jprb,.158e-03_jprb,&
211 &.159e-03_jprb,.164e-03_jprb,.169e-03_jprb,.175e-03_jprb,.176e-03_jprb,.177e-03_jprb,.178e-03_jprb,&
212 &.180e-03_jprb,.183e-03_jprb,.187e-03_jprb,.188e-03_jprb,.188e-03_jprb,.189e-03_jprb,.190e-03_jprb,&
213 &.190e-03_jprb,.191e-03_jprb,.191e-03_jprb,.191e-03_jprb,.193e-03_jprb,.192e-03_jprb,.192e-03_jprb,&
214 &.193e-03_jprb,.193e-03_jprb,.192e-03_jprb,.190e-03_jprb,.188e-03_jprb,.186e-03_jprb,.184e-03_jprb,&
215 &.181e-03_jprb,.181e-03_jprb,.182e-03_jprb,.184e-03_jprb,.187e-03_jprb,.189e-03_jprb,.192e-03_jprb,&
216 &.192e-03_jprb,.191e-03_jprb,.188e-03_jprb,.187e-03_jprb,.186e-03_jprb,.188e-03_jprb,.190e-03_jprb,&
217 &.195e-03_jprb,.205e-03_jprb,.214e-03_jprb,.219e-03_jprb,.224e-03_jprb,.232e-03_jprb,.233e-03_jprb,&
218 &.233e-03_jprb,.233e-03_jprb/)
219 !-- Black Carbon Aerosol month: 11 --- lat: 12 46.0
220 zaer(:,12,11) = (/&
221 &.270e-03_jprb,.269e-03_jprb,.259e-03_jprb,.256e-03_jprb,.253e-03_jprb,.240e-03_jprb,.230e-03_jprb,&
222 &.222e-03_jprb,.210e-03_jprb,.203e-03_jprb,.199e-03_jprb,.196e-03_jprb,.195e-03_jprb,.195e-03_jprb,&
223 &.196e-03_jprb,.193e-03_jprb,.191e-03_jprb,.187e-03_jprb,.185e-03_jprb,.184e-03_jprb,.183e-03_jprb,&
224 &.186e-03_jprb,.194e-03_jprb,.203e-03_jprb,.222e-03_jprb,.235e-03_jprb,.247e-03_jprb,.262e-03_jprb,&
225 &.263e-03_jprb,.263e-03_jprb,.260e-03_jprb,.253e-03_jprb,.248e-03_jprb,.241e-03_jprb,.242e-03_jprb,&
226 &.242e-03_jprb,.238e-03_jprb,.233e-03_jprb,.233e-03_jprb,.239e-03_jprb,.239e-03_jprb,.239e-03_jprb,&
227 &.238e-03_jprb,.231e-03_jprb,.227e-03_jprb,.221e-03_jprb,.217e-03_jprb,.212e-03_jprb,.206e-03_jprb,&
228 &.202e-03_jprb,.202e-03_jprb,.203e-03_jprb,.212e-03_jprb,.219e-03_jprb,.224e-03_jprb,.230e-03_jprb,&
229 &.230e-03_jprb,.229e-03_jprb,.224e-03_jprb,.224e-03_jprb,.224e-03_jprb,.226e-03_jprb,.236e-03_jprb,&
230 &.246e-03_jprb,.262e-03_jprb,.270e-03_jprb,.269e-03_jprb,.266e-03_jprb,.275e-03_jprb,.278e-03_jprb,&
231 &.280e-03_jprb,.270e-03_jprb/)
232 !-- Black Carbon Aerosol month: 11 --- lat: 13 42.0
233 zaer(:,13,11) = (/&
234 &.311e-03_jprb,.310e-03_jprb,.287e-03_jprb,.281e-03_jprb,.275e-03_jprb,.260e-03_jprb,.249e-03_jprb,&
235 &.240e-03_jprb,.230e-03_jprb,.223e-03_jprb,.218e-03_jprb,.213e-03_jprb,.212e-03_jprb,.212e-03_jprb,&
236 &.213e-03_jprb,.212e-03_jprb,.211e-03_jprb,.211e-03_jprb,.211e-03_jprb,.211e-03_jprb,.211e-03_jprb,&
237 &.221e-03_jprb,.240e-03_jprb,.261e-03_jprb,.352e-03_jprb,.415e-03_jprb,.471e-03_jprb,.457e-03_jprb,&
238 &.420e-03_jprb,.389e-03_jprb,.351e-03_jprb,.339e-03_jprb,.328e-03_jprb,.305e-03_jprb,.301e-03_jprb,&
239 &.299e-03_jprb,.297e-03_jprb,.294e-03_jprb,.301e-03_jprb,.317e-03_jprb,.336e-03_jprb,.339e-03_jprb,&
240 &.338e-03_jprb,.314e-03_jprb,.299e-03_jprb,.282e-03_jprb,.272e-03_jprb,.261e-03_jprb,.250e-03_jprb,&
241 &.247e-03_jprb,.250e-03_jprb,.254e-03_jprb,.271e-03_jprb,.281e-03_jprb,.288e-03_jprb,.292e-03_jprb,&
242 &.289e-03_jprb,.285e-03_jprb,.276e-03_jprb,.273e-03_jprb,.274e-03_jprb,.279e-03_jprb,.307e-03_jprb,&
243 &.328e-03_jprb,.359e-03_jprb,.359e-03_jprb,.343e-03_jprb,.318e-03_jprb,.321e-03_jprb,.326e-03_jprb,&
244 &.333e-03_jprb,.311e-03_jprb/)
245 !-- Black Carbon Aerosol month: 11 --- lat: 14 38.0
246 zaer(:,14,11) = (/&
247 &.351e-03_jprb,.350e-03_jprb,.326e-03_jprb,.317e-03_jprb,.308e-03_jprb,.288e-03_jprb,.276e-03_jprb,&
248 &.267e-03_jprb,.256e-03_jprb,.247e-03_jprb,.240e-03_jprb,.232e-03_jprb,.230e-03_jprb,.232e-03_jprb,&
249 &.236e-03_jprb,.239e-03_jprb,.240e-03_jprb,.241e-03_jprb,.241e-03_jprb,.242e-03_jprb,.243e-03_jprb,&
250 &.280e-03_jprb,.334e-03_jprb,.393e-03_jprb,.720e-03_jprb,.870e-03_jprb,.992e-03_jprb,.754e-03_jprb,&
251 &.612e-03_jprb,.498e-03_jprb,.411e-03_jprb,.395e-03_jprb,.381e-03_jprb,.353e-03_jprb,.350e-03_jprb,&
252 &.352e-03_jprb,.360e-03_jprb,.373e-03_jprb,.398e-03_jprb,.447e-03_jprb,.499e-03_jprb,.505e-03_jprb,&
253 &.496e-03_jprb,.447e-03_jprb,.422e-03_jprb,.395e-03_jprb,.372e-03_jprb,.356e-03_jprb,.339e-03_jprb,&
254 &.338e-03_jprb,.340e-03_jprb,.342e-03_jprb,.360e-03_jprb,.367e-03_jprb,.370e-03_jprb,.366e-03_jprb,&
255 &.357e-03_jprb,.351e-03_jprb,.343e-03_jprb,.339e-03_jprb,.340e-03_jprb,.349e-03_jprb,.410e-03_jprb,&
256 &.447e-03_jprb,.491e-03_jprb,.484e-03_jprb,.454e-03_jprb,.408e-03_jprb,.377e-03_jprb,.374e-03_jprb,&
257 &.374e-03_jprb,.352e-03_jprb/)
258 !-- Black Carbon Aerosol month: 11 --- lat: 15 34.0
259 zaer(:,15,11) = (/&
260 &.402e-03_jprb,.401e-03_jprb,.380e-03_jprb,.369e-03_jprb,.359e-03_jprb,.335e-03_jprb,.319e-03_jprb,&
261 &.307e-03_jprb,.290e-03_jprb,.278e-03_jprb,.269e-03_jprb,.258e-03_jprb,.259e-03_jprb,.262e-03_jprb,&
262 &.271e-03_jprb,.275e-03_jprb,.275e-03_jprb,.272e-03_jprb,.273e-03_jprb,.280e-03_jprb,.291e-03_jprb,&
263 &.403e-03_jprb,.503e-03_jprb,.612e-03_jprb,.126e-02_jprb,.148e-02_jprb,.165e-02_jprb,.111e-02_jprb,&
264 &.821e-03_jprb,.598e-03_jprb,.464e-03_jprb,.436e-03_jprb,.416e-03_jprb,.394e-03_jprb,.406e-03_jprb,&
265 &.415e-03_jprb,.431e-03_jprb,.469e-03_jprb,.517e-03_jprb,.604e-03_jprb,.686e-03_jprb,.702e-03_jprb,&
266 &.700e-03_jprb,.652e-03_jprb,.616e-03_jprb,.574e-03_jprb,.521e-03_jprb,.494e-03_jprb,.468e-03_jprb,&
267 &.456e-03_jprb,.455e-03_jprb,.455e-03_jprb,.464e-03_jprb,.462e-03_jprb,.458e-03_jprb,.443e-03_jprb,&
268 &.429e-03_jprb,.423e-03_jprb,.431e-03_jprb,.428e-03_jprb,.428e-03_jprb,.435e-03_jprb,.525e-03_jprb,&
269 &.571e-03_jprb,.618e-03_jprb,.626e-03_jprb,.597e-03_jprb,.547e-03_jprb,.453e-03_jprb,.433e-03_jprb,&
270 &.419e-03_jprb,.402e-03_jprb/)
271 !-- Black Carbon Aerosol month: 11 --- lat: 16 30.0
272 zaer(:,16,11) = (/&
273 &.461e-03_jprb,.460e-03_jprb,.435e-03_jprb,.427e-03_jprb,.418e-03_jprb,.393e-03_jprb,.373e-03_jprb,&
274 &.356e-03_jprb,.330e-03_jprb,.317e-03_jprb,.308e-03_jprb,.300e-03_jprb,.302e-03_jprb,.306e-03_jprb,&
275 &.314e-03_jprb,.310e-03_jprb,.305e-03_jprb,.298e-03_jprb,.304e-03_jprb,.331e-03_jprb,.371e-03_jprb,&
276 &.576e-03_jprb,.688e-03_jprb,.802e-03_jprb,.153e-02_jprb,.181e-02_jprb,.203e-02_jprb,.139e-02_jprb,&
277 &.102e-02_jprb,.724e-03_jprb,.535e-03_jprb,.495e-03_jprb,.471e-03_jprb,.461e-03_jprb,.492e-03_jprb,&
278 &.514e-03_jprb,.545e-03_jprb,.612e-03_jprb,.673e-03_jprb,.770e-03_jprb,.895e-03_jprb,.958e-03_jprb,&
279 &.102e-02_jprb,.980e-03_jprb,.907e-03_jprb,.813e-03_jprb,.695e-03_jprb,.648e-03_jprb,.604e-03_jprb,&
280 &.584e-03_jprb,.586e-03_jprb,.588e-03_jprb,.590e-03_jprb,.574e-03_jprb,.558e-03_jprb,.521e-03_jprb,&
281 &.505e-03_jprb,.503e-03_jprb,.533e-03_jprb,.527e-03_jprb,.524e-03_jprb,.522e-03_jprb,.605e-03_jprb,&
282 &.646e-03_jprb,.686e-03_jprb,.731e-03_jprb,.720e-03_jprb,.689e-03_jprb,.540e-03_jprb,.505e-03_jprb,&
283 &.480e-03_jprb,.462e-03_jprb/)
284 !-- Black Carbon Aerosol month: 11 --- lat: 17 26.0
285 zaer(:,17,11) = (/&
286 &.517e-03_jprb,.516e-03_jprb,.478e-03_jprb,.472e-03_jprb,.464e-03_jprb,.443e-03_jprb,.422e-03_jprb,&
287 &.404e-03_jprb,.372e-03_jprb,.361e-03_jprb,.355e-03_jprb,.353e-03_jprb,.356e-03_jprb,.356e-03_jprb,&
288 &.356e-03_jprb,.341e-03_jprb,.332e-03_jprb,.320e-03_jprb,.343e-03_jprb,.396e-03_jprb,.471e-03_jprb,&
289 &.714e-03_jprb,.776e-03_jprb,.828e-03_jprb,.138e-02_jprb,.172e-02_jprb,.201e-02_jprb,.160e-02_jprb,&
290 &.123e-02_jprb,.930e-03_jprb,.666e-03_jprb,.605e-03_jprb,.571e-03_jprb,.570e-03_jprb,.622e-03_jprb,&
291 &.661e-03_jprb,.714e-03_jprb,.819e-03_jprb,.891e-03_jprb,.985e-03_jprb,.116e-02_jprb,.129e-02_jprb,&
292 &.147e-02_jprb,.141e-02_jprb,.127e-02_jprb,.110e-02_jprb,.897e-03_jprb,.813e-03_jprb,.733e-03_jprb,&
293 &.713e-03_jprb,.718e-03_jprb,.722e-03_jprb,.733e-03_jprb,.703e-03_jprb,.673e-03_jprb,.609e-03_jprb,&
294 &.591e-03_jprb,.591e-03_jprb,.631e-03_jprb,.624e-03_jprb,.616e-03_jprb,.601e-03_jprb,.650e-03_jprb,&
295 &.676e-03_jprb,.703e-03_jprb,.768e-03_jprb,.773e-03_jprb,.762e-03_jprb,.614e-03_jprb,.578e-03_jprb,&
296 &.552e-03_jprb,.518e-03_jprb/)
297 !-- Black Carbon Aerosol month: 11 --- lat: 18 22.0
298 zaer(:,18,11) = (/&
299 &.557e-03_jprb,.555e-03_jprb,.501e-03_jprb,.495e-03_jprb,.489e-03_jprb,.474e-03_jprb,.456e-03_jprb,&
300 &.439e-03_jprb,.409e-03_jprb,.403e-03_jprb,.402e-03_jprb,.408e-03_jprb,.409e-03_jprb,.406e-03_jprb,&
301 &.399e-03_jprb,.380e-03_jprb,.370e-03_jprb,.359e-03_jprb,.406e-03_jprb,.481e-03_jprb,.583e-03_jprb,&
302 &.775e-03_jprb,.778e-03_jprb,.765e-03_jprb,.115e-02_jprb,.152e-02_jprb,.186e-02_jprb,.178e-02_jprb,&
303 &.148e-02_jprb,.122e-02_jprb,.893e-03_jprb,.785e-03_jprb,.727e-03_jprb,.738e-03_jprb,.804e-03_jprb,&
304 &.852e-03_jprb,.913e-03_jprb,.110e-02_jprb,.120e-02_jprb,.129e-02_jprb,.143e-02_jprb,.160e-02_jprb,&
305 &.185e-02_jprb,.179e-02_jprb,.160e-02_jprb,.136e-02_jprb,.108e-02_jprb,.958e-03_jprb,.845e-03_jprb,&
306 &.819e-03_jprb,.819e-03_jprb,.820e-03_jprb,.840e-03_jprb,.807e-03_jprb,.775e-03_jprb,.703e-03_jprb,&
307 &.683e-03_jprb,.681e-03_jprb,.716e-03_jprb,.709e-03_jprb,.697e-03_jprb,.669e-03_jprb,.693e-03_jprb,&
308 &.707e-03_jprb,.722e-03_jprb,.764e-03_jprb,.765e-03_jprb,.755e-03_jprb,.657e-03_jprb,.633e-03_jprb,&
309 &.614e-03_jprb,.559e-03_jprb/)
310 !-- Black Carbon Aerosol month: 11 --- lat: 19 18.0
311 zaer(:,19,11) = (/&
312 &.573e-03_jprb,.571e-03_jprb,.503e-03_jprb,.499e-03_jprb,.496e-03_jprb,.490e-03_jprb,.478e-03_jprb,&
313 &.467e-03_jprb,.444e-03_jprb,.441e-03_jprb,.443e-03_jprb,.454e-03_jprb,.455e-03_jprb,.453e-03_jprb,&
314 &.447e-03_jprb,.437e-03_jprb,.436e-03_jprb,.437e-03_jprb,.521e-03_jprb,.619e-03_jprb,.749e-03_jprb,&
315 &.858e-03_jprb,.856e-03_jprb,.845e-03_jprb,.118e-02_jprb,.151e-02_jprb,.181e-02_jprb,.191e-02_jprb,&
316 &.172e-02_jprb,.153e-02_jprb,.118e-02_jprb,.103e-02_jprb,.957e-03_jprb,.998e-03_jprb,.106e-02_jprb,&
317 &.110e-02_jprb,.116e-02_jprb,.144e-02_jprb,.154e-02_jprb,.159e-02_jprb,.159e-02_jprb,.173e-02_jprb,&
318 &.199e-02_jprb,.203e-02_jprb,.182e-02_jprb,.153e-02_jprb,.113e-02_jprb,.101e-02_jprb,.907e-03_jprb,&
319 &.869e-03_jprb,.862e-03_jprb,.858e-03_jprb,.877e-03_jprb,.854e-03_jprb,.831e-03_jprb,.780e-03_jprb,&
320 &.767e-03_jprb,.767e-03_jprb,.794e-03_jprb,.783e-03_jprb,.768e-03_jprb,.737e-03_jprb,.753e-03_jprb,&
321 &.762e-03_jprb,.772e-03_jprb,.761e-03_jprb,.743e-03_jprb,.718e-03_jprb,.667e-03_jprb,.653e-03_jprb,&
322 &.641e-03_jprb,.575e-03_jprb/)
323 !-- Black Carbon Aerosol month: 11 --- lat: 20 14.0
324 zaer(:,20,11) = (/&
325 &.564e-03_jprb,.562e-03_jprb,.494e-03_jprb,.492e-03_jprb,.491e-03_jprb,.496e-03_jprb,.494e-03_jprb,&
326 &.491e-03_jprb,.485e-03_jprb,.481e-03_jprb,.481e-03_jprb,.489e-03_jprb,.499e-03_jprb,.503e-03_jprb,&
327 &.506e-03_jprb,.515e-03_jprb,.534e-03_jprb,.568e-03_jprb,.715e-03_jprb,.856e-03_jprb,.104e-02_jprb,&
328 &.113e-02_jprb,.116e-02_jprb,.118e-02_jprb,.152e-02_jprb,.176e-02_jprb,.198e-02_jprb,.210e-02_jprb,&
329 &.196e-02_jprb,.182e-02_jprb,.147e-02_jprb,.136e-02_jprb,.132e-02_jprb,.140e-02_jprb,.145e-02_jprb,&
330 &.149e-02_jprb,.157e-02_jprb,.178e-02_jprb,.181e-02_jprb,.172e-02_jprb,.160e-02_jprb,.170e-02_jprb,&
331 &.193e-02_jprb,.220e-02_jprb,.197e-02_jprb,.160e-02_jprb,.110e-02_jprb,.999e-03_jprb,.919e-03_jprb,&
332 &.872e-03_jprb,.865e-03_jprb,.861e-03_jprb,.875e-03_jprb,.863e-03_jprb,.852e-03_jprb,.831e-03_jprb,&
333 &.860e-03_jprb,.883e-03_jprb,.919e-03_jprb,.888e-03_jprb,.867e-03_jprb,.839e-03_jprb,.852e-03_jprb,&
334 &.858e-03_jprb,.862e-03_jprb,.785e-03_jprb,.739e-03_jprb,.688e-03_jprb,.654e-03_jprb,.643e-03_jprb,&
335 &.634e-03_jprb,.566e-03_jprb/)
336 !-- Black Carbon Aerosol month: 11 --- lat: 21 10.0
337 zaer(:,21,11) = (/&
338 &.565e-03_jprb,.562e-03_jprb,.492e-03_jprb,.486e-03_jprb,.482e-03_jprb,.490e-03_jprb,.496e-03_jprb,&
339 &.500e-03_jprb,.507e-03_jprb,.505e-03_jprb,.507e-03_jprb,.520e-03_jprb,.545e-03_jprb,.562e-03_jprb,&
340 &.583e-03_jprb,.620e-03_jprb,.670e-03_jprb,.750e-03_jprb,.986e-03_jprb,.119e-02_jprb,.145e-02_jprb,&
341 &.169e-02_jprb,.176e-02_jprb,.182e-02_jprb,.224e-02_jprb,.245e-02_jprb,.263e-02_jprb,.260e-02_jprb,&
342 &.235e-02_jprb,.213e-02_jprb,.178e-02_jprb,.185e-02_jprb,.191e-02_jprb,.202e-02_jprb,.210e-02_jprb,&
343 &.218e-02_jprb,.233e-02_jprb,.227e-02_jprb,.215e-02_jprb,.192e-02_jprb,.177e-02_jprb,.182e-02_jprb,&
344 &.199e-02_jprb,.224e-02_jprb,.199e-02_jprb,.160e-02_jprb,.113e-02_jprb,.103e-02_jprb,.939e-03_jprb,&
345 &.864e-03_jprb,.856e-03_jprb,.850e-03_jprb,.860e-03_jprb,.863e-03_jprb,.867e-03_jprb,.883e-03_jprb,&
346 &.102e-02_jprb,.111e-02_jprb,.120e-02_jprb,.112e-02_jprb,.108e-02_jprb,.103e-02_jprb,.103e-02_jprb,&
347 &.103e-02_jprb,.103e-02_jprb,.849e-03_jprb,.766e-03_jprb,.681e-03_jprb,.651e-03_jprb,.641e-03_jprb,&
348 &.631e-03_jprb,.567e-03_jprb/)
349 !-- Black Carbon Aerosol month: 11 --- lat: 22 6.0
350 zaer(:,22,11) = (/&
351 &.602e-03_jprb,.600e-03_jprb,.518e-03_jprb,.499e-03_jprb,.484e-03_jprb,.483e-03_jprb,.490e-03_jprb,&
352 &.496e-03_jprb,.504e-03_jprb,.510e-03_jprb,.520e-03_jprb,.544e-03_jprb,.589e-03_jprb,.621e-03_jprb,&
353 &.665e-03_jprb,.742e-03_jprb,.825e-03_jprb,.953e-03_jprb,.125e-02_jprb,.151e-02_jprb,.184e-02_jprb,&
354 &.247e-02_jprb,.264e-02_jprb,.277e-02_jprb,.332e-02_jprb,.356e-02_jprb,.376e-02_jprb,.343e-02_jprb,&
355 &.291e-02_jprb,.251e-02_jprb,.227e-02_jprb,.259e-02_jprb,.281e-02_jprb,.296e-02_jprb,.316e-02_jprb,&
356 &.331e-02_jprb,.355e-02_jprb,.339e-02_jprb,.322e-02_jprb,.293e-02_jprb,.277e-02_jprb,.273e-02_jprb,&
357 &.274e-02_jprb,.240e-02_jprb,.207e-02_jprb,.167e-02_jprb,.126e-02_jprb,.113e-02_jprb,.101e-02_jprb,&
358 &.860e-03_jprb,.857e-03_jprb,.855e-03_jprb,.867e-03_jprb,.876e-03_jprb,.894e-03_jprb,.971e-03_jprb,&
359 &.124e-02_jprb,.140e-02_jprb,.154e-02_jprb,.148e-02_jprb,.143e-02_jprb,.134e-02_jprb,.131e-02_jprb,&
360 &.128e-02_jprb,.124e-02_jprb,.923e-03_jprb,.804e-03_jprb,.702e-03_jprb,.672e-03_jprb,.667e-03_jprb,&
361 &.665e-03_jprb,.604e-03_jprb/)
362 !-- Black Carbon Aerosol month: 11 --- lat: 23 2.0
363 zaer(:,23,11) = (/&
364 &.651e-03_jprb,.648e-03_jprb,.556e-03_jprb,.524e-03_jprb,.497e-03_jprb,.486e-03_jprb,.488e-03_jprb,&
365 &.493e-03_jprb,.509e-03_jprb,.520e-03_jprb,.534e-03_jprb,.567e-03_jprb,.621e-03_jprb,.667e-03_jprb,&
366 &.741e-03_jprb,.840e-03_jprb,.940e-03_jprb,.109e-02_jprb,.139e-02_jprb,.166e-02_jprb,.201e-02_jprb,&
367 &.314e-02_jprb,.345e-02_jprb,.370e-02_jprb,.419e-02_jprb,.442e-02_jprb,.460e-02_jprb,.390e-02_jprb,&
368 &.327e-02_jprb,.284e-02_jprb,.298e-02_jprb,.364e-02_jprb,.411e-02_jprb,.456e-02_jprb,.501e-02_jprb,&
369 &.531e-02_jprb,.566e-02_jprb,.556e-02_jprb,.552e-02_jprb,.548e-02_jprb,.523e-02_jprb,.513e-02_jprb,&
370 &.503e-02_jprb,.359e-02_jprb,.283e-02_jprb,.203e-02_jprb,.144e-02_jprb,.128e-02_jprb,.113e-02_jprb,&
371 &.915e-03_jprb,.918e-03_jprb,.924e-03_jprb,.975e-03_jprb,.973e-03_jprb,.996e-03_jprb,.115e-02_jprb,&
372 &.145e-02_jprb,.164e-02_jprb,.180e-02_jprb,.186e-02_jprb,.184e-02_jprb,.170e-02_jprb,.156e-02_jprb,&
373 &.149e-02_jprb,.140e-02_jprb,.959e-03_jprb,.824e-03_jprb,.732e-03_jprb,.703e-03_jprb,.702e-03_jprb,&
374 &.704e-03_jprb,.652e-03_jprb/)
375 !-- Black Carbon Aerosol month: 11 --- lat: 24 -2.0
376 zaer(:,24,11) = (/&
377 &.683e-03_jprb,.681e-03_jprb,.628e-03_jprb,.592e-03_jprb,.560e-03_jprb,.514e-03_jprb,.505e-03_jprb,&
378 &.503e-03_jprb,.519e-03_jprb,.534e-03_jprb,.550e-03_jprb,.583e-03_jprb,.640e-03_jprb,.689e-03_jprb,&
379 &.768e-03_jprb,.861e-03_jprb,.952e-03_jprb,.109e-02_jprb,.136e-02_jprb,.160e-02_jprb,.190e-02_jprb,&
380 &.325e-02_jprb,.365e-02_jprb,.400e-02_jprb,.410e-02_jprb,.412e-02_jprb,.410e-02_jprb,.334e-02_jprb,&
381 &.306e-02_jprb,.296e-02_jprb,.373e-02_jprb,.487e-02_jprb,.587e-02_jprb,.762e-02_jprb,.878e-02_jprb,&
382 &.927e-02_jprb,.929e-02_jprb,.872e-02_jprb,.847e-02_jprb,.826e-02_jprb,.838e-02_jprb,.821e-02_jprb,&
383 &.784e-02_jprb,.574e-02_jprb,.432e-02_jprb,.273e-02_jprb,.163e-02_jprb,.146e-02_jprb,.133e-02_jprb,&
384 &.116e-02_jprb,.120e-02_jprb,.125e-02_jprb,.145e-02_jprb,.146e-02_jprb,.153e-02_jprb,.194e-02_jprb,&
385 &.231e-02_jprb,.250e-02_jprb,.253e-02_jprb,.252e-02_jprb,.241e-02_jprb,.210e-02_jprb,.173e-02_jprb,&
386 &.155e-02_jprb,.136e-02_jprb,.974e-03_jprb,.860e-03_jprb,.787e-03_jprb,.743e-03_jprb,.729e-03_jprb,&
387 &.718e-03_jprb,.684e-03_jprb/)
388 !-- Black Carbon Aerosol month: 11 --- lat: 25 -6.0
389 zaer(:,25,11) = (/&
390 &.711e-03_jprb,.711e-03_jprb,.713e-03_jprb,.683e-03_jprb,.651e-03_jprb,.571e-03_jprb,.549e-03_jprb,&
391 &.534e-03_jprb,.528e-03_jprb,.527e-03_jprb,.533e-03_jprb,.555e-03_jprb,.601e-03_jprb,.648e-03_jprb,&
392 &.733e-03_jprb,.851e-03_jprb,.940e-03_jprb,.106e-02_jprb,.127e-02_jprb,.148e-02_jprb,.174e-02_jprb,&
393 &.291e-02_jprb,.314e-02_jprb,.331e-02_jprb,.301e-02_jprb,.289e-02_jprb,.277e-02_jprb,.252e-02_jprb,&
394 &.268e-02_jprb,.293e-02_jprb,.398e-02_jprb,.534e-02_jprb,.672e-02_jprb,.973e-02_jprb,.122e-01_jprb,&
395 &.130e-01_jprb,.122e-01_jprb,.102e-01_jprb,.927e-02_jprb,.851e-02_jprb,.843e-02_jprb,.820e-02_jprb,&
396 &.781e-02_jprb,.627e-02_jprb,.488e-02_jprb,.322e-02_jprb,.183e-02_jprb,.172e-02_jprb,.169e-02_jprb,&
397 &.171e-02_jprb,.191e-02_jprb,.209e-02_jprb,.239e-02_jprb,.261e-02_jprb,.294e-02_jprb,.412e-02_jprb,&
398 &.453e-02_jprb,.459e-02_jprb,.400e-02_jprb,.347e-02_jprb,.307e-02_jprb,.251e-02_jprb,.189e-02_jprb,&
399 &.161e-02_jprb,.135e-02_jprb,.103e-02_jprb,.936e-03_jprb,.872e-03_jprb,.781e-03_jprb,.749e-03_jprb,&
400 &.720e-03_jprb,.711e-03_jprb/)
401 !-- Black Carbon Aerosol month: 11 --- lat: 26 -10.0
402 zaer(:,26,11) = (/&
403 &.778e-03_jprb,.779e-03_jprb,.818e-03_jprb,.778e-03_jprb,.736e-03_jprb,.627e-03_jprb,.600e-03_jprb,&
404 &.579e-03_jprb,.551e-03_jprb,.535e-03_jprb,.530e-03_jprb,.539e-03_jprb,.575e-03_jprb,.617e-03_jprb,&
405 &.698e-03_jprb,.845e-03_jprb,.939e-03_jprb,.105e-02_jprb,.124e-02_jprb,.139e-02_jprb,.156e-02_jprb,&
406 &.232e-02_jprb,.238e-02_jprb,.238e-02_jprb,.188e-02_jprb,.175e-02_jprb,.165e-02_jprb,.182e-02_jprb,&
407 &.214e-02_jprb,.247e-02_jprb,.324e-02_jprb,.449e-02_jprb,.576e-02_jprb,.851e-02_jprb,.112e-01_jprb,&
408 &.121e-01_jprb,.110e-01_jprb,.903e-02_jprb,.790e-02_jprb,.662e-02_jprb,.612e-02_jprb,.592e-02_jprb,&
409 &.575e-02_jprb,.508e-02_jprb,.422e-02_jprb,.314e-02_jprb,.203e-02_jprb,.207e-02_jprb,.218e-02_jprb,&
410 &.274e-02_jprb,.312e-02_jprb,.346e-02_jprb,.371e-02_jprb,.427e-02_jprb,.504e-02_jprb,.762e-02_jprb,&
411 &.801e-02_jprb,.781e-02_jprb,.617e-02_jprb,.464e-02_jprb,.375e-02_jprb,.282e-02_jprb,.204e-02_jprb,&
412 &.169e-02_jprb,.140e-02_jprb,.114e-02_jprb,.105e-02_jprb,.978e-03_jprb,.829e-03_jprb,.780e-03_jprb,&
413 &.736e-03_jprb,.776e-03_jprb/)
414 !-- Black Carbon Aerosol month: 11 --- lat: 27 -14.0
415 zaer(:,27,11) = (/&
416 &.938e-03_jprb,.939e-03_jprb,.978e-03_jprb,.922e-03_jprb,.862e-03_jprb,.697e-03_jprb,.655e-03_jprb,&
417 &.625e-03_jprb,.597e-03_jprb,.582e-03_jprb,.579e-03_jprb,.591e-03_jprb,.612e-03_jprb,.642e-03_jprb,&
418 &.703e-03_jprb,.909e-03_jprb,.102e-02_jprb,.114e-02_jprb,.125e-02_jprb,.132e-02_jprb,.140e-02_jprb,&
419 &.170e-02_jprb,.167e-02_jprb,.161e-02_jprb,.127e-02_jprb,.119e-02_jprb,.112e-02_jprb,.127e-02_jprb,&
420 &.147e-02_jprb,.167e-02_jprb,.217e-02_jprb,.300e-02_jprb,.383e-02_jprb,.557e-02_jprb,.749e-02_jprb,&
421 &.806e-02_jprb,.731e-02_jprb,.615e-02_jprb,.529e-02_jprb,.409e-02_jprb,.359e-02_jprb,.354e-02_jprb,&
422 &.364e-02_jprb,.352e-02_jprb,.313e-02_jprb,.261e-02_jprb,.209e-02_jprb,.237e-02_jprb,.272e-02_jprb,&
423 &.404e-02_jprb,.465e-02_jprb,.520e-02_jprb,.564e-02_jprb,.643e-02_jprb,.749e-02_jprb,.110e-01_jprb,&
424 &.115e-01_jprb,.113e-01_jprb,.916e-02_jprb,.646e-02_jprb,.489e-02_jprb,.332e-02_jprb,.232e-02_jprb,&
425 &.189e-02_jprb,.153e-02_jprb,.129e-02_jprb,.120e-02_jprb,.112e-02_jprb,.950e-03_jprb,.891e-03_jprb,&
426 &.837e-03_jprb,.935e-03_jprb/)
427 !-- Black Carbon Aerosol month: 11 --- lat: 28 -18.0
428 zaer(:,28,11) = (/&
429 &.120e-02_jprb,.120e-02_jprb,.119e-02_jprb,.114e-02_jprb,.107e-02_jprb,.875e-03_jprb,.781e-03_jprb,&
430 &.714e-03_jprb,.652e-03_jprb,.647e-03_jprb,.653e-03_jprb,.683e-03_jprb,.713e-03_jprb,.734e-03_jprb,&
431 &.764e-03_jprb,.103e-02_jprb,.117e-02_jprb,.132e-02_jprb,.136e-02_jprb,.142e-02_jprb,.150e-02_jprb,&
432 &.142e-02_jprb,.132e-02_jprb,.121e-02_jprb,.102e-02_jprb,.964e-03_jprb,.915e-03_jprb,.961e-03_jprb,&
433 &.105e-02_jprb,.114e-02_jprb,.141e-02_jprb,.183e-02_jprb,.226e-02_jprb,.323e-02_jprb,.423e-02_jprb,&
434 &.451e-02_jprb,.403e-02_jprb,.339e-02_jprb,.294e-02_jprb,.234e-02_jprb,.214e-02_jprb,.221e-02_jprb,&
435 &.241e-02_jprb,.241e-02_jprb,.226e-02_jprb,.206e-02_jprb,.201e-02_jprb,.248e-02_jprb,.300e-02_jprb,&
436 &.470e-02_jprb,.547e-02_jprb,.626e-02_jprb,.787e-02_jprb,.873e-02_jprb,.985e-02_jprb,.135e-01_jprb,&
437 &.148e-01_jprb,.151e-01_jprb,.134e-01_jprb,.996e-02_jprb,.765e-02_jprb,.474e-02_jprb,.327e-02_jprb,&
438 &.262e-02_jprb,.206e-02_jprb,.164e-02_jprb,.147e-02_jprb,.133e-02_jprb,.116e-02_jprb,.112e-02_jprb,&
439 &.109e-02_jprb,.119e-02_jprb/)
440 !-- Black Carbon Aerosol month: 11 --- lat: 29 -22.0
441 zaer(:,29,11) = (/&
442 &.150e-02_jprb,.150e-02_jprb,.142e-02_jprb,.136e-02_jprb,.130e-02_jprb,.113e-02_jprb,.990e-03_jprb,&
443 &.881e-03_jprb,.751e-03_jprb,.725e-03_jprb,.729e-03_jprb,.788e-03_jprb,.866e-03_jprb,.897e-03_jprb,&
444 &.908e-03_jprb,.113e-02_jprb,.129e-02_jprb,.149e-02_jprb,.159e-02_jprb,.168e-02_jprb,.179e-02_jprb,&
445 &.150e-02_jprb,.131e-02_jprb,.112e-02_jprb,.974e-03_jprb,.931e-03_jprb,.891e-03_jprb,.869e-03_jprb,&
446 &.899e-03_jprb,.936e-03_jprb,.105e-02_jprb,.125e-02_jprb,.148e-02_jprb,.198e-02_jprb,.234e-02_jprb,&
447 &.239e-02_jprb,.205e-02_jprb,.176e-02_jprb,.162e-02_jprb,.150e-02_jprb,.154e-02_jprb,.166e-02_jprb,&
448 &.187e-02_jprb,.193e-02_jprb,.188e-02_jprb,.181e-02_jprb,.193e-02_jprb,.240e-02_jprb,.293e-02_jprb,&
449 &.453e-02_jprb,.521e-02_jprb,.593e-02_jprb,.783e-02_jprb,.854e-02_jprb,.961e-02_jprb,.135e-01_jprb,&
450 &.170e-01_jprb,.188e-01_jprb,.188e-01_jprb,.154e-01_jprb,.124e-01_jprb,.749e-02_jprb,.520e-02_jprb,&
451 &.416e-02_jprb,.326e-02_jprb,.246e-02_jprb,.211e-02_jprb,.177e-02_jprb,.152e-02_jprb,.148e-02_jprb,&
452 &.146e-02_jprb,.150e-02_jprb/)
453 !-- Black Carbon Aerosol month: 11 --- lat: 30 -26.0
454 zaer(:,30,11) = (/&
455 &.181e-02_jprb,.180e-02_jprb,.163e-02_jprb,.156e-02_jprb,.150e-02_jprb,.137e-02_jprb,.123e-02_jprb,&
456 &.112e-02_jprb,.943e-03_jprb,.886e-03_jprb,.878e-03_jprb,.945e-03_jprb,.110e-02_jprb,.115e-02_jprb,&
457 &.116e-02_jprb,.125e-02_jprb,.142e-02_jprb,.172e-02_jprb,.200e-02_jprb,.209e-02_jprb,.215e-02_jprb,&
458 &.178e-02_jprb,.153e-02_jprb,.128e-02_jprb,.108e-02_jprb,.103e-02_jprb,.985e-03_jprb,.904e-03_jprb,&
459 &.891e-03_jprb,.886e-03_jprb,.917e-03_jprb,.104e-02_jprb,.116e-02_jprb,.143e-02_jprb,.152e-02_jprb,&
460 &.150e-02_jprb,.131e-02_jprb,.123e-02_jprb,.124e-02_jprb,.131e-02_jprb,.146e-02_jprb,.161e-02_jprb,&
461 &.182e-02_jprb,.197e-02_jprb,.198e-02_jprb,.197e-02_jprb,.201e-02_jprb,.235e-02_jprb,.272e-02_jprb,&
462 &.400e-02_jprb,.437e-02_jprb,.475e-02_jprb,.555e-02_jprb,.582e-02_jprb,.660e-02_jprb,.105e-01_jprb,&
463 &.165e-01_jprb,.204e-01_jprb,.241e-01_jprb,.216e-01_jprb,.183e-01_jprb,.114e-01_jprb,.789e-02_jprb,&
464 &.632e-02_jprb,.500e-02_jprb,.378e-02_jprb,.318e-02_jprb,.254e-02_jprb,.210e-02_jprb,.197e-02_jprb,&
465 &.186e-02_jprb,.181e-02_jprb/)
466 !-- Black Carbon Aerosol month: 11 --- lat: 31 -30.0
467 zaer(:,31,11) = (/&
468 &.209e-02_jprb,.208e-02_jprb,.182e-02_jprb,.173e-02_jprb,.164e-02_jprb,.151e-02_jprb,.141e-02_jprb,&
469 &.132e-02_jprb,.118e-02_jprb,.113e-02_jprb,.113e-02_jprb,.121e-02_jprb,.141e-02_jprb,.147e-02_jprb,&
470 &.143e-02_jprb,.140e-02_jprb,.158e-02_jprb,.195e-02_jprb,.247e-02_jprb,.258e-02_jprb,.262e-02_jprb,&
471 &.220e-02_jprb,.192e-02_jprb,.162e-02_jprb,.128e-02_jprb,.120e-02_jprb,.112e-02_jprb,.985e-03_jprb,&
472 &.938e-03_jprb,.902e-03_jprb,.895e-03_jprb,.962e-03_jprb,.103e-02_jprb,.118e-02_jprb,.125e-02_jprb,&
473 &.129e-02_jprb,.134e-02_jprb,.138e-02_jprb,.147e-02_jprb,.165e-02_jprb,.186e-02_jprb,.204e-02_jprb,&
474 &.227e-02_jprb,.254e-02_jprb,.262e-02_jprb,.267e-02_jprb,.246e-02_jprb,.262e-02_jprb,.281e-02_jprb,&
475 &.366e-02_jprb,.365e-02_jprb,.362e-02_jprb,.324e-02_jprb,.320e-02_jprb,.364e-02_jprb,.675e-02_jprb,&
476 &.134e-01_jprb,.185e-01_jprb,.257e-01_jprb,.248e-01_jprb,.220e-01_jprb,.148e-01_jprb,.104e-01_jprb,&
477 &.839e-02_jprb,.662e-02_jprb,.507e-02_jprb,.429e-02_jprb,.347e-02_jprb,.283e-02_jprb,.255e-02_jprb,&
478 &.227e-02_jprb,.210e-02_jprb/)
479 !-- Black Carbon Aerosol month: 11 --- lat: 32 -34.0
480 zaer(:,32,11) = (/&
481 &.228e-02_jprb,.227e-02_jprb,.198e-02_jprb,.183e-02_jprb,.170e-02_jprb,.150e-02_jprb,.144e-02_jprb,&
482 &.140e-02_jprb,.133e-02_jprb,.132e-02_jprb,.136e-02_jprb,.152e-02_jprb,.168e-02_jprb,.168e-02_jprb,&
483 &.153e-02_jprb,.146e-02_jprb,.165e-02_jprb,.206e-02_jprb,.277e-02_jprb,.296e-02_jprb,.308e-02_jprb,&
484 &.275e-02_jprb,.243e-02_jprb,.207e-02_jprb,.151e-02_jprb,.137e-02_jprb,.124e-02_jprb,.106e-02_jprb,&
485 &.101e-02_jprb,.970e-03_jprb,.951e-03_jprb,.968e-03_jprb,.991e-03_jprb,.105e-02_jprb,.121e-02_jprb,&
486 &.137e-02_jprb,.167e-02_jprb,.197e-02_jprb,.226e-02_jprb,.275e-02_jprb,.320e-02_jprb,.347e-02_jprb,&
487 &.377e-02_jprb,.393e-02_jprb,.398e-02_jprb,.404e-02_jprb,.358e-02_jprb,.358e-02_jprb,.362e-02_jprb,&
488 &.391e-02_jprb,.359e-02_jprb,.325e-02_jprb,.246e-02_jprb,.233e-02_jprb,.251e-02_jprb,.428e-02_jprb,&
489 &.930e-02_jprb,.137e-01_jprb,.215e-01_jprb,.228e-01_jprb,.214e-01_jprb,.157e-01_jprb,.114e-01_jprb,&
490 &.925e-02_jprb,.717e-02_jprb,.560e-02_jprb,.487e-02_jprb,.412e-02_jprb,.337e-02_jprb,.298e-02_jprb,&
491 &.257e-02_jprb,.229e-02_jprb/)
492 !-- Black Carbon Aerosol month: 11 --- lat: 33 -38.0
493 zaer(:,33,11) = (/&
494 &.236e-02_jprb,.235e-02_jprb,.207e-02_jprb,.185e-02_jprb,.165e-02_jprb,.138e-02_jprb,.135e-02_jprb,&
495 &.134e-02_jprb,.135e-02_jprb,.139e-02_jprb,.147e-02_jprb,.169e-02_jprb,.174e-02_jprb,.167e-02_jprb,&
496 &.145e-02_jprb,.141e-02_jprb,.160e-02_jprb,.201e-02_jprb,.280e-02_jprb,.307e-02_jprb,.331e-02_jprb,&
497 &.323e-02_jprb,.290e-02_jprb,.253e-02_jprb,.171e-02_jprb,.150e-02_jprb,.132e-02_jprb,.115e-02_jprb,&
498 &.111e-02_jprb,.109e-02_jprb,.106e-02_jprb,.103e-02_jprb,.102e-02_jprb,.107e-02_jprb,.139e-02_jprb,&
499 &.172e-02_jprb,.235e-02_jprb,.325e-02_jprb,.403e-02_jprb,.526e-02_jprb,.645e-02_jprb,.685e-02_jprb,&
500 &.712e-02_jprb,.672e-02_jprb,.652e-02_jprb,.632e-02_jprb,.557e-02_jprb,.533e-02_jprb,.511e-02_jprb,&
501 &.490e-02_jprb,.443e-02_jprb,.396e-02_jprb,.318e-02_jprb,.293e-02_jprb,.286e-02_jprb,.343e-02_jprb,&
502 &.606e-02_jprb,.871e-02_jprb,.142e-01_jprb,.168e-01_jprb,.166e-01_jprb,.134e-01_jprb,.101e-01_jprb,&
503 &.827e-02_jprb,.632e-02_jprb,.516e-02_jprb,.462e-02_jprb,.409e-02_jprb,.341e-02_jprb,.304e-02_jprb,&
504 &.265e-02_jprb,.237e-02_jprb/)
505 !-- Black Carbon Aerosol month: 11 --- lat: 34 -42.0
506 zaer(:,34,11) = (/&
507 &.237e-02_jprb,.236e-02_jprb,.206e-02_jprb,.178e-02_jprb,.154e-02_jprb,.124e-02_jprb,.123e-02_jprb,&
508 &.123e-02_jprb,.129e-02_jprb,.136e-02_jprb,.145e-02_jprb,.165e-02_jprb,.163e-02_jprb,.154e-02_jprb,&
509 &.134e-02_jprb,.136e-02_jprb,.154e-02_jprb,.188e-02_jprb,.255e-02_jprb,.284e-02_jprb,.311e-02_jprb,&
510 &.322e-02_jprb,.296e-02_jprb,.265e-02_jprb,.181e-02_jprb,.159e-02_jprb,.140e-02_jprb,.130e-02_jprb,&
511 &.129e-02_jprb,.127e-02_jprb,.122e-02_jprb,.119e-02_jprb,.123e-02_jprb,.148e-02_jprb,.215e-02_jprb,&
512 &.281e-02_jprb,.406e-02_jprb,.611e-02_jprb,.778e-02_jprb,.103e-01_jprb,.123e-01_jprb,.127e-01_jprb,&
513 &.127e-01_jprb,.116e-01_jprb,.108e-01_jprb,.983e-02_jprb,.821e-02_jprb,.755e-02_jprb,.692e-02_jprb,&
514 &.644e-02_jprb,.597e-02_jprb,.551e-02_jprb,.470e-02_jprb,.430e-02_jprb,.398e-02_jprb,.368e-02_jprb,&
515 &.445e-02_jprb,.545e-02_jprb,.795e-02_jprb,.972e-02_jprb,.101e-01_jprb,.911e-02_jprb,.725e-02_jprb,&
516 &.611e-02_jprb,.475e-02_jprb,.406e-02_jprb,.374e-02_jprb,.341e-02_jprb,.298e-02_jprb,.276e-02_jprb,&
517 &.252e-02_jprb,.237e-02_jprb/)
518 !-- Black Carbon Aerosol month: 11 --- lat: 35 -46.0
519 zaer(:,35,11) = (/&
520 &.220e-02_jprb,.220e-02_jprb,.192e-02_jprb,.167e-02_jprb,.144e-02_jprb,.117e-02_jprb,.115e-02_jprb,&
521 &.115e-02_jprb,.121e-02_jprb,.128e-02_jprb,.135e-02_jprb,.147e-02_jprb,.146e-02_jprb,.141e-02_jprb,&
522 &.129e-02_jprb,.134e-02_jprb,.146e-02_jprb,.169e-02_jprb,.205e-02_jprb,.220e-02_jprb,.236e-02_jprb,&
523 &.248e-02_jprb,.235e-02_jprb,.218e-02_jprb,.170e-02_jprb,.157e-02_jprb,.145e-02_jprb,.146e-02_jprb,&
524 &.153e-02_jprb,.158e-02_jprb,.156e-02_jprb,.165e-02_jprb,.184e-02_jprb,.255e-02_jprb,.389e-02_jprb,&
525 &.515e-02_jprb,.741e-02_jprb,.113e-01_jprb,.142e-01_jprb,.181e-01_jprb,.195e-01_jprb,.196e-01_jprb,&
526 &.193e-01_jprb,.179e-01_jprb,.163e-01_jprb,.143e-01_jprb,.113e-01_jprb,.102e-01_jprb,.903e-02_jprb,&
527 &.822e-02_jprb,.775e-02_jprb,.728e-02_jprb,.642e-02_jprb,.584e-02_jprb,.534e-02_jprb,.459e-02_jprb,&
528 &.451e-02_jprb,.461e-02_jprb,.515e-02_jprb,.563e-02_jprb,.576e-02_jprb,.562e-02_jprb,.467e-02_jprb,&
529 &.407e-02_jprb,.333e-02_jprb,.286e-02_jprb,.270e-02_jprb,.256e-02_jprb,.239e-02_jprb,.231e-02_jprb,&
530 &.224e-02_jprb,.220e-02_jprb/)
531 !-- Black Carbon Aerosol month: 11 --- lat: 36 -50.0
532 zaer(:,36,11) = (/&
533 &.185e-02_jprb,.184e-02_jprb,.169e-02_jprb,.152e-02_jprb,.137e-02_jprb,.116e-02_jprb,.113e-02_jprb,&
534 &.111e-02_jprb,.114e-02_jprb,.117e-02_jprb,.120e-02_jprb,.125e-02_jprb,.126e-02_jprb,.127e-02_jprb,&
535 &.126e-02_jprb,.129e-02_jprb,.134e-02_jprb,.143e-02_jprb,.147e-02_jprb,.148e-02_jprb,.148e-02_jprb,&
536 &.157e-02_jprb,.159e-02_jprb,.159e-02_jprb,.153e-02_jprb,.149e-02_jprb,.146e-02_jprb,.156e-02_jprb,&
537 &.177e-02_jprb,.194e-02_jprb,.213e-02_jprb,.244e-02_jprb,.283e-02_jprb,.388e-02_jprb,.597e-02_jprb,&
538 &.782e-02_jprb,.110e-01_jprb,.167e-01_jprb,.202e-01_jprb,.244e-01_jprb,.239e-01_jprb,.236e-01_jprb,&
539 &.231e-01_jprb,.220e-01_jprb,.203e-01_jprb,.180e-01_jprb,.145e-01_jprb,.130e-01_jprb,.115e-01_jprb,&
540 &.985e-02_jprb,.921e-02_jprb,.859e-02_jprb,.776e-02_jprb,.712e-02_jprb,.657e-02_jprb,.572e-02_jprb,&
541 &.537e-02_jprb,.511e-02_jprb,.478e-02_jprb,.444e-02_jprb,.419e-02_jprb,.382e-02_jprb,.317e-02_jprb,&
542 &.278e-02_jprb,.234e-02_jprb,.206e-02_jprb,.197e-02_jprb,.191e-02_jprb,.185e-02_jprb,.184e-02_jprb,&
543 &.183e-02_jprb,.185e-02_jprb/)
544 !-- Black Carbon Aerosol month: 11 --- lat: 37 -54.0
545 zaer(:,37,11) = (/&
546 &.152e-02_jprb,.152e-02_jprb,.148e-02_jprb,.140e-02_jprb,.132e-02_jprb,.120e-02_jprb,.115e-02_jprb,&
547 &.111e-02_jprb,.107e-02_jprb,.106e-02_jprb,.105e-02_jprb,.104e-02_jprb,.107e-02_jprb,.109e-02_jprb,&
548 &.112e-02_jprb,.113e-02_jprb,.115e-02_jprb,.117e-02_jprb,.116e-02_jprb,.115e-02_jprb,.114e-02_jprb,&
549 &.121e-02_jprb,.128e-02_jprb,.136e-02_jprb,.146e-02_jprb,.147e-02_jprb,.149e-02_jprb,.163e-02_jprb,&
550 &.188e-02_jprb,.211e-02_jprb,.249e-02_jprb,.294e-02_jprb,.344e-02_jprb,.465e-02_jprb,.663e-02_jprb,&
551 &.827e-02_jprb,.109e-01_jprb,.148e-01_jprb,.170e-01_jprb,.194e-01_jprb,.201e-01_jprb,.208e-01_jprb,&
552 &.217e-01_jprb,.217e-01_jprb,.204e-01_jprb,.186e-01_jprb,.151e-01_jprb,.137e-01_jprb,.123e-01_jprb,&
553 &.103e-01_jprb,.954e-02_jprb,.882e-02_jprb,.816e-02_jprb,.770e-02_jprb,.728e-02_jprb,.655e-02_jprb,&
554 &.601e-02_jprb,.556e-02_jprb,.482e-02_jprb,.413e-02_jprb,.366e-02_jprb,.303e-02_jprb,.242e-02_jprb,&
555 &.208e-02_jprb,.171e-02_jprb,.157e-02_jprb,.153e-02_jprb,.149e-02_jprb,.146e-02_jprb,.147e-02_jprb,&
556 &.147e-02_jprb,.152e-02_jprb/)
557 !-- Black Carbon Aerosol month: 11 --- lat: 38 -58.0
558 zaer(:,38,11) = (/&
559 &.134e-02_jprb,.134e-02_jprb,.130e-02_jprb,.127e-02_jprb,.124e-02_jprb,.119e-02_jprb,.114e-02_jprb,&
560 &.109e-02_jprb,.103e-02_jprb,.992e-03_jprb,.969e-03_jprb,.947e-03_jprb,.942e-03_jprb,.944e-03_jprb,&
561 &.953e-03_jprb,.960e-03_jprb,.968e-03_jprb,.981e-03_jprb,.101e-02_jprb,.103e-02_jprb,.105e-02_jprb,&
562 &.113e-02_jprb,.120e-02_jprb,.127e-02_jprb,.136e-02_jprb,.141e-02_jprb,.146e-02_jprb,.166e-02_jprb,&
563 &.188e-02_jprb,.209e-02_jprb,.250e-02_jprb,.299e-02_jprb,.350e-02_jprb,.462e-02_jprb,.580e-02_jprb,&
564 &.655e-02_jprb,.738e-02_jprb,.794e-02_jprb,.859e-02_jprb,.972e-02_jprb,.121e-01_jprb,.140e-01_jprb,&
565 &.165e-01_jprb,.176e-01_jprb,.166e-01_jprb,.150e-01_jprb,.121e-01_jprb,.111e-01_jprb,.101e-01_jprb,&
566 &.876e-02_jprb,.829e-02_jprb,.788e-02_jprb,.763e-02_jprb,.743e-02_jprb,.722e-02_jprb,.667e-02_jprb,&
567 &.604e-02_jprb,.552e-02_jprb,.471e-02_jprb,.404e-02_jprb,.355e-02_jprb,.284e-02_jprb,.220e-02_jprb,&
568 &.186e-02_jprb,.151e-02_jprb,.136e-02_jprb,.131e-02_jprb,.128e-02_jprb,.128e-02_jprb,.130e-02_jprb,&
569 &.133e-02_jprb,.134e-02_jprb/)
570 !-- Black Carbon Aerosol month: 11 --- lat: 39 -62.0
571 zaer(:,39,11) = (/&
572 &.126e-02_jprb,.126e-02_jprb,.123e-02_jprb,.122e-02_jprb,.120e-02_jprb,.116e-02_jprb,.111e-02_jprb,&
573 &.106e-02_jprb,.992e-03_jprb,.947e-03_jprb,.919e-03_jprb,.892e-03_jprb,.875e-03_jprb,.864e-03_jprb,&
574 &.851e-03_jprb,.848e-03_jprb,.853e-03_jprb,.864e-03_jprb,.898e-03_jprb,.929e-03_jprb,.968e-03_jprb,&
575 &.104e-02_jprb,.108e-02_jprb,.112e-02_jprb,.118e-02_jprb,.125e-02_jprb,.133e-02_jprb,.155e-02_jprb,&
576 &.171e-02_jprb,.187e-02_jprb,.221e-02_jprb,.269e-02_jprb,.314e-02_jprb,.400e-02_jprb,.460e-02_jprb,&
577 &.492e-02_jprb,.513e-02_jprb,.549e-02_jprb,.603e-02_jprb,.706e-02_jprb,.891e-02_jprb,.101e-01_jprb,&
578 &.116e-01_jprb,.123e-01_jprb,.118e-01_jprb,.108e-01_jprb,.875e-02_jprb,.798e-02_jprb,.725e-02_jprb,&
579 &.662e-02_jprb,.653e-02_jprb,.644e-02_jprb,.644e-02_jprb,.637e-02_jprb,.627e-02_jprb,.592e-02_jprb,&
580 &.545e-02_jprb,.506e-02_jprb,.443e-02_jprb,.383e-02_jprb,.338e-02_jprb,.271e-02_jprb,.208e-02_jprb,&
581 &.176e-02_jprb,.143e-02_jprb,.128e-02_jprb,.123e-02_jprb,.120e-02_jprb,.121e-02_jprb,.123e-02_jprb,&
582 &.126e-02_jprb,.126e-02_jprb/)
583 !-- Black Carbon Aerosol month: 11 --- lat: 40 -66.0
584 zaer(:,40,11) = (/&
585 &.120e-02_jprb,.120e-02_jprb,.120e-02_jprb,.119e-02_jprb,.117e-02_jprb,.112e-02_jprb,.108e-02_jprb,&
586 &.104e-02_jprb,.983e-03_jprb,.936e-03_jprb,.903e-03_jprb,.861e-03_jprb,.831e-03_jprb,.815e-03_jprb,&
587 &.798e-03_jprb,.798e-03_jprb,.804e-03_jprb,.816e-03_jprb,.844e-03_jprb,.865e-03_jprb,.890e-03_jprb,&
588 &.932e-03_jprb,.951e-03_jprb,.968e-03_jprb,.100e-02_jprb,.105e-02_jprb,.109e-02_jprb,.123e-02_jprb,&
589 &.135e-02_jprb,.146e-02_jprb,.172e-02_jprb,.205e-02_jprb,.234e-02_jprb,.286e-02_jprb,.328e-02_jprb,&
590 &.358e-02_jprb,.399e-02_jprb,.463e-02_jprb,.522e-02_jprb,.617e-02_jprb,.756e-02_jprb,.837e-02_jprb,&
591 &.930e-02_jprb,.955e-02_jprb,.908e-02_jprb,.839e-02_jprb,.683e-02_jprb,.620e-02_jprb,.560e-02_jprb,&
592 &.509e-02_jprb,.503e-02_jprb,.497e-02_jprb,.494e-02_jprb,.486e-02_jprb,.478e-02_jprb,.453e-02_jprb,&
593 &.425e-02_jprb,.400e-02_jprb,.359e-02_jprb,.316e-02_jprb,.282e-02_jprb,.233e-02_jprb,.188e-02_jprb,&
594 &.165e-02_jprb,.140e-02_jprb,.126e-02_jprb,.120e-02_jprb,.116e-02_jprb,.115e-02_jprb,.116e-02_jprb,&
595 &.118e-02_jprb,.120e-02_jprb/)
596 !-- Black Carbon Aerosol month: 11 --- lat: 41 -70.0
597 zaer(:,41,11) = (/&
598 &.118e-02_jprb,.118e-02_jprb,.117e-02_jprb,.115e-02_jprb,.114e-02_jprb,.109e-02_jprb,.106e-02_jprb,&
599 &.103e-02_jprb,.987e-03_jprb,.948e-03_jprb,.917e-03_jprb,.872e-03_jprb,.836e-03_jprb,.816e-03_jprb,&
600 &.795e-03_jprb,.790e-03_jprb,.793e-03_jprb,.800e-03_jprb,.814e-03_jprb,.821e-03_jprb,.829e-03_jprb,&
601 &.840e-03_jprb,.844e-03_jprb,.848e-03_jprb,.861e-03_jprb,.882e-03_jprb,.906e-03_jprb,.987e-03_jprb,&
602 &.107e-02_jprb,.115e-02_jprb,.134e-02_jprb,.154e-02_jprb,.171e-02_jprb,.200e-02_jprb,.228e-02_jprb,&
603 &.252e-02_jprb,.289e-02_jprb,.343e-02_jprb,.388e-02_jprb,.457e-02_jprb,.541e-02_jprb,.584e-02_jprb,&
604 &.630e-02_jprb,.644e-02_jprb,.625e-02_jprb,.595e-02_jprb,.511e-02_jprb,.472e-02_jprb,.434e-02_jprb,&
605 &.396e-02_jprb,.387e-02_jprb,.380e-02_jprb,.369e-02_jprb,.361e-02_jprb,.353e-02_jprb,.337e-02_jprb,&
606 &.321e-02_jprb,.307e-02_jprb,.280e-02_jprb,.252e-02_jprb,.231e-02_jprb,.200e-02_jprb,.173e-02_jprb,&
607 &.157e-02_jprb,.139e-02_jprb,.126e-02_jprb,.121e-02_jprb,.116e-02_jprb,.114e-02_jprb,.115e-02_jprb,&
608 &.116e-02_jprb,.117e-02_jprb/)
609 !-- Black Carbon Aerosol month: 11 --- lat: 42 -74.0
610 zaer(:,42,11) = (/&
611 &.117e-02_jprb,.117e-02_jprb,.115e-02_jprb,.113e-02_jprb,.112e-02_jprb,.108e-02_jprb,.105e-02_jprb,&
612 &.103e-02_jprb,.990e-03_jprb,.956e-03_jprb,.930e-03_jprb,.891e-03_jprb,.859e-03_jprb,.839e-03_jprb,&
613 &.817e-03_jprb,.807e-03_jprb,.804e-03_jprb,.805e-03_jprb,.810e-03_jprb,.811e-03_jprb,.813e-03_jprb,&
614 &.814e-03_jprb,.815e-03_jprb,.816e-03_jprb,.826e-03_jprb,.841e-03_jprb,.858e-03_jprb,.911e-03_jprb,&
615 &.967e-03_jprb,.102e-02_jprb,.114e-02_jprb,.126e-02_jprb,.136e-02_jprb,.154e-02_jprb,.170e-02_jprb,&
616 &.184e-02_jprb,.204e-02_jprb,.230e-02_jprb,.250e-02_jprb,.281e-02_jprb,.318e-02_jprb,.338e-02_jprb,&
617 &.361e-02_jprb,.378e-02_jprb,.379e-02_jprb,.377e-02_jprb,.357e-02_jprb,.345e-02_jprb,.333e-02_jprb,&
618 &.316e-02_jprb,.309e-02_jprb,.303e-02_jprb,.293e-02_jprb,.286e-02_jprb,.281e-02_jprb,.270e-02_jprb,&
619 &.260e-02_jprb,.251e-02_jprb,.234e-02_jprb,.216e-02_jprb,.203e-02_jprb,.184e-02_jprb,.165e-02_jprb,&
620 &.154e-02_jprb,.141e-02_jprb,.130e-02_jprb,.125e-02_jprb,.121e-02_jprb,.119e-02_jprb,.118e-02_jprb,&
621 &.117e-02_jprb,.117e-02_jprb/)
622 !-- Black Carbon Aerosol month: 11 --- lat: 43 -78.0
623 zaer(:,43,11) = (/&
624 &.117e-02_jprb,.116e-02_jprb,.113e-02_jprb,.111e-02_jprb,.109e-02_jprb,.105e-02_jprb,.103e-02_jprb,&
625 &.101e-02_jprb,.977e-03_jprb,.952e-03_jprb,.933e-03_jprb,.907e-03_jprb,.885e-03_jprb,.871e-03_jprb,&
626 &.854e-03_jprb,.843e-03_jprb,.838e-03_jprb,.834e-03_jprb,.834e-03_jprb,.834e-03_jprb,.835e-03_jprb,&
627 &.838e-03_jprb,.842e-03_jprb,.847e-03_jprb,.861e-03_jprb,.874e-03_jprb,.887e-03_jprb,.924e-03_jprb,&
628 &.956e-03_jprb,.987e-03_jprb,.105e-02_jprb,.111e-02_jprb,.116e-02_jprb,.125e-02_jprb,.133e-02_jprb,&
629 &.140e-02_jprb,.150e-02_jprb,.160e-02_jprb,.169e-02_jprb,.181e-02_jprb,.196e-02_jprb,.206e-02_jprb,&
630 &.217e-02_jprb,.232e-02_jprb,.239e-02_jprb,.246e-02_jprb,.252e-02_jprb,.253e-02_jprb,.255e-02_jprb,&
631 &.254e-02_jprb,.252e-02_jprb,.250e-02_jprb,.246e-02_jprb,.242e-02_jprb,.239e-02_jprb,.232e-02_jprb,&
632 &.225e-02_jprb,.219e-02_jprb,.209e-02_jprb,.198e-02_jprb,.189e-02_jprb,.177e-02_jprb,.164e-02_jprb,&
633 &.156e-02_jprb,.147e-02_jprb,.138e-02_jprb,.133e-02_jprb,.129e-02_jprb,.124e-02_jprb,.122e-02_jprb,&
634 &.120e-02_jprb,.117e-02_jprb/)
635 !-- Black Carbon Aerosol month: 11 --- lat: 44 -82.0
636 zaer(:,44,11) = (/&
637 &.119e-02_jprb,.119e-02_jprb,.114e-02_jprb,.112e-02_jprb,.111e-02_jprb,.108e-02_jprb,.106e-02_jprb,&
638 &.104e-02_jprb,.102e-02_jprb,.999e-03_jprb,.986e-03_jprb,.968e-03_jprb,.955e-03_jprb,.946e-03_jprb,&
639 &.935e-03_jprb,.926e-03_jprb,.922e-03_jprb,.917e-03_jprb,.915e-03_jprb,.915e-03_jprb,.915e-03_jprb,&
640 &.919e-03_jprb,.924e-03_jprb,.928e-03_jprb,.940e-03_jprb,.949e-03_jprb,.958e-03_jprb,.981e-03_jprb,&
641 &.998e-03_jprb,.101e-02_jprb,.105e-02_jprb,.107e-02_jprb,.110e-02_jprb,.114e-02_jprb,.118e-02_jprb,&
642 &.121e-02_jprb,.126e-02_jprb,.131e-02_jprb,.135e-02_jprb,.141e-02_jprb,.147e-02_jprb,.152e-02_jprb,&
643 &.158e-02_jprb,.166e-02_jprb,.171e-02_jprb,.176e-02_jprb,.183e-02_jprb,.186e-02_jprb,.189e-02_jprb,&
644 &.193e-02_jprb,.193e-02_jprb,.194e-02_jprb,.194e-02_jprb,.193e-02_jprb,.192e-02_jprb,.189e-02_jprb,&
645 &.186e-02_jprb,.183e-02_jprb,.178e-02_jprb,.172e-02_jprb,.168e-02_jprb,.162e-02_jprb,.155e-02_jprb,&
646 &.151e-02_jprb,.146e-02_jprb,.140e-02_jprb,.136e-02_jprb,.132e-02_jprb,.128e-02_jprb,.126e-02_jprb,&
647 &.123e-02_jprb,.119e-02_jprb/)
648 !-- Black Carbon Aerosol month: 11 --- lat: 45 -86.0
649 zaer(:,45,11) = (/&
650 &.123e-02_jprb,.123e-02_jprb,.121e-02_jprb,.120e-02_jprb,.119e-02_jprb,.117e-02_jprb,.116e-02_jprb,&
651 &.116e-02_jprb,.114e-02_jprb,.114e-02_jprb,.113e-02_jprb,.112e-02_jprb,.112e-02_jprb,.111e-02_jprb,&
652 &.111e-02_jprb,.110e-02_jprb,.110e-02_jprb,.110e-02_jprb,.110e-02_jprb,.110e-02_jprb,.110e-02_jprb,&
653 &.110e-02_jprb,.110e-02_jprb,.110e-02_jprb,.111e-02_jprb,.111e-02_jprb,.112e-02_jprb,.112e-02_jprb,&
654 &.113e-02_jprb,.114e-02_jprb,.115e-02_jprb,.116e-02_jprb,.117e-02_jprb,.119e-02_jprb,.120e-02_jprb,&
655 &.121e-02_jprb,.123e-02_jprb,.125e-02_jprb,.127e-02_jprb,.128e-02_jprb,.131e-02_jprb,.132e-02_jprb,&
656 &.134e-02_jprb,.137e-02_jprb,.139e-02_jprb,.140e-02_jprb,.143e-02_jprb,.144e-02_jprb,.145e-02_jprb,&
657 &.147e-02_jprb,.147e-02_jprb,.148e-02_jprb,.148e-02_jprb,.148e-02_jprb,.148e-02_jprb,.148e-02_jprb,&
658 &.147e-02_jprb,.147e-02_jprb,.145e-02_jprb,.144e-02_jprb,.143e-02_jprb,.141e-02_jprb,.139e-02_jprb,&
659 &.137e-02_jprb,.135e-02_jprb,.133e-02_jprb,.132e-02_jprb,.130e-02_jprb,.128e-02_jprb,.127e-02_jprb,&
660 &.125e-02_jprb,.123e-02_jprb/)
661 !-- Black Carbon Aerosol month: 11 --- lat: 46 -90.0
662 zaer(:,46,11) = (/&
663 &.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,&
664 &.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,&
665 &.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,&
666 &.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,&
667 &.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,&
668 &.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,&
669 &.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,&
670 &.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,&
671 &.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,&
672 &.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,.126e-02_jprb,&
673 &.126e-02_jprb,.126e-02_jprb/)
674 
675 
676 ! ------------------------------------------------------------------
677 
678 !ZMAX=-1.E+8_JPRB
679 !ZMIN= 1.E+8_JPRB
680  jm=11
681  DO ji=1,46
682  DO jl=1,72
683  raerbc(jl,ji,jm)=zaer(jl,ji,jm)
684 ! ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
685 ! ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
686  ENDDO
687  ENDDO
688 
689 !PRINT 9000,ZMIN,ZMAX
690 9000 FORMAT(1x,'BLACK CARBON AEROSOLS ',2e12.5)
691 
692 ! ------------------------------------------------------------------
693 
694 RETURN
695 END SUBROUTINE suecaebc_11
subroutine suecaebc_11
Definition: suecaebc_11.F90:2
!$Id jm
Definition: comconst.h:7
!$Header!c c INCLUDE fxyprim h c c c Fonctions in line c c REAL fyprim REAL rj c c il faut la calculer avant d appeler ces fonctions c c c Fonctions a changer selon x(x) et y(y) choisis.c-----------------------------------------------------------------c c.....ici