suecaesu_01.F90

Go to the documentation of this file.

SUBROUTINE suecaesu_01

!**   OPTICAL THICKNESS OF SULFATE-TYPE AEROSOLS
!                          January

!     PURPOSE.
!     --------

!**   INTERFACE.
!     ----------
!        CALL *SUECAESU* FROM *SUECRAD*

!        EXPLICIT ARGUMENTS :
!        --------------------
!     ==== INPUTS ===
!     ==== OUTPUTS ===

!        IMPLICIT ARGUMENTS :   NONE
!        --------------------

!     METHOD.
!     -------


!     EXTERNALS.
!     ----------

!          NONE

!     REFERENCE.
!     ----------

!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"

!     AUTHOR.
!     -------
!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21

!     MODIFICATIONS.
!     --------------
!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5

!-----------------------------------------------------------------------

#include "tsmbkind.h"

USE yoeaerc  , ONLY : raersu


IMPLICIT NONE


!     -----------------------------------------------------------------

!*       0.1   ARGUMENTS.
!              ----------

!     ----------------------------------------------------------------- 

!*       0.2   LOCAL ARRAYS.
!              -------------

real_b :: zaer(72,46,1:1)

!     LOCAL INTEGER SCALARS
integer_m :: ji, jl, jm

!     LOCAL REAL SCALARS
real_b :: zmax, zmin

!     ------------------------------------------------------------------

!-- Tegen et al., 1997

