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