LMDZ
suecaess_04.F90
Go to the documentation of this file.
1 SUBROUTINE suecaess_04
2 
3 !** OPTICAL THICKNESS OF AEROSOLS OF SEA-SALT ORIGIN
4 ! April
5 
6 ! PURPOSE.
7 ! --------
8 
9 !** INTERFACE.
10 ! ----------
11 ! CALL *SUECAESS* 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 : raerss
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,4:4)
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 !-- Sea Salt Aerosol month: 4 --- lat: 1 90.0
77 zaer(:, 1, 4) = (/&
78 &.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,&
79 &.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,&
80 &.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,&
81 &.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,&
82 &.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,&
83 &.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,&
84 &.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,&
85 &.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,&
86 &.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,&
87 &.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,.257e-03_jprb,&
88 &.257e-03_jprb,.257e-03_jprb/)
89 !-- Sea Salt Aerosol month: 4 --- lat: 2 86.0
90 zaer(:, 2, 4) = (/&
91 &.374e-03_jprb,.374e-03_jprb,.389e-03_jprb,.389e-03_jprb,.417e-03_jprb,.417e-03_jprb,.442e-03_jprb,&
92 &.442e-03_jprb,.460e-03_jprb,.460e-03_jprb,.485e-03_jprb,.485e-03_jprb,.514e-03_jprb,.514e-03_jprb,&
93 &.537e-03_jprb,.537e-03_jprb,.537e-03_jprb,.537e-03_jprb,.532e-03_jprb,.532e-03_jprb,.526e-03_jprb,&
94 &.526e-03_jprb,.530e-03_jprb,.530e-03_jprb,.536e-03_jprb,.536e-03_jprb,.505e-03_jprb,.505e-03_jprb,&
95 &.471e-03_jprb,.471e-03_jprb,.430e-03_jprb,.430e-03_jprb,.365e-03_jprb,.365e-03_jprb,.285e-03_jprb,&
96 &.285e-03_jprb,.216e-03_jprb,.216e-03_jprb,.165e-03_jprb,.165e-03_jprb,.144e-03_jprb,.144e-03_jprb,&
97 &.152e-03_jprb,.152e-03_jprb,.162e-03_jprb,.162e-03_jprb,.175e-03_jprb,.175e-03_jprb,.183e-03_jprb,&
98 &.183e-03_jprb,.186e-03_jprb,.186e-03_jprb,.187e-03_jprb,.187e-03_jprb,.188e-03_jprb,.188e-03_jprb,&
99 &.194e-03_jprb,.194e-03_jprb,.206e-03_jprb,.206e-03_jprb,.224e-03_jprb,.224e-03_jprb,.242e-03_jprb,&
100 &.242e-03_jprb,.268e-03_jprb,.268e-03_jprb,.295e-03_jprb,.295e-03_jprb,.325e-03_jprb,.325e-03_jprb,&
101 &.351e-03_jprb,.351e-03_jprb/)
102 !-- Sea Salt Aerosol month: 4 --- lat: 3 82.0
103 zaer(:, 3, 4) = (/&
104 &.374e-03_jprb,.374e-03_jprb,.389e-03_jprb,.389e-03_jprb,.417e-03_jprb,.417e-03_jprb,.442e-03_jprb,&
105 &.442e-03_jprb,.460e-03_jprb,.460e-03_jprb,.485e-03_jprb,.485e-03_jprb,.514e-03_jprb,.514e-03_jprb,&
106 &.537e-03_jprb,.537e-03_jprb,.537e-03_jprb,.537e-03_jprb,.532e-03_jprb,.532e-03_jprb,.526e-03_jprb,&
107 &.526e-03_jprb,.530e-03_jprb,.530e-03_jprb,.536e-03_jprb,.536e-03_jprb,.505e-03_jprb,.505e-03_jprb,&
108 &.471e-03_jprb,.471e-03_jprb,.430e-03_jprb,.430e-03_jprb,.365e-03_jprb,.365e-03_jprb,.285e-03_jprb,&
109 &.285e-03_jprb,.216e-03_jprb,.216e-03_jprb,.165e-03_jprb,.165e-03_jprb,.144e-03_jprb,.144e-03_jprb,&
110 &.152e-03_jprb,.152e-03_jprb,.162e-03_jprb,.162e-03_jprb,.175e-03_jprb,.175e-03_jprb,.183e-03_jprb,&
111 &.183e-03_jprb,.186e-03_jprb,.186e-03_jprb,.187e-03_jprb,.187e-03_jprb,.188e-03_jprb,.188e-03_jprb,&
112 &.194e-03_jprb,.194e-03_jprb,.206e-03_jprb,.206e-03_jprb,.224e-03_jprb,.224e-03_jprb,.242e-03_jprb,&
113 &.242e-03_jprb,.268e-03_jprb,.268e-03_jprb,.295e-03_jprb,.295e-03_jprb,.325e-03_jprb,.325e-03_jprb,&
114 &.351e-03_jprb,.351e-03_jprb/)
115 !-- Sea Salt Aerosol month: 4 --- lat: 4 78.0
116 zaer(:, 4, 4) = (/&
117 &.560e-03_jprb,.560e-03_jprb,.990e-03_jprb,.990e-03_jprb,.105e-02_jprb,.105e-02_jprb,.863e-03_jprb,&
118 &.863e-03_jprb,.678e-03_jprb,.678e-03_jprb,.542e-03_jprb,.542e-03_jprb,.473e-03_jprb,.473e-03_jprb,&
119 &.560e-03_jprb,.560e-03_jprb,.715e-03_jprb,.715e-03_jprb,.802e-03_jprb,.802e-03_jprb,.864e-03_jprb,&
120 &.864e-03_jprb,.887e-03_jprb,.887e-03_jprb,.864e-03_jprb,.864e-03_jprb,.783e-03_jprb,.783e-03_jprb,&
121 &.666e-03_jprb,.666e-03_jprb,.599e-03_jprb,.599e-03_jprb,.522e-03_jprb,.522e-03_jprb,.411e-03_jprb,&
122 &.411e-03_jprb,.293e-03_jprb,.293e-03_jprb,.174e-03_jprb,.174e-03_jprb,.167e-03_jprb,.167e-03_jprb,&
123 &.224e-03_jprb,.224e-03_jprb,.294e-03_jprb,.294e-03_jprb,.350e-03_jprb,.350e-03_jprb,.352e-03_jprb,&
124 &.352e-03_jprb,.333e-03_jprb,.333e-03_jprb,.318e-03_jprb,.318e-03_jprb,.322e-03_jprb,.322e-03_jprb,&
125 &.314e-03_jprb,.314e-03_jprb,.280e-03_jprb,.280e-03_jprb,.246e-03_jprb,.246e-03_jprb,.274e-03_jprb,&
126 &.274e-03_jprb,.332e-03_jprb,.332e-03_jprb,.355e-03_jprb,.355e-03_jprb,.402e-03_jprb,.402e-03_jprb,&
127 &.437e-03_jprb,.437e-03_jprb/)
128 !-- Sea Salt Aerosol month: 4 --- lat: 5 74.0
129 zaer(:, 5, 4) = (/&
130 &.560e-03_jprb,.560e-03_jprb,.990e-03_jprb,.990e-03_jprb,.105e-02_jprb,.105e-02_jprb,.863e-03_jprb,&
131 &.863e-03_jprb,.678e-03_jprb,.678e-03_jprb,.542e-03_jprb,.542e-03_jprb,.473e-03_jprb,.473e-03_jprb,&
132 &.560e-03_jprb,.560e-03_jprb,.715e-03_jprb,.715e-03_jprb,.802e-03_jprb,.802e-03_jprb,.864e-03_jprb,&
133 &.864e-03_jprb,.887e-03_jprb,.887e-03_jprb,.864e-03_jprb,.864e-03_jprb,.783e-03_jprb,.783e-03_jprb,&
134 &.666e-03_jprb,.666e-03_jprb,.599e-03_jprb,.599e-03_jprb,.522e-03_jprb,.522e-03_jprb,.411e-03_jprb,&
135 &.411e-03_jprb,.293e-03_jprb,.293e-03_jprb,.174e-03_jprb,.174e-03_jprb,.167e-03_jprb,.167e-03_jprb,&
136 &.224e-03_jprb,.224e-03_jprb,.294e-03_jprb,.294e-03_jprb,.350e-03_jprb,.350e-03_jprb,.352e-03_jprb,&
137 &.352e-03_jprb,.333e-03_jprb,.333e-03_jprb,.318e-03_jprb,.318e-03_jprb,.322e-03_jprb,.322e-03_jprb,&
138 &.314e-03_jprb,.314e-03_jprb,.280e-03_jprb,.280e-03_jprb,.246e-03_jprb,.246e-03_jprb,.274e-03_jprb,&
139 &.274e-03_jprb,.332e-03_jprb,.332e-03_jprb,.355e-03_jprb,.355e-03_jprb,.402e-03_jprb,.402e-03_jprb,&
140 &.437e-03_jprb,.437e-03_jprb/)
141 !-- Sea Salt Aerosol month: 4 --- lat: 6 70.0
142 zaer(:, 6, 4) = (/&
143 &.270e-02_jprb,.270e-02_jprb,.506e-02_jprb,.506e-02_jprb,.376e-02_jprb,.376e-02_jprb,.227e-02_jprb,&
144 &.227e-02_jprb,.181e-02_jprb,.181e-02_jprb,.182e-02_jprb,.182e-02_jprb,.170e-02_jprb,.170e-02_jprb,&
145 &.187e-02_jprb,.187e-02_jprb,.212e-02_jprb,.212e-02_jprb,.221e-02_jprb,.221e-02_jprb,.246e-02_jprb,&
146 &.246e-02_jprb,.247e-02_jprb,.247e-02_jprb,.201e-02_jprb,.201e-02_jprb,.155e-02_jprb,.155e-02_jprb,&
147 &.111e-02_jprb,.111e-02_jprb,.839e-03_jprb,.839e-03_jprb,.662e-03_jprb,.662e-03_jprb,.527e-03_jprb,&
148 &.527e-03_jprb,.412e-03_jprb,.412e-03_jprb,.306e-03_jprb,.306e-03_jprb,.294e-03_jprb,.294e-03_jprb,&
149 &.405e-03_jprb,.405e-03_jprb,.672e-03_jprb,.672e-03_jprb,.811e-03_jprb,.811e-03_jprb,.867e-03_jprb,&
150 &.867e-03_jprb,.975e-03_jprb,.975e-03_jprb,.969e-03_jprb,.969e-03_jprb,.106e-02_jprb,.106e-02_jprb,&
151 &.114e-02_jprb,.114e-02_jprb,.124e-02_jprb,.124e-02_jprb,.132e-02_jprb,.132e-02_jprb,.129e-02_jprb,&
152 &.129e-02_jprb,.102e-02_jprb,.102e-02_jprb,.101e-02_jprb,.101e-02_jprb,.124e-02_jprb,.124e-02_jprb,&
153 &.175e-02_jprb,.175e-02_jprb/)
154 !-- Sea Salt Aerosol month: 4 --- lat: 7 66.0
155 zaer(:, 7, 4) = (/&
156 &.270e-02_jprb,.270e-02_jprb,.506e-02_jprb,.506e-02_jprb,.376e-02_jprb,.376e-02_jprb,.227e-02_jprb,&
157 &.227e-02_jprb,.181e-02_jprb,.181e-02_jprb,.182e-02_jprb,.182e-02_jprb,.170e-02_jprb,.170e-02_jprb,&
158 &.187e-02_jprb,.187e-02_jprb,.212e-02_jprb,.212e-02_jprb,.221e-02_jprb,.221e-02_jprb,.246e-02_jprb,&
159 &.246e-02_jprb,.247e-02_jprb,.247e-02_jprb,.201e-02_jprb,.201e-02_jprb,.155e-02_jprb,.155e-02_jprb,&
160 &.111e-02_jprb,.111e-02_jprb,.839e-03_jprb,.839e-03_jprb,.662e-03_jprb,.662e-03_jprb,.527e-03_jprb,&
161 &.527e-03_jprb,.412e-03_jprb,.412e-03_jprb,.306e-03_jprb,.306e-03_jprb,.294e-03_jprb,.294e-03_jprb,&
162 &.405e-03_jprb,.405e-03_jprb,.672e-03_jprb,.672e-03_jprb,.811e-03_jprb,.811e-03_jprb,.867e-03_jprb,&
163 &.867e-03_jprb,.975e-03_jprb,.975e-03_jprb,.969e-03_jprb,.969e-03_jprb,.106e-02_jprb,.106e-02_jprb,&
164 &.114e-02_jprb,.114e-02_jprb,.124e-02_jprb,.124e-02_jprb,.132e-02_jprb,.132e-02_jprb,.129e-02_jprb,&
165 &.129e-02_jprb,.102e-02_jprb,.102e-02_jprb,.101e-02_jprb,.101e-02_jprb,.124e-02_jprb,.124e-02_jprb,&
166 &.175e-02_jprb,.175e-02_jprb/)
167 !-- Sea Salt Aerosol month: 4 --- lat: 8 62.0
168 zaer(:, 8, 4) = (/&
169 &.871e-02_jprb,.871e-02_jprb,.905e-02_jprb,.905e-02_jprb,.843e-02_jprb,.843e-02_jprb,.586e-02_jprb,&
170 &.586e-02_jprb,.605e-02_jprb,.605e-02_jprb,.721e-02_jprb,.721e-02_jprb,.886e-02_jprb,.886e-02_jprb,&
171 &.982e-02_jprb,.982e-02_jprb,.101e-01_jprb,.101e-01_jprb,.101e-01_jprb,.101e-01_jprb,.994e-02_jprb,&
172 &.994e-02_jprb,.802e-02_jprb,.802e-02_jprb,.531e-02_jprb,.531e-02_jprb,.364e-02_jprb,.364e-02_jprb,&
173 &.238e-02_jprb,.238e-02_jprb,.174e-02_jprb,.174e-02_jprb,.141e-02_jprb,.141e-02_jprb,.122e-02_jprb,&
174 &.122e-02_jprb,.106e-02_jprb,.106e-02_jprb,.116e-02_jprb,.116e-02_jprb,.127e-02_jprb,.127e-02_jprb,&
175 &.160e-02_jprb,.160e-02_jprb,.306e-02_jprb,.306e-02_jprb,.444e-02_jprb,.444e-02_jprb,.397e-02_jprb,&
176 &.397e-02_jprb,.581e-02_jprb,.581e-02_jprb,.330e-02_jprb,.330e-02_jprb,.420e-02_jprb,.420e-02_jprb,&
177 &.707e-02_jprb,.707e-02_jprb,.852e-02_jprb,.852e-02_jprb,.881e-02_jprb,.881e-02_jprb,.781e-02_jprb,&
178 &.781e-02_jprb,.550e-02_jprb,.550e-02_jprb,.497e-02_jprb,.497e-02_jprb,.692e-02_jprb,.692e-02_jprb,&
179 &.841e-02_jprb,.841e-02_jprb/)
180 !-- Sea Salt Aerosol month: 4 --- lat: 9 58.0
181 zaer(:, 9, 4) = (/&
182 &.871e-02_jprb,.871e-02_jprb,.905e-02_jprb,.905e-02_jprb,.843e-02_jprb,.843e-02_jprb,.586e-02_jprb,&
183 &.586e-02_jprb,.605e-02_jprb,.605e-02_jprb,.721e-02_jprb,.721e-02_jprb,.886e-02_jprb,.886e-02_jprb,&
184 &.982e-02_jprb,.982e-02_jprb,.101e-01_jprb,.101e-01_jprb,.101e-01_jprb,.101e-01_jprb,.994e-02_jprb,&
185 &.994e-02_jprb,.802e-02_jprb,.802e-02_jprb,.531e-02_jprb,.531e-02_jprb,.364e-02_jprb,.364e-02_jprb,&
186 &.238e-02_jprb,.238e-02_jprb,.174e-02_jprb,.174e-02_jprb,.141e-02_jprb,.141e-02_jprb,.122e-02_jprb,&
187 &.122e-02_jprb,.106e-02_jprb,.106e-02_jprb,.116e-02_jprb,.116e-02_jprb,.127e-02_jprb,.127e-02_jprb,&
188 &.160e-02_jprb,.160e-02_jprb,.306e-02_jprb,.306e-02_jprb,.444e-02_jprb,.444e-02_jprb,.397e-02_jprb,&
189 &.397e-02_jprb,.581e-02_jprb,.581e-02_jprb,.330e-02_jprb,.330e-02_jprb,.420e-02_jprb,.420e-02_jprb,&
190 &.707e-02_jprb,.707e-02_jprb,.852e-02_jprb,.852e-02_jprb,.881e-02_jprb,.881e-02_jprb,.781e-02_jprb,&
191 &.781e-02_jprb,.550e-02_jprb,.550e-02_jprb,.497e-02_jprb,.497e-02_jprb,.692e-02_jprb,.692e-02_jprb,&
192 &.841e-02_jprb,.841e-02_jprb/)
193 !-- Sea Salt Aerosol month: 4 --- lat: 10 54.0
194 zaer(:,10, 4) = (/&
195 &.110e-01_jprb,.110e-01_jprb,.119e-01_jprb,.119e-01_jprb,.113e-01_jprb,.113e-01_jprb,.102e-01_jprb,&
196 &.102e-01_jprb,.845e-02_jprb,.845e-02_jprb,.798e-02_jprb,.798e-02_jprb,.841e-02_jprb,.841e-02_jprb,&
197 &.864e-02_jprb,.864e-02_jprb,.966e-02_jprb,.966e-02_jprb,.108e-01_jprb,.108e-01_jprb,.101e-01_jprb,&
198 &.101e-01_jprb,.821e-02_jprb,.821e-02_jprb,.937e-02_jprb,.937e-02_jprb,.110e-01_jprb,.110e-01_jprb,&
199 &.107e-01_jprb,.107e-01_jprb,.101e-01_jprb,.101e-01_jprb,.885e-02_jprb,.885e-02_jprb,.714e-02_jprb,&
200 &.714e-02_jprb,.651e-02_jprb,.651e-02_jprb,.590e-02_jprb,.590e-02_jprb,.598e-02_jprb,.598e-02_jprb,&
201 &.770e-02_jprb,.770e-02_jprb,.936e-02_jprb,.936e-02_jprb,.962e-02_jprb,.962e-02_jprb,.952e-02_jprb,&
202 &.952e-02_jprb,.858e-02_jprb,.858e-02_jprb,.735e-02_jprb,.735e-02_jprb,.763e-02_jprb,.763e-02_jprb,&
203 &.836e-02_jprb,.836e-02_jprb,.927e-02_jprb,.927e-02_jprb,.104e-01_jprb,.104e-01_jprb,.108e-01_jprb,&
204 &.108e-01_jprb,.111e-01_jprb,.111e-01_jprb,.114e-01_jprb,.114e-01_jprb,.120e-01_jprb,.120e-01_jprb,&
205 &.112e-01_jprb,.112e-01_jprb/)
206 !-- Sea Salt Aerosol month: 4 --- lat: 11 50.0
207 zaer(:,11, 4) = (/&
208 &.110e-01_jprb,.110e-01_jprb,.119e-01_jprb,.119e-01_jprb,.113e-01_jprb,.113e-01_jprb,.102e-01_jprb,&
209 &.102e-01_jprb,.845e-02_jprb,.845e-02_jprb,.798e-02_jprb,.798e-02_jprb,.841e-02_jprb,.841e-02_jprb,&
210 &.864e-02_jprb,.864e-02_jprb,.966e-02_jprb,.966e-02_jprb,.108e-01_jprb,.108e-01_jprb,.101e-01_jprb,&
211 &.101e-01_jprb,.821e-02_jprb,.821e-02_jprb,.937e-02_jprb,.937e-02_jprb,.110e-01_jprb,.110e-01_jprb,&
212 &.107e-01_jprb,.107e-01_jprb,.101e-01_jprb,.101e-01_jprb,.885e-02_jprb,.885e-02_jprb,.714e-02_jprb,&
213 &.714e-02_jprb,.651e-02_jprb,.651e-02_jprb,.590e-02_jprb,.590e-02_jprb,.598e-02_jprb,.598e-02_jprb,&
214 &.770e-02_jprb,.770e-02_jprb,.936e-02_jprb,.936e-02_jprb,.962e-02_jprb,.962e-02_jprb,.952e-02_jprb,&
215 &.952e-02_jprb,.858e-02_jprb,.858e-02_jprb,.735e-02_jprb,.735e-02_jprb,.763e-02_jprb,.763e-02_jprb,&
216 &.836e-02_jprb,.836e-02_jprb,.927e-02_jprb,.927e-02_jprb,.104e-01_jprb,.104e-01_jprb,.108e-01_jprb,&
217 &.108e-01_jprb,.111e-01_jprb,.111e-01_jprb,.114e-01_jprb,.114e-01_jprb,.120e-01_jprb,.120e-01_jprb,&
218 &.112e-01_jprb,.112e-01_jprb/)
219 !-- Sea Salt Aerosol month: 4 --- lat: 12 46.0
220 zaer(:,12, 4) = (/&
221 &.995e-02_jprb,.995e-02_jprb,.113e-01_jprb,.113e-01_jprb,.101e-01_jprb,.101e-01_jprb,.912e-02_jprb,&
222 &.912e-02_jprb,.857e-02_jprb,.857e-02_jprb,.850e-02_jprb,.850e-02_jprb,.835e-02_jprb,.835e-02_jprb,&
223 &.807e-02_jprb,.807e-02_jprb,.923e-02_jprb,.923e-02_jprb,.991e-02_jprb,.991e-02_jprb,.801e-02_jprb,&
224 &.801e-02_jprb,.447e-02_jprb,.447e-02_jprb,.859e-02_jprb,.859e-02_jprb,.127e-01_jprb,.127e-01_jprb,&
225 &.136e-01_jprb,.136e-01_jprb,.128e-01_jprb,.128e-01_jprb,.114e-01_jprb,.114e-01_jprb,.107e-01_jprb,&
226 &.107e-01_jprb,.989e-02_jprb,.989e-02_jprb,.915e-02_jprb,.915e-02_jprb,.927e-02_jprb,.927e-02_jprb,&
227 &.921e-02_jprb,.921e-02_jprb,.886e-02_jprb,.886e-02_jprb,.849e-02_jprb,.849e-02_jprb,.861e-02_jprb,&
228 &.861e-02_jprb,.880e-02_jprb,.880e-02_jprb,.859e-02_jprb,.859e-02_jprb,.822e-02_jprb,.822e-02_jprb,&
229 &.857e-02_jprb,.857e-02_jprb,.934e-02_jprb,.934e-02_jprb,.958e-02_jprb,.958e-02_jprb,.930e-02_jprb,&
230 &.930e-02_jprb,.825e-02_jprb,.825e-02_jprb,.936e-02_jprb,.936e-02_jprb,.104e-01_jprb,.104e-01_jprb,&
231 &.788e-02_jprb,.788e-02_jprb/)
232 !-- Sea Salt Aerosol month: 4 --- lat: 13 42.0
233 zaer(:,13, 4) = (/&
234 &.995e-02_jprb,.995e-02_jprb,.113e-01_jprb,.113e-01_jprb,.101e-01_jprb,.101e-01_jprb,.912e-02_jprb,&
235 &.912e-02_jprb,.857e-02_jprb,.857e-02_jprb,.850e-02_jprb,.850e-02_jprb,.835e-02_jprb,.835e-02_jprb,&
236 &.807e-02_jprb,.807e-02_jprb,.923e-02_jprb,.923e-02_jprb,.991e-02_jprb,.991e-02_jprb,.801e-02_jprb,&
237 &.801e-02_jprb,.447e-02_jprb,.447e-02_jprb,.859e-02_jprb,.859e-02_jprb,.127e-01_jprb,.127e-01_jprb,&
238 &.136e-01_jprb,.136e-01_jprb,.128e-01_jprb,.128e-01_jprb,.114e-01_jprb,.114e-01_jprb,.107e-01_jprb,&
239 &.107e-01_jprb,.989e-02_jprb,.989e-02_jprb,.915e-02_jprb,.915e-02_jprb,.927e-02_jprb,.927e-02_jprb,&
240 &.921e-02_jprb,.921e-02_jprb,.886e-02_jprb,.886e-02_jprb,.849e-02_jprb,.849e-02_jprb,.861e-02_jprb,&
241 &.861e-02_jprb,.880e-02_jprb,.880e-02_jprb,.859e-02_jprb,.859e-02_jprb,.822e-02_jprb,.822e-02_jprb,&
242 &.857e-02_jprb,.857e-02_jprb,.934e-02_jprb,.934e-02_jprb,.958e-02_jprb,.958e-02_jprb,.930e-02_jprb,&
243 &.930e-02_jprb,.825e-02_jprb,.825e-02_jprb,.936e-02_jprb,.936e-02_jprb,.104e-01_jprb,.104e-01_jprb,&
244 &.788e-02_jprb,.788e-02_jprb/)
245 !-- Sea Salt Aerosol month: 4 --- lat: 14 38.0
246 zaer(:,14, 4) = (/&
247 &.829e-02_jprb,.829e-02_jprb,.882e-02_jprb,.882e-02_jprb,.855e-02_jprb,.855e-02_jprb,.833e-02_jprb,&
248 &.833e-02_jprb,.855e-02_jprb,.855e-02_jprb,.851e-02_jprb,.851e-02_jprb,.840e-02_jprb,.840e-02_jprb,&
249 &.833e-02_jprb,.833e-02_jprb,.863e-02_jprb,.863e-02_jprb,.892e-02_jprb,.892e-02_jprb,.706e-02_jprb,&
250 &.706e-02_jprb,.361e-02_jprb,.361e-02_jprb,.485e-02_jprb,.485e-02_jprb,.877e-02_jprb,.877e-02_jprb,&
251 &.982e-02_jprb,.982e-02_jprb,.972e-02_jprb,.972e-02_jprb,.946e-02_jprb,.946e-02_jprb,.988e-02_jprb,&
252 &.988e-02_jprb,.951e-02_jprb,.951e-02_jprb,.901e-02_jprb,.901e-02_jprb,.712e-02_jprb,.712e-02_jprb,&
253 &.845e-02_jprb,.845e-02_jprb,.823e-02_jprb,.823e-02_jprb,.780e-02_jprb,.780e-02_jprb,.751e-02_jprb,&
254 &.751e-02_jprb,.780e-02_jprb,.780e-02_jprb,.843e-02_jprb,.843e-02_jprb,.854e-02_jprb,.854e-02_jprb,&
255 &.867e-02_jprb,.867e-02_jprb,.817e-02_jprb,.817e-02_jprb,.674e-02_jprb,.674e-02_jprb,.652e-02_jprb,&
256 &.652e-02_jprb,.428e-02_jprb,.428e-02_jprb,.702e-02_jprb,.702e-02_jprb,.885e-02_jprb,.885e-02_jprb,&
257 &.737e-02_jprb,.737e-02_jprb/)
258 !-- Sea Salt Aerosol month: 4 --- lat: 15 34.0
259 zaer(:,15, 4) = (/&
260 &.829e-02_jprb,.829e-02_jprb,.882e-02_jprb,.882e-02_jprb,.855e-02_jprb,.855e-02_jprb,.833e-02_jprb,&
261 &.833e-02_jprb,.855e-02_jprb,.855e-02_jprb,.851e-02_jprb,.851e-02_jprb,.840e-02_jprb,.840e-02_jprb,&
262 &.833e-02_jprb,.833e-02_jprb,.863e-02_jprb,.863e-02_jprb,.892e-02_jprb,.892e-02_jprb,.706e-02_jprb,&
263 &.706e-02_jprb,.361e-02_jprb,.361e-02_jprb,.485e-02_jprb,.485e-02_jprb,.877e-02_jprb,.877e-02_jprb,&
264 &.982e-02_jprb,.982e-02_jprb,.972e-02_jprb,.972e-02_jprb,.946e-02_jprb,.946e-02_jprb,.988e-02_jprb,&
265 &.988e-02_jprb,.951e-02_jprb,.951e-02_jprb,.901e-02_jprb,.901e-02_jprb,.712e-02_jprb,.712e-02_jprb,&
266 &.845e-02_jprb,.845e-02_jprb,.823e-02_jprb,.823e-02_jprb,.780e-02_jprb,.780e-02_jprb,.751e-02_jprb,&
267 &.751e-02_jprb,.780e-02_jprb,.780e-02_jprb,.843e-02_jprb,.843e-02_jprb,.854e-02_jprb,.854e-02_jprb,&
268 &.867e-02_jprb,.867e-02_jprb,.817e-02_jprb,.817e-02_jprb,.674e-02_jprb,.674e-02_jprb,.652e-02_jprb,&
269 &.652e-02_jprb,.428e-02_jprb,.428e-02_jprb,.702e-02_jprb,.702e-02_jprb,.885e-02_jprb,.885e-02_jprb,&
270 &.737e-02_jprb,.737e-02_jprb/)
271 !-- Sea Salt Aerosol month: 4 --- lat: 16 30.0
272 zaer(:,16, 4) = (/&
273 &.816e-02_jprb,.816e-02_jprb,.773e-02_jprb,.773e-02_jprb,.778e-02_jprb,.778e-02_jprb,.751e-02_jprb,&
274 &.751e-02_jprb,.786e-02_jprb,.786e-02_jprb,.885e-02_jprb,.885e-02_jprb,.945e-02_jprb,.945e-02_jprb,&
275 &.993e-02_jprb,.993e-02_jprb,.105e-01_jprb,.105e-01_jprb,.995e-02_jprb,.995e-02_jprb,.857e-02_jprb,&
276 &.857e-02_jprb,.527e-02_jprb,.527e-02_jprb,.386e-02_jprb,.386e-02_jprb,.555e-02_jprb,.555e-02_jprb,&
277 &.802e-02_jprb,.802e-02_jprb,.836e-02_jprb,.836e-02_jprb,.880e-02_jprb,.880e-02_jprb,.905e-02_jprb,&
278 &.905e-02_jprb,.835e-02_jprb,.835e-02_jprb,.665e-02_jprb,.665e-02_jprb,.389e-02_jprb,.389e-02_jprb,&
279 &.650e-02_jprb,.650e-02_jprb,.955e-02_jprb,.955e-02_jprb,.981e-02_jprb,.981e-02_jprb,.938e-02_jprb,&
280 &.938e-02_jprb,.913e-02_jprb,.913e-02_jprb,.965e-02_jprb,.965e-02_jprb,.106e-01_jprb,.106e-01_jprb,&
281 &.107e-01_jprb,.107e-01_jprb,.921e-02_jprb,.921e-02_jprb,.558e-02_jprb,.558e-02_jprb,.482e-02_jprb,&
282 &.482e-02_jprb,.395e-02_jprb,.395e-02_jprb,.532e-02_jprb,.532e-02_jprb,.844e-02_jprb,.844e-02_jprb,&
283 &.850e-02_jprb,.850e-02_jprb/)
284 !-- Sea Salt Aerosol month: 4 --- lat: 17 26.0
285 zaer(:,17, 4) = (/&
286 &.816e-02_jprb,.816e-02_jprb,.773e-02_jprb,.773e-02_jprb,.778e-02_jprb,.778e-02_jprb,.751e-02_jprb,&
287 &.751e-02_jprb,.786e-02_jprb,.786e-02_jprb,.885e-02_jprb,.885e-02_jprb,.945e-02_jprb,.945e-02_jprb,&
288 &.993e-02_jprb,.993e-02_jprb,.105e-01_jprb,.105e-01_jprb,.995e-02_jprb,.995e-02_jprb,.857e-02_jprb,&
289 &.857e-02_jprb,.527e-02_jprb,.527e-02_jprb,.386e-02_jprb,.386e-02_jprb,.555e-02_jprb,.555e-02_jprb,&
290 &.802e-02_jprb,.802e-02_jprb,.836e-02_jprb,.836e-02_jprb,.880e-02_jprb,.880e-02_jprb,.905e-02_jprb,&
291 &.905e-02_jprb,.835e-02_jprb,.835e-02_jprb,.665e-02_jprb,.665e-02_jprb,.389e-02_jprb,.389e-02_jprb,&
292 &.650e-02_jprb,.650e-02_jprb,.955e-02_jprb,.955e-02_jprb,.981e-02_jprb,.981e-02_jprb,.938e-02_jprb,&
293 &.938e-02_jprb,.913e-02_jprb,.913e-02_jprb,.965e-02_jprb,.965e-02_jprb,.106e-01_jprb,.106e-01_jprb,&
294 &.107e-01_jprb,.107e-01_jprb,.921e-02_jprb,.921e-02_jprb,.558e-02_jprb,.558e-02_jprb,.482e-02_jprb,&
295 &.482e-02_jprb,.395e-02_jprb,.395e-02_jprb,.532e-02_jprb,.532e-02_jprb,.844e-02_jprb,.844e-02_jprb,&
296 &.850e-02_jprb,.850e-02_jprb/)
297 !-- Sea Salt Aerosol month: 4 --- lat: 18 22.0
298 zaer(:,18, 4) = (/&
299 &.887e-02_jprb,.887e-02_jprb,.872e-02_jprb,.872e-02_jprb,.792e-02_jprb,.792e-02_jprb,.862e-02_jprb,&
300 &.862e-02_jprb,.101e-01_jprb,.101e-01_jprb,.116e-01_jprb,.116e-01_jprb,.131e-01_jprb,.131e-01_jprb,&
301 &.132e-01_jprb,.132e-01_jprb,.125e-01_jprb,.125e-01_jprb,.113e-01_jprb,.113e-01_jprb,.901e-02_jprb,&
302 &.901e-02_jprb,.487e-02_jprb,.487e-02_jprb,.260e-02_jprb,.260e-02_jprb,.348e-02_jprb,.348e-02_jprb,&
303 &.715e-02_jprb,.715e-02_jprb,.922e-02_jprb,.922e-02_jprb,.104e-01_jprb,.104e-01_jprb,.900e-02_jprb,&
304 &.900e-02_jprb,.685e-02_jprb,.685e-02_jprb,.521e-02_jprb,.521e-02_jprb,.349e-02_jprb,.349e-02_jprb,&
305 &.429e-02_jprb,.429e-02_jprb,.554e-02_jprb,.554e-02_jprb,.783e-02_jprb,.783e-02_jprb,.109e-01_jprb,&
306 &.109e-01_jprb,.122e-01_jprb,.122e-01_jprb,.127e-01_jprb,.127e-01_jprb,.136e-01_jprb,.136e-01_jprb,&
307 &.134e-01_jprb,.134e-01_jprb,.113e-01_jprb,.113e-01_jprb,.716e-02_jprb,.716e-02_jprb,.579e-02_jprb,&
308 &.579e-02_jprb,.561e-02_jprb,.561e-02_jprb,.718e-02_jprb,.718e-02_jprb,.815e-02_jprb,.815e-02_jprb,&
309 &.889e-02_jprb,.889e-02_jprb/)
310 !-- Sea Salt Aerosol month: 4 --- lat: 19 18.0
311 zaer(:,19, 4) = (/&
312 &.887e-02_jprb,.887e-02_jprb,.872e-02_jprb,.872e-02_jprb,.792e-02_jprb,.792e-02_jprb,.862e-02_jprb,&
313 &.862e-02_jprb,.101e-01_jprb,.101e-01_jprb,.116e-01_jprb,.116e-01_jprb,.131e-01_jprb,.131e-01_jprb,&
314 &.132e-01_jprb,.132e-01_jprb,.125e-01_jprb,.125e-01_jprb,.113e-01_jprb,.113e-01_jprb,.901e-02_jprb,&
315 &.901e-02_jprb,.487e-02_jprb,.487e-02_jprb,.260e-02_jprb,.260e-02_jprb,.348e-02_jprb,.348e-02_jprb,&
316 &.715e-02_jprb,.715e-02_jprb,.922e-02_jprb,.922e-02_jprb,.104e-01_jprb,.104e-01_jprb,.900e-02_jprb,&
317 &.900e-02_jprb,.685e-02_jprb,.685e-02_jprb,.521e-02_jprb,.521e-02_jprb,.349e-02_jprb,.349e-02_jprb,&
318 &.429e-02_jprb,.429e-02_jprb,.554e-02_jprb,.554e-02_jprb,.783e-02_jprb,.783e-02_jprb,.109e-01_jprb,&
319 &.109e-01_jprb,.122e-01_jprb,.122e-01_jprb,.127e-01_jprb,.127e-01_jprb,.136e-01_jprb,.136e-01_jprb,&
320 &.134e-01_jprb,.134e-01_jprb,.113e-01_jprb,.113e-01_jprb,.716e-02_jprb,.716e-02_jprb,.579e-02_jprb,&
321 &.579e-02_jprb,.561e-02_jprb,.561e-02_jprb,.718e-02_jprb,.718e-02_jprb,.815e-02_jprb,.815e-02_jprb,&
322 &.889e-02_jprb,.889e-02_jprb/)
323 !-- Sea Salt Aerosol month: 4 --- lat: 20 14.0
324 zaer(:,20, 4) = (/&
325 &.925e-02_jprb,.925e-02_jprb,.941e-02_jprb,.941e-02_jprb,.104e-01_jprb,.104e-01_jprb,.120e-01_jprb,&
326 &.120e-01_jprb,.133e-01_jprb,.133e-01_jprb,.149e-01_jprb,.149e-01_jprb,.152e-01_jprb,.152e-01_jprb,&
327 &.139e-01_jprb,.139e-01_jprb,.115e-01_jprb,.115e-01_jprb,.817e-02_jprb,.817e-02_jprb,.427e-02_jprb,&
328 &.427e-02_jprb,.111e-02_jprb,.111e-02_jprb,.102e-02_jprb,.102e-02_jprb,.302e-02_jprb,.302e-02_jprb,&
329 &.756e-02_jprb,.756e-02_jprb,.121e-01_jprb,.121e-01_jprb,.125e-01_jprb,.125e-01_jprb,.102e-01_jprb,&
330 &.102e-01_jprb,.664e-02_jprb,.664e-02_jprb,.347e-02_jprb,.347e-02_jprb,.185e-02_jprb,.185e-02_jprb,&
331 &.284e-02_jprb,.284e-02_jprb,.639e-02_jprb,.639e-02_jprb,.965e-02_jprb,.965e-02_jprb,.110e-01_jprb,&
332 &.110e-01_jprb,.101e-01_jprb,.101e-01_jprb,.972e-02_jprb,.972e-02_jprb,.102e-01_jprb,.102e-01_jprb,&
333 &.113e-01_jprb,.113e-01_jprb,.101e-01_jprb,.101e-01_jprb,.727e-02_jprb,.727e-02_jprb,.542e-02_jprb,&
334 &.542e-02_jprb,.543e-02_jprb,.543e-02_jprb,.651e-02_jprb,.651e-02_jprb,.788e-02_jprb,.788e-02_jprb,&
335 &.859e-02_jprb,.859e-02_jprb/)
336 !-- Sea Salt Aerosol month: 4 --- lat: 21 10.0
337 zaer(:,21, 4) = (/&
338 &.925e-02_jprb,.925e-02_jprb,.941e-02_jprb,.941e-02_jprb,.104e-01_jprb,.104e-01_jprb,.120e-01_jprb,&
339 &.120e-01_jprb,.133e-01_jprb,.133e-01_jprb,.149e-01_jprb,.149e-01_jprb,.152e-01_jprb,.152e-01_jprb,&
340 &.139e-01_jprb,.139e-01_jprb,.115e-01_jprb,.115e-01_jprb,.817e-02_jprb,.817e-02_jprb,.427e-02_jprb,&
341 &.427e-02_jprb,.111e-02_jprb,.111e-02_jprb,.102e-02_jprb,.102e-02_jprb,.302e-02_jprb,.302e-02_jprb,&
342 &.756e-02_jprb,.756e-02_jprb,.121e-01_jprb,.121e-01_jprb,.125e-01_jprb,.125e-01_jprb,.102e-01_jprb,&
343 &.102e-01_jprb,.664e-02_jprb,.664e-02_jprb,.347e-02_jprb,.347e-02_jprb,.185e-02_jprb,.185e-02_jprb,&
344 &.284e-02_jprb,.284e-02_jprb,.639e-02_jprb,.639e-02_jprb,.965e-02_jprb,.965e-02_jprb,.110e-01_jprb,&
345 &.110e-01_jprb,.101e-01_jprb,.101e-01_jprb,.972e-02_jprb,.972e-02_jprb,.102e-01_jprb,.102e-01_jprb,&
346 &.113e-01_jprb,.113e-01_jprb,.101e-01_jprb,.101e-01_jprb,.727e-02_jprb,.727e-02_jprb,.542e-02_jprb,&
347 &.542e-02_jprb,.543e-02_jprb,.543e-02_jprb,.651e-02_jprb,.651e-02_jprb,.788e-02_jprb,.788e-02_jprb,&
348 &.859e-02_jprb,.859e-02_jprb/)
349 !-- Sea Salt Aerosol month: 4 --- lat: 22 6.0
350 zaer(:,22, 4) = (/&
351 &.111e-01_jprb,.111e-01_jprb,.117e-01_jprb,.117e-01_jprb,.124e-01_jprb,.124e-01_jprb,.130e-01_jprb,&
352 &.130e-01_jprb,.130e-01_jprb,.130e-01_jprb,.127e-01_jprb,.127e-01_jprb,.118e-01_jprb,.118e-01_jprb,&
353 &.101e-01_jprb,.101e-01_jprb,.741e-02_jprb,.741e-02_jprb,.400e-02_jprb,.400e-02_jprb,.969e-03_jprb,&
354 &.969e-03_jprb,.340e-03_jprb,.340e-03_jprb,.710e-03_jprb,.710e-03_jprb,.225e-02_jprb,.225e-02_jprb,&
355 &.627e-02_jprb,.627e-02_jprb,.950e-02_jprb,.950e-02_jprb,.940e-02_jprb,.940e-02_jprb,.760e-02_jprb,&
356 &.760e-02_jprb,.476e-02_jprb,.476e-02_jprb,.157e-02_jprb,.157e-02_jprb,.226e-02_jprb,.226e-02_jprb,&
357 &.537e-02_jprb,.537e-02_jprb,.937e-02_jprb,.937e-02_jprb,.102e-01_jprb,.102e-01_jprb,.935e-02_jprb,&
358 &.935e-02_jprb,.803e-02_jprb,.803e-02_jprb,.660e-02_jprb,.660e-02_jprb,.521e-02_jprb,.521e-02_jprb,&
359 &.436e-02_jprb,.436e-02_jprb,.466e-02_jprb,.466e-02_jprb,.469e-02_jprb,.469e-02_jprb,.397e-02_jprb,&
360 &.397e-02_jprb,.402e-02_jprb,.402e-02_jprb,.660e-02_jprb,.660e-02_jprb,.935e-02_jprb,.935e-02_jprb,&
361 &.106e-01_jprb,.106e-01_jprb/)
362 !-- Sea Salt Aerosol month: 4 --- lat: 23 2.0
363 zaer(:,23, 4) = (/&
364 &.111e-01_jprb,.111e-01_jprb,.117e-01_jprb,.117e-01_jprb,.124e-01_jprb,.124e-01_jprb,.130e-01_jprb,&
365 &.130e-01_jprb,.130e-01_jprb,.130e-01_jprb,.127e-01_jprb,.127e-01_jprb,.118e-01_jprb,.118e-01_jprb,&
366 &.101e-01_jprb,.101e-01_jprb,.741e-02_jprb,.741e-02_jprb,.400e-02_jprb,.400e-02_jprb,.969e-03_jprb,&
367 &.969e-03_jprb,.340e-03_jprb,.340e-03_jprb,.710e-03_jprb,.710e-03_jprb,.225e-02_jprb,.225e-02_jprb,&
368 &.627e-02_jprb,.627e-02_jprb,.950e-02_jprb,.950e-02_jprb,.940e-02_jprb,.940e-02_jprb,.760e-02_jprb,&
369 &.760e-02_jprb,.476e-02_jprb,.476e-02_jprb,.157e-02_jprb,.157e-02_jprb,.226e-02_jprb,.226e-02_jprb,&
370 &.537e-02_jprb,.537e-02_jprb,.937e-02_jprb,.937e-02_jprb,.102e-01_jprb,.102e-01_jprb,.935e-02_jprb,&
371 &.935e-02_jprb,.803e-02_jprb,.803e-02_jprb,.660e-02_jprb,.660e-02_jprb,.521e-02_jprb,.521e-02_jprb,&
372 &.436e-02_jprb,.436e-02_jprb,.466e-02_jprb,.466e-02_jprb,.469e-02_jprb,.469e-02_jprb,.397e-02_jprb,&
373 &.397e-02_jprb,.402e-02_jprb,.402e-02_jprb,.660e-02_jprb,.660e-02_jprb,.935e-02_jprb,.935e-02_jprb,&
374 &.106e-01_jprb,.106e-01_jprb/)
375 !-- Sea Salt Aerosol month: 4 --- lat: 24 -2.0
376 zaer(:,24, 4) = (/&
377 &.117e-01_jprb,.117e-01_jprb,.120e-01_jprb,.120e-01_jprb,.128e-01_jprb,.128e-01_jprb,.130e-01_jprb,&
378 &.130e-01_jprb,.123e-01_jprb,.123e-01_jprb,.116e-01_jprb,.116e-01_jprb,.104e-01_jprb,.104e-01_jprb,&
379 &.876e-02_jprb,.876e-02_jprb,.696e-02_jprb,.696e-02_jprb,.506e-02_jprb,.506e-02_jprb,.282e-02_jprb,&
380 &.282e-02_jprb,.235e-02_jprb,.235e-02_jprb,.459e-02_jprb,.459e-02_jprb,.888e-02_jprb,.888e-02_jprb,&
381 &.998e-02_jprb,.998e-02_jprb,.818e-02_jprb,.818e-02_jprb,.545e-02_jprb,.545e-02_jprb,.327e-02_jprb,&
382 &.327e-02_jprb,.233e-02_jprb,.233e-02_jprb,.123e-02_jprb,.123e-02_jprb,.231e-02_jprb,.231e-02_jprb,&
383 &.420e-02_jprb,.420e-02_jprb,.634e-02_jprb,.634e-02_jprb,.815e-02_jprb,.815e-02_jprb,.772e-02_jprb,&
384 &.772e-02_jprb,.693e-02_jprb,.693e-02_jprb,.595e-02_jprb,.595e-02_jprb,.509e-02_jprb,.509e-02_jprb,&
385 &.478e-02_jprb,.478e-02_jprb,.572e-02_jprb,.572e-02_jprb,.704e-02_jprb,.704e-02_jprb,.773e-02_jprb,&
386 &.773e-02_jprb,.803e-02_jprb,.803e-02_jprb,.942e-02_jprb,.942e-02_jprb,.118e-01_jprb,.118e-01_jprb,&
387 &.119e-01_jprb,.119e-01_jprb/)
388 !-- Sea Salt Aerosol month: 4 --- lat: 25 -6.0
389 zaer(:,25, 4) = (/&
390 &.117e-01_jprb,.117e-01_jprb,.120e-01_jprb,.120e-01_jprb,.128e-01_jprb,.128e-01_jprb,.130e-01_jprb,&
391 &.130e-01_jprb,.123e-01_jprb,.123e-01_jprb,.116e-01_jprb,.116e-01_jprb,.104e-01_jprb,.104e-01_jprb,&
392 &.876e-02_jprb,.876e-02_jprb,.696e-02_jprb,.696e-02_jprb,.506e-02_jprb,.506e-02_jprb,.282e-02_jprb,&
393 &.282e-02_jprb,.235e-02_jprb,.235e-02_jprb,.459e-02_jprb,.459e-02_jprb,.888e-02_jprb,.888e-02_jprb,&
394 &.998e-02_jprb,.998e-02_jprb,.818e-02_jprb,.818e-02_jprb,.545e-02_jprb,.545e-02_jprb,.327e-02_jprb,&
395 &.327e-02_jprb,.233e-02_jprb,.233e-02_jprb,.123e-02_jprb,.123e-02_jprb,.231e-02_jprb,.231e-02_jprb,&
396 &.420e-02_jprb,.420e-02_jprb,.634e-02_jprb,.634e-02_jprb,.815e-02_jprb,.815e-02_jprb,.772e-02_jprb,&
397 &.772e-02_jprb,.693e-02_jprb,.693e-02_jprb,.595e-02_jprb,.595e-02_jprb,.509e-02_jprb,.509e-02_jprb,&
398 &.478e-02_jprb,.478e-02_jprb,.572e-02_jprb,.572e-02_jprb,.704e-02_jprb,.704e-02_jprb,.773e-02_jprb,&
399 &.773e-02_jprb,.803e-02_jprb,.803e-02_jprb,.942e-02_jprb,.942e-02_jprb,.118e-01_jprb,.118e-01_jprb,&
400 &.119e-01_jprb,.119e-01_jprb/)
401 !-- Sea Salt Aerosol month: 4 --- lat: 26 -10.0
402 zaer(:,26, 4) = (/&
403 &.132e-01_jprb,.132e-01_jprb,.125e-01_jprb,.125e-01_jprb,.132e-01_jprb,.132e-01_jprb,.145e-01_jprb,&
404 &.145e-01_jprb,.154e-01_jprb,.154e-01_jprb,.140e-01_jprb,.140e-01_jprb,.123e-01_jprb,.123e-01_jprb,&
405 &.106e-01_jprb,.106e-01_jprb,.835e-02_jprb,.835e-02_jprb,.725e-02_jprb,.725e-02_jprb,.853e-02_jprb,&
406 &.853e-02_jprb,.867e-02_jprb,.867e-02_jprb,.970e-02_jprb,.970e-02_jprb,.104e-01_jprb,.104e-01_jprb,&
407 &.943e-02_jprb,.943e-02_jprb,.762e-02_jprb,.762e-02_jprb,.549e-02_jprb,.549e-02_jprb,.253e-02_jprb,&
408 &.253e-02_jprb,.163e-02_jprb,.163e-02_jprb,.120e-02_jprb,.120e-02_jprb,.146e-02_jprb,.146e-02_jprb,&
409 &.210e-02_jprb,.210e-02_jprb,.346e-02_jprb,.346e-02_jprb,.544e-02_jprb,.544e-02_jprb,.579e-02_jprb,&
410 &.579e-02_jprb,.567e-02_jprb,.567e-02_jprb,.644e-02_jprb,.644e-02_jprb,.648e-02_jprb,.648e-02_jprb,&
411 &.572e-02_jprb,.572e-02_jprb,.882e-02_jprb,.882e-02_jprb,.932e-02_jprb,.932e-02_jprb,.116e-01_jprb,&
412 &.116e-01_jprb,.119e-01_jprb,.119e-01_jprb,.131e-01_jprb,.131e-01_jprb,.133e-01_jprb,.133e-01_jprb,&
413 &.132e-01_jprb,.132e-01_jprb/)
414 !-- Sea Salt Aerosol month: 4 --- lat: 27 -14.0
415 zaer(:,27, 4) = (/&
416 &.132e-01_jprb,.132e-01_jprb,.125e-01_jprb,.125e-01_jprb,.132e-01_jprb,.132e-01_jprb,.145e-01_jprb,&
417 &.145e-01_jprb,.154e-01_jprb,.154e-01_jprb,.140e-01_jprb,.140e-01_jprb,.123e-01_jprb,.123e-01_jprb,&
418 &.106e-01_jprb,.106e-01_jprb,.835e-02_jprb,.835e-02_jprb,.725e-02_jprb,.725e-02_jprb,.853e-02_jprb,&
419 &.853e-02_jprb,.867e-02_jprb,.867e-02_jprb,.970e-02_jprb,.970e-02_jprb,.104e-01_jprb,.104e-01_jprb,&
420 &.943e-02_jprb,.943e-02_jprb,.762e-02_jprb,.762e-02_jprb,.549e-02_jprb,.549e-02_jprb,.253e-02_jprb,&
421 &.253e-02_jprb,.163e-02_jprb,.163e-02_jprb,.120e-02_jprb,.120e-02_jprb,.146e-02_jprb,.146e-02_jprb,&
422 &.210e-02_jprb,.210e-02_jprb,.346e-02_jprb,.346e-02_jprb,.544e-02_jprb,.544e-02_jprb,.579e-02_jprb,&
423 &.579e-02_jprb,.567e-02_jprb,.567e-02_jprb,.644e-02_jprb,.644e-02_jprb,.648e-02_jprb,.648e-02_jprb,&
424 &.572e-02_jprb,.572e-02_jprb,.882e-02_jprb,.882e-02_jprb,.932e-02_jprb,.932e-02_jprb,.116e-01_jprb,&
425 &.116e-01_jprb,.119e-01_jprb,.119e-01_jprb,.131e-01_jprb,.131e-01_jprb,.133e-01_jprb,.133e-01_jprb,&
426 &.132e-01_jprb,.132e-01_jprb/)
427 !-- Sea Salt Aerosol month: 4 --- lat: 28 -18.0
428 zaer(:,28, 4) = (/&
429 &.103e-01_jprb,.103e-01_jprb,.979e-02_jprb,.979e-02_jprb,.949e-02_jprb,.949e-02_jprb,.105e-01_jprb,&
430 &.105e-01_jprb,.108e-01_jprb,.108e-01_jprb,.988e-02_jprb,.988e-02_jprb,.932e-02_jprb,.932e-02_jprb,&
431 &.940e-02_jprb,.940e-02_jprb,.801e-02_jprb,.801e-02_jprb,.805e-02_jprb,.805e-02_jprb,.909e-02_jprb,&
432 &.909e-02_jprb,.999e-02_jprb,.999e-02_jprb,.104e-01_jprb,.104e-01_jprb,.104e-01_jprb,.104e-01_jprb,&
433 &.966e-02_jprb,.966e-02_jprb,.833e-02_jprb,.833e-02_jprb,.531e-02_jprb,.531e-02_jprb,.274e-02_jprb,&
434 &.274e-02_jprb,.244e-02_jprb,.244e-02_jprb,.222e-02_jprb,.222e-02_jprb,.197e-02_jprb,.197e-02_jprb,&
435 &.192e-02_jprb,.192e-02_jprb,.246e-02_jprb,.246e-02_jprb,.255e-02_jprb,.255e-02_jprb,.432e-02_jprb,&
436 &.432e-02_jprb,.375e-02_jprb,.375e-02_jprb,.352e-02_jprb,.352e-02_jprb,.420e-02_jprb,.420e-02_jprb,&
437 &.373e-02_jprb,.373e-02_jprb,.600e-02_jprb,.600e-02_jprb,.924e-02_jprb,.924e-02_jprb,.117e-01_jprb,&
438 &.117e-01_jprb,.124e-01_jprb,.124e-01_jprb,.120e-01_jprb,.120e-01_jprb,.115e-01_jprb,.115e-01_jprb,&
439 &.107e-01_jprb,.107e-01_jprb/)
440 !-- Sea Salt Aerosol month: 4 --- lat: 29 -22.0
441 zaer(:,29, 4) = (/&
442 &.103e-01_jprb,.103e-01_jprb,.979e-02_jprb,.979e-02_jprb,.949e-02_jprb,.949e-02_jprb,.105e-01_jprb,&
443 &.105e-01_jprb,.108e-01_jprb,.108e-01_jprb,.988e-02_jprb,.988e-02_jprb,.932e-02_jprb,.932e-02_jprb,&
444 &.940e-02_jprb,.940e-02_jprb,.801e-02_jprb,.801e-02_jprb,.805e-02_jprb,.805e-02_jprb,.909e-02_jprb,&
445 &.909e-02_jprb,.999e-02_jprb,.999e-02_jprb,.104e-01_jprb,.104e-01_jprb,.104e-01_jprb,.104e-01_jprb,&
446 &.966e-02_jprb,.966e-02_jprb,.833e-02_jprb,.833e-02_jprb,.531e-02_jprb,.531e-02_jprb,.274e-02_jprb,&
447 &.274e-02_jprb,.244e-02_jprb,.244e-02_jprb,.222e-02_jprb,.222e-02_jprb,.197e-02_jprb,.197e-02_jprb,&
448 &.192e-02_jprb,.192e-02_jprb,.246e-02_jprb,.246e-02_jprb,.255e-02_jprb,.255e-02_jprb,.432e-02_jprb,&
449 &.432e-02_jprb,.375e-02_jprb,.375e-02_jprb,.352e-02_jprb,.352e-02_jprb,.420e-02_jprb,.420e-02_jprb,&
450 &.373e-02_jprb,.373e-02_jprb,.600e-02_jprb,.600e-02_jprb,.924e-02_jprb,.924e-02_jprb,.117e-01_jprb,&
451 &.117e-01_jprb,.124e-01_jprb,.124e-01_jprb,.120e-01_jprb,.120e-01_jprb,.115e-01_jprb,.115e-01_jprb,&
452 &.107e-01_jprb,.107e-01_jprb/)
453 !-- Sea Salt Aerosol month: 4 --- lat: 30 -26.0
454 zaer(:,30, 4) = (/&
455 &.783e-02_jprb,.783e-02_jprb,.779e-02_jprb,.779e-02_jprb,.804e-02_jprb,.804e-02_jprb,.801e-02_jprb,&
456 &.801e-02_jprb,.746e-02_jprb,.746e-02_jprb,.640e-02_jprb,.640e-02_jprb,.488e-02_jprb,.488e-02_jprb,&
457 &.411e-02_jprb,.411e-02_jprb,.528e-02_jprb,.528e-02_jprb,.662e-02_jprb,.662e-02_jprb,.754e-02_jprb,&
458 &.754e-02_jprb,.838e-02_jprb,.838e-02_jprb,.847e-02_jprb,.847e-02_jprb,.942e-02_jprb,.942e-02_jprb,&
459 &.953e-02_jprb,.953e-02_jprb,.885e-02_jprb,.885e-02_jprb,.645e-02_jprb,.645e-02_jprb,.345e-02_jprb,&
460 &.345e-02_jprb,.262e-02_jprb,.262e-02_jprb,.250e-02_jprb,.250e-02_jprb,.239e-02_jprb,.239e-02_jprb,&
461 &.222e-02_jprb,.222e-02_jprb,.191e-02_jprb,.191e-02_jprb,.177e-02_jprb,.177e-02_jprb,.173e-02_jprb,&
462 &.173e-02_jprb,.174e-02_jprb,.174e-02_jprb,.172e-02_jprb,.172e-02_jprb,.168e-02_jprb,.168e-02_jprb,&
463 &.154e-02_jprb,.154e-02_jprb,.198e-02_jprb,.198e-02_jprb,.445e-02_jprb,.445e-02_jprb,.721e-02_jprb,&
464 &.721e-02_jprb,.806e-02_jprb,.806e-02_jprb,.880e-02_jprb,.880e-02_jprb,.876e-02_jprb,.876e-02_jprb,&
465 &.845e-02_jprb,.845e-02_jprb/)
466 !-- Sea Salt Aerosol month: 4 --- lat: 31 -30.0
467 zaer(:,31, 4) = (/&
468 &.783e-02_jprb,.783e-02_jprb,.779e-02_jprb,.779e-02_jprb,.804e-02_jprb,.804e-02_jprb,.801e-02_jprb,&
469 &.801e-02_jprb,.746e-02_jprb,.746e-02_jprb,.640e-02_jprb,.640e-02_jprb,.488e-02_jprb,.488e-02_jprb,&
470 &.411e-02_jprb,.411e-02_jprb,.528e-02_jprb,.528e-02_jprb,.662e-02_jprb,.662e-02_jprb,.754e-02_jprb,&
471 &.754e-02_jprb,.838e-02_jprb,.838e-02_jprb,.847e-02_jprb,.847e-02_jprb,.942e-02_jprb,.942e-02_jprb,&
472 &.953e-02_jprb,.953e-02_jprb,.885e-02_jprb,.885e-02_jprb,.645e-02_jprb,.645e-02_jprb,.345e-02_jprb,&
473 &.345e-02_jprb,.262e-02_jprb,.262e-02_jprb,.250e-02_jprb,.250e-02_jprb,.239e-02_jprb,.239e-02_jprb,&
474 &.222e-02_jprb,.222e-02_jprb,.191e-02_jprb,.191e-02_jprb,.177e-02_jprb,.177e-02_jprb,.173e-02_jprb,&
475 &.173e-02_jprb,.174e-02_jprb,.174e-02_jprb,.172e-02_jprb,.172e-02_jprb,.168e-02_jprb,.168e-02_jprb,&
476 &.154e-02_jprb,.154e-02_jprb,.198e-02_jprb,.198e-02_jprb,.445e-02_jprb,.445e-02_jprb,.721e-02_jprb,&
477 &.721e-02_jprb,.806e-02_jprb,.806e-02_jprb,.880e-02_jprb,.880e-02_jprb,.876e-02_jprb,.876e-02_jprb,&
478 &.845e-02_jprb,.845e-02_jprb/)
479 !-- Sea Salt Aerosol month: 4 --- lat: 32 -34.0
480 zaer(:,32, 4) = (/&
481 &.774e-02_jprb,.774e-02_jprb,.720e-02_jprb,.720e-02_jprb,.753e-02_jprb,.753e-02_jprb,.789e-02_jprb,&
482 &.789e-02_jprb,.709e-02_jprb,.709e-02_jprb,.576e-02_jprb,.576e-02_jprb,.231e-02_jprb,.231e-02_jprb,&
483 &.111e-02_jprb,.111e-02_jprb,.133e-02_jprb,.133e-02_jprb,.195e-02_jprb,.195e-02_jprb,.297e-02_jprb,&
484 &.297e-02_jprb,.611e-02_jprb,.611e-02_jprb,.805e-02_jprb,.805e-02_jprb,.882e-02_jprb,.882e-02_jprb,&
485 &.870e-02_jprb,.870e-02_jprb,.816e-02_jprb,.816e-02_jprb,.774e-02_jprb,.774e-02_jprb,.500e-02_jprb,&
486 &.500e-02_jprb,.327e-02_jprb,.327e-02_jprb,.340e-02_jprb,.340e-02_jprb,.386e-02_jprb,.386e-02_jprb,&
487 &.295e-02_jprb,.295e-02_jprb,.169e-02_jprb,.169e-02_jprb,.161e-02_jprb,.161e-02_jprb,.106e-02_jprb,&
488 &.106e-02_jprb,.887e-03_jprb,.887e-03_jprb,.984e-03_jprb,.984e-03_jprb,.965e-03_jprb,.965e-03_jprb,&
489 &.807e-03_jprb,.807e-03_jprb,.674e-03_jprb,.674e-03_jprb,.206e-02_jprb,.206e-02_jprb,.349e-02_jprb,&
490 &.349e-02_jprb,.560e-02_jprb,.560e-02_jprb,.797e-02_jprb,.797e-02_jprb,.866e-02_jprb,.866e-02_jprb,&
491 &.825e-02_jprb,.825e-02_jprb/)
492 !-- Sea Salt Aerosol month: 4 --- lat: 33 -38.0
493 zaer(:,33, 4) = (/&
494 &.774e-02_jprb,.774e-02_jprb,.720e-02_jprb,.720e-02_jprb,.753e-02_jprb,.753e-02_jprb,.789e-02_jprb,&
495 &.789e-02_jprb,.709e-02_jprb,.709e-02_jprb,.576e-02_jprb,.576e-02_jprb,.231e-02_jprb,.231e-02_jprb,&
496 &.111e-02_jprb,.111e-02_jprb,.133e-02_jprb,.133e-02_jprb,.195e-02_jprb,.195e-02_jprb,.297e-02_jprb,&
497 &.297e-02_jprb,.611e-02_jprb,.611e-02_jprb,.805e-02_jprb,.805e-02_jprb,.882e-02_jprb,.882e-02_jprb,&
498 &.870e-02_jprb,.870e-02_jprb,.816e-02_jprb,.816e-02_jprb,.774e-02_jprb,.774e-02_jprb,.500e-02_jprb,&
499 &.500e-02_jprb,.327e-02_jprb,.327e-02_jprb,.340e-02_jprb,.340e-02_jprb,.386e-02_jprb,.386e-02_jprb,&
500 &.295e-02_jprb,.295e-02_jprb,.169e-02_jprb,.169e-02_jprb,.161e-02_jprb,.161e-02_jprb,.106e-02_jprb,&
501 &.106e-02_jprb,.887e-03_jprb,.887e-03_jprb,.984e-03_jprb,.984e-03_jprb,.965e-03_jprb,.965e-03_jprb,&
502 &.807e-03_jprb,.807e-03_jprb,.674e-03_jprb,.674e-03_jprb,.206e-02_jprb,.206e-02_jprb,.349e-02_jprb,&
503 &.349e-02_jprb,.560e-02_jprb,.560e-02_jprb,.797e-02_jprb,.797e-02_jprb,.866e-02_jprb,.866e-02_jprb,&
504 &.825e-02_jprb,.825e-02_jprb/)
505 !-- Sea Salt Aerosol month: 4 --- lat: 34 -42.0
506 zaer(:,34, 4) = (/&
507 &.716e-02_jprb,.716e-02_jprb,.744e-02_jprb,.744e-02_jprb,.792e-02_jprb,.792e-02_jprb,.864e-02_jprb,&
508 &.864e-02_jprb,.848e-02_jprb,.848e-02_jprb,.549e-02_jprb,.549e-02_jprb,.174e-02_jprb,.174e-02_jprb,&
509 &.738e-03_jprb,.738e-03_jprb,.451e-03_jprb,.451e-03_jprb,.598e-03_jprb,.598e-03_jprb,.588e-03_jprb,&
510 &.588e-03_jprb,.219e-02_jprb,.219e-02_jprb,.507e-02_jprb,.507e-02_jprb,.786e-02_jprb,.786e-02_jprb,&
511 &.934e-02_jprb,.934e-02_jprb,.865e-02_jprb,.865e-02_jprb,.784e-02_jprb,.784e-02_jprb,.615e-02_jprb,&
512 &.615e-02_jprb,.309e-02_jprb,.309e-02_jprb,.190e-02_jprb,.190e-02_jprb,.182e-02_jprb,.182e-02_jprb,&
513 &.243e-02_jprb,.243e-02_jprb,.160e-02_jprb,.160e-02_jprb,.158e-02_jprb,.158e-02_jprb,.924e-03_jprb,&
514 &.924e-03_jprb,.679e-03_jprb,.679e-03_jprb,.591e-03_jprb,.591e-03_jprb,.583e-03_jprb,.583e-03_jprb,&
515 &.518e-03_jprb,.518e-03_jprb,.433e-03_jprb,.433e-03_jprb,.543e-03_jprb,.543e-03_jprb,.175e-02_jprb,&
516 &.175e-02_jprb,.346e-02_jprb,.346e-02_jprb,.591e-02_jprb,.591e-02_jprb,.673e-02_jprb,.673e-02_jprb,&
517 &.693e-02_jprb,.693e-02_jprb/)
518 !-- Sea Salt Aerosol month: 4 --- lat: 35 -46.0
519 zaer(:,35, 4) = (/&
520 &.716e-02_jprb,.716e-02_jprb,.744e-02_jprb,.744e-02_jprb,.792e-02_jprb,.792e-02_jprb,.864e-02_jprb,&
521 &.864e-02_jprb,.848e-02_jprb,.848e-02_jprb,.549e-02_jprb,.549e-02_jprb,.174e-02_jprb,.174e-02_jprb,&
522 &.738e-03_jprb,.738e-03_jprb,.451e-03_jprb,.451e-03_jprb,.598e-03_jprb,.598e-03_jprb,.588e-03_jprb,&
523 &.588e-03_jprb,.219e-02_jprb,.219e-02_jprb,.507e-02_jprb,.507e-02_jprb,.786e-02_jprb,.786e-02_jprb,&
524 &.934e-02_jprb,.934e-02_jprb,.865e-02_jprb,.865e-02_jprb,.784e-02_jprb,.784e-02_jprb,.615e-02_jprb,&
525 &.615e-02_jprb,.309e-02_jprb,.309e-02_jprb,.190e-02_jprb,.190e-02_jprb,.182e-02_jprb,.182e-02_jprb,&
526 &.243e-02_jprb,.243e-02_jprb,.160e-02_jprb,.160e-02_jprb,.158e-02_jprb,.158e-02_jprb,.924e-03_jprb,&
527 &.924e-03_jprb,.679e-03_jprb,.679e-03_jprb,.591e-03_jprb,.591e-03_jprb,.583e-03_jprb,.583e-03_jprb,&
528 &.518e-03_jprb,.518e-03_jprb,.433e-03_jprb,.433e-03_jprb,.543e-03_jprb,.543e-03_jprb,.175e-02_jprb,&
529 &.175e-02_jprb,.346e-02_jprb,.346e-02_jprb,.591e-02_jprb,.591e-02_jprb,.673e-02_jprb,.673e-02_jprb,&
530 &.693e-02_jprb,.693e-02_jprb/)
531 !-- Sea Salt Aerosol month: 4 --- lat: 36 -50.0
532 zaer(:,36, 4) = (/&
533 &.646e-02_jprb,.646e-02_jprb,.657e-02_jprb,.657e-02_jprb,.669e-02_jprb,.669e-02_jprb,.692e-02_jprb,&
534 &.692e-02_jprb,.723e-02_jprb,.723e-02_jprb,.428e-02_jprb,.428e-02_jprb,.134e-02_jprb,.134e-02_jprb,&
535 &.570e-03_jprb,.570e-03_jprb,.461e-03_jprb,.461e-03_jprb,.816e-03_jprb,.816e-03_jprb,.727e-03_jprb,&
536 &.727e-03_jprb,.895e-03_jprb,.895e-03_jprb,.336e-02_jprb,.336e-02_jprb,.807e-02_jprb,.807e-02_jprb,&
537 &.958e-02_jprb,.958e-02_jprb,.108e-01_jprb,.108e-01_jprb,.999e-02_jprb,.999e-02_jprb,.724e-02_jprb,&
538 &.724e-02_jprb,.357e-02_jprb,.357e-02_jprb,.155e-02_jprb,.155e-02_jprb,.113e-02_jprb,.113e-02_jprb,&
539 &.989e-03_jprb,.989e-03_jprb,.106e-02_jprb,.106e-02_jprb,.988e-03_jprb,.988e-03_jprb,.856e-03_jprb,&
540 &.856e-03_jprb,.714e-03_jprb,.714e-03_jprb,.583e-03_jprb,.583e-03_jprb,.496e-03_jprb,.496e-03_jprb,&
541 &.418e-03_jprb,.418e-03_jprb,.362e-03_jprb,.362e-03_jprb,.349e-03_jprb,.349e-03_jprb,.603e-03_jprb,&
542 &.603e-03_jprb,.236e-02_jprb,.236e-02_jprb,.457e-02_jprb,.457e-02_jprb,.448e-02_jprb,.448e-02_jprb,&
543 &.570e-02_jprb,.570e-02_jprb/)
544 !-- Sea Salt Aerosol month: 4 --- lat: 37 -54.0
545 zaer(:,37, 4) = (/&
546 &.646e-02_jprb,.646e-02_jprb,.657e-02_jprb,.657e-02_jprb,.669e-02_jprb,.669e-02_jprb,.692e-02_jprb,&
547 &.692e-02_jprb,.723e-02_jprb,.723e-02_jprb,.428e-02_jprb,.428e-02_jprb,.134e-02_jprb,.134e-02_jprb,&
548 &.570e-03_jprb,.570e-03_jprb,.461e-03_jprb,.461e-03_jprb,.816e-03_jprb,.816e-03_jprb,.727e-03_jprb,&
549 &.727e-03_jprb,.895e-03_jprb,.895e-03_jprb,.336e-02_jprb,.336e-02_jprb,.807e-02_jprb,.807e-02_jprb,&
550 &.958e-02_jprb,.958e-02_jprb,.108e-01_jprb,.108e-01_jprb,.999e-02_jprb,.999e-02_jprb,.724e-02_jprb,&
551 &.724e-02_jprb,.357e-02_jprb,.357e-02_jprb,.155e-02_jprb,.155e-02_jprb,.113e-02_jprb,.113e-02_jprb,&
552 &.989e-03_jprb,.989e-03_jprb,.106e-02_jprb,.106e-02_jprb,.988e-03_jprb,.988e-03_jprb,.856e-03_jprb,&
553 &.856e-03_jprb,.714e-03_jprb,.714e-03_jprb,.583e-03_jprb,.583e-03_jprb,.496e-03_jprb,.496e-03_jprb,&
554 &.418e-03_jprb,.418e-03_jprb,.362e-03_jprb,.362e-03_jprb,.349e-03_jprb,.349e-03_jprb,.603e-03_jprb,&
555 &.603e-03_jprb,.236e-02_jprb,.236e-02_jprb,.457e-02_jprb,.457e-02_jprb,.448e-02_jprb,.448e-02_jprb,&
556 &.570e-02_jprb,.570e-02_jprb/)
557 !-- Sea Salt Aerosol month: 4 --- lat: 38 -58.0
558 zaer(:,38, 4) = (/&
559 &.432e-02_jprb,.432e-02_jprb,.370e-02_jprb,.370e-02_jprb,.196e-02_jprb,.196e-02_jprb,.299e-02_jprb,&
560 &.299e-02_jprb,.253e-02_jprb,.253e-02_jprb,.144e-02_jprb,.144e-02_jprb,.812e-03_jprb,.812e-03_jprb,&
561 &.570e-03_jprb,.570e-03_jprb,.808e-03_jprb,.808e-03_jprb,.287e-02_jprb,.287e-02_jprb,.157e-02_jprb,&
562 &.157e-02_jprb,.175e-02_jprb,.175e-02_jprb,.568e-02_jprb,.568e-02_jprb,.657e-02_jprb,.657e-02_jprb,&
563 &.920e-02_jprb,.920e-02_jprb,.123e-01_jprb,.123e-01_jprb,.125e-01_jprb,.125e-01_jprb,.990e-02_jprb,&
564 &.990e-02_jprb,.710e-02_jprb,.710e-02_jprb,.255e-02_jprb,.255e-02_jprb,.196e-02_jprb,.196e-02_jprb,&
565 &.120e-02_jprb,.120e-02_jprb,.111e-02_jprb,.111e-02_jprb,.106e-02_jprb,.106e-02_jprb,.934e-03_jprb,&
566 &.934e-03_jprb,.784e-03_jprb,.784e-03_jprb,.619e-03_jprb,.619e-03_jprb,.487e-03_jprb,.487e-03_jprb,&
567 &.409e-03_jprb,.409e-03_jprb,.336e-03_jprb,.336e-03_jprb,.315e-03_jprb,.315e-03_jprb,.534e-03_jprb,&
568 &.534e-03_jprb,.150e-02_jprb,.150e-02_jprb,.217e-02_jprb,.217e-02_jprb,.197e-02_jprb,.197e-02_jprb,&
569 &.338e-02_jprb,.338e-02_jprb/)
570 !-- Sea Salt Aerosol month: 4 --- lat: 39 -62.0
571 zaer(:,39, 4) = (/&
572 &.432e-02_jprb,.432e-02_jprb,.370e-02_jprb,.370e-02_jprb,.196e-02_jprb,.196e-02_jprb,.299e-02_jprb,&
573 &.299e-02_jprb,.253e-02_jprb,.253e-02_jprb,.144e-02_jprb,.144e-02_jprb,.812e-03_jprb,.812e-03_jprb,&
574 &.570e-03_jprb,.570e-03_jprb,.808e-03_jprb,.808e-03_jprb,.287e-02_jprb,.287e-02_jprb,.157e-02_jprb,&
575 &.157e-02_jprb,.175e-02_jprb,.175e-02_jprb,.568e-02_jprb,.568e-02_jprb,.657e-02_jprb,.657e-02_jprb,&
576 &.920e-02_jprb,.920e-02_jprb,.123e-01_jprb,.123e-01_jprb,.125e-01_jprb,.125e-01_jprb,.990e-02_jprb,&
577 &.990e-02_jprb,.710e-02_jprb,.710e-02_jprb,.255e-02_jprb,.255e-02_jprb,.196e-02_jprb,.196e-02_jprb,&
578 &.120e-02_jprb,.120e-02_jprb,.111e-02_jprb,.111e-02_jprb,.106e-02_jprb,.106e-02_jprb,.934e-03_jprb,&
579 &.934e-03_jprb,.784e-03_jprb,.784e-03_jprb,.619e-03_jprb,.619e-03_jprb,.487e-03_jprb,.487e-03_jprb,&
580 &.409e-03_jprb,.409e-03_jprb,.336e-03_jprb,.336e-03_jprb,.315e-03_jprb,.315e-03_jprb,.534e-03_jprb,&
581 &.534e-03_jprb,.150e-02_jprb,.150e-02_jprb,.217e-02_jprb,.217e-02_jprb,.197e-02_jprb,.197e-02_jprb,&
582 &.338e-02_jprb,.338e-02_jprb/)
583 !-- Sea Salt Aerosol month: 4 --- lat: 40 -66.0
584 zaer(:,40, 4) = (/&
585 &.169e-02_jprb,.169e-02_jprb,.197e-02_jprb,.197e-02_jprb,.803e-03_jprb,.803e-03_jprb,.108e-02_jprb,&
586 &.108e-02_jprb,.141e-02_jprb,.141e-02_jprb,.113e-02_jprb,.113e-02_jprb,.885e-03_jprb,.885e-03_jprb,&
587 &.645e-03_jprb,.645e-03_jprb,.895e-03_jprb,.895e-03_jprb,.794e-03_jprb,.794e-03_jprb,.832e-03_jprb,&
588 &.832e-03_jprb,.142e-02_jprb,.142e-02_jprb,.382e-02_jprb,.382e-02_jprb,.194e-02_jprb,.194e-02_jprb,&
589 &.321e-02_jprb,.321e-02_jprb,.583e-02_jprb,.583e-02_jprb,.801e-02_jprb,.801e-02_jprb,.974e-02_jprb,&
590 &.974e-02_jprb,.102e-01_jprb,.102e-01_jprb,.667e-02_jprb,.667e-02_jprb,.316e-02_jprb,.316e-02_jprb,&
591 &.279e-02_jprb,.279e-02_jprb,.298e-02_jprb,.298e-02_jprb,.210e-02_jprb,.210e-02_jprb,.147e-02_jprb,&
592 &.147e-02_jprb,.934e-03_jprb,.934e-03_jprb,.591e-03_jprb,.591e-03_jprb,.463e-03_jprb,.463e-03_jprb,&
593 &.424e-03_jprb,.424e-03_jprb,.359e-03_jprb,.359e-03_jprb,.357e-03_jprb,.357e-03_jprb,.394e-03_jprb,&
594 &.394e-03_jprb,.457e-03_jprb,.457e-03_jprb,.574e-03_jprb,.574e-03_jprb,.904e-03_jprb,.904e-03_jprb,&
595 &.120e-02_jprb,.120e-02_jprb/)
596 !-- Sea Salt Aerosol month: 4 --- lat: 41 -70.0
597 zaer(:,41, 4) = (/&
598 &.169e-02_jprb,.169e-02_jprb,.197e-02_jprb,.197e-02_jprb,.803e-03_jprb,.803e-03_jprb,.108e-02_jprb,&
599 &.108e-02_jprb,.141e-02_jprb,.141e-02_jprb,.113e-02_jprb,.113e-02_jprb,.885e-03_jprb,.885e-03_jprb,&
600 &.645e-03_jprb,.645e-03_jprb,.895e-03_jprb,.895e-03_jprb,.794e-03_jprb,.794e-03_jprb,.832e-03_jprb,&
601 &.832e-03_jprb,.142e-02_jprb,.142e-02_jprb,.382e-02_jprb,.382e-02_jprb,.194e-02_jprb,.194e-02_jprb,&
602 &.321e-02_jprb,.321e-02_jprb,.583e-02_jprb,.583e-02_jprb,.801e-02_jprb,.801e-02_jprb,.974e-02_jprb,&
603 &.974e-02_jprb,.102e-01_jprb,.102e-01_jprb,.667e-02_jprb,.667e-02_jprb,.316e-02_jprb,.316e-02_jprb,&
604 &.279e-02_jprb,.279e-02_jprb,.298e-02_jprb,.298e-02_jprb,.210e-02_jprb,.210e-02_jprb,.147e-02_jprb,&
605 &.147e-02_jprb,.934e-03_jprb,.934e-03_jprb,.591e-03_jprb,.591e-03_jprb,.463e-03_jprb,.463e-03_jprb,&
606 &.424e-03_jprb,.424e-03_jprb,.359e-03_jprb,.359e-03_jprb,.357e-03_jprb,.357e-03_jprb,.394e-03_jprb,&
607 &.394e-03_jprb,.457e-03_jprb,.457e-03_jprb,.574e-03_jprb,.574e-03_jprb,.904e-03_jprb,.904e-03_jprb,&
608 &.120e-02_jprb,.120e-02_jprb/)
609 !-- Sea Salt Aerosol month: 4 --- lat: 42 -74.0
610 zaer(:,42, 4) = (/&
611 &.157e-02_jprb,.157e-02_jprb,.116e-02_jprb,.116e-02_jprb,.608e-03_jprb,.608e-03_jprb,.672e-03_jprb,&
612 &.672e-03_jprb,.112e-02_jprb,.112e-02_jprb,.103e-02_jprb,.103e-02_jprb,.629e-03_jprb,.629e-03_jprb,&
613 &.565e-03_jprb,.565e-03_jprb,.589e-03_jprb,.589e-03_jprb,.565e-03_jprb,.565e-03_jprb,.129e-02_jprb,&
614 &.129e-02_jprb,.185e-02_jprb,.185e-02_jprb,.155e-02_jprb,.155e-02_jprb,.112e-02_jprb,.112e-02_jprb,&
615 &.140e-02_jprb,.140e-02_jprb,.166e-02_jprb,.166e-02_jprb,.348e-02_jprb,.348e-02_jprb,.653e-02_jprb,&
616 &.653e-02_jprb,.746e-02_jprb,.746e-02_jprb,.617e-02_jprb,.617e-02_jprb,.544e-02_jprb,.544e-02_jprb,&
617 &.521e-02_jprb,.521e-02_jprb,.419e-02_jprb,.419e-02_jprb,.261e-02_jprb,.261e-02_jprb,.176e-02_jprb,&
618 &.176e-02_jprb,.262e-02_jprb,.262e-02_jprb,.195e-02_jprb,.195e-02_jprb,.485e-03_jprb,.485e-03_jprb,&
619 &.481e-03_jprb,.481e-03_jprb,.726e-03_jprb,.726e-03_jprb,.212e-02_jprb,.212e-02_jprb,.191e-02_jprb,&
620 &.191e-02_jprb,.556e-03_jprb,.556e-03_jprb,.499e-03_jprb,.499e-03_jprb,.650e-03_jprb,.650e-03_jprb,&
621 &.127e-02_jprb,.127e-02_jprb/)
622 !-- Sea Salt Aerosol month: 4 --- lat: 43 -78.0
623 zaer(:,43, 4) = (/&
624 &.157e-02_jprb,.157e-02_jprb,.116e-02_jprb,.116e-02_jprb,.608e-03_jprb,.608e-03_jprb,.672e-03_jprb,&
625 &.672e-03_jprb,.112e-02_jprb,.112e-02_jprb,.103e-02_jprb,.103e-02_jprb,.629e-03_jprb,.629e-03_jprb,&
626 &.565e-03_jprb,.565e-03_jprb,.589e-03_jprb,.589e-03_jprb,.565e-03_jprb,.565e-03_jprb,.129e-02_jprb,&
627 &.129e-02_jprb,.185e-02_jprb,.185e-02_jprb,.155e-02_jprb,.155e-02_jprb,.112e-02_jprb,.112e-02_jprb,&
628 &.140e-02_jprb,.140e-02_jprb,.166e-02_jprb,.166e-02_jprb,.348e-02_jprb,.348e-02_jprb,.653e-02_jprb,&
629 &.653e-02_jprb,.746e-02_jprb,.746e-02_jprb,.617e-02_jprb,.617e-02_jprb,.544e-02_jprb,.544e-02_jprb,&
630 &.521e-02_jprb,.521e-02_jprb,.419e-02_jprb,.419e-02_jprb,.261e-02_jprb,.261e-02_jprb,.176e-02_jprb,&
631 &.176e-02_jprb,.262e-02_jprb,.262e-02_jprb,.195e-02_jprb,.195e-02_jprb,.485e-03_jprb,.485e-03_jprb,&
632 &.481e-03_jprb,.481e-03_jprb,.726e-03_jprb,.726e-03_jprb,.212e-02_jprb,.212e-02_jprb,.191e-02_jprb,&
633 &.191e-02_jprb,.556e-03_jprb,.556e-03_jprb,.499e-03_jprb,.499e-03_jprb,.650e-03_jprb,.650e-03_jprb,&
634 &.127e-02_jprb,.127e-02_jprb/)
635 !-- Sea Salt Aerosol month: 4 --- lat: 44 -82.0
636 zaer(:,44, 4) = (/&
637 &.476e-03_jprb,.476e-03_jprb,.452e-03_jprb,.452e-03_jprb,.448e-03_jprb,.448e-03_jprb,.470e-03_jprb,&
638 &.470e-03_jprb,.471e-03_jprb,.471e-03_jprb,.462e-03_jprb,.462e-03_jprb,.463e-03_jprb,.463e-03_jprb,&
639 &.490e-03_jprb,.490e-03_jprb,.536e-03_jprb,.536e-03_jprb,.632e-03_jprb,.632e-03_jprb,.775e-03_jprb,&
640 &.775e-03_jprb,.886e-03_jprb,.886e-03_jprb,.968e-03_jprb,.968e-03_jprb,.108e-02_jprb,.108e-02_jprb,&
641 &.117e-02_jprb,.117e-02_jprb,.132e-02_jprb,.132e-02_jprb,.180e-02_jprb,.180e-02_jprb,.212e-02_jprb,&
642 &.212e-02_jprb,.234e-02_jprb,.234e-02_jprb,.214e-02_jprb,.214e-02_jprb,.149e-02_jprb,.149e-02_jprb,&
643 &.824e-03_jprb,.824e-03_jprb,.717e-03_jprb,.717e-03_jprb,.655e-03_jprb,.655e-03_jprb,.659e-03_jprb,&
644 &.659e-03_jprb,.691e-03_jprb,.691e-03_jprb,.634e-03_jprb,.634e-03_jprb,.638e-03_jprb,.638e-03_jprb,&
645 &.710e-03_jprb,.710e-03_jprb,.893e-03_jprb,.893e-03_jprb,.103e-02_jprb,.103e-02_jprb,.940e-03_jprb,&
646 &.940e-03_jprb,.489e-03_jprb,.489e-03_jprb,.448e-03_jprb,.448e-03_jprb,.453e-03_jprb,.453e-03_jprb,&
647 &.476e-03_jprb,.476e-03_jprb/)
648 !-- Sea Salt Aerosol month: 4 --- lat: 45 -86.0
649 zaer(:,45, 4) = (/&
650 &.476e-03_jprb,.476e-03_jprb,.452e-03_jprb,.452e-03_jprb,.448e-03_jprb,.448e-03_jprb,.470e-03_jprb,&
651 &.470e-03_jprb,.471e-03_jprb,.471e-03_jprb,.462e-03_jprb,.462e-03_jprb,.463e-03_jprb,.463e-03_jprb,&
652 &.490e-03_jprb,.490e-03_jprb,.536e-03_jprb,.536e-03_jprb,.632e-03_jprb,.632e-03_jprb,.775e-03_jprb,&
653 &.775e-03_jprb,.886e-03_jprb,.886e-03_jprb,.968e-03_jprb,.968e-03_jprb,.108e-02_jprb,.108e-02_jprb,&
654 &.117e-02_jprb,.117e-02_jprb,.132e-02_jprb,.132e-02_jprb,.180e-02_jprb,.180e-02_jprb,.212e-02_jprb,&
655 &.212e-02_jprb,.234e-02_jprb,.234e-02_jprb,.214e-02_jprb,.214e-02_jprb,.149e-02_jprb,.149e-02_jprb,&
656 &.824e-03_jprb,.824e-03_jprb,.717e-03_jprb,.717e-03_jprb,.655e-03_jprb,.655e-03_jprb,.659e-03_jprb,&
657 &.659e-03_jprb,.691e-03_jprb,.691e-03_jprb,.634e-03_jprb,.634e-03_jprb,.638e-03_jprb,.638e-03_jprb,&
658 &.710e-03_jprb,.710e-03_jprb,.893e-03_jprb,.893e-03_jprb,.103e-02_jprb,.103e-02_jprb,.940e-03_jprb,&
659 &.940e-03_jprb,.489e-03_jprb,.489e-03_jprb,.448e-03_jprb,.448e-03_jprb,.453e-03_jprb,.453e-03_jprb,&
660 &.476e-03_jprb,.476e-03_jprb/)
661 !-- Sea Salt Aerosol month: 4 --- lat: 46 -90.0
662 zaer(:,46, 4) = (/&
663 &.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,&
664 &.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,&
665 &.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,&
666 &.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,&
667 &.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,&
668 &.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,&
669 &.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,&
670 &.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,&
671 &.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,&
672 &.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,.690e-03_jprb,&
673 &.690e-03_jprb,.690e-03_jprb/)
674 
675 ! ------------------------------------------------------------------
676 
677 !ZMAX=-1.E+8_JPRB
678 !ZMIN= 1.E+8_JPRB
679  jm=4
680  DO ji=1,46
681  DO jl=1,72
682  raerss(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,'SEA-SALT AEROSOLS ',2e12.5)
690 
691 ! ------------------------------------------------------------------
692 
693 RETURN
694 END SUBROUTINE suecaess_04
!$Id jm
Definition: comconst.h:7
subroutine suecaess_04
Definition: suecaess_04.F90:2
!$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