source: LMDZ6/trunk/libf/phymar/suecaesu_01.F90 @ 3416

Last change on this file since 3416 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 52.1 KB
Line 
1SUBROUTINE SUECAESU_01
2
3!**   OPTICAL THICKNESS OF SULFATE-TYPE AEROSOLS
4!                          January
5
6!     PURPOSE.
7!     --------
8
9!**   INTERFACE.
10!     ----------
11!        CALL *SUECAESU* 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
48USE YOEAERC  , ONLY : RAERSU
49
50
51IMPLICIT NONE
52
53
54!     -----------------------------------------------------------------
55
56!*       0.1   ARGUMENTS.
57!              ----------
58
59!     -----------------------------------------------------------------
60
61!*       0.2   LOCAL ARRAYS.
62!              -------------
63
64REAL_B :: ZAER(72,46,1:1)
65
66!     LOCAL INTEGER SCALARS
67INTEGER_M :: JI, JL, JM
68
69!     LOCAL REAL SCALARS
70REAL_B :: ZMAX, ZMIN
71
72!     ------------------------------------------------------------------
73
74!-- Tegen et al., 1997
75
76!-- Total Sulfate Aerosol    month:  1 --- lat:  1  90.0
77ZAER (:, 1, 1) = (/&
78&.571E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
79&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
80&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
81&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
82&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
83&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
84&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
85&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
86&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
87&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
88&.583E-02_JPRB,.583E-02_JPRB/)
89!-- Total Sulfate Aerosol    month:  1 --- lat:  2  86.0
90ZAER (:, 2, 1) = (/&
91&.974E-02_JPRB,.106E-01_JPRB,.113E-01_JPRB,.118E-01_JPRB,.123E-01_JPRB,.124E-01_JPRB,.127E-01_JPRB,&
92&.129E-01_JPRB,.131E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.130E-01_JPRB,.105E-01_JPRB,.965E-02_JPRB,&
93&.869E-02_JPRB,.797E-02_JPRB,.738E-02_JPRB,.691E-02_JPRB,.642E-02_JPRB,.602E-02_JPRB,.580E-02_JPRB,&
94&.560E-02_JPRB,.555E-02_JPRB,.559E-02_JPRB,.512E-02_JPRB,.517E-02_JPRB,.528E-02_JPRB,.540E-02_JPRB,&
95&.551E-02_JPRB,.560E-02_JPRB,.569E-02_JPRB,.576E-02_JPRB,.581E-02_JPRB,.593E-02_JPRB,.598E-02_JPRB,&
96&.598E-02_JPRB,.546E-02_JPRB,.541E-02_JPRB,.534E-02_JPRB,.532E-02_JPRB,.532E-02_JPRB,.535E-02_JPRB,&
97&.538E-02_JPRB,.539E-02_JPRB,.550E-02_JPRB,.556E-02_JPRB,.563E-02_JPRB,.569E-02_JPRB,.551E-02_JPRB,&
98&.543E-02_JPRB,.533E-02_JPRB,.525E-02_JPRB,.516E-02_JPRB,.509E-02_JPRB,.507E-02_JPRB,.499E-02_JPRB,&
99&.499E-02_JPRB,.497E-02_JPRB,.498E-02_JPRB,.500E-02_JPRB,.533E-02_JPRB,.536E-02_JPRB,.540E-02_JPRB,&
100&.549E-02_JPRB,.568E-02_JPRB,.584E-02_JPRB,.604E-02_JPRB,.629E-02_JPRB,.661E-02_JPRB,.700E-02_JPRB,&
101&.740E-02_JPRB,.792E-02_JPRB/)
102!-- Total Sulfate Aerosol    month:  1 --- lat:  3  82.0
103ZAER (:, 3, 1) = (/&
104&.211E-01_JPRB,.229E-01_JPRB,.247E-01_JPRB,.260E-01_JPRB,.277E-01_JPRB,.287E-01_JPRB,.269E-01_JPRB,&
105&.239E-01_JPRB,.215E-01_JPRB,.195E-01_JPRB,.180E-01_JPRB,.169E-01_JPRB,.144E-01_JPRB,.137E-01_JPRB,&
106&.132E-01_JPRB,.124E-01_JPRB,.116E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.102E-01_JPRB,.943E-02_JPRB,&
107&.856E-02_JPRB,.750E-02_JPRB,.628E-02_JPRB,.715E-02_JPRB,.753E-02_JPRB,.787E-02_JPRB,.813E-02_JPRB,&
108&.843E-02_JPRB,.864E-02_JPRB,.742E-02_JPRB,.720E-02_JPRB,.713E-02_JPRB,.714E-02_JPRB,.738E-02_JPRB,&
109&.767E-02_JPRB,.634E-02_JPRB,.627E-02_JPRB,.625E-02_JPRB,.624E-02_JPRB,.627E-02_JPRB,.623E-02_JPRB,&
110&.573E-02_JPRB,.558E-02_JPRB,.559E-02_JPRB,.557E-02_JPRB,.565E-02_JPRB,.574E-02_JPRB,.570E-02_JPRB,&
111&.567E-02_JPRB,.560E-02_JPRB,.555E-02_JPRB,.545E-02_JPRB,.531E-02_JPRB,.549E-02_JPRB,.545E-02_JPRB,&
112&.530E-02_JPRB,.516E-02_JPRB,.505E-02_JPRB,.492E-02_JPRB,.533E-02_JPRB,.525E-02_JPRB,.534E-02_JPRB,&
113&.554E-02_JPRB,.588E-02_JPRB,.627E-02_JPRB,.790E-02_JPRB,.774E-02_JPRB,.829E-02_JPRB,.981E-02_JPRB,&
114&.122E-01_JPRB,.157E-01_JPRB/)
115!-- Total Sulfate Aerosol    month:  1 --- lat:  4  78.0
116ZAER (:, 4, 1) = (/&
117&.306E-01_JPRB,.322E-01_JPRB,.332E-01_JPRB,.323E-01_JPRB,.337E-01_JPRB,.366E-01_JPRB,.348E-01_JPRB,&
118&.296E-01_JPRB,.252E-01_JPRB,.175E-01_JPRB,.148E-01_JPRB,.131E-01_JPRB,.121E-01_JPRB,.124E-01_JPRB,&
119&.122E-01_JPRB,.128E-01_JPRB,.127E-01_JPRB,.126E-01_JPRB,.121E-01_JPRB,.116E-01_JPRB,.109E-01_JPRB,&
120&.101E-01_JPRB,.848E-02_JPRB,.777E-02_JPRB,.860E-02_JPRB,.906E-02_JPRB,.105E-01_JPRB,.108E-01_JPRB,&
121&.106E-01_JPRB,.102E-01_JPRB,.931E-02_JPRB,.917E-02_JPRB,.884E-02_JPRB,.705E-02_JPRB,.693E-02_JPRB,&
122&.698E-02_JPRB,.629E-02_JPRB,.647E-02_JPRB,.662E-02_JPRB,.655E-02_JPRB,.659E-02_JPRB,.677E-02_JPRB,&
123&.691E-02_JPRB,.705E-02_JPRB,.729E-02_JPRB,.792E-02_JPRB,.786E-02_JPRB,.780E-02_JPRB,.787E-02_JPRB,&
124&.749E-02_JPRB,.693E-02_JPRB,.595E-02_JPRB,.593E-02_JPRB,.623E-02_JPRB,.610E-02_JPRB,.589E-02_JPRB,&
125&.571E-02_JPRB,.575E-02_JPRB,.555E-02_JPRB,.544E-02_JPRB,.583E-02_JPRB,.612E-02_JPRB,.671E-02_JPRB,&
126&.727E-02_JPRB,.775E-02_JPRB,.884E-02_JPRB,.101E-01_JPRB,.106E-01_JPRB,.128E-01_JPRB,.193E-01_JPRB,&
127&.243E-01_JPRB,.276E-01_JPRB/)
128!-- Total Sulfate Aerosol    month:  1 --- lat:  5  74.0
129ZAER (:, 5, 1) = (/&
130&.317E-01_JPRB,.338E-01_JPRB,.327E-01_JPRB,.341E-01_JPRB,.372E-01_JPRB,.417E-01_JPRB,.423E-01_JPRB,&
131&.364E-01_JPRB,.319E-01_JPRB,.277E-01_JPRB,.242E-01_JPRB,.201E-01_JPRB,.171E-01_JPRB,.170E-01_JPRB,&
132&.178E-01_JPRB,.187E-01_JPRB,.205E-01_JPRB,.216E-01_JPRB,.193E-01_JPRB,.188E-01_JPRB,.184E-01_JPRB,&
133&.156E-01_JPRB,.112E-01_JPRB,.914E-02_JPRB,.959E-02_JPRB,.123E-01_JPRB,.157E-01_JPRB,.167E-01_JPRB,&
134&.148E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,.135E-01_JPRB,.117E-01_JPRB,.885E-02_JPRB,.752E-02_JPRB,&
135&.701E-02_JPRB,.668E-02_JPRB,.640E-02_JPRB,.635E-02_JPRB,.662E-02_JPRB,.739E-02_JPRB,.868E-02_JPRB,&
136&.949E-02_JPRB,.966E-02_JPRB,.903E-02_JPRB,.862E-02_JPRB,.867E-02_JPRB,.947E-02_JPRB,.108E-01_JPRB,&
137&.121E-01_JPRB,.113E-01_JPRB,.890E-02_JPRB,.762E-02_JPRB,.765E-02_JPRB,.748E-02_JPRB,.720E-02_JPRB,&
138&.723E-02_JPRB,.719E-02_JPRB,.711E-02_JPRB,.723E-02_JPRB,.750E-02_JPRB,.847E-02_JPRB,.968E-02_JPRB,&
139&.105E-01_JPRB,.113E-01_JPRB,.122E-01_JPRB,.138E-01_JPRB,.155E-01_JPRB,.175E-01_JPRB,.216E-01_JPRB,&
140&.273E-01_JPRB,.305E-01_JPRB/)
141!-- Total Sulfate Aerosol    month:  1 --- lat:  6  70.0
142ZAER (:, 6, 1) = (/&
143&.274E-01_JPRB,.318E-01_JPRB,.358E-01_JPRB,.372E-01_JPRB,.382E-01_JPRB,.417E-01_JPRB,.445E-01_JPRB,&
144&.393E-01_JPRB,.364E-01_JPRB,.362E-01_JPRB,.349E-01_JPRB,.315E-01_JPRB,.272E-01_JPRB,.260E-01_JPRB,&
145&.252E-01_JPRB,.209E-01_JPRB,.235E-01_JPRB,.259E-01_JPRB,.240E-01_JPRB,.278E-01_JPRB,.284E-01_JPRB,&
146&.268E-01_JPRB,.223E-01_JPRB,.163E-01_JPRB,.142E-01_JPRB,.156E-01_JPRB,.170E-01_JPRB,.214E-01_JPRB,&
147&.245E-01_JPRB,.200E-01_JPRB,.185E-01_JPRB,.165E-01_JPRB,.158E-01_JPRB,.112E-01_JPRB,.981E-02_JPRB,&
148&.854E-02_JPRB,.829E-02_JPRB,.884E-02_JPRB,.110E-01_JPRB,.158E-01_JPRB,.220E-01_JPRB,.283E-01_JPRB,&
149&.279E-01_JPRB,.235E-01_JPRB,.192E-01_JPRB,.150E-01_JPRB,.118E-01_JPRB,.100E-01_JPRB,.123E-01_JPRB,&
150&.184E-01_JPRB,.245E-01_JPRB,.191E-01_JPRB,.135E-01_JPRB,.999E-02_JPRB,.867E-02_JPRB,.722E-02_JPRB,&
151&.688E-02_JPRB,.725E-02_JPRB,.777E-02_JPRB,.850E-02_JPRB,.948E-02_JPRB,.103E-01_JPRB,.110E-01_JPRB,&
152&.112E-01_JPRB,.117E-01_JPRB,.139E-01_JPRB,.160E-01_JPRB,.177E-01_JPRB,.202E-01_JPRB,.243E-01_JPRB,&
153&.285E-01_JPRB,.282E-01_JPRB/)
154!-- Total Sulfate Aerosol    month:  1 --- lat:  7  66.0
155ZAER (:, 7, 1) = (/&
156&.336E-01_JPRB,.373E-01_JPRB,.384E-01_JPRB,.403E-01_JPRB,.404E-01_JPRB,.411E-01_JPRB,.385E-01_JPRB,&
157&.388E-01_JPRB,.409E-01_JPRB,.450E-01_JPRB,.447E-01_JPRB,.392E-01_JPRB,.340E-01_JPRB,.266E-01_JPRB,&
158&.240E-01_JPRB,.239E-01_JPRB,.229E-01_JPRB,.236E-01_JPRB,.246E-01_JPRB,.237E-01_JPRB,.236E-01_JPRB,&
159&.247E-01_JPRB,.264E-01_JPRB,.220E-01_JPRB,.225E-01_JPRB,.250E-01_JPRB,.249E-01_JPRB,.280E-01_JPRB,&
160&.314E-01_JPRB,.301E-01_JPRB,.254E-01_JPRB,.242E-01_JPRB,.220E-01_JPRB,.177E-01_JPRB,.152E-01_JPRB,&
161&.138E-01_JPRB,.148E-01_JPRB,.195E-01_JPRB,.235E-01_JPRB,.296E-01_JPRB,.324E-01_JPRB,.335E-01_JPRB,&
162&.389E-01_JPRB,.395E-01_JPRB,.353E-01_JPRB,.323E-01_JPRB,.337E-01_JPRB,.311E-01_JPRB,.312E-01_JPRB,&
163&.307E-01_JPRB,.309E-01_JPRB,.289E-01_JPRB,.259E-01_JPRB,.211E-01_JPRB,.171E-01_JPRB,.147E-01_JPRB,&
164&.130E-01_JPRB,.116E-01_JPRB,.118E-01_JPRB,.125E-01_JPRB,.139E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,&
165&.149E-01_JPRB,.173E-01_JPRB,.211E-01_JPRB,.228E-01_JPRB,.249E-01_JPRB,.279E-01_JPRB,.301E-01_JPRB,&
166&.299E-01_JPRB,.306E-01_JPRB/)
167!-- Total Sulfate Aerosol    month:  1 --- lat:  8  62.0
168ZAER (:, 8, 1) = (/&
169&.339E-01_JPRB,.349E-01_JPRB,.337E-01_JPRB,.329E-01_JPRB,.334E-01_JPRB,.344E-01_JPRB,.335E-01_JPRB,&
170&.324E-01_JPRB,.332E-01_JPRB,.348E-01_JPRB,.364E-01_JPRB,.353E-01_JPRB,.310E-01_JPRB,.240E-01_JPRB,&
171&.235E-01_JPRB,.237E-01_JPRB,.254E-01_JPRB,.252E-01_JPRB,.244E-01_JPRB,.233E-01_JPRB,.223E-01_JPRB,&
172&.199E-01_JPRB,.194E-01_JPRB,.208E-01_JPRB,.235E-01_JPRB,.267E-01_JPRB,.299E-01_JPRB,.261E-01_JPRB,&
173&.257E-01_JPRB,.290E-01_JPRB,.283E-01_JPRB,.248E-01_JPRB,.247E-01_JPRB,.272E-01_JPRB,.268E-01_JPRB,&
174&.267E-01_JPRB,.262E-01_JPRB,.291E-01_JPRB,.340E-01_JPRB,.376E-01_JPRB,.382E-01_JPRB,.372E-01_JPRB,&
175&.367E-01_JPRB,.391E-01_JPRB,.413E-01_JPRB,.405E-01_JPRB,.362E-01_JPRB,.338E-01_JPRB,.313E-01_JPRB,&
176&.306E-01_JPRB,.294E-01_JPRB,.294E-01_JPRB,.324E-01_JPRB,.352E-01_JPRB,.360E-01_JPRB,.297E-01_JPRB,&
177&.278E-01_JPRB,.247E-01_JPRB,.200E-01_JPRB,.179E-01_JPRB,.228E-01_JPRB,.256E-01_JPRB,.210E-01_JPRB,&
178&.212E-01_JPRB,.241E-01_JPRB,.258E-01_JPRB,.259E-01_JPRB,.265E-01_JPRB,.257E-01_JPRB,.267E-01_JPRB,&
179&.269E-01_JPRB,.299E-01_JPRB/)
180!-- Total Sulfate Aerosol    month:  1 --- lat:  9  58.0
181ZAER (:, 9, 1) = (/&
182&.248E-01_JPRB,.254E-01_JPRB,.263E-01_JPRB,.277E-01_JPRB,.294E-01_JPRB,.301E-01_JPRB,.299E-01_JPRB,&
183&.305E-01_JPRB,.297E-01_JPRB,.277E-01_JPRB,.280E-01_JPRB,.302E-01_JPRB,.289E-01_JPRB,.249E-01_JPRB,&
184&.226E-01_JPRB,.215E-01_JPRB,.224E-01_JPRB,.239E-01_JPRB,.229E-01_JPRB,.208E-01_JPRB,.209E-01_JPRB,&
185&.208E-01_JPRB,.206E-01_JPRB,.200E-01_JPRB,.198E-01_JPRB,.194E-01_JPRB,.197E-01_JPRB,.212E-01_JPRB,&
186&.230E-01_JPRB,.247E-01_JPRB,.249E-01_JPRB,.233E-01_JPRB,.288E-01_JPRB,.299E-01_JPRB,.319E-01_JPRB,&
187&.334E-01_JPRB,.345E-01_JPRB,.373E-01_JPRB,.384E-01_JPRB,.398E-01_JPRB,.402E-01_JPRB,.369E-01_JPRB,&
188&.332E-01_JPRB,.323E-01_JPRB,.311E-01_JPRB,.308E-01_JPRB,.300E-01_JPRB,.298E-01_JPRB,.263E-01_JPRB,&
189&.281E-01_JPRB,.295E-01_JPRB,.307E-01_JPRB,.310E-01_JPRB,.307E-01_JPRB,.320E-01_JPRB,.313E-01_JPRB,&
190&.307E-01_JPRB,.294E-01_JPRB,.289E-01_JPRB,.267E-01_JPRB,.298E-01_JPRB,.295E-01_JPRB,.228E-01_JPRB,&
191&.207E-01_JPRB,.225E-01_JPRB,.232E-01_JPRB,.242E-01_JPRB,.236E-01_JPRB,.228E-01_JPRB,.230E-01_JPRB,&
192&.244E-01_JPRB,.248E-01_JPRB/)
193!-- Total Sulfate Aerosol    month:  1 --- lat: 10  54.0
194ZAER (:,10, 1) = (/&
195&.209E-01_JPRB,.225E-01_JPRB,.237E-01_JPRB,.246E-01_JPRB,.250E-01_JPRB,.253E-01_JPRB,.265E-01_JPRB,&
196&.277E-01_JPRB,.266E-01_JPRB,.256E-01_JPRB,.262E-01_JPRB,.277E-01_JPRB,.270E-01_JPRB,.242E-01_JPRB,&
197&.230E-01_JPRB,.231E-01_JPRB,.226E-01_JPRB,.213E-01_JPRB,.207E-01_JPRB,.201E-01_JPRB,.207E-01_JPRB,&
198&.204E-01_JPRB,.111E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,.180E-01_JPRB,.194E-01_JPRB,&
199&.209E-01_JPRB,.218E-01_JPRB,.223E-01_JPRB,.238E-01_JPRB,.265E-01_JPRB,.255E-01_JPRB,.260E-01_JPRB,&
200&.307E-01_JPRB,.314E-01_JPRB,.318E-01_JPRB,.313E-01_JPRB,.305E-01_JPRB,.287E-01_JPRB,.275E-01_JPRB,&
201&.256E-01_JPRB,.217E-01_JPRB,.205E-01_JPRB,.211E-01_JPRB,.235E-01_JPRB,.260E-01_JPRB,.260E-01_JPRB,&
202&.258E-01_JPRB,.259E-01_JPRB,.248E-01_JPRB,.245E-01_JPRB,.247E-01_JPRB,.233E-01_JPRB,.224E-01_JPRB,&
203&.236E-01_JPRB,.234E-01_JPRB,.245E-01_JPRB,.258E-01_JPRB,.258E-01_JPRB,.244E-01_JPRB,.245E-01_JPRB,&
204&.225E-01_JPRB,.208E-01_JPRB,.209E-01_JPRB,.212E-01_JPRB,.212E-01_JPRB,.209E-01_JPRB,.203E-01_JPRB,&
205&.208E-01_JPRB,.210E-01_JPRB/)
206!-- Total Sulfate Aerosol    month:  1 --- lat: 11  50.0
207ZAER (:,11, 1) = (/&
208&.206E-01_JPRB,.216E-01_JPRB,.224E-01_JPRB,.222E-01_JPRB,.218E-01_JPRB,.217E-01_JPRB,.217E-01_JPRB,&
209&.221E-01_JPRB,.231E-01_JPRB,.227E-01_JPRB,.219E-01_JPRB,.226E-01_JPRB,.224E-01_JPRB,.203E-01_JPRB,&
210&.196E-01_JPRB,.199E-01_JPRB,.200E-01_JPRB,.182E-01_JPRB,.168E-01_JPRB,.164E-01_JPRB,.161E-01_JPRB,&
211&.149E-01_JPRB,.864E-02_JPRB,.145E-01_JPRB,.141E-01_JPRB,.146E-01_JPRB,.152E-01_JPRB,.167E-01_JPRB,&
212&.184E-01_JPRB,.201E-01_JPRB,.213E-01_JPRB,.232E-01_JPRB,.244E-01_JPRB,.242E-01_JPRB,.225E-01_JPRB,&
213&.227E-01_JPRB,.235E-01_JPRB,.230E-01_JPRB,.218E-01_JPRB,.211E-01_JPRB,.210E-01_JPRB,.186E-01_JPRB,&
214&.169E-01_JPRB,.168E-01_JPRB,.171E-01_JPRB,.191E-01_JPRB,.214E-01_JPRB,.228E-01_JPRB,.212E-01_JPRB,&
215&.215E-01_JPRB,.226E-01_JPRB,.213E-01_JPRB,.209E-01_JPRB,.204E-01_JPRB,.190E-01_JPRB,.174E-01_JPRB,&
216&.175E-01_JPRB,.185E-01_JPRB,.187E-01_JPRB,.195E-01_JPRB,.207E-01_JPRB,.208E-01_JPRB,.214E-01_JPRB,&
217&.219E-01_JPRB,.214E-01_JPRB,.200E-01_JPRB,.193E-01_JPRB,.196E-01_JPRB,.200E-01_JPRB,.197E-01_JPRB,&
218&.195E-01_JPRB,.196E-01_JPRB/)
219!-- Total Sulfate Aerosol    month:  1 --- lat: 12  46.0
220ZAER (:,12, 1) = (/&
221&.202E-01_JPRB,.202E-01_JPRB,.192E-01_JPRB,.187E-01_JPRB,.190E-01_JPRB,.185E-01_JPRB,.179E-01_JPRB,&
222&.175E-01_JPRB,.174E-01_JPRB,.191E-01_JPRB,.190E-01_JPRB,.188E-01_JPRB,.186E-01_JPRB,.180E-01_JPRB,&
223&.155E-01_JPRB,.149E-01_JPRB,.147E-01_JPRB,.154E-01_JPRB,.149E-01_JPRB,.147E-01_JPRB,.150E-01_JPRB,&
224&.144E-01_JPRB,.813E-02_JPRB,.145E-01_JPRB,.147E-01_JPRB,.149E-01_JPRB,.148E-01_JPRB,.158E-01_JPRB,&
225&.167E-01_JPRB,.170E-01_JPRB,.175E-01_JPRB,.178E-01_JPRB,.180E-01_JPRB,.177E-01_JPRB,.182E-01_JPRB,&
226&.186E-01_JPRB,.187E-01_JPRB,.188E-01_JPRB,.184E-01_JPRB,.183E-01_JPRB,.181E-01_JPRB,.174E-01_JPRB,&
227&.165E-01_JPRB,.168E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.193E-01_JPRB,.207E-01_JPRB,.202E-01_JPRB,&
228&.212E-01_JPRB,.207E-01_JPRB,.186E-01_JPRB,.180E-01_JPRB,.176E-01_JPRB,.165E-01_JPRB,.161E-01_JPRB,&
229&.155E-01_JPRB,.154E-01_JPRB,.146E-01_JPRB,.147E-01_JPRB,.164E-01_JPRB,.181E-01_JPRB,.195E-01_JPRB,&
230&.191E-01_JPRB,.186E-01_JPRB,.188E-01_JPRB,.188E-01_JPRB,.186E-01_JPRB,.188E-01_JPRB,.190E-01_JPRB,&
231&.181E-01_JPRB,.188E-01_JPRB/)
232!-- Total Sulfate Aerosol    month:  1 --- lat: 13  42.0
233ZAER (:,13, 1) = (/&
234&.201E-01_JPRB,.189E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,.173E-01_JPRB,.147E-01_JPRB,.138E-01_JPRB,&
235&.136E-01_JPRB,.136E-01_JPRB,.137E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.141E-01_JPRB,.148E-01_JPRB,&
236&.146E-01_JPRB,.146E-01_JPRB,.145E-01_JPRB,.143E-01_JPRB,.133E-01_JPRB,.123E-01_JPRB,.126E-01_JPRB,&
237&.144E-01_JPRB,.879E-02_JPRB,.106E-01_JPRB,.191E-01_JPRB,.198E-01_JPRB,.176E-01_JPRB,.172E-01_JPRB,&
238&.171E-01_JPRB,.174E-01_JPRB,.168E-01_JPRB,.158E-01_JPRB,.158E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,&
239&.161E-01_JPRB,.158E-01_JPRB,.157E-01_JPRB,.156E-01_JPRB,.152E-01_JPRB,.158E-01_JPRB,.162E-01_JPRB,&
240&.158E-01_JPRB,.171E-01_JPRB,.179E-01_JPRB,.173E-01_JPRB,.169E-01_JPRB,.165E-01_JPRB,.174E-01_JPRB,&
241&.169E-01_JPRB,.167E-01_JPRB,.157E-01_JPRB,.153E-01_JPRB,.144E-01_JPRB,.121E-01_JPRB,.130E-01_JPRB,&
242&.147E-01_JPRB,.156E-01_JPRB,.154E-01_JPRB,.147E-01_JPRB,.168E-01_JPRB,.173E-01_JPRB,.175E-01_JPRB,&
243&.173E-01_JPRB,.177E-01_JPRB,.175E-01_JPRB,.181E-01_JPRB,.184E-01_JPRB,.188E-01_JPRB,.180E-01_JPRB,&
244&.169E-01_JPRB,.173E-01_JPRB/)
245!-- Total Sulfate Aerosol    month:  1 --- lat: 14  38.0
246ZAER (:,14, 1) = (/&
247&.176E-01_JPRB,.145E-01_JPRB,.136E-01_JPRB,.142E-01_JPRB,.158E-01_JPRB,.134E-01_JPRB,.121E-01_JPRB,&
248&.136E-01_JPRB,.134E-01_JPRB,.131E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.132E-01_JPRB,.134E-01_JPRB,&
249&.137E-01_JPRB,.137E-01_JPRB,.129E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,.116E-01_JPRB,.122E-01_JPRB,&
250&.169E-01_JPRB,.120E-01_JPRB,.153E-01_JPRB,.154E-01_JPRB,.269E-01_JPRB,.232E-01_JPRB,.215E-01_JPRB,&
251&.203E-01_JPRB,.201E-01_JPRB,.194E-01_JPRB,.190E-01_JPRB,.184E-01_JPRB,.170E-01_JPRB,.155E-01_JPRB,&
252&.150E-01_JPRB,.137E-01_JPRB,.136E-01_JPRB,.141E-01_JPRB,.150E-01_JPRB,.181E-01_JPRB,.188E-01_JPRB,&
253&.176E-01_JPRB,.168E-01_JPRB,.167E-01_JPRB,.163E-01_JPRB,.163E-01_JPRB,.148E-01_JPRB,.143E-01_JPRB,&
254&.149E-01_JPRB,.148E-01_JPRB,.136E-01_JPRB,.133E-01_JPRB,.130E-01_JPRB,.121E-01_JPRB,.114E-01_JPRB,&
255&.120E-01_JPRB,.132E-01_JPRB,.146E-01_JPRB,.181E-01_JPRB,.177E-01_JPRB,.189E-01_JPRB,.179E-01_JPRB,&
256&.182E-01_JPRB,.191E-01_JPRB,.117E-01_JPRB,.222E-01_JPRB,.214E-01_JPRB,.183E-01_JPRB,.165E-01_JPRB,&
257&.158E-01_JPRB,.147E-01_JPRB/)
258!-- Total Sulfate Aerosol    month:  1 --- lat: 15  34.0
259ZAER (:,15, 1) = (/&
260&.149E-01_JPRB,.154E-01_JPRB,.150E-01_JPRB,.151E-01_JPRB,.153E-01_JPRB,.150E-01_JPRB,.148E-01_JPRB,&
261&.147E-01_JPRB,.150E-01_JPRB,.150E-01_JPRB,.144E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.142E-01_JPRB,&
262&.140E-01_JPRB,.135E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.126E-01_JPRB,.124E-01_JPRB,.125E-01_JPRB,&
263&.175E-01_JPRB,.146E-01_JPRB,.213E-01_JPRB,.188E-01_JPRB,.188E-01_JPRB,.275E-01_JPRB,.228E-01_JPRB,&
264&.215E-01_JPRB,.206E-01_JPRB,.199E-01_JPRB,.192E-01_JPRB,.178E-01_JPRB,.159E-01_JPRB,.147E-01_JPRB,&
265&.134E-01_JPRB,.130E-01_JPRB,.137E-01_JPRB,.149E-01_JPRB,.175E-01_JPRB,.116E-01_JPRB,.216E-01_JPRB,&
266&.213E-01_JPRB,.186E-01_JPRB,.170E-01_JPRB,.158E-01_JPRB,.149E-01_JPRB,.146E-01_JPRB,.142E-01_JPRB,&
267&.149E-01_JPRB,.147E-01_JPRB,.132E-01_JPRB,.136E-01_JPRB,.137E-01_JPRB,.118E-01_JPRB,.100E-01_JPRB,&
268&.104E-01_JPRB,.123E-01_JPRB,.167E-01_JPRB,.220E-01_JPRB,.123E-01_JPRB,.196E-01_JPRB,.173E-01_JPRB,&
269&.186E-01_JPRB,.111E-01_JPRB,.122E-01_JPRB,.117E-01_JPRB,.186E-01_JPRB,.161E-01_JPRB,.152E-01_JPRB,&
270&.148E-01_JPRB,.153E-01_JPRB/)
271!-- Total Sulfate Aerosol    month:  1 --- lat: 16  30.0
272ZAER (:,16, 1) = (/&
273&.150E-01_JPRB,.154E-01_JPRB,.156E-01_JPRB,.155E-01_JPRB,.148E-01_JPRB,.147E-01_JPRB,.151E-01_JPRB,&
274&.157E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,.154E-01_JPRB,.157E-01_JPRB,.157E-01_JPRB,.153E-01_JPRB,&
275&.147E-01_JPRB,.133E-01_JPRB,.127E-01_JPRB,.126E-01_JPRB,.125E-01_JPRB,.134E-01_JPRB,.135E-01_JPRB,&
276&.229E-01_JPRB,.190E-01_JPRB,.215E-01_JPRB,.199E-01_JPRB,.192E-01_JPRB,.292E-01_JPRB,.250E-01_JPRB,&
277&.214E-01_JPRB,.189E-01_JPRB,.189E-01_JPRB,.186E-01_JPRB,.173E-01_JPRB,.156E-01_JPRB,.151E-01_JPRB,&
278&.146E-01_JPRB,.151E-01_JPRB,.168E-01_JPRB,.194E-01_JPRB,.216E-01_JPRB,.128E-01_JPRB,.172E-01_JPRB,&
279&.164E-01_JPRB,.246E-01_JPRB,.180E-01_JPRB,.161E-01_JPRB,.150E-01_JPRB,.145E-01_JPRB,.153E-01_JPRB,&
280&.163E-01_JPRB,.150E-01_JPRB,.144E-01_JPRB,.145E-01_JPRB,.135E-01_JPRB,.124E-01_JPRB,.118E-01_JPRB,&
281&.118E-01_JPRB,.144E-01_JPRB,.224E-01_JPRB,.166E-01_JPRB,.124E-01_JPRB,.119E-01_JPRB,.127E-01_JPRB,&
282&.126E-01_JPRB,.120E-01_JPRB,.129E-01_JPRB,.109E-01_JPRB,.174E-01_JPRB,.149E-01_JPRB,.144E-01_JPRB,&
283&.148E-01_JPRB,.149E-01_JPRB/)
284!-- Total Sulfate Aerosol    month:  1 --- lat: 17  26.0
285ZAER (:,17, 1) = (/&
286&.157E-01_JPRB,.156E-01_JPRB,.153E-01_JPRB,.145E-01_JPRB,.146E-01_JPRB,.147E-01_JPRB,.149E-01_JPRB,&
287&.153E-01_JPRB,.153E-01_JPRB,.161E-01_JPRB,.168E-01_JPRB,.180E-01_JPRB,.189E-01_JPRB,.197E-01_JPRB,&
288&.175E-01_JPRB,.155E-01_JPRB,.145E-01_JPRB,.123E-01_JPRB,.132E-01_JPRB,.154E-01_JPRB,.189E-01_JPRB,&
289&.325E-01_JPRB,.190E-01_JPRB,.186E-01_JPRB,.181E-01_JPRB,.173E-01_JPRB,.180E-01_JPRB,.304E-01_JPRB,&
290&.204E-01_JPRB,.167E-01_JPRB,.166E-01_JPRB,.169E-01_JPRB,.166E-01_JPRB,.156E-01_JPRB,.159E-01_JPRB,&
291&.167E-01_JPRB,.161E-01_JPRB,.188E-01_JPRB,.226E-01_JPRB,.126E-01_JPRB,.137E-01_JPRB,.210E-01_JPRB,&
292&.177E-01_JPRB,.254E-01_JPRB,.180E-01_JPRB,.150E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.156E-01_JPRB,&
293&.165E-01_JPRB,.156E-01_JPRB,.143E-01_JPRB,.150E-01_JPRB,.147E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,&
294&.151E-01_JPRB,.237E-01_JPRB,.346E-01_JPRB,.202E-01_JPRB,.135E-01_JPRB,.123E-01_JPRB,.138E-01_JPRB,&
295&.167E-01_JPRB,.135E-01_JPRB,.132E-01_JPRB,.108E-01_JPRB,.176E-01_JPRB,.185E-01_JPRB,.192E-01_JPRB,&
296&.178E-01_JPRB,.167E-01_JPRB/)
297!-- Total Sulfate Aerosol    month:  1 --- lat: 18  22.0
298ZAER (:,18, 1) = (/&
299&.183E-01_JPRB,.164E-01_JPRB,.157E-01_JPRB,.148E-01_JPRB,.153E-01_JPRB,.155E-01_JPRB,.158E-01_JPRB,&
300&.159E-01_JPRB,.166E-01_JPRB,.175E-01_JPRB,.185E-01_JPRB,.198E-01_JPRB,.205E-01_JPRB,.207E-01_JPRB,&
301&.205E-01_JPRB,.223E-01_JPRB,.224E-01_JPRB,.230E-01_JPRB,.273E-01_JPRB,.313E-01_JPRB,.366E-01_JPRB,&
302&.491E-01_JPRB,.263E-01_JPRB,.182E-01_JPRB,.174E-01_JPRB,.145E-01_JPRB,.165E-01_JPRB,.143E-01_JPRB,&
303&.184E-01_JPRB,.155E-01_JPRB,.158E-01_JPRB,.159E-01_JPRB,.156E-01_JPRB,.157E-01_JPRB,.163E-01_JPRB,&
304&.177E-01_JPRB,.203E-01_JPRB,.239E-01_JPRB,.251E-01_JPRB,.112E-01_JPRB,.114E-01_JPRB,.164E-01_JPRB,&
305&.157E-01_JPRB,.136E-01_JPRB,.161E-01_JPRB,.855E-02_JPRB,.145E-01_JPRB,.147E-01_JPRB,.155E-01_JPRB,&
306&.152E-01_JPRB,.159E-01_JPRB,.155E-01_JPRB,.157E-01_JPRB,.163E-01_JPRB,.156E-01_JPRB,.167E-01_JPRB,&
307&.227E-01_JPRB,.316E-01_JPRB,.379E-01_JPRB,.324E-01_JPRB,.150E-01_JPRB,.143E-01_JPRB,.153E-01_JPRB,&
308&.185E-01_JPRB,.146E-01_JPRB,.126E-01_JPRB,.196E-01_JPRB,.223E-01_JPRB,.274E-01_JPRB,.313E-01_JPRB,&
309&.267E-01_JPRB,.216E-01_JPRB/)
310!-- Total Sulfate Aerosol    month:  1 --- lat: 19  18.0
311ZAER (:,19, 1) = (/&
312&.180E-01_JPRB,.165E-01_JPRB,.163E-01_JPRB,.162E-01_JPRB,.169E-01_JPRB,.177E-01_JPRB,.183E-01_JPRB,&
313&.188E-01_JPRB,.195E-01_JPRB,.200E-01_JPRB,.202E-01_JPRB,.199E-01_JPRB,.183E-01_JPRB,.190E-01_JPRB,&
314&.207E-01_JPRB,.250E-01_JPRB,.275E-01_JPRB,.304E-01_JPRB,.337E-01_JPRB,.394E-01_JPRB,.526E-01_JPRB,&
315&.962E-01_JPRB,.318E-01_JPRB,.205E-01_JPRB,.155E-01_JPRB,.129E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,&
316&.106E-01_JPRB,.156E-01_JPRB,.158E-01_JPRB,.158E-01_JPRB,.152E-01_JPRB,.154E-01_JPRB,.167E-01_JPRB,&
317&.196E-01_JPRB,.259E-01_JPRB,.299E-01_JPRB,.300E-01_JPRB,.116E-01_JPRB,.111E-01_JPRB,.149E-01_JPRB,&
318&.116E-01_JPRB,.916E-02_JPRB,.130E-01_JPRB,.781E-02_JPRB,.126E-01_JPRB,.129E-01_JPRB,.136E-01_JPRB,&
319&.143E-01_JPRB,.149E-01_JPRB,.159E-01_JPRB,.170E-01_JPRB,.182E-01_JPRB,.190E-01_JPRB,.211E-01_JPRB,&
320&.268E-01_JPRB,.326E-01_JPRB,.386E-01_JPRB,.361E-01_JPRB,.297E-01_JPRB,.158E-01_JPRB,.156E-01_JPRB,&
321&.172E-01_JPRB,.158E-01_JPRB,.135E-01_JPRB,.240E-01_JPRB,.295E-01_JPRB,.353E-01_JPRB,.468E-01_JPRB,&
322&.386E-01_JPRB,.226E-01_JPRB/)
323!-- Total Sulfate Aerosol    month:  1 --- lat: 20  14.0
324ZAER (:,20, 1) = (/&
325&.181E-01_JPRB,.176E-01_JPRB,.181E-01_JPRB,.188E-01_JPRB,.197E-01_JPRB,.211E-01_JPRB,.222E-01_JPRB,&
326&.230E-01_JPRB,.238E-01_JPRB,.241E-01_JPRB,.233E-01_JPRB,.219E-01_JPRB,.197E-01_JPRB,.207E-01_JPRB,&
327&.242E-01_JPRB,.265E-01_JPRB,.280E-01_JPRB,.296E-01_JPRB,.338E-01_JPRB,.447E-01_JPRB,.652E-01_JPRB,&
328&.390E-01_JPRB,.269E-01_JPRB,.184E-01_JPRB,.133E-01_JPRB,.119E-01_JPRB,.114E-01_JPRB,.121E-01_JPRB,&
329&.110E-01_JPRB,.165E-01_JPRB,.163E-01_JPRB,.160E-01_JPRB,.151E-01_JPRB,.154E-01_JPRB,.166E-01_JPRB,&
330&.197E-01_JPRB,.225E-01_JPRB,.279E-01_JPRB,.274E-01_JPRB,.106E-01_JPRB,.102E-01_JPRB,.150E-01_JPRB,&
331&.113E-01_JPRB,.793E-02_JPRB,.685E-02_JPRB,.123E-01_JPRB,.120E-01_JPRB,.125E-01_JPRB,.131E-01_JPRB,&
332&.142E-01_JPRB,.152E-01_JPRB,.168E-01_JPRB,.184E-01_JPRB,.207E-01_JPRB,.233E-01_JPRB,.269E-01_JPRB,&
333&.319E-01_JPRB,.388E-01_JPRB,.442E-01_JPRB,.352E-01_JPRB,.343E-01_JPRB,.331E-01_JPRB,.189E-01_JPRB,&
334&.200E-01_JPRB,.343E-01_JPRB,.327E-01_JPRB,.331E-01_JPRB,.354E-01_JPRB,.399E-01_JPRB,.492E-01_JPRB,&
335&.366E-01_JPRB,.223E-01_JPRB/)
336!-- Total Sulfate Aerosol    month:  1 --- lat: 21  10.0
337ZAER (:,21, 1) = (/&
338&.200E-01_JPRB,.203E-01_JPRB,.212E-01_JPRB,.219E-01_JPRB,.232E-01_JPRB,.248E-01_JPRB,.261E-01_JPRB,&
339&.271E-01_JPRB,.284E-01_JPRB,.286E-01_JPRB,.281E-01_JPRB,.272E-01_JPRB,.270E-01_JPRB,.266E-01_JPRB,&
340&.283E-01_JPRB,.313E-01_JPRB,.315E-01_JPRB,.310E-01_JPRB,.418E-01_JPRB,.569E-01_JPRB,.457E-01_JPRB,&
341&.204E-01_JPRB,.196E-01_JPRB,.140E-01_JPRB,.128E-01_JPRB,.122E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
342&.120E-01_JPRB,.177E-01_JPRB,.171E-01_JPRB,.170E-01_JPRB,.153E-01_JPRB,.148E-01_JPRB,.150E-01_JPRB,&
343&.153E-01_JPRB,.190E-01_JPRB,.206E-01_JPRB,.221E-01_JPRB,.107E-01_JPRB,.106E-01_JPRB,.129E-01_JPRB,&
344&.102E-01_JPRB,.788E-02_JPRB,.114E-01_JPRB,.121E-01_JPRB,.126E-01_JPRB,.132E-01_JPRB,.137E-01_JPRB,&
345&.147E-01_JPRB,.161E-01_JPRB,.181E-01_JPRB,.202E-01_JPRB,.238E-01_JPRB,.271E-01_JPRB,.316E-01_JPRB,&
346&.402E-01_JPRB,.637E-01_JPRB,.814E-01_JPRB,.517E-01_JPRB,.424E-01_JPRB,.426E-01_JPRB,.406E-01_JPRB,&
347&.455E-01_JPRB,.510E-01_JPRB,.498E-01_JPRB,.445E-01_JPRB,.435E-01_JPRB,.418E-01_JPRB,.414E-01_JPRB,&
348&.308E-01_JPRB,.219E-01_JPRB/)
349!-- Total Sulfate Aerosol    month:  1 --- lat: 22   6.0
350ZAER (:,22, 1) = (/&
351&.234E-01_JPRB,.241E-01_JPRB,.250E-01_JPRB,.259E-01_JPRB,.274E-01_JPRB,.293E-01_JPRB,.308E-01_JPRB,&
352&.320E-01_JPRB,.342E-01_JPRB,.348E-01_JPRB,.345E-01_JPRB,.325E-01_JPRB,.316E-01_JPRB,.326E-01_JPRB,&
353&.344E-01_JPRB,.376E-01_JPRB,.407E-01_JPRB,.424E-01_JPRB,.482E-01_JPRB,.489E-01_JPRB,.242E-01_JPRB,&
354&.192E-01_JPRB,.163E-01_JPRB,.145E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.148E-01_JPRB,.133E-01_JPRB,&
355&.132E-01_JPRB,.191E-01_JPRB,.195E-01_JPRB,.190E-01_JPRB,.178E-01_JPRB,.169E-01_JPRB,.172E-01_JPRB,&
356&.189E-01_JPRB,.211E-01_JPRB,.209E-01_JPRB,.213E-01_JPRB,.121E-01_JPRB,.128E-01_JPRB,.136E-01_JPRB,&
357&.109E-01_JPRB,.891E-02_JPRB,.129E-01_JPRB,.138E-01_JPRB,.140E-01_JPRB,.145E-01_JPRB,.150E-01_JPRB,&
358&.158E-01_JPRB,.173E-01_JPRB,.201E-01_JPRB,.234E-01_JPRB,.283E-01_JPRB,.325E-01_JPRB,.392E-01_JPRB,&
359&.536E-01_JPRB,.791E-01_JPRB,.855E-01_JPRB,.651E-01_JPRB,.554E-01_JPRB,.540E-01_JPRB,.534E-01_JPRB,&
360&.567E-01_JPRB,.334E-01_JPRB,.370E-01_JPRB,.589E-01_JPRB,.479E-01_JPRB,.409E-01_JPRB,.335E-01_JPRB,&
361&.273E-01_JPRB,.236E-01_JPRB/)
362!-- Total Sulfate Aerosol    month:  1 --- lat: 23   2.0
363ZAER (:,23, 1) = (/&
364&.288E-01_JPRB,.304E-01_JPRB,.325E-01_JPRB,.338E-01_JPRB,.357E-01_JPRB,.388E-01_JPRB,.410E-01_JPRB,&
365&.428E-01_JPRB,.474E-01_JPRB,.495E-01_JPRB,.500E-01_JPRB,.526E-01_JPRB,.545E-01_JPRB,.562E-01_JPRB,&
366&.583E-01_JPRB,.563E-01_JPRB,.575E-01_JPRB,.566E-01_JPRB,.604E-01_JPRB,.495E-01_JPRB,.271E-01_JPRB,&
367&.229E-01_JPRB,.174E-01_JPRB,.166E-01_JPRB,.161E-01_JPRB,.163E-01_JPRB,.173E-01_JPRB,.159E-01_JPRB,&
368&.252E-01_JPRB,.253E-01_JPRB,.251E-01_JPRB,.243E-01_JPRB,.235E-01_JPRB,.222E-01_JPRB,.211E-01_JPRB,&
369&.213E-01_JPRB,.210E-01_JPRB,.213E-01_JPRB,.132E-01_JPRB,.139E-01_JPRB,.152E-01_JPRB,.178E-01_JPRB,&
370&.129E-01_JPRB,.103E-01_JPRB,.863E-02_JPRB,.153E-01_JPRB,.161E-01_JPRB,.167E-01_JPRB,.172E-01_JPRB,&
371&.183E-01_JPRB,.198E-01_JPRB,.225E-01_JPRB,.268E-01_JPRB,.310E-01_JPRB,.357E-01_JPRB,.402E-01_JPRB,&
372&.504E-01_JPRB,.387E-01_JPRB,.604E-01_JPRB,.321E-01_JPRB,.566E-01_JPRB,.626E-01_JPRB,.652E-01_JPRB,&
373&.330E-01_JPRB,.549E-01_JPRB,.565E-01_JPRB,.507E-01_JPRB,.394E-01_JPRB,.340E-01_JPRB,.304E-01_JPRB,&
374&.286E-01_JPRB,.279E-01_JPRB/)
375!-- Total Sulfate Aerosol    month:  1 --- lat: 24  -2.0
376ZAER (:,24, 1) = (/&
377&.372E-01_JPRB,.409E-01_JPRB,.440E-01_JPRB,.475E-01_JPRB,.502E-01_JPRB,.538E-01_JPRB,.569E-01_JPRB,&
378&.608E-01_JPRB,.661E-01_JPRB,.675E-01_JPRB,.697E-01_JPRB,.729E-01_JPRB,.753E-01_JPRB,.758E-01_JPRB,&
379&.748E-01_JPRB,.754E-01_JPRB,.769E-01_JPRB,.638E-01_JPRB,.523E-01_JPRB,.417E-01_JPRB,.406E-01_JPRB,&
380&.205E-01_JPRB,.186E-01_JPRB,.185E-01_JPRB,.183E-01_JPRB,.189E-01_JPRB,.306E-01_JPRB,.304E-01_JPRB,&
381&.306E-01_JPRB,.291E-01_JPRB,.283E-01_JPRB,.263E-01_JPRB,.252E-01_JPRB,.235E-01_JPRB,.223E-01_JPRB,&
382&.215E-01_JPRB,.213E-01_JPRB,.221E-01_JPRB,.137E-01_JPRB,.148E-01_JPRB,.159E-01_JPRB,.164E-01_JPRB,&
383&.147E-01_JPRB,.126E-01_JPRB,.123E-01_JPRB,.118E-01_JPRB,.190E-01_JPRB,.198E-01_JPRB,.207E-01_JPRB,&
384&.219E-01_JPRB,.231E-01_JPRB,.244E-01_JPRB,.258E-01_JPRB,.279E-01_JPRB,.310E-01_JPRB,.372E-01_JPRB,&
385&.261E-01_JPRB,.526E-01_JPRB,.504E-01_JPRB,.280E-01_JPRB,.641E-01_JPRB,.913E-01_JPRB,.723E-01_JPRB,&
386&.568E-01_JPRB,.515E-01_JPRB,.459E-01_JPRB,.416E-01_JPRB,.348E-01_JPRB,.326E-01_JPRB,.318E-01_JPRB,&
387&.326E-01_JPRB,.346E-01_JPRB/)
388!-- Total Sulfate Aerosol    month:  1 --- lat: 25  -6.0
389ZAER (:,25, 1) = (/&
390&.389E-01_JPRB,.416E-01_JPRB,.442E-01_JPRB,.468E-01_JPRB,.494E-01_JPRB,.518E-01_JPRB,.549E-01_JPRB,&
391&.594E-01_JPRB,.636E-01_JPRB,.665E-01_JPRB,.677E-01_JPRB,.687E-01_JPRB,.704E-01_JPRB,.734E-01_JPRB,&
392&.752E-01_JPRB,.754E-01_JPRB,.733E-01_JPRB,.636E-01_JPRB,.529E-01_JPRB,.433E-01_JPRB,.362E-01_JPRB,&
393&.201E-01_JPRB,.208E-01_JPRB,.195E-01_JPRB,.196E-01_JPRB,.335E-01_JPRB,.334E-01_JPRB,.339E-01_JPRB,&
394&.328E-01_JPRB,.325E-01_JPRB,.328E-01_JPRB,.313E-01_JPRB,.297E-01_JPRB,.278E-01_JPRB,.165E-01_JPRB,&
395&.161E-01_JPRB,.163E-01_JPRB,.155E-01_JPRB,.147E-01_JPRB,.152E-01_JPRB,.166E-01_JPRB,.160E-01_JPRB,&
396&.151E-01_JPRB,.137E-01_JPRB,.125E-01_JPRB,.141E-01_JPRB,.222E-01_JPRB,.231E-01_JPRB,.238E-01_JPRB,&
397&.249E-01_JPRB,.260E-01_JPRB,.273E-01_JPRB,.262E-01_JPRB,.264E-01_JPRB,.271E-01_JPRB,.311E-01_JPRB,&
398&.360E-01_JPRB,.382E-01_JPRB,.439E-01_JPRB,.488E-01_JPRB,.657E-01_JPRB,.629E-01_JPRB,.514E-01_JPRB,&
399&.470E-01_JPRB,.433E-01_JPRB,.401E-01_JPRB,.376E-01_JPRB,.335E-01_JPRB,.326E-01_JPRB,.329E-01_JPRB,&
400&.344E-01_JPRB,.365E-01_JPRB/)
401!-- Total Sulfate Aerosol    month:  1 --- lat: 26 -10.0
402ZAER (:,26, 1) = (/&
403&.382E-01_JPRB,.410E-01_JPRB,.433E-01_JPRB,.447E-01_JPRB,.450E-01_JPRB,.461E-01_JPRB,.487E-01_JPRB,&
404&.542E-01_JPRB,.591E-01_JPRB,.629E-01_JPRB,.655E-01_JPRB,.690E-01_JPRB,.724E-01_JPRB,.758E-01_JPRB,&
405&.790E-01_JPRB,.804E-01_JPRB,.811E-01_JPRB,.823E-01_JPRB,.908E-01_JPRB,.521E-01_JPRB,.353E-01_JPRB,&
406&.211E-01_JPRB,.207E-01_JPRB,.195E-01_JPRB,.333E-01_JPRB,.335E-01_JPRB,.335E-01_JPRB,.338E-01_JPRB,&
407&.349E-01_JPRB,.376E-01_JPRB,.410E-01_JPRB,.437E-01_JPRB,.430E-01_JPRB,.393E-01_JPRB,.220E-01_JPRB,&
408&.230E-01_JPRB,.244E-01_JPRB,.224E-01_JPRB,.196E-01_JPRB,.176E-01_JPRB,.156E-01_JPRB,.153E-01_JPRB,&
409&.140E-01_JPRB,.136E-01_JPRB,.131E-01_JPRB,.141E-01_JPRB,.146E-01_JPRB,.264E-01_JPRB,.270E-01_JPRB,&
410&.274E-01_JPRB,.277E-01_JPRB,.283E-01_JPRB,.284E-01_JPRB,.289E-01_JPRB,.291E-01_JPRB,.317E-01_JPRB,&
411&.317E-01_JPRB,.331E-01_JPRB,.388E-01_JPRB,.476E-01_JPRB,.526E-01_JPRB,.459E-01_JPRB,.428E-01_JPRB,&
412&.412E-01_JPRB,.391E-01_JPRB,.368E-01_JPRB,.348E-01_JPRB,.322E-01_JPRB,.319E-01_JPRB,.328E-01_JPRB,&
413&.344E-01_JPRB,.360E-01_JPRB/)
414!-- Total Sulfate Aerosol    month:  1 --- lat: 27 -14.0
415ZAER (:,27, 1) = (/&
416&.374E-01_JPRB,.420E-01_JPRB,.472E-01_JPRB,.486E-01_JPRB,.423E-01_JPRB,.345E-01_JPRB,.345E-01_JPRB,&
417&.365E-01_JPRB,.425E-01_JPRB,.490E-01_JPRB,.553E-01_JPRB,.629E-01_JPRB,.730E-01_JPRB,.778E-01_JPRB,&
418&.805E-01_JPRB,.800E-01_JPRB,.772E-01_JPRB,.812E-01_JPRB,.373E-01_JPRB,.227E-01_JPRB,.337E-01_JPRB,&
419&.340E-01_JPRB,.347E-01_JPRB,.327E-01_JPRB,.320E-01_JPRB,.319E-01_JPRB,.319E-01_JPRB,.326E-01_JPRB,&
420&.342E-01_JPRB,.380E-01_JPRB,.429E-01_JPRB,.454E-01_JPRB,.467E-01_JPRB,.287E-01_JPRB,.268E-01_JPRB,&
421&.247E-01_JPRB,.234E-01_JPRB,.219E-01_JPRB,.207E-01_JPRB,.221E-01_JPRB,.193E-01_JPRB,.146E-01_JPRB,&
422&.131E-01_JPRB,.143E-01_JPRB,.149E-01_JPRB,.134E-01_JPRB,.243E-01_JPRB,.267E-01_JPRB,.290E-01_JPRB,&
423&.326E-01_JPRB,.342E-01_JPRB,.183E-01_JPRB,.301E-01_JPRB,.336E-01_JPRB,.358E-01_JPRB,.409E-01_JPRB,&
424&.212E-01_JPRB,.200E-01_JPRB,.368E-01_JPRB,.441E-01_JPRB,.444E-01_JPRB,.401E-01_JPRB,.393E-01_JPRB,&
425&.387E-01_JPRB,.376E-01_JPRB,.350E-01_JPRB,.321E-01_JPRB,.306E-01_JPRB,.303E-01_JPRB,.311E-01_JPRB,&
426&.326E-01_JPRB,.346E-01_JPRB/)
427!-- Total Sulfate Aerosol    month:  1 --- lat: 28 -18.0
428ZAER (:,28, 1) = (/&
429&.350E-01_JPRB,.436E-01_JPRB,.592E-01_JPRB,.731E-01_JPRB,.807E-01_JPRB,.255E-01_JPRB,.200E-01_JPRB,&
430&.200E-01_JPRB,.243E-01_JPRB,.298E-01_JPRB,.380E-01_JPRB,.492E-01_JPRB,.637E-01_JPRB,.731E-01_JPRB,&
431&.718E-01_JPRB,.723E-01_JPRB,.348E-01_JPRB,.309E-01_JPRB,.246E-01_JPRB,.344E-01_JPRB,.325E-01_JPRB,&
432&.312E-01_JPRB,.329E-01_JPRB,.319E-01_JPRB,.311E-01_JPRB,.306E-01_JPRB,.312E-01_JPRB,.340E-01_JPRB,&
433&.369E-01_JPRB,.388E-01_JPRB,.404E-01_JPRB,.431E-01_JPRB,.464E-01_JPRB,.280E-01_JPRB,.268E-01_JPRB,&
434&.252E-01_JPRB,.225E-01_JPRB,.208E-01_JPRB,.199E-01_JPRB,.189E-01_JPRB,.201E-01_JPRB,.237E-01_JPRB,&
435&.186E-01_JPRB,.162E-01_JPRB,.282E-01_JPRB,.163E-01_JPRB,.165E-01_JPRB,.158E-01_JPRB,.277E-01_JPRB,&
436&.318E-01_JPRB,.417E-01_JPRB,.228E-01_JPRB,.213E-01_JPRB,.376E-01_JPRB,.535E-01_JPRB,.438E-01_JPRB,&
437&.423E-01_JPRB,.283E-01_JPRB,.412E-01_JPRB,.383E-01_JPRB,.360E-01_JPRB,.356E-01_JPRB,.359E-01_JPRB,&
438&.357E-01_JPRB,.361E-01_JPRB,.334E-01_JPRB,.281E-01_JPRB,.262E-01_JPRB,.259E-01_JPRB,.264E-01_JPRB,&
439&.281E-01_JPRB,.314E-01_JPRB/)
440!-- Total Sulfate Aerosol    month:  1 --- lat: 29 -22.0
441ZAER (:,29, 1) = (/&
442&.361E-01_JPRB,.444E-01_JPRB,.552E-01_JPRB,.547E-01_JPRB,.331E-01_JPRB,.171E-01_JPRB,.152E-01_JPRB,&
443&.148E-01_JPRB,.149E-01_JPRB,.170E-01_JPRB,.233E-01_JPRB,.345E-01_JPRB,.480E-01_JPRB,.606E-01_JPRB,&
444&.645E-01_JPRB,.365E-01_JPRB,.287E-01_JPRB,.460E-01_JPRB,.421E-01_JPRB,.395E-01_JPRB,.342E-01_JPRB,&
445&.311E-01_JPRB,.305E-01_JPRB,.309E-01_JPRB,.304E-01_JPRB,.306E-01_JPRB,.316E-01_JPRB,.339E-01_JPRB,&
446&.337E-01_JPRB,.337E-01_JPRB,.350E-01_JPRB,.384E-01_JPRB,.415E-01_JPRB,.248E-01_JPRB,.259E-01_JPRB,&
447&.236E-01_JPRB,.211E-01_JPRB,.205E-01_JPRB,.223E-01_JPRB,.229E-01_JPRB,.216E-01_JPRB,.276E-01_JPRB,&
448&.269E-01_JPRB,.231E-01_JPRB,.242E-01_JPRB,.351E-01_JPRB,.272E-01_JPRB,.207E-01_JPRB,.339E-01_JPRB,&
449&.415E-01_JPRB,.299E-01_JPRB,.284E-01_JPRB,.299E-01_JPRB,.254E-01_JPRB,.307E-01_JPRB,.514E-01_JPRB,&
450&.587E-01_JPRB,.545E-01_JPRB,.413E-01_JPRB,.458E-01_JPRB,.332E-01_JPRB,.317E-01_JPRB,.314E-01_JPRB,&
451&.316E-01_JPRB,.323E-01_JPRB,.280E-01_JPRB,.231E-01_JPRB,.216E-01_JPRB,.213E-01_JPRB,.214E-01_JPRB,&
452&.232E-01_JPRB,.283E-01_JPRB/)
453!-- Total Sulfate Aerosol    month:  1 --- lat: 30 -26.0
454ZAER (:,30, 1) = (/&
455&.240E-01_JPRB,.252E-01_JPRB,.289E-01_JPRB,.310E-01_JPRB,.224E-01_JPRB,.162E-01_JPRB,.147E-01_JPRB,&
456&.147E-01_JPRB,.139E-01_JPRB,.142E-01_JPRB,.147E-01_JPRB,.211E-01_JPRB,.385E-01_JPRB,.491E-01_JPRB,&
457&.307E-01_JPRB,.258E-01_JPRB,.287E-01_JPRB,.541E-01_JPRB,.459E-01_JPRB,.443E-01_JPRB,.397E-01_JPRB,&
458&.381E-01_JPRB,.314E-01_JPRB,.297E-01_JPRB,.276E-01_JPRB,.271E-01_JPRB,.275E-01_JPRB,.262E-01_JPRB,&
459&.231E-01_JPRB,.227E-01_JPRB,.279E-01_JPRB,.317E-01_JPRB,.375E-01_JPRB,.358E-01_JPRB,.169E-01_JPRB,&
460&.159E-01_JPRB,.149E-01_JPRB,.130E-01_JPRB,.151E-01_JPRB,.203E-01_JPRB,.250E-01_JPRB,.318E-01_JPRB,&
461&.376E-01_JPRB,.305E-01_JPRB,.363E-01_JPRB,.464E-01_JPRB,.378E-01_JPRB,.507E-01_JPRB,.293E-01_JPRB,&
462&.311E-01_JPRB,.399E-01_JPRB,.389E-01_JPRB,.312E-01_JPRB,.198E-01_JPRB,.292E-01_JPRB,.433E-01_JPRB,&
463&.534E-01_JPRB,.647E-01_JPRB,.696E-01_JPRB,.563E-01_JPRB,.493E-01_JPRB,.336E-01_JPRB,.356E-01_JPRB,&
464&.399E-01_JPRB,.398E-01_JPRB,.332E-01_JPRB,.284E-01_JPRB,.247E-01_JPRB,.215E-01_JPRB,.193E-01_JPRB,&
465&.204E-01_JPRB,.229E-01_JPRB/)
466!-- Total Sulfate Aerosol    month:  1 --- lat: 31 -30.0
467ZAER (:,31, 1) = (/&
468&.203E-01_JPRB,.193E-01_JPRB,.210E-01_JPRB,.226E-01_JPRB,.190E-01_JPRB,.171E-01_JPRB,.162E-01_JPRB,&
469&.151E-01_JPRB,.140E-01_JPRB,.132E-01_JPRB,.145E-01_JPRB,.181E-01_JPRB,.294E-01_JPRB,.396E-01_JPRB,&
470&.194E-01_JPRB,.187E-01_JPRB,.198E-01_JPRB,.216E-01_JPRB,.269E-01_JPRB,.235E-01_JPRB,.433E-01_JPRB,&
471&.457E-01_JPRB,.383E-01_JPRB,.340E-01_JPRB,.283E-01_JPRB,.237E-01_JPRB,.236E-01_JPRB,.223E-01_JPRB,&
472&.202E-01_JPRB,.181E-01_JPRB,.173E-01_JPRB,.209E-01_JPRB,.246E-01_JPRB,.286E-01_JPRB,.126E-01_JPRB,&
473&.122E-01_JPRB,.139E-01_JPRB,.136E-01_JPRB,.145E-01_JPRB,.179E-01_JPRB,.249E-01_JPRB,.252E-01_JPRB,&
474&.268E-01_JPRB,.339E-01_JPRB,.388E-01_JPRB,.485E-01_JPRB,.381E-01_JPRB,.327E-01_JPRB,.365E-01_JPRB,&
475&.321E-01_JPRB,.371E-01_JPRB,.302E-01_JPRB,.143E-01_JPRB,.852E-02_JPRB,.679E-02_JPRB,.894E-02_JPRB,&
476&.213E-01_JPRB,.842E-01_JPRB,.893E-01_JPRB,.814E-01_JPRB,.544E-01_JPRB,.650E-01_JPRB,.540E-01_JPRB,&
477&.650E-01_JPRB,.484E-01_JPRB,.408E-01_JPRB,.332E-01_JPRB,.301E-01_JPRB,.273E-01_JPRB,.246E-01_JPRB,&
478&.222E-01_JPRB,.217E-01_JPRB/)
479!-- Total Sulfate Aerosol    month:  1 --- lat: 32 -34.0
480ZAER (:,32, 1) = (/&
481&.207E-01_JPRB,.194E-01_JPRB,.190E-01_JPRB,.204E-01_JPRB,.199E-01_JPRB,.186E-01_JPRB,.172E-01_JPRB,&
482&.160E-01_JPRB,.145E-01_JPRB,.140E-01_JPRB,.159E-01_JPRB,.228E-01_JPRB,.305E-01_JPRB,.210E-01_JPRB,&
483&.175E-01_JPRB,.153E-01_JPRB,.137E-01_JPRB,.213E-01_JPRB,.290E-01_JPRB,.292E-01_JPRB,.381E-01_JPRB,&
484&.565E-01_JPRB,.539E-01_JPRB,.420E-01_JPRB,.323E-01_JPRB,.260E-01_JPRB,.217E-01_JPRB,.207E-01_JPRB,&
485&.201E-01_JPRB,.169E-01_JPRB,.154E-01_JPRB,.166E-01_JPRB,.202E-01_JPRB,.234E-01_JPRB,.266E-01_JPRB,&
486&.172E-01_JPRB,.180E-01_JPRB,.169E-01_JPRB,.191E-01_JPRB,.435E-01_JPRB,.481E-01_JPRB,.426E-01_JPRB,&
487&.415E-01_JPRB,.448E-01_JPRB,.382E-01_JPRB,.436E-01_JPRB,.332E-01_JPRB,.445E-01_JPRB,.446E-01_JPRB,&
488&.292E-01_JPRB,.293E-01_JPRB,.244E-01_JPRB,.107E-01_JPRB,.691E-02_JPRB,.615E-02_JPRB,.542E-02_JPRB,&
489&.107E-01_JPRB,.544E-01_JPRB,.785E-01_JPRB,.803E-01_JPRB,.636E-01_JPRB,.892E-01_JPRB,.671E-01_JPRB,&
490&.363E-01_JPRB,.446E-01_JPRB,.398E-01_JPRB,.337E-01_JPRB,.308E-01_JPRB,.286E-01_JPRB,.261E-01_JPRB,&
491&.240E-01_JPRB,.220E-01_JPRB/)
492!-- Total Sulfate Aerosol    month:  1 --- lat: 33 -38.0
493ZAER (:,33, 1) = (/&
494&.187E-01_JPRB,.183E-01_JPRB,.172E-01_JPRB,.174E-01_JPRB,.176E-01_JPRB,.181E-01_JPRB,.176E-01_JPRB,&
495&.161E-01_JPRB,.146E-01_JPRB,.139E-01_JPRB,.160E-01_JPRB,.250E-01_JPRB,.153E-01_JPRB,.136E-01_JPRB,&
496&.145E-01_JPRB,.132E-01_JPRB,.145E-01_JPRB,.188E-01_JPRB,.281E-01_JPRB,.405E-01_JPRB,.468E-01_JPRB,&
497&.906E-01_JPRB,.547E-01_JPRB,.428E-01_JPRB,.330E-01_JPRB,.258E-01_JPRB,.223E-01_JPRB,.187E-01_JPRB,&
498&.173E-01_JPRB,.152E-01_JPRB,.136E-01_JPRB,.138E-01_JPRB,.150E-01_JPRB,.175E-01_JPRB,.268E-01_JPRB,&
499&.181E-01_JPRB,.282E-01_JPRB,.352E-01_JPRB,.355E-01_JPRB,.418E-01_JPRB,.518E-01_JPRB,.482E-01_JPRB,&
500&.279E-01_JPRB,.289E-01_JPRB,.343E-01_JPRB,.320E-01_JPRB,.408E-01_JPRB,.426E-01_JPRB,.432E-01_JPRB,&
501&.514E-01_JPRB,.255E-01_JPRB,.197E-01_JPRB,.210E-01_JPRB,.140E-01_JPRB,.950E-02_JPRB,.785E-02_JPRB,&
502&.107E-01_JPRB,.269E-01_JPRB,.436E-01_JPRB,.427E-01_JPRB,.663E-01_JPRB,.505E-01_JPRB,.531E-01_JPRB,&
503&.549E-01_JPRB,.264E-01_JPRB,.383E-01_JPRB,.333E-01_JPRB,.290E-01_JPRB,.256E-01_JPRB,.237E-01_JPRB,&
504&.224E-01_JPRB,.202E-01_JPRB/)
505!-- Total Sulfate Aerosol    month:  1 --- lat: 34 -42.0
506ZAER (:,34, 1) = (/&
507&.176E-01_JPRB,.169E-01_JPRB,.165E-01_JPRB,.160E-01_JPRB,.162E-01_JPRB,.160E-01_JPRB,.163E-01_JPRB,&
508&.158E-01_JPRB,.146E-01_JPRB,.138E-01_JPRB,.156E-01_JPRB,.194E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,&
509&.111E-01_JPRB,.129E-01_JPRB,.144E-01_JPRB,.209E-01_JPRB,.307E-01_JPRB,.389E-01_JPRB,.427E-01_JPRB,&
510&.503E-01_JPRB,.595E-01_JPRB,.498E-01_JPRB,.364E-01_JPRB,.301E-01_JPRB,.249E-01_JPRB,.202E-01_JPRB,&
511&.169E-01_JPRB,.147E-01_JPRB,.136E-01_JPRB,.129E-01_JPRB,.127E-01_JPRB,.134E-01_JPRB,.189E-01_JPRB,&
512&.156E-01_JPRB,.155E-01_JPRB,.358E-01_JPRB,.277E-01_JPRB,.307E-01_JPRB,.252E-01_JPRB,.252E-01_JPRB,&
513&.408E-01_JPRB,.428E-01_JPRB,.225E-01_JPRB,.226E-01_JPRB,.494E-01_JPRB,.359E-01_JPRB,.432E-01_JPRB,&
514&.576E-01_JPRB,.405E-01_JPRB,.211E-01_JPRB,.152E-01_JPRB,.206E-01_JPRB,.237E-01_JPRB,.177E-01_JPRB,&
515&.207E-01_JPRB,.211E-01_JPRB,.181E-01_JPRB,.175E-01_JPRB,.216E-01_JPRB,.184E-01_JPRB,.233E-01_JPRB,&
516&.439E-01_JPRB,.337E-01_JPRB,.341E-01_JPRB,.348E-01_JPRB,.297E-01_JPRB,.252E-01_JPRB,.226E-01_JPRB,&
517&.205E-01_JPRB,.191E-01_JPRB/)
518!-- Total Sulfate Aerosol    month:  1 --- lat: 35 -46.0
519ZAER (:,35, 1) = (/&
520&.184E-01_JPRB,.174E-01_JPRB,.170E-01_JPRB,.161E-01_JPRB,.159E-01_JPRB,.155E-01_JPRB,.154E-01_JPRB,&
521&.155E-01_JPRB,.147E-01_JPRB,.139E-01_JPRB,.143E-01_JPRB,.158E-01_JPRB,.105E-01_JPRB,.972E-02_JPRB,&
522&.101E-01_JPRB,.120E-01_JPRB,.144E-01_JPRB,.183E-01_JPRB,.252E-01_JPRB,.267E-01_JPRB,.375E-01_JPRB,&
523&.479E-01_JPRB,.340E-01_JPRB,.263E-01_JPRB,.398E-01_JPRB,.368E-01_JPRB,.339E-01_JPRB,.271E-01_JPRB,&
524&.211E-01_JPRB,.171E-01_JPRB,.144E-01_JPRB,.130E-01_JPRB,.123E-01_JPRB,.124E-01_JPRB,.161E-01_JPRB,&
525&.290E-01_JPRB,.228E-01_JPRB,.205E-01_JPRB,.225E-01_JPRB,.225E-01_JPRB,.256E-01_JPRB,.339E-01_JPRB,&
526&.400E-01_JPRB,.271E-01_JPRB,.250E-01_JPRB,.304E-01_JPRB,.441E-01_JPRB,.373E-01_JPRB,.402E-01_JPRB,&
527&.411E-01_JPRB,.456E-01_JPRB,.406E-01_JPRB,.267E-01_JPRB,.247E-01_JPRB,.206E-01_JPRB,.178E-01_JPRB,&
528&.157E-01_JPRB,.133E-01_JPRB,.136E-01_JPRB,.159E-01_JPRB,.179E-01_JPRB,.175E-01_JPRB,.193E-01_JPRB,&
529&.202E-01_JPRB,.325E-01_JPRB,.274E-01_JPRB,.247E-01_JPRB,.260E-01_JPRB,.262E-01_JPRB,.241E-01_JPRB,&
530&.222E-01_JPRB,.204E-01_JPRB/)
531!-- Total Sulfate Aerosol    month:  1 --- lat: 36 -50.0
532ZAER (:,36, 1) = (/&
533&.193E-01_JPRB,.179E-01_JPRB,.172E-01_JPRB,.165E-01_JPRB,.156E-01_JPRB,.154E-01_JPRB,.162E-01_JPRB,&
534&.171E-01_JPRB,.160E-01_JPRB,.148E-01_JPRB,.151E-01_JPRB,.948E-02_JPRB,.115E-01_JPRB,.109E-01_JPRB,&
535&.139E-01_JPRB,.150E-01_JPRB,.185E-01_JPRB,.210E-01_JPRB,.235E-01_JPRB,.255E-01_JPRB,.363E-01_JPRB,&
536&.339E-01_JPRB,.297E-01_JPRB,.229E-01_JPRB,.333E-01_JPRB,.341E-01_JPRB,.291E-01_JPRB,.234E-01_JPRB,&
537&.206E-01_JPRB,.174E-01_JPRB,.149E-01_JPRB,.133E-01_JPRB,.127E-01_JPRB,.123E-01_JPRB,.130E-01_JPRB,&
538&.176E-01_JPRB,.134E-01_JPRB,.160E-01_JPRB,.159E-01_JPRB,.191E-01_JPRB,.237E-01_JPRB,.296E-01_JPRB,&
539&.264E-01_JPRB,.315E-01_JPRB,.297E-01_JPRB,.364E-01_JPRB,.389E-01_JPRB,.339E-01_JPRB,.387E-01_JPRB,&
540&.381E-01_JPRB,.371E-01_JPRB,.448E-01_JPRB,.495E-01_JPRB,.273E-01_JPRB,.164E-01_JPRB,.144E-01_JPRB,&
541&.139E-01_JPRB,.152E-01_JPRB,.169E-01_JPRB,.163E-01_JPRB,.167E-01_JPRB,.171E-01_JPRB,.194E-01_JPRB,&
542&.210E-01_JPRB,.177E-01_JPRB,.250E-01_JPRB,.227E-01_JPRB,.219E-01_JPRB,.269E-01_JPRB,.267E-01_JPRB,&
543&.242E-01_JPRB,.211E-01_JPRB/)
544!-- Total Sulfate Aerosol    month:  1 --- lat: 37 -54.0
545ZAER (:,37, 1) = (/&
546&.191E-01_JPRB,.193E-01_JPRB,.167E-01_JPRB,.152E-01_JPRB,.153E-01_JPRB,.152E-01_JPRB,.163E-01_JPRB,&
547&.160E-01_JPRB,.157E-01_JPRB,.151E-01_JPRB,.900E-02_JPRB,.944E-02_JPRB,.130E-01_JPRB,.131E-01_JPRB,&
548&.135E-01_JPRB,.166E-01_JPRB,.160E-01_JPRB,.193E-01_JPRB,.209E-01_JPRB,.182E-01_JPRB,.333E-01_JPRB,&
549&.270E-01_JPRB,.238E-01_JPRB,.193E-01_JPRB,.171E-01_JPRB,.287E-01_JPRB,.237E-01_JPRB,.204E-01_JPRB,&
550&.188E-01_JPRB,.176E-01_JPRB,.157E-01_JPRB,.143E-01_JPRB,.127E-01_JPRB,.122E-01_JPRB,.128E-01_JPRB,&
551&.863E-02_JPRB,.178E-01_JPRB,.296E-01_JPRB,.213E-01_JPRB,.227E-01_JPRB,.281E-01_JPRB,.271E-01_JPRB,&
552&.268E-01_JPRB,.304E-01_JPRB,.277E-01_JPRB,.337E-01_JPRB,.283E-01_JPRB,.292E-01_JPRB,.308E-01_JPRB,&
553&.390E-01_JPRB,.378E-01_JPRB,.370E-01_JPRB,.498E-01_JPRB,.438E-01_JPRB,.249E-01_JPRB,.207E-01_JPRB,&
554&.183E-01_JPRB,.176E-01_JPRB,.180E-01_JPRB,.176E-01_JPRB,.183E-01_JPRB,.194E-01_JPRB,.227E-01_JPRB,&
555&.228E-01_JPRB,.266E-01_JPRB,.245E-01_JPRB,.205E-01_JPRB,.191E-01_JPRB,.131E-01_JPRB,.225E-01_JPRB,&
556&.206E-01_JPRB,.205E-01_JPRB/)
557!-- Total Sulfate Aerosol    month:  1 --- lat: 38 -58.0
558ZAER (:,38, 1) = (/&
559&.206E-01_JPRB,.205E-01_JPRB,.170E-01_JPRB,.176E-01_JPRB,.197E-01_JPRB,.171E-01_JPRB,.166E-01_JPRB,&
560&.171E-01_JPRB,.177E-01_JPRB,.985E-02_JPRB,.872E-02_JPRB,.917E-02_JPRB,.137E-01_JPRB,.151E-01_JPRB,&
561&.147E-01_JPRB,.158E-01_JPRB,.169E-01_JPRB,.198E-01_JPRB,.338E-01_JPRB,.326E-01_JPRB,.365E-01_JPRB,&
562&.242E-01_JPRB,.221E-01_JPRB,.159E-01_JPRB,.286E-01_JPRB,.266E-01_JPRB,.200E-01_JPRB,.181E-01_JPRB,&
563&.169E-01_JPRB,.164E-01_JPRB,.156E-01_JPRB,.142E-01_JPRB,.130E-01_JPRB,.123E-01_JPRB,.125E-01_JPRB,&
564&.142E-01_JPRB,.160E-01_JPRB,.207E-01_JPRB,.114E-01_JPRB,.111E-01_JPRB,.212E-01_JPRB,.141E-01_JPRB,&
565&.163E-01_JPRB,.184E-01_JPRB,.219E-01_JPRB,.289E-01_JPRB,.288E-01_JPRB,.295E-01_JPRB,.308E-01_JPRB,&
566&.347E-01_JPRB,.390E-01_JPRB,.385E-01_JPRB,.397E-01_JPRB,.436E-01_JPRB,.412E-01_JPRB,.382E-01_JPRB,&
567&.289E-01_JPRB,.254E-01_JPRB,.210E-01_JPRB,.194E-01_JPRB,.196E-01_JPRB,.204E-01_JPRB,.251E-01_JPRB,&
568&.228E-01_JPRB,.195E-01_JPRB,.303E-01_JPRB,.260E-01_JPRB,.232E-01_JPRB,.141E-01_JPRB,.231E-01_JPRB,&
569&.230E-01_JPRB,.212E-01_JPRB/)
570!-- Total Sulfate Aerosol    month:  1 --- lat: 39 -62.0
571ZAER (:,39, 1) = (/&
572&.234E-01_JPRB,.264E-01_JPRB,.228E-01_JPRB,.209E-01_JPRB,.124E-01_JPRB,.113E-01_JPRB,.908E-02_JPRB,&
573&.805E-02_JPRB,.753E-02_JPRB,.835E-02_JPRB,.849E-02_JPRB,.988E-02_JPRB,.122E-01_JPRB,.128E-01_JPRB,&
574&.131E-01_JPRB,.139E-01_JPRB,.149E-01_JPRB,.174E-01_JPRB,.349E-01_JPRB,.405E-01_JPRB,.343E-01_JPRB,&
575&.183E-01_JPRB,.299E-01_JPRB,.313E-01_JPRB,.276E-01_JPRB,.258E-01_JPRB,.202E-01_JPRB,.881E-02_JPRB,&
576&.162E-01_JPRB,.170E-01_JPRB,.160E-01_JPRB,.146E-01_JPRB,.140E-01_JPRB,.127E-01_JPRB,.124E-01_JPRB,&
577&.123E-01_JPRB,.119E-01_JPRB,.122E-01_JPRB,.708E-02_JPRB,.723E-02_JPRB,.129E-01_JPRB,.799E-02_JPRB,&
578&.891E-02_JPRB,.112E-01_JPRB,.113E-01_JPRB,.158E-01_JPRB,.195E-01_JPRB,.216E-01_JPRB,.255E-01_JPRB,&
579&.294E-01_JPRB,.327E-01_JPRB,.330E-01_JPRB,.318E-01_JPRB,.357E-01_JPRB,.349E-01_JPRB,.386E-01_JPRB,&
580&.415E-01_JPRB,.366E-01_JPRB,.346E-01_JPRB,.309E-01_JPRB,.290E-01_JPRB,.305E-01_JPRB,.284E-01_JPRB,&
581&.215E-01_JPRB,.163E-01_JPRB,.155E-01_JPRB,.136E-01_JPRB,.146E-01_JPRB,.159E-01_JPRB,.143E-01_JPRB,&
582&.135E-01_JPRB,.240E-01_JPRB/)
583!-- Total Sulfate Aerosol    month:  1 --- lat: 40 -66.0
584ZAER (:,40, 1) = (/&
585&.172E-01_JPRB,.151E-01_JPRB,.253E-01_JPRB,.262E-01_JPRB,.141E-01_JPRB,.127E-01_JPRB,.111E-01_JPRB,&
586&.975E-02_JPRB,.894E-02_JPRB,.936E-02_JPRB,.101E-01_JPRB,.105E-01_JPRB,.122E-01_JPRB,.128E-01_JPRB,&
587&.128E-01_JPRB,.135E-01_JPRB,.173E-01_JPRB,.194E-01_JPRB,.241E-01_JPRB,.247E-01_JPRB,.314E-01_JPRB,&
588&.154E-01_JPRB,.150E-01_JPRB,.158E-01_JPRB,.267E-01_JPRB,.232E-01_JPRB,.102E-01_JPRB,.709E-02_JPRB,&
589&.700E-02_JPRB,.140E-01_JPRB,.168E-01_JPRB,.172E-01_JPRB,.161E-01_JPRB,.149E-01_JPRB,.142E-01_JPRB,&
590&.134E-01_JPRB,.121E-01_JPRB,.107E-01_JPRB,.105E-01_JPRB,.607E-02_JPRB,.682E-02_JPRB,.704E-02_JPRB,&
591&.754E-02_JPRB,.902E-02_JPRB,.933E-02_JPRB,.989E-02_JPRB,.128E-01_JPRB,.180E-01_JPRB,.189E-01_JPRB,&
592&.222E-01_JPRB,.230E-01_JPRB,.262E-01_JPRB,.284E-01_JPRB,.338E-01_JPRB,.352E-01_JPRB,.360E-01_JPRB,&
593&.396E-01_JPRB,.391E-01_JPRB,.361E-01_JPRB,.351E-01_JPRB,.366E-01_JPRB,.348E-01_JPRB,.280E-01_JPRB,&
594&.197E-01_JPRB,.157E-01_JPRB,.160E-01_JPRB,.156E-01_JPRB,.168E-01_JPRB,.172E-01_JPRB,.165E-01_JPRB,&
595&.190E-01_JPRB,.188E-01_JPRB/)
596!-- Total Sulfate Aerosol    month:  1 --- lat: 41 -70.0
597ZAER (:,41, 1) = (/&
598&.312E-01_JPRB,.311E-01_JPRB,.296E-01_JPRB,.308E-01_JPRB,.185E-01_JPRB,.155E-01_JPRB,.139E-01_JPRB,&
599&.124E-01_JPRB,.188E-01_JPRB,.191E-01_JPRB,.120E-01_JPRB,.218E-01_JPRB,.242E-01_JPRB,.155E-01_JPRB,&
600&.148E-01_JPRB,.149E-01_JPRB,.290E-01_JPRB,.216E-01_JPRB,.231E-01_JPRB,.198E-01_JPRB,.176E-01_JPRB,&
601&.160E-01_JPRB,.143E-01_JPRB,.247E-01_JPRB,.222E-01_JPRB,.189E-01_JPRB,.877E-02_JPRB,.652E-02_JPRB,&
602&.550E-02_JPRB,.469E-02_JPRB,.489E-02_JPRB,.724E-02_JPRB,.159E-01_JPRB,.163E-01_JPRB,.164E-01_JPRB,&
603&.160E-01_JPRB,.151E-01_JPRB,.132E-01_JPRB,.116E-01_JPRB,.112E-01_JPRB,.115E-01_JPRB,.754E-02_JPRB,&
604&.770E-02_JPRB,.127E-01_JPRB,.131E-01_JPRB,.174E-01_JPRB,.240E-01_JPRB,.290E-01_JPRB,.324E-01_JPRB,&
605&.312E-01_JPRB,.178E-01_JPRB,.200E-01_JPRB,.263E-01_JPRB,.287E-01_JPRB,.349E-01_JPRB,.388E-01_JPRB,&
606&.340E-01_JPRB,.342E-01_JPRB,.357E-01_JPRB,.379E-01_JPRB,.361E-01_JPRB,.321E-01_JPRB,.288E-01_JPRB,&
607&.232E-01_JPRB,.205E-01_JPRB,.199E-01_JPRB,.201E-01_JPRB,.196E-01_JPRB,.209E-01_JPRB,.202E-01_JPRB,&
608&.345E-01_JPRB,.202E-01_JPRB/)
609!-- Total Sulfate Aerosol    month:  1 --- lat: 42 -74.0
610ZAER (:,42, 1) = (/&
611&.330E-01_JPRB,.317E-01_JPRB,.321E-01_JPRB,.344E-01_JPRB,.338E-01_JPRB,.314E-01_JPRB,.293E-01_JPRB,&
612&.245E-01_JPRB,.228E-01_JPRB,.229E-01_JPRB,.235E-01_JPRB,.238E-01_JPRB,.145E-01_JPRB,.155E-01_JPRB,&
613&.288E-01_JPRB,.316E-01_JPRB,.312E-01_JPRB,.324E-01_JPRB,.314E-01_JPRB,.168E-01_JPRB,.284E-01_JPRB,&
614&.294E-01_JPRB,.293E-01_JPRB,.267E-01_JPRB,.209E-01_JPRB,.971E-02_JPRB,.735E-02_JPRB,.592E-02_JPRB,&
615&.499E-02_JPRB,.457E-02_JPRB,.470E-02_JPRB,.589E-02_JPRB,.159E-01_JPRB,.201E-01_JPRB,.218E-01_JPRB,&
616&.215E-01_JPRB,.206E-01_JPRB,.198E-01_JPRB,.189E-01_JPRB,.190E-01_JPRB,.184E-01_JPRB,.175E-01_JPRB,&
617&.183E-01_JPRB,.186E-01_JPRB,.202E-01_JPRB,.221E-01_JPRB,.218E-01_JPRB,.229E-01_JPRB,.274E-01_JPRB,&
618&.312E-01_JPRB,.297E-01_JPRB,.392E-01_JPRB,.456E-01_JPRB,.271E-01_JPRB,.310E-01_JPRB,.482E-01_JPRB,&
619&.438E-01_JPRB,.430E-01_JPRB,.413E-01_JPRB,.395E-01_JPRB,.617E-01_JPRB,.571E-01_JPRB,.488E-01_JPRB,&
620&.419E-01_JPRB,.420E-01_JPRB,.430E-01_JPRB,.438E-01_JPRB,.400E-01_JPRB,.372E-01_JPRB,.373E-01_JPRB,&
621&.386E-01_JPRB,.371E-01_JPRB/)
622!-- Total Sulfate Aerosol    month:  1 --- lat: 43 -78.0
623ZAER (:,43, 1) = (/&
624&.311E-01_JPRB,.294E-01_JPRB,.288E-01_JPRB,.308E-01_JPRB,.325E-01_JPRB,.334E-01_JPRB,.327E-01_JPRB,&
625&.304E-01_JPRB,.302E-01_JPRB,.300E-01_JPRB,.287E-01_JPRB,.276E-01_JPRB,.268E-01_JPRB,.266E-01_JPRB,&
626&.276E-01_JPRB,.287E-01_JPRB,.298E-01_JPRB,.306E-01_JPRB,.176E-01_JPRB,.167E-01_JPRB,.168E-01_JPRB,&
627&.296E-01_JPRB,.294E-01_JPRB,.162E-01_JPRB,.111E-01_JPRB,.941E-02_JPRB,.818E-02_JPRB,.691E-02_JPRB,&
628&.676E-02_JPRB,.674E-02_JPRB,.788E-02_JPRB,.878E-02_JPRB,.168E-01_JPRB,.221E-01_JPRB,.247E-01_JPRB,&
629&.263E-01_JPRB,.252E-01_JPRB,.246E-01_JPRB,.244E-01_JPRB,.145E-01_JPRB,.250E-01_JPRB,.248E-01_JPRB,&
630&.256E-01_JPRB,.268E-01_JPRB,.289E-01_JPRB,.332E-01_JPRB,.312E-01_JPRB,.307E-01_JPRB,.312E-01_JPRB,&
631&.324E-01_JPRB,.341E-01_JPRB,.341E-01_JPRB,.336E-01_JPRB,.368E-01_JPRB,.427E-01_JPRB,.495E-01_JPRB,&
632&.563E-01_JPRB,.387E-01_JPRB,.626E-01_JPRB,.575E-01_JPRB,.533E-01_JPRB,.494E-01_JPRB,.482E-01_JPRB,&
633&.490E-01_JPRB,.472E-01_JPRB,.482E-01_JPRB,.474E-01_JPRB,.426E-01_JPRB,.393E-01_JPRB,.376E-01_JPRB,&
634&.350E-01_JPRB,.330E-01_JPRB/)
635!-- Total Sulfate Aerosol    month:  1 --- lat: 44 -82.0
636ZAER (:,44, 1) = (/&
637&.287E-01_JPRB,.286E-01_JPRB,.289E-01_JPRB,.296E-01_JPRB,.309E-01_JPRB,.325E-01_JPRB,.332E-01_JPRB,&
638&.321E-01_JPRB,.317E-01_JPRB,.314E-01_JPRB,.315E-01_JPRB,.317E-01_JPRB,.315E-01_JPRB,.296E-01_JPRB,&
639&.283E-01_JPRB,.274E-01_JPRB,.269E-01_JPRB,.273E-01_JPRB,.272E-01_JPRB,.268E-01_JPRB,.158E-01_JPRB,&
640&.156E-01_JPRB,.153E-01_JPRB,.149E-01_JPRB,.139E-01_JPRB,.132E-01_JPRB,.127E-01_JPRB,.123E-01_JPRB,&
641&.120E-01_JPRB,.119E-01_JPRB,.121E-01_JPRB,.119E-01_JPRB,.123E-01_JPRB,.215E-01_JPRB,.230E-01_JPRB,&
642&.257E-01_JPRB,.277E-01_JPRB,.282E-01_JPRB,.284E-01_JPRB,.285E-01_JPRB,.292E-01_JPRB,.296E-01_JPRB,&
643&.308E-01_JPRB,.321E-01_JPRB,.332E-01_JPRB,.341E-01_JPRB,.347E-01_JPRB,.352E-01_JPRB,.357E-01_JPRB,&
644&.360E-01_JPRB,.367E-01_JPRB,.376E-01_JPRB,.384E-01_JPRB,.394E-01_JPRB,.405E-01_JPRB,.422E-01_JPRB,&
645&.430E-01_JPRB,.438E-01_JPRB,.439E-01_JPRB,.432E-01_JPRB,.408E-01_JPRB,.389E-01_JPRB,.384E-01_JPRB,&
646&.386E-01_JPRB,.405E-01_JPRB,.431E-01_JPRB,.421E-01_JPRB,.377E-01_JPRB,.345E-01_JPRB,.320E-01_JPRB,&
647&.304E-01_JPRB,.296E-01_JPRB/)
648!-- Total Sulfate Aerosol    month:  1 --- lat: 45 -86.0
649ZAER (:,45, 1) = (/&
650&.306E-01_JPRB,.307E-01_JPRB,.303E-01_JPRB,.303E-01_JPRB,.300E-01_JPRB,.302E-01_JPRB,.304E-01_JPRB,&
651&.305E-01_JPRB,.308E-01_JPRB,.311E-01_JPRB,.313E-01_JPRB,.317E-01_JPRB,.318E-01_JPRB,.311E-01_JPRB,&
652&.303E-01_JPRB,.295E-01_JPRB,.289E-01_JPRB,.287E-01_JPRB,.283E-01_JPRB,.282E-01_JPRB,.282E-01_JPRB,&
653&.284E-01_JPRB,.288E-01_JPRB,.291E-01_JPRB,.285E-01_JPRB,.283E-01_JPRB,.281E-01_JPRB,.281E-01_JPRB,&
654&.281E-01_JPRB,.281E-01_JPRB,.283E-01_JPRB,.282E-01_JPRB,.286E-01_JPRB,.290E-01_JPRB,.293E-01_JPRB,&
655&.298E-01_JPRB,.296E-01_JPRB,.299E-01_JPRB,.299E-01_JPRB,.302E-01_JPRB,.307E-01_JPRB,.312E-01_JPRB,&
656&.316E-01_JPRB,.320E-01_JPRB,.326E-01_JPRB,.332E-01_JPRB,.337E-01_JPRB,.345E-01_JPRB,.347E-01_JPRB,&
657&.350E-01_JPRB,.351E-01_JPRB,.351E-01_JPRB,.350E-01_JPRB,.347E-01_JPRB,.345E-01_JPRB,.341E-01_JPRB,&
658&.336E-01_JPRB,.331E-01_JPRB,.322E-01_JPRB,.316E-01_JPRB,.306E-01_JPRB,.307E-01_JPRB,.308E-01_JPRB,&
659&.308E-01_JPRB,.310E-01_JPRB,.309E-01_JPRB,.308E-01_JPRB,.308E-01_JPRB,.308E-01_JPRB,.307E-01_JPRB,&
660&.304E-01_JPRB,.303E-01_JPRB/)
661!-- Total Sulfate Aerosol    month:  1 --- lat: 46 -90.0
662ZAER (:,46, 1) = (/&
663&.320E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
664&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
665&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
666&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
667&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
668&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
669&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
670&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
671&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
672&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
673&.327E-01_JPRB,.327E-01_JPRB/)
674
675
676!     ------------------------------------------------------------------
677
678!ZMAX=-1.E+8_JPRB
679!ZMIN= 1.E+8_JPRB
680   JM=1   
681  DO JI=1,46
682    DO JL=1,72
683      RAERSU(JL,JI,JM)=ZAER(JL,JI,JM)
684!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
685!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
686    ENDDO
687  ENDDO
688
689!PRINT 9000,ZMIN,ZMAX
6909000 FORMAT(1x,'SULFATE AEROSOLS ',2E12.5)
691
692!     ------------------------------------------------------------------
693
694RETURN
695END SUBROUTINE SUECAESU_01
Note: See TracBrowser for help on using the repository browser.