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