!-- Total Sulfate Aerosol    month:  1 --- lat:  1  90.0
zaer(:, 1, 1) = (/&
&.571e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,&
&.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,&
&.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,&
&.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,&
&.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,&
&.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,&
&.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,&
&.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,&
&.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,&
&.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,.583e-02_jprb,&
&.583e-02_jprb,.583e-02_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat:  2  86.0
zaer(:, 2, 1) = (/&
&.974e-02_jprb,.106e-01_jprb,.113e-01_jprb,.118e-01_jprb,.123e-01_jprb,.124e-01_jprb,.127e-01_jprb,&
&.129e-01_jprb,.131e-01_jprb,.132e-01_jprb,.132e-01_jprb,.130e-01_jprb,.105e-01_jprb,.965e-02_jprb,&
&.869e-02_jprb,.797e-02_jprb,.738e-02_jprb,.691e-02_jprb,.642e-02_jprb,.602e-02_jprb,.580e-02_jprb,&
&.560e-02_jprb,.555e-02_jprb,.559e-02_jprb,.512e-02_jprb,.517e-02_jprb,.528e-02_jprb,.540e-02_jprb,&
&.551e-02_jprb,.560e-02_jprb,.569e-02_jprb,.576e-02_jprb,.581e-02_jprb,.593e-02_jprb,.598e-02_jprb,&
&.598e-02_jprb,.546e-02_jprb,.541e-02_jprb,.534e-02_jprb,.532e-02_jprb,.532e-02_jprb,.535e-02_jprb,&
&.538e-02_jprb,.539e-02_jprb,.550e-02_jprb,.556e-02_jprb,.563e-02_jprb,.569e-02_jprb,.551e-02_jprb,&
&.543e-02_jprb,.533e-02_jprb,.525e-02_jprb,.516e-02_jprb,.509e-02_jprb,.507e-02_jprb,.499e-02_jprb,&
&.499e-02_jprb,.497e-02_jprb,.498e-02_jprb,.500e-02_jprb,.533e-02_jprb,.536e-02_jprb,.540e-02_jprb,&
&.549e-02_jprb,.568e-02_jprb,.584e-02_jprb,.604e-02_jprb,.629e-02_jprb,.661e-02_jprb,.700e-02_jprb,&
&.740e-02_jprb,.792e-02_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat:  3  82.0
zaer(:, 3, 1) = (/&
&.211e-01_jprb,.229e-01_jprb,.247e-01_jprb,.260e-01_jprb,.277e-01_jprb,.287e-01_jprb,.269e-01_jprb,&
&.239e-01_jprb,.215e-01_jprb,.195e-01_jprb,.180e-01_jprb,.169e-01_jprb,.144e-01_jprb,.137e-01_jprb,&
&.132e-01_jprb,.124e-01_jprb,.116e-01_jprb,.106e-01_jprb,.106e-01_jprb,.102e-01_jprb,.943e-02_jprb,&
&.856e-02_jprb,.750e-02_jprb,.628e-02_jprb,.715e-02_jprb,.753e-02_jprb,.787e-02_jprb,.813e-02_jprb,&
&.843e-02_jprb,.864e-02_jprb,.742e-02_jprb,.720e-02_jprb,.713e-02_jprb,.714e-02_jprb,.738e-02_jprb,&
&.767e-02_jprb,.634e-02_jprb,.627e-02_jprb,.625e-02_jprb,.624e-02_jprb,.627e-02_jprb,.623e-02_jprb,&
&.573e-02_jprb,.558e-02_jprb,.559e-02_jprb,.557e-02_jprb,.565e-02_jprb,.574e-02_jprb,.570e-02_jprb,&
&.567e-02_jprb,.560e-02_jprb,.555e-02_jprb,.545e-02_jprb,.531e-02_jprb,.549e-02_jprb,.545e-02_jprb,&
&.530e-02_jprb,.516e-02_jprb,.505e-02_jprb,.492e-02_jprb,.533e-02_jprb,.525e-02_jprb,.534e-02_jprb,&
&.554e-02_jprb,.588e-02_jprb,.627e-02_jprb,.790e-02_jprb,.774e-02_jprb,.829e-02_jprb,.981e-02_jprb,&
&.122e-01_jprb,.157e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat:  4  78.0
zaer(:, 4, 1) = (/&
&.306e-01_jprb,.322e-01_jprb,.332e-01_jprb,.323e-01_jprb,.337e-01_jprb,.366e-01_jprb,.348e-01_jprb,&
&.296e-01_jprb,.252e-01_jprb,.175e-01_jprb,.148e-01_jprb,.131e-01_jprb,.121e-01_jprb,.124e-01_jprb,&
&.122e-01_jprb,.128e-01_jprb,.127e-01_jprb,.126e-01_jprb,.121e-01_jprb,.116e-01_jprb,.109e-01_jprb,&
&.101e-01_jprb,.848e-02_jprb,.777e-02_jprb,.860e-02_jprb,.906e-02_jprb,.105e-01_jprb,.108e-01_jprb,&
&.106e-01_jprb,.102e-01_jprb,.931e-02_jprb,.917e-02_jprb,.884e-02_jprb,.705e-02_jprb,.693e-02_jprb,&
&.698e-02_jprb,.629e-02_jprb,.647e-02_jprb,.662e-02_jprb,.655e-02_jprb,.659e-02_jprb,.677e-02_jprb,&
&.691e-02_jprb,.705e-02_jprb,.729e-02_jprb,.792e-02_jprb,.786e-02_jprb,.780e-02_jprb,.787e-02_jprb,&
&.749e-02_jprb,.693e-02_jprb,.595e-02_jprb,.593e-02_jprb,.623e-02_jprb,.610e-02_jprb,.589e-02_jprb,&
&.571e-02_jprb,.575e-02_jprb,.555e-02_jprb,.544e-02_jprb,.583e-02_jprb,.612e-02_jprb,.671e-02_jprb,&
&.727e-02_jprb,.775e-02_jprb,.884e-02_jprb,.101e-01_jprb,.106e-01_jprb,.128e-01_jprb,.193e-01_jprb,&
&.243e-01_jprb,.276e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat:  5  74.0
zaer(:, 5, 1) = (/&
&.317e-01_jprb,.338e-01_jprb,.327e-01_jprb,.341e-01_jprb,.372e-01_jprb,.417e-01_jprb,.423e-01_jprb,&
&.364e-01_jprb,.319e-01_jprb,.277e-01_jprb,.242e-01_jprb,.201e-01_jprb,.171e-01_jprb,.170e-01_jprb,&
&.178e-01_jprb,.187e-01_jprb,.205e-01_jprb,.216e-01_jprb,.193e-01_jprb,.188e-01_jprb,.184e-01_jprb,&
&.156e-01_jprb,.112e-01_jprb,.914e-02_jprb,.959e-02_jprb,.123e-01_jprb,.157e-01_jprb,.167e-01_jprb,&
&.148e-01_jprb,.125e-01_jprb,.121e-01_jprb,.135e-01_jprb,.117e-01_jprb,.885e-02_jprb,.752e-02_jprb,&
&.701e-02_jprb,.668e-02_jprb,.640e-02_jprb,.635e-02_jprb,.662e-02_jprb,.739e-02_jprb,.868e-02_jprb,&
&.949e-02_jprb,.966e-02_jprb,.903e-02_jprb,.862e-02_jprb,.867e-02_jprb,.947e-02_jprb,.108e-01_jprb,&
&.121e-01_jprb,.113e-01_jprb,.890e-02_jprb,.762e-02_jprb,.765e-02_jprb,.748e-02_jprb,.720e-02_jprb,&
&.723e-02_jprb,.719e-02_jprb,.711e-02_jprb,.723e-02_jprb,.750e-02_jprb,.847e-02_jprb,.968e-02_jprb,&
&.105e-01_jprb,.113e-01_jprb,.122e-01_jprb,.138e-01_jprb,.155e-01_jprb,.175e-01_jprb,.216e-01_jprb,&
&.273e-01_jprb,.305e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat:  6  70.0
zaer(:, 6, 1) = (/&
&.274e-01_jprb,.318e-01_jprb,.358e-01_jprb,.372e-01_jprb,.382e-01_jprb,.417e-01_jprb,.445e-01_jprb,&
&.393e-01_jprb,.364e-01_jprb,.362e-01_jprb,.349e-01_jprb,.315e-01_jprb,.272e-01_jprb,.260e-01_jprb,&
&.252e-01_jprb,.209e-01_jprb,.235e-01_jprb,.259e-01_jprb,.240e-01_jprb,.278e-01_jprb,.284e-01_jprb,&
&.268e-01_jprb,.223e-01_jprb,.163e-01_jprb,.142e-01_jprb,.156e-01_jprb,.170e-01_jprb,.214e-01_jprb,&
&.245e-01_jprb,.200e-01_jprb,.185e-01_jprb,.165e-01_jprb,.158e-01_jprb,.112e-01_jprb,.981e-02_jprb,&
&.854e-02_jprb,.829e-02_jprb,.884e-02_jprb,.110e-01_jprb,.158e-01_jprb,.220e-01_jprb,.283e-01_jprb,&
&.279e-01_jprb,.235e-01_jprb,.192e-01_jprb,.150e-01_jprb,.118e-01_jprb,.100e-01_jprb,.123e-01_jprb,&
&.184e-01_jprb,.245e-01_jprb,.191e-01_jprb,.135e-01_jprb,.999e-02_jprb,.867e-02_jprb,.722e-02_jprb,&
&.688e-02_jprb,.725e-02_jprb,.777e-02_jprb,.850e-02_jprb,.948e-02_jprb,.103e-01_jprb,.110e-01_jprb,&
&.112e-01_jprb,.117e-01_jprb,.139e-01_jprb,.160e-01_jprb,.177e-01_jprb,.202e-01_jprb,.243e-01_jprb,&
&.285e-01_jprb,.282e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat:  7  66.0
zaer(:, 7, 1) = (/&
&.336e-01_jprb,.373e-01_jprb,.384e-01_jprb,.403e-01_jprb,.404e-01_jprb,.411e-01_jprb,.385e-01_jprb,&
&.388e-01_jprb,.409e-01_jprb,.450e-01_jprb,.447e-01_jprb,.392e-01_jprb,.340e-01_jprb,.266e-01_jprb,&
&.240e-01_jprb,.239e-01_jprb,.229e-01_jprb,.236e-01_jprb,.246e-01_jprb,.237e-01_jprb,.236e-01_jprb,&
&.247e-01_jprb,.264e-01_jprb,.220e-01_jprb,.225e-01_jprb,.250e-01_jprb,.249e-01_jprb,.280e-01_jprb,&
&.314e-01_jprb,.301e-01_jprb,.254e-01_jprb,.242e-01_jprb,.220e-01_jprb,.177e-01_jprb,.152e-01_jprb,&
&.138e-01_jprb,.148e-01_jprb,.195e-01_jprb,.235e-01_jprb,.296e-01_jprb,.324e-01_jprb,.335e-01_jprb,&
&.389e-01_jprb,.395e-01_jprb,.353e-01_jprb,.323e-01_jprb,.337e-01_jprb,.311e-01_jprb,.312e-01_jprb,&
&.307e-01_jprb,.309e-01_jprb,.289e-01_jprb,.259e-01_jprb,.211e-01_jprb,.171e-01_jprb,.147e-01_jprb,&
&.130e-01_jprb,.116e-01_jprb,.118e-01_jprb,.125e-01_jprb,.139e-01_jprb,.152e-01_jprb,.152e-01_jprb,&
&.149e-01_jprb,.173e-01_jprb,.211e-01_jprb,.228e-01_jprb,.249e-01_jprb,.279e-01_jprb,.301e-01_jprb,&
&.299e-01_jprb,.306e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat:  8  62.0
zaer(:, 8, 1) = (/&
&.339e-01_jprb,.349e-01_jprb,.337e-01_jprb,.329e-01_jprb,.334e-01_jprb,.344e-01_jprb,.335e-01_jprb,&
&.324e-01_jprb,.332e-01_jprb,.348e-01_jprb,.364e-01_jprb,.353e-01_jprb,.310e-01_jprb,.240e-01_jprb,&
&.235e-01_jprb,.237e-01_jprb,.254e-01_jprb,.252e-01_jprb,.244e-01_jprb,.233e-01_jprb,.223e-01_jprb,&
&.199e-01_jprb,.194e-01_jprb,.208e-01_jprb,.235e-01_jprb,.267e-01_jprb,.299e-01_jprb,.261e-01_jprb,&
&.257e-01_jprb,.290e-01_jprb,.283e-01_jprb,.248e-01_jprb,.247e-01_jprb,.272e-01_jprb,.268e-01_jprb,&
&.267e-01_jprb,.262e-01_jprb,.291e-01_jprb,.340e-01_jprb,.376e-01_jprb,.382e-01_jprb,.372e-01_jprb,&
&.367e-01_jprb,.391e-01_jprb,.413e-01_jprb,.405e-01_jprb,.362e-01_jprb,.338e-01_jprb,.313e-01_jprb,&
&.306e-01_jprb,.294e-01_jprb,.294e-01_jprb,.324e-01_jprb,.352e-01_jprb,.360e-01_jprb,.297e-01_jprb,&
&.278e-01_jprb,.247e-01_jprb,.200e-01_jprb,.179e-01_jprb,.228e-01_jprb,.256e-01_jprb,.210e-01_jprb,&
&.212e-01_jprb,.241e-01_jprb,.258e-01_jprb,.259e-01_jprb,.265e-01_jprb,.257e-01_jprb,.267e-01_jprb,&
&.269e-01_jprb,.299e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat:  9  58.0
zaer(:, 9, 1) = (/&
&.248e-01_jprb,.254e-01_jprb,.263e-01_jprb,.277e-01_jprb,.294e-01_jprb,.301e-01_jprb,.299e-01_jprb,&
&.305e-01_jprb,.297e-01_jprb,.277e-01_jprb,.280e-01_jprb,.302e-01_jprb,.289e-01_jprb,.249e-01_jprb,&
&.226e-01_jprb,.215e-01_jprb,.224e-01_jprb,.239e-01_jprb,.229e-01_jprb,.208e-01_jprb,.209e-01_jprb,&
&.208e-01_jprb,.206e-01_jprb,.200e-01_jprb,.198e-01_jprb,.194e-01_jprb,.197e-01_jprb,.212e-01_jprb,&
&.230e-01_jprb,.247e-01_jprb,.249e-01_jprb,.233e-01_jprb,.288e-01_jprb,.299e-01_jprb,.319e-01_jprb,&
&.334e-01_jprb,.345e-01_jprb,.373e-01_jprb,.384e-01_jprb,.398e-01_jprb,.402e-01_jprb,.369e-01_jprb,&
&.332e-01_jprb,.323e-01_jprb,.311e-01_jprb,.308e-01_jprb,.300e-01_jprb,.298e-01_jprb,.263e-01_jprb,&
&.281e-01_jprb,.295e-01_jprb,.307e-01_jprb,.310e-01_jprb,.307e-01_jprb,.320e-01_jprb,.313e-01_jprb,&
&.307e-01_jprb,.294e-01_jprb,.289e-01_jprb,.267e-01_jprb,.298e-01_jprb,.295e-01_jprb,.228e-01_jprb,&
&.207e-01_jprb,.225e-01_jprb,.232e-01_jprb,.242e-01_jprb,.236e-01_jprb,.228e-01_jprb,.230e-01_jprb,&
&.244e-01_jprb,.248e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 10  54.0
zaer(:,10, 1) = (/&
&.209e-01_jprb,.225e-01_jprb,.237e-01_jprb,.246e-01_jprb,.250e-01_jprb,.253e-01_jprb,.265e-01_jprb,&
&.277e-01_jprb,.266e-01_jprb,.256e-01_jprb,.262e-01_jprb,.277e-01_jprb,.270e-01_jprb,.242e-01_jprb,&
&.230e-01_jprb,.231e-01_jprb,.226e-01_jprb,.213e-01_jprb,.207e-01_jprb,.201e-01_jprb,.207e-01_jprb,&
&.204e-01_jprb,.111e-01_jprb,.184e-01_jprb,.184e-01_jprb,.184e-01_jprb,.180e-01_jprb,.194e-01_jprb,&
&.209e-01_jprb,.218e-01_jprb,.223e-01_jprb,.238e-01_jprb,.265e-01_jprb,.255e-01_jprb,.260e-01_jprb,&
&.307e-01_jprb,.314e-01_jprb,.318e-01_jprb,.313e-01_jprb,.305e-01_jprb,.287e-01_jprb,.275e-01_jprb,&
&.256e-01_jprb,.217e-01_jprb,.205e-01_jprb,.211e-01_jprb,.235e-01_jprb,.260e-01_jprb,.260e-01_jprb,&
&.258e-01_jprb,.259e-01_jprb,.248e-01_jprb,.245e-01_jprb,.247e-01_jprb,.233e-01_jprb,.224e-01_jprb,&
&.236e-01_jprb,.234e-01_jprb,.245e-01_jprb,.258e-01_jprb,.258e-01_jprb,.244e-01_jprb,.245e-01_jprb,&
&.225e-01_jprb,.208e-01_jprb,.209e-01_jprb,.212e-01_jprb,.212e-01_jprb,.209e-01_jprb,.203e-01_jprb,&
&.208e-01_jprb,.210e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 11  50.0
zaer(:,11, 1) = (/&
&.206e-01_jprb,.216e-01_jprb,.224e-01_jprb,.222e-01_jprb,.218e-01_jprb,.217e-01_jprb,.217e-01_jprb,&
&.221e-01_jprb,.231e-01_jprb,.227e-01_jprb,.219e-01_jprb,.226e-01_jprb,.224e-01_jprb,.203e-01_jprb,&
&.196e-01_jprb,.199e-01_jprb,.200e-01_jprb,.182e-01_jprb,.168e-01_jprb,.164e-01_jprb,.161e-01_jprb,&
&.149e-01_jprb,.864e-02_jprb,.145e-01_jprb,.141e-01_jprb,.146e-01_jprb,.152e-01_jprb,.167e-01_jprb,&
&.184e-01_jprb,.201e-01_jprb,.213e-01_jprb,.232e-01_jprb,.244e-01_jprb,.242e-01_jprb,.225e-01_jprb,&
&.227e-01_jprb,.235e-01_jprb,.230e-01_jprb,.218e-01_jprb,.211e-01_jprb,.210e-01_jprb,.186e-01_jprb,&
&.169e-01_jprb,.168e-01_jprb,.171e-01_jprb,.191e-01_jprb,.214e-01_jprb,.228e-01_jprb,.212e-01_jprb,&
&.215e-01_jprb,.226e-01_jprb,.213e-01_jprb,.209e-01_jprb,.204e-01_jprb,.190e-01_jprb,.174e-01_jprb,&
&.175e-01_jprb,.185e-01_jprb,.187e-01_jprb,.195e-01_jprb,.207e-01_jprb,.208e-01_jprb,.214e-01_jprb,&
&.219e-01_jprb,.214e-01_jprb,.200e-01_jprb,.193e-01_jprb,.196e-01_jprb,.200e-01_jprb,.197e-01_jprb,&
&.195e-01_jprb,.196e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 12  46.0
zaer(:,12, 1) = (/&
&.202e-01_jprb,.202e-01_jprb,.192e-01_jprb,.187e-01_jprb,.190e-01_jprb,.185e-01_jprb,.179e-01_jprb,&
&.175e-01_jprb,.174e-01_jprb,.191e-01_jprb,.190e-01_jprb,.188e-01_jprb,.186e-01_jprb,.180e-01_jprb,&
&.155e-01_jprb,.149e-01_jprb,.147e-01_jprb,.154e-01_jprb,.149e-01_jprb,.147e-01_jprb,.150e-01_jprb,&
&.144e-01_jprb,.813e-02_jprb,.145e-01_jprb,.147e-01_jprb,.149e-01_jprb,.148e-01_jprb,.158e-01_jprb,&
&.167e-01_jprb,.170e-01_jprb,.175e-01_jprb,.178e-01_jprb,.180e-01_jprb,.177e-01_jprb,.182e-01_jprb,&
&.186e-01_jprb,.187e-01_jprb,.188e-01_jprb,.184e-01_jprb,.183e-01_jprb,.181e-01_jprb,.174e-01_jprb,&
&.165e-01_jprb,.168e-01_jprb,.173e-01_jprb,.173e-01_jprb,.193e-01_jprb,.207e-01_jprb,.202e-01_jprb,&
&.212e-01_jprb,.207e-01_jprb,.186e-01_jprb,.180e-01_jprb,.176e-01_jprb,.165e-01_jprb,.161e-01_jprb,&
&.155e-01_jprb,.154e-01_jprb,.146e-01_jprb,.147e-01_jprb,.164e-01_jprb,.181e-01_jprb,.195e-01_jprb,&
&.191e-01_jprb,.186e-01_jprb,.188e-01_jprb,.188e-01_jprb,.186e-01_jprb,.188e-01_jprb,.190e-01_jprb,&
&.181e-01_jprb,.188e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 13  42.0
zaer(:,13, 1) = (/&
&.201e-01_jprb,.189e-01_jprb,.160e-01_jprb,.160e-01_jprb,.173e-01_jprb,.147e-01_jprb,.138e-01_jprb,&
&.136e-01_jprb,.136e-01_jprb,.137e-01_jprb,.134e-01_jprb,.134e-01_jprb,.141e-01_jprb,.148e-01_jprb,&
&.146e-01_jprb,.146e-01_jprb,.145e-01_jprb,.143e-01_jprb,.133e-01_jprb,.123e-01_jprb,.126e-01_jprb,&
&.144e-01_jprb,.879e-02_jprb,.106e-01_jprb,.191e-01_jprb,.198e-01_jprb,.176e-01_jprb,.172e-01_jprb,&
&.171e-01_jprb,.174e-01_jprb,.168e-01_jprb,.158e-01_jprb,.158e-01_jprb,.164e-01_jprb,.164e-01_jprb,&
&.161e-01_jprb,.158e-01_jprb,.157e-01_jprb,.156e-01_jprb,.152e-01_jprb,.158e-01_jprb,.162e-01_jprb,&
&.158e-01_jprb,.171e-01_jprb,.179e-01_jprb,.173e-01_jprb,.169e-01_jprb,.165e-01_jprb,.174e-01_jprb,&
&.169e-01_jprb,.167e-01_jprb,.157e-01_jprb,.153e-01_jprb,.144e-01_jprb,.121e-01_jprb,.130e-01_jprb,&
&.147e-01_jprb,.156e-01_jprb,.154e-01_jprb,.147e-01_jprb,.168e-01_jprb,.173e-01_jprb,.175e-01_jprb,&
&.173e-01_jprb,.177e-01_jprb,.175e-01_jprb,.181e-01_jprb,.184e-01_jprb,.188e-01_jprb,.180e-01_jprb,&
&.169e-01_jprb,.173e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 14  38.0
zaer(:,14, 1) = (/&
&.176e-01_jprb,.145e-01_jprb,.136e-01_jprb,.142e-01_jprb,.158e-01_jprb,.134e-01_jprb,.121e-01_jprb,&
&.136e-01_jprb,.134e-01_jprb,.131e-01_jprb,.129e-01_jprb,.129e-01_jprb,.132e-01_jprb,.134e-01_jprb,&
&.137e-01_jprb,.137e-01_jprb,.129e-01_jprb,.125e-01_jprb,.121e-01_jprb,.116e-01_jprb,.122e-01_jprb,&
&.169e-01_jprb,.120e-01_jprb,.153e-01_jprb,.154e-01_jprb,.269e-01_jprb,.232e-01_jprb,.215e-01_jprb,&
&.203e-01_jprb,.201e-01_jprb,.194e-01_jprb,.190e-01_jprb,.184e-01_jprb,.170e-01_jprb,.155e-01_jprb,&
&.150e-01_jprb,.137e-01_jprb,.136e-01_jprb,.141e-01_jprb,.150e-01_jprb,.181e-01_jprb,.188e-01_jprb,&
&.176e-01_jprb,.168e-01_jprb,.167e-01_jprb,.163e-01_jprb,.163e-01_jprb,.148e-01_jprb,.143e-01_jprb,&
&.149e-01_jprb,.148e-01_jprb,.136e-01_jprb,.133e-01_jprb,.130e-01_jprb,.121e-01_jprb,.114e-01_jprb,&
&.120e-01_jprb,.132e-01_jprb,.146e-01_jprb,.181e-01_jprb,.177e-01_jprb,.189e-01_jprb,.179e-01_jprb,&
&.182e-01_jprb,.191e-01_jprb,.117e-01_jprb,.222e-01_jprb,.214e-01_jprb,.183e-01_jprb,.165e-01_jprb,&
&.158e-01_jprb,.147e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 15  34.0
zaer(:,15, 1) = (/&
&.149e-01_jprb,.154e-01_jprb,.150e-01_jprb,.151e-01_jprb,.153e-01_jprb,.150e-01_jprb,.148e-01_jprb,&
&.147e-01_jprb,.150e-01_jprb,.150e-01_jprb,.144e-01_jprb,.147e-01_jprb,.147e-01_jprb,.142e-01_jprb,&
&.140e-01_jprb,.135e-01_jprb,.124e-01_jprb,.124e-01_jprb,.126e-01_jprb,.124e-01_jprb,.125e-01_jprb,&
&.175e-01_jprb,.146e-01_jprb,.213e-01_jprb,.188e-01_jprb,.188e-01_jprb,.275e-01_jprb,.228e-01_jprb,&
&.215e-01_jprb,.206e-01_jprb,.199e-01_jprb,.192e-01_jprb,.178e-01_jprb,.159e-01_jprb,.147e-01_jprb,&
&.134e-01_jprb,.130e-01_jprb,.137e-01_jprb,.149e-01_jprb,.175e-01_jprb,.116e-01_jprb,.216e-01_jprb,&
&.213e-01_jprb,.186e-01_jprb,.170e-01_jprb,.158e-01_jprb,.149e-01_jprb,.146e-01_jprb,.142e-01_jprb,&
&.149e-01_jprb,.147e-01_jprb,.132e-01_jprb,.136e-01_jprb,.137e-01_jprb,.118e-01_jprb,.100e-01_jprb,&
&.104e-01_jprb,.123e-01_jprb,.167e-01_jprb,.220e-01_jprb,.123e-01_jprb,.196e-01_jprb,.173e-01_jprb,&
&.186e-01_jprb,.111e-01_jprb,.122e-01_jprb,.117e-01_jprb,.186e-01_jprb,.161e-01_jprb,.152e-01_jprb,&
&.148e-01_jprb,.153e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 16  30.0
zaer(:,16, 1) = (/&
&.150e-01_jprb,.154e-01_jprb,.156e-01_jprb,.155e-01_jprb,.148e-01_jprb,.147e-01_jprb,.151e-01_jprb,&
&.157e-01_jprb,.160e-01_jprb,.160e-01_jprb,.154e-01_jprb,.157e-01_jprb,.157e-01_jprb,.153e-01_jprb,&
&.147e-01_jprb,.133e-01_jprb,.127e-01_jprb,.126e-01_jprb,.125e-01_jprb,.134e-01_jprb,.135e-01_jprb,&
&.229e-01_jprb,.190e-01_jprb,.215e-01_jprb,.199e-01_jprb,.192e-01_jprb,.292e-01_jprb,.250e-01_jprb,&
&.214e-01_jprb,.189e-01_jprb,.189e-01_jprb,.186e-01_jprb,.173e-01_jprb,.156e-01_jprb,.151e-01_jprb,&
&.146e-01_jprb,.151e-01_jprb,.168e-01_jprb,.194e-01_jprb,.216e-01_jprb,.128e-01_jprb,.172e-01_jprb,&
&.164e-01_jprb,.246e-01_jprb,.180e-01_jprb,.161e-01_jprb,.150e-01_jprb,.145e-01_jprb,.153e-01_jprb,&
&.163e-01_jprb,.150e-01_jprb,.144e-01_jprb,.145e-01_jprb,.135e-01_jprb,.124e-01_jprb,.118e-01_jprb,&
&.118e-01_jprb,.144e-01_jprb,.224e-01_jprb,.166e-01_jprb,.124e-01_jprb,.119e-01_jprb,.127e-01_jprb,&
&.126e-01_jprb,.120e-01_jprb,.129e-01_jprb,.109e-01_jprb,.174e-01_jprb,.149e-01_jprb,.144e-01_jprb,&
&.148e-01_jprb,.149e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 17  26.0
zaer(:,17, 1) = (/&
&.157e-01_jprb,.156e-01_jprb,.153e-01_jprb,.145e-01_jprb,.146e-01_jprb,.147e-01_jprb,.149e-01_jprb,&
&.153e-01_jprb,.153e-01_jprb,.161e-01_jprb,.168e-01_jprb,.180e-01_jprb,.189e-01_jprb,.197e-01_jprb,&
&.175e-01_jprb,.155e-01_jprb,.145e-01_jprb,.123e-01_jprb,.132e-01_jprb,.154e-01_jprb,.189e-01_jprb,&
&.325e-01_jprb,.190e-01_jprb,.186e-01_jprb,.181e-01_jprb,.173e-01_jprb,.180e-01_jprb,.304e-01_jprb,&
&.204e-01_jprb,.167e-01_jprb,.166e-01_jprb,.169e-01_jprb,.166e-01_jprb,.156e-01_jprb,.159e-01_jprb,&
&.167e-01_jprb,.161e-01_jprb,.188e-01_jprb,.226e-01_jprb,.126e-01_jprb,.137e-01_jprb,.210e-01_jprb,&
&.177e-01_jprb,.254e-01_jprb,.180e-01_jprb,.150e-01_jprb,.147e-01_jprb,.147e-01_jprb,.156e-01_jprb,&
&.165e-01_jprb,.156e-01_jprb,.143e-01_jprb,.150e-01_jprb,.147e-01_jprb,.134e-01_jprb,.134e-01_jprb,&
&.151e-01_jprb,.237e-01_jprb,.346e-01_jprb,.202e-01_jprb,.135e-01_jprb,.123e-01_jprb,.138e-01_jprb,&
&.167e-01_jprb,.135e-01_jprb,.132e-01_jprb,.108e-01_jprb,.176e-01_jprb,.185e-01_jprb,.192e-01_jprb,&
&.178e-01_jprb,.167e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 18  22.0
zaer(:,18, 1) = (/&
&.183e-01_jprb,.164e-01_jprb,.157e-01_jprb,.148e-01_jprb,.153e-01_jprb,.155e-01_jprb,.158e-01_jprb,&
&.159e-01_jprb,.166e-01_jprb,.175e-01_jprb,.185e-01_jprb,.198e-01_jprb,.205e-01_jprb,.207e-01_jprb,&
&.205e-01_jprb,.223e-01_jprb,.224e-01_jprb,.230e-01_jprb,.273e-01_jprb,.313e-01_jprb,.366e-01_jprb,&
&.491e-01_jprb,.263e-01_jprb,.182e-01_jprb,.174e-01_jprb,.145e-01_jprb,.165e-01_jprb,.143e-01_jprb,&
&.184e-01_jprb,.155e-01_jprb,.158e-01_jprb,.159e-01_jprb,.156e-01_jprb,.157e-01_jprb,.163e-01_jprb,&
&.177e-01_jprb,.203e-01_jprb,.239e-01_jprb,.251e-01_jprb,.112e-01_jprb,.114e-01_jprb,.164e-01_jprb,&
&.157e-01_jprb,.136e-01_jprb,.161e-01_jprb,.855e-02_jprb,.145e-01_jprb,.147e-01_jprb,.155e-01_jprb,&
&.152e-01_jprb,.159e-01_jprb,.155e-01_jprb,.157e-01_jprb,.163e-01_jprb,.156e-01_jprb,.167e-01_jprb,&
&.227e-01_jprb,.316e-01_jprb,.379e-01_jprb,.324e-01_jprb,.150e-01_jprb,.143e-01_jprb,.153e-01_jprb,&
&.185e-01_jprb,.146e-01_jprb,.126e-01_jprb,.196e-01_jprb,.223e-01_jprb,.274e-01_jprb,.313e-01_jprb,&
&.267e-01_jprb,.216e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 19  18.0
zaer(:,19, 1) = (/&
&.180e-01_jprb,.165e-01_jprb,.163e-01_jprb,.162e-01_jprb,.169e-01_jprb,.177e-01_jprb,.183e-01_jprb,&
&.188e-01_jprb,.195e-01_jprb,.200e-01_jprb,.202e-01_jprb,.199e-01_jprb,.183e-01_jprb,.190e-01_jprb,&
&.207e-01_jprb,.250e-01_jprb,.275e-01_jprb,.304e-01_jprb,.337e-01_jprb,.394e-01_jprb,.526e-01_jprb,&
&.962e-01_jprb,.318e-01_jprb,.205e-01_jprb,.155e-01_jprb,.129e-01_jprb,.126e-01_jprb,.126e-01_jprb,&
&.106e-01_jprb,.156e-01_jprb,.158e-01_jprb,.158e-01_jprb,.152e-01_jprb,.154e-01_jprb,.167e-01_jprb,&
&.196e-01_jprb,.259e-01_jprb,.299e-01_jprb,.300e-01_jprb,.116e-01_jprb,.111e-01_jprb,.149e-01_jprb,&
&.116e-01_jprb,.916e-02_jprb,.130e-01_jprb,.781e-02_jprb,.126e-01_jprb,.129e-01_jprb,.136e-01_jprb,&
&.143e-01_jprb,.149e-01_jprb,.159e-01_jprb,.170e-01_jprb,.182e-01_jprb,.190e-01_jprb,.211e-01_jprb,&
&.268e-01_jprb,.326e-01_jprb,.386e-01_jprb,.361e-01_jprb,.297e-01_jprb,.158e-01_jprb,.156e-01_jprb,&
&.172e-01_jprb,.158e-01_jprb,.135e-01_jprb,.240e-01_jprb,.295e-01_jprb,.353e-01_jprb,.468e-01_jprb,&
&.386e-01_jprb,.226e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 20  14.0
zaer(:,20, 1) = (/&
&.181e-01_jprb,.176e-01_jprb,.181e-01_jprb,.188e-01_jprb,.197e-01_jprb,.211e-01_jprb,.222e-01_jprb,&
&.230e-01_jprb,.238e-01_jprb,.241e-01_jprb,.233e-01_jprb,.219e-01_jprb,.197e-01_jprb,.207e-01_jprb,&
&.242e-01_jprb,.265e-01_jprb,.280e-01_jprb,.296e-01_jprb,.338e-01_jprb,.447e-01_jprb,.652e-01_jprb,&
&.390e-01_jprb,.269e-01_jprb,.184e-01_jprb,.133e-01_jprb,.119e-01_jprb,.114e-01_jprb,.121e-01_jprb,&
&.110e-01_jprb,.165e-01_jprb,.163e-01_jprb,.160e-01_jprb,.151e-01_jprb,.154e-01_jprb,.166e-01_jprb,&
&.197e-01_jprb,.225e-01_jprb,.279e-01_jprb,.274e-01_jprb,.106e-01_jprb,.102e-01_jprb,.150e-01_jprb,&
&.113e-01_jprb,.793e-02_jprb,.685e-02_jprb,.123e-01_jprb,.120e-01_jprb,.125e-01_jprb,.131e-01_jprb,&
&.142e-01_jprb,.152e-01_jprb,.168e-01_jprb,.184e-01_jprb,.207e-01_jprb,.233e-01_jprb,.269e-01_jprb,&
&.319e-01_jprb,.388e-01_jprb,.442e-01_jprb,.352e-01_jprb,.343e-01_jprb,.331e-01_jprb,.189e-01_jprb,&
&.200e-01_jprb,.343e-01_jprb,.327e-01_jprb,.331e-01_jprb,.354e-01_jprb,.399e-01_jprb,.492e-01_jprb,&
&.366e-01_jprb,.223e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 21  10.0
zaer(:,21, 1) = (/&
&.200e-01_jprb,.203e-01_jprb,.212e-01_jprb,.219e-01_jprb,.232e-01_jprb,.248e-01_jprb,.261e-01_jprb,&
&.271e-01_jprb,.284e-01_jprb,.286e-01_jprb,.281e-01_jprb,.272e-01_jprb,.270e-01_jprb,.266e-01_jprb,&
&.283e-01_jprb,.313e-01_jprb,.315e-01_jprb,.310e-01_jprb,.418e-01_jprb,.569e-01_jprb,.457e-01_jprb,&
&.204e-01_jprb,.196e-01_jprb,.140e-01_jprb,.128e-01_jprb,.122e-01_jprb,.121e-01_jprb,.121e-01_jprb,&
&.120e-01_jprb,.177e-01_jprb,.171e-01_jprb,.170e-01_jprb,.153e-01_jprb,.148e-01_jprb,.150e-01_jprb,&
&.153e-01_jprb,.190e-01_jprb,.206e-01_jprb,.221e-01_jprb,.107e-01_jprb,.106e-01_jprb,.129e-01_jprb,&
&.102e-01_jprb,.788e-02_jprb,.114e-01_jprb,.121e-01_jprb,.126e-01_jprb,.132e-01_jprb,.137e-01_jprb,&
&.147e-01_jprb,.161e-01_jprb,.181e-01_jprb,.202e-01_jprb,.238e-01_jprb,.271e-01_jprb,.316e-01_jprb,&
&.402e-01_jprb,.637e-01_jprb,.814e-01_jprb,.517e-01_jprb,.424e-01_jprb,.426e-01_jprb,.406e-01_jprb,&
&.455e-01_jprb,.510e-01_jprb,.498e-01_jprb,.445e-01_jprb,.435e-01_jprb,.418e-01_jprb,.414e-01_jprb,&
&.308e-01_jprb,.219e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 22   6.0
zaer(:,22, 1) = (/&
&.234e-01_jprb,.241e-01_jprb,.250e-01_jprb,.259e-01_jprb,.274e-01_jprb,.293e-01_jprb,.308e-01_jprb,&
&.320e-01_jprb,.342e-01_jprb,.348e-01_jprb,.345e-01_jprb,.325e-01_jprb,.316e-01_jprb,.326e-01_jprb,&
&.344e-01_jprb,.376e-01_jprb,.407e-01_jprb,.424e-01_jprb,.482e-01_jprb,.489e-01_jprb,.242e-01_jprb,&
&.192e-01_jprb,.163e-01_jprb,.145e-01_jprb,.138e-01_jprb,.138e-01_jprb,.148e-01_jprb,.133e-01_jprb,&
&.132e-01_jprb,.191e-01_jprb,.195e-01_jprb,.190e-01_jprb,.178e-01_jprb,.169e-01_jprb,.172e-01_jprb,&
&.189e-01_jprb,.211e-01_jprb,.209e-01_jprb,.213e-01_jprb,.121e-01_jprb,.128e-01_jprb,.136e-01_jprb,&
&.109e-01_jprb,.891e-02_jprb,.129e-01_jprb,.138e-01_jprb,.140e-01_jprb,.145e-01_jprb,.150e-01_jprb,&
&.158e-01_jprb,.173e-01_jprb,.201e-01_jprb,.234e-01_jprb,.283e-01_jprb,.325e-01_jprb,.392e-01_jprb,&
&.536e-01_jprb,.791e-01_jprb,.855e-01_jprb,.651e-01_jprb,.554e-01_jprb,.540e-01_jprb,.534e-01_jprb,&
&.567e-01_jprb,.334e-01_jprb,.370e-01_jprb,.589e-01_jprb,.479e-01_jprb,.409e-01_jprb,.335e-01_jprb,&
&.273e-01_jprb,.236e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 23   2.0
zaer(:,23, 1) = (/&
&.288e-01_jprb,.304e-01_jprb,.325e-01_jprb,.338e-01_jprb,.357e-01_jprb,.388e-01_jprb,.410e-01_jprb,&
&.428e-01_jprb,.474e-01_jprb,.495e-01_jprb,.500e-01_jprb,.526e-01_jprb,.545e-01_jprb,.562e-01_jprb,&
&.583e-01_jprb,.563e-01_jprb,.575e-01_jprb,.566e-01_jprb,.604e-01_jprb,.495e-01_jprb,.271e-01_jprb,&
&.229e-01_jprb,.174e-01_jprb,.166e-01_jprb,.161e-01_jprb,.163e-01_jprb,.173e-01_jprb,.159e-01_jprb,&
&.252e-01_jprb,.253e-01_jprb,.251e-01_jprb,.243e-01_jprb,.235e-01_jprb,.222e-01_jprb,.211e-01_jprb,&
&.213e-01_jprb,.210e-01_jprb,.213e-01_jprb,.132e-01_jprb,.139e-01_jprb,.152e-01_jprb,.178e-01_jprb,&
&.129e-01_jprb,.103e-01_jprb,.863e-02_jprb,.153e-01_jprb,.161e-01_jprb,.167e-01_jprb,.172e-01_jprb,&
&.183e-01_jprb,.198e-01_jprb,.225e-01_jprb,.268e-01_jprb,.310e-01_jprb,.357e-01_jprb,.402e-01_jprb,&
&.504e-01_jprb,.387e-01_jprb,.604e-01_jprb,.321e-01_jprb,.566e-01_jprb,.626e-01_jprb,.652e-01_jprb,&
&.330e-01_jprb,.549e-01_jprb,.565e-01_jprb,.507e-01_jprb,.394e-01_jprb,.340e-01_jprb,.304e-01_jprb,&
&.286e-01_jprb,.279e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 24  -2.0
zaer(:,24, 1) = (/&
&.372e-01_jprb,.409e-01_jprb,.440e-01_jprb,.475e-01_jprb,.502e-01_jprb,.538e-01_jprb,.569e-01_jprb,&
&.608e-01_jprb,.661e-01_jprb,.675e-01_jprb,.697e-01_jprb,.729e-01_jprb,.753e-01_jprb,.758e-01_jprb,&
&.748e-01_jprb,.754e-01_jprb,.769e-01_jprb,.638e-01_jprb,.523e-01_jprb,.417e-01_jprb,.406e-01_jprb,&
&.205e-01_jprb,.186e-01_jprb,.185e-01_jprb,.183e-01_jprb,.189e-01_jprb,.306e-01_jprb,.304e-01_jprb,&
&.306e-01_jprb,.291e-01_jprb,.283e-01_jprb,.263e-01_jprb,.252e-01_jprb,.235e-01_jprb,.223e-01_jprb,&
&.215e-01_jprb,.213e-01_jprb,.221e-01_jprb,.137e-01_jprb,.148e-01_jprb,.159e-01_jprb,.164e-01_jprb,&
&.147e-01_jprb,.126e-01_jprb,.123e-01_jprb,.118e-01_jprb,.190e-01_jprb,.198e-01_jprb,.207e-01_jprb,&
&.219e-01_jprb,.231e-01_jprb,.244e-01_jprb,.258e-01_jprb,.279e-01_jprb,.310e-01_jprb,.372e-01_jprb,&
&.261e-01_jprb,.526e-01_jprb,.504e-01_jprb,.280e-01_jprb,.641e-01_jprb,.913e-01_jprb,.723e-01_jprb,&
&.568e-01_jprb,.515e-01_jprb,.459e-01_jprb,.416e-01_jprb,.348e-01_jprb,.326e-01_jprb,.318e-01_jprb,&
&.326e-01_jprb,.346e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 25  -6.0
zaer(:,25, 1) = (/&
&.389e-01_jprb,.416e-01_jprb,.442e-01_jprb,.468e-01_jprb,.494e-01_jprb,.518e-01_jprb,.549e-01_jprb,&
&.594e-01_jprb,.636e-01_jprb,.665e-01_jprb,.677e-01_jprb,.687e-01_jprb,.704e-01_jprb,.734e-01_jprb,&
&.752e-01_jprb,.754e-01_jprb,.733e-01_jprb,.636e-01_jprb,.529e-01_jprb,.433e-01_jprb,.362e-01_jprb,&
&.201e-01_jprb,.208e-01_jprb,.195e-01_jprb,.196e-01_jprb,.335e-01_jprb,.334e-01_jprb,.339e-01_jprb,&
&.328e-01_jprb,.325e-01_jprb,.328e-01_jprb,.313e-01_jprb,.297e-01_jprb,.278e-01_jprb,.165e-01_jprb,&
&.161e-01_jprb,.163e-01_jprb,.155e-01_jprb,.147e-01_jprb,.152e-01_jprb,.166e-01_jprb,.160e-01_jprb,&
&.151e-01_jprb,.137e-01_jprb,.125e-01_jprb,.141e-01_jprb,.222e-01_jprb,.231e-01_jprb,.238e-01_jprb,&
&.249e-01_jprb,.260e-01_jprb,.273e-01_jprb,.262e-01_jprb,.264e-01_jprb,.271e-01_jprb,.311e-01_jprb,&
&.360e-01_jprb,.382e-01_jprb,.439e-01_jprb,.488e-01_jprb,.657e-01_jprb,.629e-01_jprb,.514e-01_jprb,&
&.470e-01_jprb,.433e-01_jprb,.401e-01_jprb,.376e-01_jprb,.335e-01_jprb,.326e-01_jprb,.329e-01_jprb,&
&.344e-01_jprb,.365e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 26 -10.0
zaer(:,26, 1) = (/&
&.382e-01_jprb,.410e-01_jprb,.433e-01_jprb,.447e-01_jprb,.450e-01_jprb,.461e-01_jprb,.487e-01_jprb,&
&.542e-01_jprb,.591e-01_jprb,.629e-01_jprb,.655e-01_jprb,.690e-01_jprb,.724e-01_jprb,.758e-01_jprb,&
&.790e-01_jprb,.804e-01_jprb,.811e-01_jprb,.823e-01_jprb,.908e-01_jprb,.521e-01_jprb,.353e-01_jprb,&
&.211e-01_jprb,.207e-01_jprb,.195e-01_jprb,.333e-01_jprb,.335e-01_jprb,.335e-01_jprb,.338e-01_jprb,&
&.349e-01_jprb,.376e-01_jprb,.410e-01_jprb,.437e-01_jprb,.430e-01_jprb,.393e-01_jprb,.220e-01_jprb,&
&.230e-01_jprb,.244e-01_jprb,.224e-01_jprb,.196e-01_jprb,.176e-01_jprb,.156e-01_jprb,.153e-01_jprb,&
&.140e-01_jprb,.136e-01_jprb,.131e-01_jprb,.141e-01_jprb,.146e-01_jprb,.264e-01_jprb,.270e-01_jprb,&
&.274e-01_jprb,.277e-01_jprb,.283e-01_jprb,.284e-01_jprb,.289e-01_jprb,.291e-01_jprb,.317e-01_jprb,&
&.317e-01_jprb,.331e-01_jprb,.388e-01_jprb,.476e-01_jprb,.526e-01_jprb,.459e-01_jprb,.428e-01_jprb,&
&.412e-01_jprb,.391e-01_jprb,.368e-01_jprb,.348e-01_jprb,.322e-01_jprb,.319e-01_jprb,.328e-01_jprb,&
&.344e-01_jprb,.360e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 27 -14.0
zaer(:,27, 1) = (/&
&.374e-01_jprb,.420e-01_jprb,.472e-01_jprb,.486e-01_jprb,.423e-01_jprb,.345e-01_jprb,.345e-01_jprb,&
&.365e-01_jprb,.425e-01_jprb,.490e-01_jprb,.553e-01_jprb,.629e-01_jprb,.730e-01_jprb,.778e-01_jprb,&
&.805e-01_jprb,.800e-01_jprb,.772e-01_jprb,.812e-01_jprb,.373e-01_jprb,.227e-01_jprb,.337e-01_jprb,&
&.340e-01_jprb,.347e-01_jprb,.327e-01_jprb,.320e-01_jprb,.319e-01_jprb,.319e-01_jprb,.326e-01_jprb,&
&.342e-01_jprb,.380e-01_jprb,.429e-01_jprb,.454e-01_jprb,.467e-01_jprb,.287e-01_jprb,.268e-01_jprb,&
&.247e-01_jprb,.234e-01_jprb,.219e-01_jprb,.207e-01_jprb,.221e-01_jprb,.193e-01_jprb,.146e-01_jprb,&
&.131e-01_jprb,.143e-01_jprb,.149e-01_jprb,.134e-01_jprb,.243e-01_jprb,.267e-01_jprb,.290e-01_jprb,&
&.326e-01_jprb,.342e-01_jprb,.183e-01_jprb,.301e-01_jprb,.336e-01_jprb,.358e-01_jprb,.409e-01_jprb,&
&.212e-01_jprb,.200e-01_jprb,.368e-01_jprb,.441e-01_jprb,.444e-01_jprb,.401e-01_jprb,.393e-01_jprb,&
&.387e-01_jprb,.376e-01_jprb,.350e-01_jprb,.321e-01_jprb,.306e-01_jprb,.303e-01_jprb,.311e-01_jprb,&
&.326e-01_jprb,.346e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 28 -18.0
zaer(:,28, 1) = (/&
&.350e-01_jprb,.436e-01_jprb,.592e-01_jprb,.731e-01_jprb,.807e-01_jprb,.255e-01_jprb,.200e-01_jprb,&
&.200e-01_jprb,.243e-01_jprb,.298e-01_jprb,.380e-01_jprb,.492e-01_jprb,.637e-01_jprb,.731e-01_jprb,&
&.718e-01_jprb,.723e-01_jprb,.348e-01_jprb,.309e-01_jprb,.246e-01_jprb,.344e-01_jprb,.325e-01_jprb,&
&.312e-01_jprb,.329e-01_jprb,.319e-01_jprb,.311e-01_jprb,.306e-01_jprb,.312e-01_jprb,.340e-01_jprb,&
&.369e-01_jprb,.388e-01_jprb,.404e-01_jprb,.431e-01_jprb,.464e-01_jprb,.280e-01_jprb,.268e-01_jprb,&
&.252e-01_jprb,.225e-01_jprb,.208e-01_jprb,.199e-01_jprb,.189e-01_jprb,.201e-01_jprb,.237e-01_jprb,&
&.186e-01_jprb,.162e-01_jprb,.282e-01_jprb,.163e-01_jprb,.165e-01_jprb,.158e-01_jprb,.277e-01_jprb,&
&.318e-01_jprb,.417e-01_jprb,.228e-01_jprb,.213e-01_jprb,.376e-01_jprb,.535e-01_jprb,.438e-01_jprb,&
&.423e-01_jprb,.283e-01_jprb,.412e-01_jprb,.383e-01_jprb,.360e-01_jprb,.356e-01_jprb,.359e-01_jprb,&
&.357e-01_jprb,.361e-01_jprb,.334e-01_jprb,.281e-01_jprb,.262e-01_jprb,.259e-01_jprb,.264e-01_jprb,&
&.281e-01_jprb,.314e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 29 -22.0
zaer(:,29, 1) = (/&
&.361e-01_jprb,.444e-01_jprb,.552e-01_jprb,.547e-01_jprb,.331e-01_jprb,.171e-01_jprb,.152e-01_jprb,&
&.148e-01_jprb,.149e-01_jprb,.170e-01_jprb,.233e-01_jprb,.345e-01_jprb,.480e-01_jprb,.606e-01_jprb,&
&.645e-01_jprb,.365e-01_jprb,.287e-01_jprb,.460e-01_jprb,.421e-01_jprb,.395e-01_jprb,.342e-01_jprb,&
&.311e-01_jprb,.305e-01_jprb,.309e-01_jprb,.304e-01_jprb,.306e-01_jprb,.316e-01_jprb,.339e-01_jprb,&
&.337e-01_jprb,.337e-01_jprb,.350e-01_jprb,.384e-01_jprb,.415e-01_jprb,.248e-01_jprb,.259e-01_jprb,&
&.236e-01_jprb,.211e-01_jprb,.205e-01_jprb,.223e-01_jprb,.229e-01_jprb,.216e-01_jprb,.276e-01_jprb,&
&.269e-01_jprb,.231e-01_jprb,.242e-01_jprb,.351e-01_jprb,.272e-01_jprb,.207e-01_jprb,.339e-01_jprb,&
&.415e-01_jprb,.299e-01_jprb,.284e-01_jprb,.299e-01_jprb,.254e-01_jprb,.307e-01_jprb,.514e-01_jprb,&
&.587e-01_jprb,.545e-01_jprb,.413e-01_jprb,.458e-01_jprb,.332e-01_jprb,.317e-01_jprb,.314e-01_jprb,&
&.316e-01_jprb,.323e-01_jprb,.280e-01_jprb,.231e-01_jprb,.216e-01_jprb,.213e-01_jprb,.214e-01_jprb,&
&.232e-01_jprb,.283e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 30 -26.0
zaer(:,30, 1) = (/&
&.240e-01_jprb,.252e-01_jprb,.289e-01_jprb,.310e-01_jprb,.224e-01_jprb,.162e-01_jprb,.147e-01_jprb,&
&.147e-01_jprb,.139e-01_jprb,.142e-01_jprb,.147e-01_jprb,.211e-01_jprb,.385e-01_jprb,.491e-01_jprb,&
&.307e-01_jprb,.258e-01_jprb,.287e-01_jprb,.541e-01_jprb,.459e-01_jprb,.443e-01_jprb,.397e-01_jprb,&
&.381e-01_jprb,.314e-01_jprb,.297e-01_jprb,.276e-01_jprb,.271e-01_jprb,.275e-01_jprb,.262e-01_jprb,&
&.231e-01_jprb,.227e-01_jprb,.279e-01_jprb,.317e-01_jprb,.375e-01_jprb,.358e-01_jprb,.169e-01_jprb,&
&.159e-01_jprb,.149e-01_jprb,.130e-01_jprb,.151e-01_jprb,.203e-01_jprb,.250e-01_jprb,.318e-01_jprb,&
&.376e-01_jprb,.305e-01_jprb,.363e-01_jprb,.464e-01_jprb,.378e-01_jprb,.507e-01_jprb,.293e-01_jprb,&
&.311e-01_jprb,.399e-01_jprb,.389e-01_jprb,.312e-01_jprb,.198e-01_jprb,.292e-01_jprb,.433e-01_jprb,&
&.534e-01_jprb,.647e-01_jprb,.696e-01_jprb,.563e-01_jprb,.493e-01_jprb,.336e-01_jprb,.356e-01_jprb,&
&.399e-01_jprb,.398e-01_jprb,.332e-01_jprb,.284e-01_jprb,.247e-01_jprb,.215e-01_jprb,.193e-01_jprb,&
&.204e-01_jprb,.229e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 31 -30.0
zaer(:,31, 1) = (/&
&.203e-01_jprb,.193e-01_jprb,.210e-01_jprb,.226e-01_jprb,.190e-01_jprb,.171e-01_jprb,.162e-01_jprb,&
&.151e-01_jprb,.140e-01_jprb,.132e-01_jprb,.145e-01_jprb,.181e-01_jprb,.294e-01_jprb,.396e-01_jprb,&
&.194e-01_jprb,.187e-01_jprb,.198e-01_jprb,.216e-01_jprb,.269e-01_jprb,.235e-01_jprb,.433e-01_jprb,&
&.457e-01_jprb,.383e-01_jprb,.340e-01_jprb,.283e-01_jprb,.237e-01_jprb,.236e-01_jprb,.223e-01_jprb,&
&.202e-01_jprb,.181e-01_jprb,.173e-01_jprb,.209e-01_jprb,.246e-01_jprb,.286e-01_jprb,.126e-01_jprb,&
&.122e-01_jprb,.139e-01_jprb,.136e-01_jprb,.145e-01_jprb,.179e-01_jprb,.249e-01_jprb,.252e-01_jprb,&
&.268e-01_jprb,.339e-01_jprb,.388e-01_jprb,.485e-01_jprb,.381e-01_jprb,.327e-01_jprb,.365e-01_jprb,&
&.321e-01_jprb,.371e-01_jprb,.302e-01_jprb,.143e-01_jprb,.852e-02_jprb,.679e-02_jprb,.894e-02_jprb,&
&.213e-01_jprb,.842e-01_jprb,.893e-01_jprb,.814e-01_jprb,.544e-01_jprb,.650e-01_jprb,.540e-01_jprb,&
&.650e-01_jprb,.484e-01_jprb,.408e-01_jprb,.332e-01_jprb,.301e-01_jprb,.273e-01_jprb,.246e-01_jprb,&
&.222e-01_jprb,.217e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 32 -34.0
zaer(:,32, 1) = (/&
&.207e-01_jprb,.194e-01_jprb,.190e-01_jprb,.204e-01_jprb,.199e-01_jprb,.186e-01_jprb,.172e-01_jprb,&
&.160e-01_jprb,.145e-01_jprb,.140e-01_jprb,.159e-01_jprb,.228e-01_jprb,.305e-01_jprb,.210e-01_jprb,&
&.175e-01_jprb,.153e-01_jprb,.137e-01_jprb,.213e-01_jprb,.290e-01_jprb,.292e-01_jprb,.381e-01_jprb,&
&.565e-01_jprb,.539e-01_jprb,.420e-01_jprb,.323e-01_jprb,.260e-01_jprb,.217e-01_jprb,.207e-01_jprb,&
&.201e-01_jprb,.169e-01_jprb,.154e-01_jprb,.166e-01_jprb,.202e-01_jprb,.234e-01_jprb,.266e-01_jprb,&
&.172e-01_jprb,.180e-01_jprb,.169e-01_jprb,.191e-01_jprb,.435e-01_jprb,.481e-01_jprb,.426e-01_jprb,&
&.415e-01_jprb,.448e-01_jprb,.382e-01_jprb,.436e-01_jprb,.332e-01_jprb,.445e-01_jprb,.446e-01_jprb,&
&.292e-01_jprb,.293e-01_jprb,.244e-01_jprb,.107e-01_jprb,.691e-02_jprb,.615e-02_jprb,.542e-02_jprb,&
&.107e-01_jprb,.544e-01_jprb,.785e-01_jprb,.803e-01_jprb,.636e-01_jprb,.892e-01_jprb,.671e-01_jprb,&
&.363e-01_jprb,.446e-01_jprb,.398e-01_jprb,.337e-01_jprb,.308e-01_jprb,.286e-01_jprb,.261e-01_jprb,&
&.240e-01_jprb,.220e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 33 -38.0
zaer(:,33, 1) = (/&
&.187e-01_jprb,.183e-01_jprb,.172e-01_jprb,.174e-01_jprb,.176e-01_jprb,.181e-01_jprb,.176e-01_jprb,&
&.161e-01_jprb,.146e-01_jprb,.139e-01_jprb,.160e-01_jprb,.250e-01_jprb,.153e-01_jprb,.136e-01_jprb,&
&.145e-01_jprb,.132e-01_jprb,.145e-01_jprb,.188e-01_jprb,.281e-01_jprb,.405e-01_jprb,.468e-01_jprb,&
&.906e-01_jprb,.547e-01_jprb,.428e-01_jprb,.330e-01_jprb,.258e-01_jprb,.223e-01_jprb,.187e-01_jprb,&
&.173e-01_jprb,.152e-01_jprb,.136e-01_jprb,.138e-01_jprb,.150e-01_jprb,.175e-01_jprb,.268e-01_jprb,&
&.181e-01_jprb,.282e-01_jprb,.352e-01_jprb,.355e-01_jprb,.418e-01_jprb,.518e-01_jprb,.482e-01_jprb,&
&.279e-01_jprb,.289e-01_jprb,.343e-01_jprb,.320e-01_jprb,.408e-01_jprb,.426e-01_jprb,.432e-01_jprb,&
&.514e-01_jprb,.255e-01_jprb,.197e-01_jprb,.210e-01_jprb,.140e-01_jprb,.950e-02_jprb,.785e-02_jprb,&
&.107e-01_jprb,.269e-01_jprb,.436e-01_jprb,.427e-01_jprb,.663e-01_jprb,.505e-01_jprb,.531e-01_jprb,&
&.549e-01_jprb,.264e-01_jprb,.383e-01_jprb,.333e-01_jprb,.290e-01_jprb,.256e-01_jprb,.237e-01_jprb,&
&.224e-01_jprb,.202e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 34 -42.0
zaer(:,34, 1) = (/&
&.176e-01_jprb,.169e-01_jprb,.165e-01_jprb,.160e-01_jprb,.162e-01_jprb,.160e-01_jprb,.163e-01_jprb,&
&.158e-01_jprb,.146e-01_jprb,.138e-01_jprb,.156e-01_jprb,.194e-01_jprb,.105e-01_jprb,.103e-01_jprb,&
&.111e-01_jprb,.129e-01_jprb,.144e-01_jprb,.209e-01_jprb,.307e-01_jprb,.389e-01_jprb,.427e-01_jprb,&
&.503e-01_jprb,.595e-01_jprb,.498e-01_jprb,.364e-01_jprb,.301e-01_jprb,.249e-01_jprb,.202e-01_jprb,&
&.169e-01_jprb,.147e-01_jprb,.136e-01_jprb,.129e-01_jprb,.127e-01_jprb,.134e-01_jprb,.189e-01_jprb,&
&.156e-01_jprb,.155e-01_jprb,.358e-01_jprb,.277e-01_jprb,.307e-01_jprb,.252e-01_jprb,.252e-01_jprb,&
&.408e-01_jprb,.428e-01_jprb,.225e-01_jprb,.226e-01_jprb,.494e-01_jprb,.359e-01_jprb,.432e-01_jprb,&
&.576e-01_jprb,.405e-01_jprb,.211e-01_jprb,.152e-01_jprb,.206e-01_jprb,.237e-01_jprb,.177e-01_jprb,&
&.207e-01_jprb,.211e-01_jprb,.181e-01_jprb,.175e-01_jprb,.216e-01_jprb,.184e-01_jprb,.233e-01_jprb,&
&.439e-01_jprb,.337e-01_jprb,.341e-01_jprb,.348e-01_jprb,.297e-01_jprb,.252e-01_jprb,.226e-01_jprb,&
&.205e-01_jprb,.191e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 35 -46.0
zaer(:,35, 1) = (/&
&.184e-01_jprb,.174e-01_jprb,.170e-01_jprb,.161e-01_jprb,.159e-01_jprb,.155e-01_jprb,.154e-01_jprb,&
&.155e-01_jprb,.147e-01_jprb,.139e-01_jprb,.143e-01_jprb,.158e-01_jprb,.105e-01_jprb,.972e-02_jprb,&
&.101e-01_jprb,.120e-01_jprb,.144e-01_jprb,.183e-01_jprb,.252e-01_jprb,.267e-01_jprb,.375e-01_jprb,&
&.479e-01_jprb,.340e-01_jprb,.263e-01_jprb,.398e-01_jprb,.368e-01_jprb,.339e-01_jprb,.271e-01_jprb,&
&.211e-01_jprb,.171e-01_jprb,.144e-01_jprb,.130e-01_jprb,.123e-01_jprb,.124e-01_jprb,.161e-01_jprb,&
&.290e-01_jprb,.228e-01_jprb,.205e-01_jprb,.225e-01_jprb,.225e-01_jprb,.256e-01_jprb,.339e-01_jprb,&
&.400e-01_jprb,.271e-01_jprb,.250e-01_jprb,.304e-01_jprb,.441e-01_jprb,.373e-01_jprb,.402e-01_jprb,&
&.411e-01_jprb,.456e-01_jprb,.406e-01_jprb,.267e-01_jprb,.247e-01_jprb,.206e-01_jprb,.178e-01_jprb,&
&.157e-01_jprb,.133e-01_jprb,.136e-01_jprb,.159e-01_jprb,.179e-01_jprb,.175e-01_jprb,.193e-01_jprb,&
&.202e-01_jprb,.325e-01_jprb,.274e-01_jprb,.247e-01_jprb,.260e-01_jprb,.262e-01_jprb,.241e-01_jprb,&
&.222e-01_jprb,.204e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 36 -50.0
zaer(:,36, 1) = (/&
&.193e-01_jprb,.179e-01_jprb,.172e-01_jprb,.165e-01_jprb,.156e-01_jprb,.154e-01_jprb,.162e-01_jprb,&
&.171e-01_jprb,.160e-01_jprb,.148e-01_jprb,.151e-01_jprb,.948e-02_jprb,.115e-01_jprb,.109e-01_jprb,&
&.139e-01_jprb,.150e-01_jprb,.185e-01_jprb,.210e-01_jprb,.235e-01_jprb,.255e-01_jprb,.363e-01_jprb,&
&.339e-01_jprb,.297e-01_jprb,.229e-01_jprb,.333e-01_jprb,.341e-01_jprb,.291e-01_jprb,.234e-01_jprb,&
&.206e-01_jprb,.174e-01_jprb,.149e-01_jprb,.133e-01_jprb,.127e-01_jprb,.123e-01_jprb,.130e-01_jprb,&
&.176e-01_jprb,.134e-01_jprb,.160e-01_jprb,.159e-01_jprb,.191e-01_jprb,.237e-01_jprb,.296e-01_jprb,&
&.264e-01_jprb,.315e-01_jprb,.297e-01_jprb,.364e-01_jprb,.389e-01_jprb,.339e-01_jprb,.387e-01_jprb,&
&.381e-01_jprb,.371e-01_jprb,.448e-01_jprb,.495e-01_jprb,.273e-01_jprb,.164e-01_jprb,.144e-01_jprb,&
&.139e-01_jprb,.152e-01_jprb,.169e-01_jprb,.163e-01_jprb,.167e-01_jprb,.171e-01_jprb,.194e-01_jprb,&
&.210e-01_jprb,.177e-01_jprb,.250e-01_jprb,.227e-01_jprb,.219e-01_jprb,.269e-01_jprb,.267e-01_jprb,&
&.242e-01_jprb,.211e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 37 -54.0
zaer(:,37, 1) = (/&
&.191e-01_jprb,.193e-01_jprb,.167e-01_jprb,.152e-01_jprb,.153e-01_jprb,.152e-01_jprb,.163e-01_jprb,&
&.160e-01_jprb,.157e-01_jprb,.151e-01_jprb,.900e-02_jprb,.944e-02_jprb,.130e-01_jprb,.131e-01_jprb,&
&.135e-01_jprb,.166e-01_jprb,.160e-01_jprb,.193e-01_jprb,.209e-01_jprb,.182e-01_jprb,.333e-01_jprb,&
&.270e-01_jprb,.238e-01_jprb,.193e-01_jprb,.171e-01_jprb,.287e-01_jprb,.237e-01_jprb,.204e-01_jprb,&
&.188e-01_jprb,.176e-01_jprb,.157e-01_jprb,.143e-01_jprb,.127e-01_jprb,.122e-01_jprb,.128e-01_jprb,&
&.863e-02_jprb,.178e-01_jprb,.296e-01_jprb,.213e-01_jprb,.227e-01_jprb,.281e-01_jprb,.271e-01_jprb,&
&.268e-01_jprb,.304e-01_jprb,.277e-01_jprb,.337e-01_jprb,.283e-01_jprb,.292e-01_jprb,.308e-01_jprb,&
&.390e-01_jprb,.378e-01_jprb,.370e-01_jprb,.498e-01_jprb,.438e-01_jprb,.249e-01_jprb,.207e-01_jprb,&
&.183e-01_jprb,.176e-01_jprb,.180e-01_jprb,.176e-01_jprb,.183e-01_jprb,.194e-01_jprb,.227e-01_jprb,&
&.228e-01_jprb,.266e-01_jprb,.245e-01_jprb,.205e-01_jprb,.191e-01_jprb,.131e-01_jprb,.225e-01_jprb,&
&.206e-01_jprb,.205e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 38 -58.0
zaer(:,38, 1) = (/&
&.206e-01_jprb,.205e-01_jprb,.170e-01_jprb,.176e-01_jprb,.197e-01_jprb,.171e-01_jprb,.166e-01_jprb,&
&.171e-01_jprb,.177e-01_jprb,.985e-02_jprb,.872e-02_jprb,.917e-02_jprb,.137e-01_jprb,.151e-01_jprb,&
&.147e-01_jprb,.158e-01_jprb,.169e-01_jprb,.198e-01_jprb,.338e-01_jprb,.326e-01_jprb,.365e-01_jprb,&
&.242e-01_jprb,.221e-01_jprb,.159e-01_jprb,.286e-01_jprb,.266e-01_jprb,.200e-01_jprb,.181e-01_jprb,&
&.169e-01_jprb,.164e-01_jprb,.156e-01_jprb,.142e-01_jprb,.130e-01_jprb,.123e-01_jprb,.125e-01_jprb,&
&.142e-01_jprb,.160e-01_jprb,.207e-01_jprb,.114e-01_jprb,.111e-01_jprb,.212e-01_jprb,.141e-01_jprb,&
&.163e-01_jprb,.184e-01_jprb,.219e-01_jprb,.289e-01_jprb,.288e-01_jprb,.295e-01_jprb,.308e-01_jprb,&
&.347e-01_jprb,.390e-01_jprb,.385e-01_jprb,.397e-01_jprb,.436e-01_jprb,.412e-01_jprb,.382e-01_jprb,&
&.289e-01_jprb,.254e-01_jprb,.210e-01_jprb,.194e-01_jprb,.196e-01_jprb,.204e-01_jprb,.251e-01_jprb,&
&.228e-01_jprb,.195e-01_jprb,.303e-01_jprb,.260e-01_jprb,.232e-01_jprb,.141e-01_jprb,.231e-01_jprb,&
&.230e-01_jprb,.212e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 39 -62.0
zaer(:,39, 1) = (/&
&.234e-01_jprb,.264e-01_jprb,.228e-01_jprb,.209e-01_jprb,.124e-01_jprb,.113e-01_jprb,.908e-02_jprb,&
&.805e-02_jprb,.753e-02_jprb,.835e-02_jprb,.849e-02_jprb,.988e-02_jprb,.122e-01_jprb,.128e-01_jprb,&
&.131e-01_jprb,.139e-01_jprb,.149e-01_jprb,.174e-01_jprb,.349e-01_jprb,.405e-01_jprb,.343e-01_jprb,&
&.183e-01_jprb,.299e-01_jprb,.313e-01_jprb,.276e-01_jprb,.258e-01_jprb,.202e-01_jprb,.881e-02_jprb,&
&.162e-01_jprb,.170e-01_jprb,.160e-01_jprb,.146e-01_jprb,.140e-01_jprb,.127e-01_jprb,.124e-01_jprb,&
&.123e-01_jprb,.119e-01_jprb,.122e-01_jprb,.708e-02_jprb,.723e-02_jprb,.129e-01_jprb,.799e-02_jprb,&
&.891e-02_jprb,.112e-01_jprb,.113e-01_jprb,.158e-01_jprb,.195e-01_jprb,.216e-01_jprb,.255e-01_jprb,&
&.294e-01_jprb,.327e-01_jprb,.330e-01_jprb,.318e-01_jprb,.357e-01_jprb,.349e-01_jprb,.386e-01_jprb,&
&.415e-01_jprb,.366e-01_jprb,.346e-01_jprb,.309e-01_jprb,.290e-01_jprb,.305e-01_jprb,.284e-01_jprb,&
&.215e-01_jprb,.163e-01_jprb,.155e-01_jprb,.136e-01_jprb,.146e-01_jprb,.159e-01_jprb,.143e-01_jprb,&
&.135e-01_jprb,.240e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 40 -66.0
zaer(:,40, 1) = (/&
&.172e-01_jprb,.151e-01_jprb,.253e-01_jprb,.262e-01_jprb,.141e-01_jprb,.127e-01_jprb,.111e-01_jprb,&
&.975e-02_jprb,.894e-02_jprb,.936e-02_jprb,.101e-01_jprb,.105e-01_jprb,.122e-01_jprb,.128e-01_jprb,&
&.128e-01_jprb,.135e-01_jprb,.173e-01_jprb,.194e-01_jprb,.241e-01_jprb,.247e-01_jprb,.314e-01_jprb,&
&.154e-01_jprb,.150e-01_jprb,.158e-01_jprb,.267e-01_jprb,.232e-01_jprb,.102e-01_jprb,.709e-02_jprb,&
&.700e-02_jprb,.140e-01_jprb,.168e-01_jprb,.172e-01_jprb,.161e-01_jprb,.149e-01_jprb,.142e-01_jprb,&
&.134e-01_jprb,.121e-01_jprb,.107e-01_jprb,.105e-01_jprb,.607e-02_jprb,.682e-02_jprb,.704e-02_jprb,&
&.754e-02_jprb,.902e-02_jprb,.933e-02_jprb,.989e-02_jprb,.128e-01_jprb,.180e-01_jprb,.189e-01_jprb,&
&.222e-01_jprb,.230e-01_jprb,.262e-01_jprb,.284e-01_jprb,.338e-01_jprb,.352e-01_jprb,.360e-01_jprb,&
&.396e-01_jprb,.391e-01_jprb,.361e-01_jprb,.351e-01_jprb,.366e-01_jprb,.348e-01_jprb,.280e-01_jprb,&
&.197e-01_jprb,.157e-01_jprb,.160e-01_jprb,.156e-01_jprb,.168e-01_jprb,.172e-01_jprb,.165e-01_jprb,&
&.190e-01_jprb,.188e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 41 -70.0
zaer(:,41, 1) = (/&
&.312e-01_jprb,.311e-01_jprb,.296e-01_jprb,.308e-01_jprb,.185e-01_jprb,.155e-01_jprb,.139e-01_jprb,&
&.124e-01_jprb,.188e-01_jprb,.191e-01_jprb,.120e-01_jprb,.218e-01_jprb,.242e-01_jprb,.155e-01_jprb,&
&.148e-01_jprb,.149e-01_jprb,.290e-01_jprb,.216e-01_jprb,.231e-01_jprb,.198e-01_jprb,.176e-01_jprb,&
&.160e-01_jprb,.143e-01_jprb,.247e-01_jprb,.222e-01_jprb,.189e-01_jprb,.877e-02_jprb,.652e-02_jprb,&
&.550e-02_jprb,.469e-02_jprb,.489e-02_jprb,.724e-02_jprb,.159e-01_jprb,.163e-01_jprb,.164e-01_jprb,&
&.160e-01_jprb,.151e-01_jprb,.132e-01_jprb,.116e-01_jprb,.112e-01_jprb,.115e-01_jprb,.754e-02_jprb,&
&.770e-02_jprb,.127e-01_jprb,.131e-01_jprb,.174e-01_jprb,.240e-01_jprb,.290e-01_jprb,.324e-01_jprb,&
&.312e-01_jprb,.178e-01_jprb,.200e-01_jprb,.263e-01_jprb,.287e-01_jprb,.349e-01_jprb,.388e-01_jprb,&
&.340e-01_jprb,.342e-01_jprb,.357e-01_jprb,.379e-01_jprb,.361e-01_jprb,.321e-01_jprb,.288e-01_jprb,&
&.232e-01_jprb,.205e-01_jprb,.199e-01_jprb,.201e-01_jprb,.196e-01_jprb,.209e-01_jprb,.202e-01_jprb,&
&.345e-01_jprb,.202e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 42 -74.0
zaer(:,42, 1) = (/&
&.330e-01_jprb,.317e-01_jprb,.321e-01_jprb,.344e-01_jprb,.338e-01_jprb,.314e-01_jprb,.293e-01_jprb,&
&.245e-01_jprb,.228e-01_jprb,.229e-01_jprb,.235e-01_jprb,.238e-01_jprb,.145e-01_jprb,.155e-01_jprb,&
&.288e-01_jprb,.316e-01_jprb,.312e-01_jprb,.324e-01_jprb,.314e-01_jprb,.168e-01_jprb,.284e-01_jprb,&
&.294e-01_jprb,.293e-01_jprb,.267e-01_jprb,.209e-01_jprb,.971e-02_jprb,.735e-02_jprb,.592e-02_jprb,&
&.499e-02_jprb,.457e-02_jprb,.470e-02_jprb,.589e-02_jprb,.159e-01_jprb,.201e-01_jprb,.218e-01_jprb,&
&.215e-01_jprb,.206e-01_jprb,.198e-01_jprb,.189e-01_jprb,.190e-01_jprb,.184e-01_jprb,.175e-01_jprb,&
&.183e-01_jprb,.186e-01_jprb,.202e-01_jprb,.221e-01_jprb,.218e-01_jprb,.229e-01_jprb,.274e-01_jprb,&
&.312e-01_jprb,.297e-01_jprb,.392e-01_jprb,.456e-01_jprb,.271e-01_jprb,.310e-01_jprb,.482e-01_jprb,&
&.438e-01_jprb,.430e-01_jprb,.413e-01_jprb,.395e-01_jprb,.617e-01_jprb,.571e-01_jprb,.488e-01_jprb,&
&.419e-01_jprb,.420e-01_jprb,.430e-01_jprb,.438e-01_jprb,.400e-01_jprb,.372e-01_jprb,.373e-01_jprb,&
&.386e-01_jprb,.371e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 43 -78.0
zaer(:,43, 1) = (/&
&.311e-01_jprb,.294e-01_jprb,.288e-01_jprb,.308e-01_jprb,.325e-01_jprb,.334e-01_jprb,.327e-01_jprb,&
&.304e-01_jprb,.302e-01_jprb,.300e-01_jprb,.287e-01_jprb,.276e-01_jprb,.268e-01_jprb,.266e-01_jprb,&
&.276e-01_jprb,.287e-01_jprb,.298e-01_jprb,.306e-01_jprb,.176e-01_jprb,.167e-01_jprb,.168e-01_jprb,&
&.296e-01_jprb,.294e-01_jprb,.162e-01_jprb,.111e-01_jprb,.941e-02_jprb,.818e-02_jprb,.691e-02_jprb,&
&.676e-02_jprb,.674e-02_jprb,.788e-02_jprb,.878e-02_jprb,.168e-01_jprb,.221e-01_jprb,.247e-01_jprb,&
&.263e-01_jprb,.252e-01_jprb,.246e-01_jprb,.244e-01_jprb,.145e-01_jprb,.250e-01_jprb,.248e-01_jprb,&
&.256e-01_jprb,.268e-01_jprb,.289e-01_jprb,.332e-01_jprb,.312e-01_jprb,.307e-01_jprb,.312e-01_jprb,&
&.324e-01_jprb,.341e-01_jprb,.341e-01_jprb,.336e-01_jprb,.368e-01_jprb,.427e-01_jprb,.495e-01_jprb,&
&.563e-01_jprb,.387e-01_jprb,.626e-01_jprb,.575e-01_jprb,.533e-01_jprb,.494e-01_jprb,.482e-01_jprb,&
&.490e-01_jprb,.472e-01_jprb,.482e-01_jprb,.474e-01_jprb,.426e-01_jprb,.393e-01_jprb,.376e-01_jprb,&
&.350e-01_jprb,.330e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 44 -82.0
zaer(:,44, 1) = (/&
&.287e-01_jprb,.286e-01_jprb,.289e-01_jprb,.296e-01_jprb,.309e-01_jprb,.325e-01_jprb,.332e-01_jprb,&
&.321e-01_jprb,.317e-01_jprb,.314e-01_jprb,.315e-01_jprb,.317e-01_jprb,.315e-01_jprb,.296e-01_jprb,&
&.283e-01_jprb,.274e-01_jprb,.269e-01_jprb,.273e-01_jprb,.272e-01_jprb,.268e-01_jprb,.158e-01_jprb,&
&.156e-01_jprb,.153e-01_jprb,.149e-01_jprb,.139e-01_jprb,.132e-01_jprb,.127e-01_jprb,.123e-01_jprb,&
&.120e-01_jprb,.119e-01_jprb,.121e-01_jprb,.119e-01_jprb,.123e-01_jprb,.215e-01_jprb,.230e-01_jprb,&
&.257e-01_jprb,.277e-01_jprb,.282e-01_jprb,.284e-01_jprb,.285e-01_jprb,.292e-01_jprb,.296e-01_jprb,&
&.308e-01_jprb,.321e-01_jprb,.332e-01_jprb,.341e-01_jprb,.347e-01_jprb,.352e-01_jprb,.357e-01_jprb,&
&.360e-01_jprb,.367e-01_jprb,.376e-01_jprb,.384e-01_jprb,.394e-01_jprb,.405e-01_jprb,.422e-01_jprb,&
&.430e-01_jprb,.438e-01_jprb,.439e-01_jprb,.432e-01_jprb,.408e-01_jprb,.389e-01_jprb,.384e-01_jprb,&
&.386e-01_jprb,.405e-01_jprb,.431e-01_jprb,.421e-01_jprb,.377e-01_jprb,.345e-01_jprb,.320e-01_jprb,&
&.304e-01_jprb,.296e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 45 -86.0
zaer(:,45, 1) = (/&
&.306e-01_jprb,.307e-01_jprb,.303e-01_jprb,.303e-01_jprb,.300e-01_jprb,.302e-01_jprb,.304e-01_jprb,&
&.305e-01_jprb,.308e-01_jprb,.311e-01_jprb,.313e-01_jprb,.317e-01_jprb,.318e-01_jprb,.311e-01_jprb,&
&.303e-01_jprb,.295e-01_jprb,.289e-01_jprb,.287e-01_jprb,.283e-01_jprb,.282e-01_jprb,.282e-01_jprb,&
&.284e-01_jprb,.288e-01_jprb,.291e-01_jprb,.285e-01_jprb,.283e-01_jprb,.281e-01_jprb,.281e-01_jprb,&
&.281e-01_jprb,.281e-01_jprb,.283e-01_jprb,.282e-01_jprb,.286e-01_jprb,.290e-01_jprb,.293e-01_jprb,&
&.298e-01_jprb,.296e-01_jprb,.299e-01_jprb,.299e-01_jprb,.302e-01_jprb,.307e-01_jprb,.312e-01_jprb,&
&.316e-01_jprb,.320e-01_jprb,.326e-01_jprb,.332e-01_jprb,.337e-01_jprb,.345e-01_jprb,.347e-01_jprb,&
&.350e-01_jprb,.351e-01_jprb,.351e-01_jprb,.350e-01_jprb,.347e-01_jprb,.345e-01_jprb,.341e-01_jprb,&
&.336e-01_jprb,.331e-01_jprb,.322e-01_jprb,.316e-01_jprb,.306e-01_jprb,.307e-01_jprb,.308e-01_jprb,&
&.308e-01_jprb,.310e-01_jprb,.309e-01_jprb,.308e-01_jprb,.308e-01_jprb,.308e-01_jprb,.307e-01_jprb,&
&.304e-01_jprb,.303e-01_jprb/)
!-- Total Sulfate Aerosol    month:  1 --- lat: 46 -90.0
zaer(:,46, 1) = (/&
&.320e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,&
&.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,&
&.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,&
&.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,&
&.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,&
&.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,&
&.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,&
&.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,&
&.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,&
&.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,.327e-01_jprb,&
&.327e-01_jprb,.327e-01_jprb/)


!     ------------------------------------------------------------------

!ZMAX=-1.E+8_JPRB
!ZMIN= 1.E+8_JPRB
   jm=1   
  DO ji=1,46
    DO jl=1,72
      raersu(jl,ji,jm)=zaer(jl,ji,jm)
!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
    ENDDO
  ENDDO

!PRINT 9000,ZMIN,ZMAX
9000 FORMAT(1x,'SULFATE AEROSOLS ',2e12.5)

!     ------------------------------------------------------------------

RETURN
END SUBROUTINE suecaesu_01