suecaesd_09.F90

Go to the documentation of this file.

SUBROUTINE suecaesd_09

!**   OPTICAL THICKNESS OF AEROSOLS OF SOIL-DUST ORIGIN
!                                      September

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

!**   INTERFACE.
!     ----------
!        CALL *SUECAESD* 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 : raersd


IMPLICIT NONE


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

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

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

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

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

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

!     LOCAL REAL SCALARS
real_b :: zmax, zmin

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

!-- Tegen et al., 1997

!-- Total Soil Dust Aerosol  month:  9 --- lat:  1  90.0
zaer(:, 1, 9) = (/&
&.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,&
&.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,&
&.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,&
&.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,&
&.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,&
&.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,&
&.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,&
&.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,&
&.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,&
&.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,.136e-02_jprb,&
&.136e-02_jprb,.136e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat:  2  86.0
zaer(:, 2, 9) = (/&
&.135e-02_jprb,.136e-02_jprb,.136e-02_jprb,.137e-02_jprb,.137e-02_jprb,.138e-02_jprb,.140e-02_jprb,&
&.141e-02_jprb,.142e-02_jprb,.144e-02_jprb,.145e-02_jprb,.145e-02_jprb,.145e-02_jprb,.144e-02_jprb,&
&.144e-02_jprb,.146e-02_jprb,.147e-02_jprb,.148e-02_jprb,.149e-02_jprb,.150e-02_jprb,.150e-02_jprb,&
&.150e-02_jprb,.151e-02_jprb,.150e-02_jprb,.149e-02_jprb,.147e-02_jprb,.142e-02_jprb,.139e-02_jprb,&
&.137e-02_jprb,.137e-02_jprb,.138e-02_jprb,.138e-02_jprb,.139e-02_jprb,.139e-02_jprb,.139e-02_jprb,&
&.138e-02_jprb,.137e-02_jprb,.135e-02_jprb,.133e-02_jprb,.132e-02_jprb,.131e-02_jprb,.129e-02_jprb,&
&.128e-02_jprb,.127e-02_jprb,.127e-02_jprb,.126e-02_jprb,.125e-02_jprb,.125e-02_jprb,.125e-02_jprb,&
&.125e-02_jprb,.126e-02_jprb,.127e-02_jprb,.128e-02_jprb,.129e-02_jprb,.129e-02_jprb,.129e-02_jprb,&
&.130e-02_jprb,.131e-02_jprb,.131e-02_jprb,.131e-02_jprb,.131e-02_jprb,.131e-02_jprb,.132e-02_jprb,&
&.132e-02_jprb,.132e-02_jprb,.132e-02_jprb,.133e-02_jprb,.133e-02_jprb,.134e-02_jprb,.135e-02_jprb,&
&.136e-02_jprb,.135e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat:  3  82.0
zaer(:, 3, 9) = (/&
&.149e-02_jprb,.155e-02_jprb,.160e-02_jprb,.162e-02_jprb,.160e-02_jprb,.155e-02_jprb,.148e-02_jprb,&
&.140e-02_jprb,.132e-02_jprb,.130e-02_jprb,.137e-02_jprb,.152e-02_jprb,.169e-02_jprb,.185e-02_jprb,&
&.189e-02_jprb,.189e-02_jprb,.189e-02_jprb,.186e-02_jprb,.182e-02_jprb,.180e-02_jprb,.181e-02_jprb,&
&.183e-02_jprb,.182e-02_jprb,.177e-02_jprb,.171e-02_jprb,.166e-02_jprb,.158e-02_jprb,.149e-02_jprb,&
&.145e-02_jprb,.143e-02_jprb,.145e-02_jprb,.147e-02_jprb,.148e-02_jprb,.147e-02_jprb,.147e-02_jprb,&
&.146e-02_jprb,.144e-02_jprb,.141e-02_jprb,.138e-02_jprb,.136e-02_jprb,.134e-02_jprb,.133e-02_jprb,&
&.131e-02_jprb,.129e-02_jprb,.127e-02_jprb,.126e-02_jprb,.125e-02_jprb,.124e-02_jprb,.123e-02_jprb,&
&.122e-02_jprb,.121e-02_jprb,.120e-02_jprb,.121e-02_jprb,.122e-02_jprb,.122e-02_jprb,.122e-02_jprb,&
&.122e-02_jprb,.123e-02_jprb,.124e-02_jprb,.125e-02_jprb,.126e-02_jprb,.127e-02_jprb,.129e-02_jprb,&
&.129e-02_jprb,.130e-02_jprb,.131e-02_jprb,.131e-02_jprb,.131e-02_jprb,.131e-02_jprb,.132e-02_jprb,&
&.136e-02_jprb,.142e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat:  4  78.0
zaer(:, 4, 9) = (/&
&.181e-02_jprb,.190e-02_jprb,.190e-02_jprb,.187e-02_jprb,.186e-02_jprb,.182e-02_jprb,.178e-02_jprb,&
&.174e-02_jprb,.168e-02_jprb,.156e-02_jprb,.145e-02_jprb,.140e-02_jprb,.153e-02_jprb,.185e-02_jprb,&
&.214e-02_jprb,.226e-02_jprb,.235e-02_jprb,.235e-02_jprb,.226e-02_jprb,.224e-02_jprb,.240e-02_jprb,&
&.268e-02_jprb,.284e-02_jprb,.275e-02_jprb,.248e-02_jprb,.219e-02_jprb,.193e-02_jprb,.173e-02_jprb,&
&.161e-02_jprb,.158e-02_jprb,.163e-02_jprb,.164e-02_jprb,.163e-02_jprb,.161e-02_jprb,.158e-02_jprb,&
&.156e-02_jprb,.155e-02_jprb,.153e-02_jprb,.149e-02_jprb,.143e-02_jprb,.139e-02_jprb,.138e-02_jprb,&
&.136e-02_jprb,.133e-02_jprb,.130e-02_jprb,.129e-02_jprb,.129e-02_jprb,.128e-02_jprb,.127e-02_jprb,&
&.126e-02_jprb,.123e-02_jprb,.122e-02_jprb,.120e-02_jprb,.119e-02_jprb,.117e-02_jprb,.116e-02_jprb,&
&.116e-02_jprb,.115e-02_jprb,.115e-02_jprb,.115e-02_jprb,.115e-02_jprb,.116e-02_jprb,.118e-02_jprb,&
&.120e-02_jprb,.122e-02_jprb,.124e-02_jprb,.126e-02_jprb,.128e-02_jprb,.131e-02_jprb,.136e-02_jprb,&
&.149e-02_jprb,.166e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat:  5  74.0
zaer(:, 5, 9) = (/&
&.227e-02_jprb,.233e-02_jprb,.233e-02_jprb,.227e-02_jprb,.218e-02_jprb,.210e-02_jprb,.203e-02_jprb,&
&.194e-02_jprb,.186e-02_jprb,.179e-02_jprb,.168e-02_jprb,.165e-02_jprb,.169e-02_jprb,.180e-02_jprb,&
&.198e-02_jprb,.213e-02_jprb,.217e-02_jprb,.222e-02_jprb,.232e-02_jprb,.255e-02_jprb,.312e-02_jprb,&
&.443e-02_jprb,.489e-02_jprb,.496e-02_jprb,.482e-02_jprb,.432e-02_jprb,.351e-02_jprb,.276e-02_jprb,&
&.232e-02_jprb,.213e-02_jprb,.207e-02_jprb,.194e-02_jprb,.185e-02_jprb,.186e-02_jprb,.184e-02_jprb,&
&.179e-02_jprb,.175e-02_jprb,.169e-02_jprb,.160e-02_jprb,.151e-02_jprb,.146e-02_jprb,.144e-02_jprb,&
&.145e-02_jprb,.147e-02_jprb,.151e-02_jprb,.155e-02_jprb,.153e-02_jprb,.148e-02_jprb,.140e-02_jprb,&
&.132e-02_jprb,.128e-02_jprb,.129e-02_jprb,.128e-02_jprb,.125e-02_jprb,.119e-02_jprb,.114e-02_jprb,&
&.112e-02_jprb,.114e-02_jprb,.115e-02_jprb,.115e-02_jprb,.115e-02_jprb,.115e-02_jprb,.115e-02_jprb,&
&.116e-02_jprb,.118e-02_jprb,.121e-02_jprb,.125e-02_jprb,.134e-02_jprb,.149e-02_jprb,.169e-02_jprb,&
&.197e-02_jprb,.218e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat:  6  70.0
zaer(:, 6, 9) = (/&
&.339e-02_jprb,.339e-02_jprb,.326e-02_jprb,.307e-02_jprb,.292e-02_jprb,.278e-02_jprb,.259e-02_jprb,&
&.240e-02_jprb,.223e-02_jprb,.211e-02_jprb,.203e-02_jprb,.200e-02_jprb,.199e-02_jprb,.195e-02_jprb,&
&.193e-02_jprb,.184e-02_jprb,.172e-02_jprb,.172e-02_jprb,.192e-02_jprb,.263e-02_jprb,.406e-02_jprb,&
&.638e-02_jprb,.632e-02_jprb,.613e-02_jprb,.639e-02_jprb,.637e-02_jprb,.563e-02_jprb,.437e-02_jprb,&
&.337e-02_jprb,.279e-02_jprb,.237e-02_jprb,.201e-02_jprb,.195e-02_jprb,.201e-02_jprb,.197e-02_jprb,&
&.191e-02_jprb,.187e-02_jprb,.181e-02_jprb,.177e-02_jprb,.175e-02_jprb,.172e-02_jprb,.170e-02_jprb,&
&.170e-02_jprb,.172e-02_jprb,.180e-02_jprb,.185e-02_jprb,.181e-02_jprb,.175e-02_jprb,.162e-02_jprb,&
&.145e-02_jprb,.134e-02_jprb,.134e-02_jprb,.137e-02_jprb,.133e-02_jprb,.124e-02_jprb,.117e-02_jprb,&
&.116e-02_jprb,.120e-02_jprb,.126e-02_jprb,.130e-02_jprb,.132e-02_jprb,.134e-02_jprb,.137e-02_jprb,&
&.139e-02_jprb,.143e-02_jprb,.148e-02_jprb,.161e-02_jprb,.195e-02_jprb,.245e-02_jprb,.290e-02_jprb,&
&.312e-02_jprb,.327e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat:  7  66.0
zaer(:, 7, 9) = (/&
&.442e-02_jprb,.417e-02_jprb,.410e-02_jprb,.406e-02_jprb,.396e-02_jprb,.381e-02_jprb,.359e-02_jprb,&
&.330e-02_jprb,.303e-02_jprb,.280e-02_jprb,.262e-02_jprb,.246e-02_jprb,.232e-02_jprb,.219e-02_jprb,&
&.206e-02_jprb,.189e-02_jprb,.175e-02_jprb,.163e-02_jprb,.164e-02_jprb,.254e-02_jprb,.544e-02_jprb,&
&.843e-02_jprb,.659e-02_jprb,.585e-02_jprb,.654e-02_jprb,.696e-02_jprb,.692e-02_jprb,.536e-02_jprb,&
&.401e-02_jprb,.327e-02_jprb,.254e-02_jprb,.194e-02_jprb,.190e-02_jprb,.186e-02_jprb,.180e-02_jprb,&
&.181e-02_jprb,.184e-02_jprb,.183e-02_jprb,.183e-02_jprb,.191e-02_jprb,.199e-02_jprb,.207e-02_jprb,&
&.211e-02_jprb,.213e-02_jprb,.210e-02_jprb,.201e-02_jprb,.196e-02_jprb,.187e-02_jprb,.177e-02_jprb,&
&.168e-02_jprb,.159e-02_jprb,.153e-02_jprb,.149e-02_jprb,.144e-02_jprb,.136e-02_jprb,.131e-02_jprb,&
&.131e-02_jprb,.134e-02_jprb,.139e-02_jprb,.140e-02_jprb,.140e-02_jprb,.141e-02_jprb,.145e-02_jprb,&
&.154e-02_jprb,.165e-02_jprb,.174e-02_jprb,.238e-02_jprb,.341e-02_jprb,.428e-02_jprb,.464e-02_jprb,&
&.479e-02_jprb,.471e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat:  8  62.0
zaer(:, 8, 9) = (/&
&.333e-02_jprb,.365e-02_jprb,.443e-02_jprb,.491e-02_jprb,.485e-02_jprb,.467e-02_jprb,.445e-02_jprb,&
&.416e-02_jprb,.397e-02_jprb,.375e-02_jprb,.348e-02_jprb,.318e-02_jprb,.289e-02_jprb,.263e-02_jprb,&
&.239e-02_jprb,.214e-02_jprb,.194e-02_jprb,.180e-02_jprb,.179e-02_jprb,.267e-02_jprb,.646e-02_jprb,&
&.103e-01_jprb,.622e-02_jprb,.577e-02_jprb,.738e-02_jprb,.749e-02_jprb,.653e-02_jprb,.508e-02_jprb,&
&.422e-02_jprb,.380e-02_jprb,.295e-02_jprb,.226e-02_jprb,.199e-02_jprb,.183e-02_jprb,.181e-02_jprb,&
&.187e-02_jprb,.194e-02_jprb,.195e-02_jprb,.199e-02_jprb,.213e-02_jprb,.229e-02_jprb,.244e-02_jprb,&
&.253e-02_jprb,.250e-02_jprb,.239e-02_jprb,.224e-02_jprb,.219e-02_jprb,.216e-02_jprb,.210e-02_jprb,&
&.205e-02_jprb,.198e-02_jprb,.190e-02_jprb,.185e-02_jprb,.183e-02_jprb,.179e-02_jprb,.174e-02_jprb,&
&.168e-02_jprb,.163e-02_jprb,.159e-02_jprb,.156e-02_jprb,.156e-02_jprb,.158e-02_jprb,.167e-02_jprb,&
&.185e-02_jprb,.194e-02_jprb,.232e-02_jprb,.382e-02_jprb,.571e-02_jprb,.694e-02_jprb,.671e-02_jprb,&
&.508e-02_jprb,.369e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat:  9  58.0
zaer(:, 9, 9) = (/&
&.337e-02_jprb,.436e-02_jprb,.596e-02_jprb,.621e-02_jprb,.596e-02_jprb,.589e-02_jprb,.569e-02_jprb,&
&.520e-02_jprb,.483e-02_jprb,.455e-02_jprb,.420e-02_jprb,.385e-02_jprb,.349e-02_jprb,.317e-02_jprb,&
&.287e-02_jprb,.259e-02_jprb,.237e-02_jprb,.225e-02_jprb,.214e-02_jprb,.260e-02_jprb,.649e-02_jprb,&
&.125e-01_jprb,.782e-02_jprb,.759e-02_jprb,.859e-02_jprb,.788e-02_jprb,.613e-02_jprb,.433e-02_jprb,&
&.393e-02_jprb,.400e-02_jprb,.345e-02_jprb,.293e-02_jprb,.250e-02_jprb,.230e-02_jprb,.228e-02_jprb,&
&.227e-02_jprb,.230e-02_jprb,.234e-02_jprb,.243e-02_jprb,.264e-02_jprb,.282e-02_jprb,.293e-02_jprb,&
&.295e-02_jprb,.291e-02_jprb,.282e-02_jprb,.278e-02_jprb,.281e-02_jprb,.283e-02_jprb,.275e-02_jprb,&
&.268e-02_jprb,.267e-02_jprb,.257e-02_jprb,.245e-02_jprb,.239e-02_jprb,.233e-02_jprb,.221e-02_jprb,&
&.209e-02_jprb,.197e-02_jprb,.191e-02_jprb,.196e-02_jprb,.202e-02_jprb,.210e-02_jprb,.237e-02_jprb,&
&.253e-02_jprb,.273e-02_jprb,.481e-02_jprb,.875e-02_jprb,.114e-01_jprb,.106e-01_jprb,.654e-02_jprb,&
&.342e-02_jprb,.302e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 10  54.0
zaer(:,10, 9) = (/&
&.396e-02_jprb,.491e-02_jprb,.614e-02_jprb,.680e-02_jprb,.701e-02_jprb,.684e-02_jprb,.654e-02_jprb,&
&.598e-02_jprb,.545e-02_jprb,.510e-02_jprb,.457e-02_jprb,.409e-02_jprb,.364e-02_jprb,.330e-02_jprb,&
&.307e-02_jprb,.287e-02_jprb,.275e-02_jprb,.268e-02_jprb,.260e-02_jprb,.270e-02_jprb,.604e-02_jprb,&
&.162e-01_jprb,.159e-01_jprb,.128e-01_jprb,.957e-02_jprb,.768e-02_jprb,.564e-02_jprb,.439e-02_jprb,&
&.452e-02_jprb,.476e-02_jprb,.463e-02_jprb,.445e-02_jprb,.409e-02_jprb,.371e-02_jprb,.342e-02_jprb,&
&.321e-02_jprb,.301e-02_jprb,.299e-02_jprb,.309e-02_jprb,.321e-02_jprb,.343e-02_jprb,.363e-02_jprb,&
&.356e-02_jprb,.346e-02_jprb,.340e-02_jprb,.357e-02_jprb,.376e-02_jprb,.373e-02_jprb,.369e-02_jprb,&
&.370e-02_jprb,.364e-02_jprb,.359e-02_jprb,.337e-02_jprb,.314e-02_jprb,.297e-02_jprb,.279e-02_jprb,&
&.266e-02_jprb,.258e-02_jprb,.259e-02_jprb,.265e-02_jprb,.271e-02_jprb,.308e-02_jprb,.326e-02_jprb,&
&.323e-02_jprb,.679e-02_jprb,.125e-01_jprb,.159e-01_jprb,.173e-01_jprb,.107e-01_jprb,.457e-02_jprb,&
&.361e-02_jprb,.360e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 11  50.0
zaer(:,11, 9) = (/&
&.419e-02_jprb,.446e-02_jprb,.550e-02_jprb,.657e-02_jprb,.712e-02_jprb,.698e-02_jprb,.690e-02_jprb,&
&.653e-02_jprb,.601e-02_jprb,.537e-02_jprb,.461e-02_jprb,.387e-02_jprb,.344e-02_jprb,.319e-02_jprb,&
&.305e-02_jprb,.299e-02_jprb,.299e-02_jprb,.296e-02_jprb,.285e-02_jprb,.281e-02_jprb,.628e-02_jprb,&
&.196e-01_jprb,.297e-01_jprb,.280e-01_jprb,.110e-01_jprb,.770e-02_jprb,.626e-02_jprb,.569e-02_jprb,&
&.604e-02_jprb,.594e-02_jprb,.547e-02_jprb,.519e-02_jprb,.489e-02_jprb,.453e-02_jprb,.429e-02_jprb,&
&.409e-02_jprb,.389e-02_jprb,.376e-02_jprb,.377e-02_jprb,.380e-02_jprb,.413e-02_jprb,.427e-02_jprb,&
&.411e-02_jprb,.408e-02_jprb,.419e-02_jprb,.452e-02_jprb,.484e-02_jprb,.480e-02_jprb,.477e-02_jprb,&
&.475e-02_jprb,.465e-02_jprb,.454e-02_jprb,.427e-02_jprb,.400e-02_jprb,.378e-02_jprb,.358e-02_jprb,&
&.345e-02_jprb,.342e-02_jprb,.338e-02_jprb,.328e-02_jprb,.342e-02_jprb,.382e-02_jprb,.398e-02_jprb,&
&.981e-02_jprb,.180e-01_jprb,.197e-01_jprb,.189e-01_jprb,.204e-01_jprb,.112e-01_jprb,.487e-02_jprb,&
&.424e-02_jprb,.415e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 12  46.0
zaer(:,12, 9) = (/&
&.505e-02_jprb,.514e-02_jprb,.542e-02_jprb,.588e-02_jprb,.616e-02_jprb,.701e-02_jprb,.693e-02_jprb,&
&.674e-02_jprb,.630e-02_jprb,.530e-02_jprb,.433e-02_jprb,.371e-02_jprb,.343e-02_jprb,.333e-02_jprb,&
&.337e-02_jprb,.344e-02_jprb,.348e-02_jprb,.340e-02_jprb,.323e-02_jprb,.311e-02_jprb,.516e-02_jprb,&
&.131e-01_jprb,.349e-01_jprb,.513e-01_jprb,.255e-01_jprb,.121e-01_jprb,.961e-02_jprb,.866e-02_jprb,&
&.819e-02_jprb,.753e-02_jprb,.691e-02_jprb,.620e-02_jprb,.561e-02_jprb,.514e-02_jprb,.480e-02_jprb,&
&.463e-02_jprb,.465e-02_jprb,.472e-02_jprb,.475e-02_jprb,.477e-02_jprb,.519e-02_jprb,.543e-02_jprb,&
&.535e-02_jprb,.537e-02_jprb,.564e-02_jprb,.638e-02_jprb,.651e-02_jprb,.611e-02_jprb,.576e-02_jprb,&
&.554e-02_jprb,.557e-02_jprb,.559e-02_jprb,.553e-02_jprb,.538e-02_jprb,.509e-02_jprb,.467e-02_jprb,&
&.431e-02_jprb,.410e-02_jprb,.385e-02_jprb,.372e-02_jprb,.417e-02_jprb,.553e-02_jprb,.145e-01_jprb,&
&.253e-01_jprb,.237e-01_jprb,.163e-01_jprb,.141e-01_jprb,.189e-01_jprb,.143e-01_jprb,.670e-02_jprb,&
&.588e-02_jprb,.525e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 13  42.0
zaer(:,13, 9) = (/&
&.680e-02_jprb,.682e-02_jprb,.677e-02_jprb,.682e-02_jprb,.652e-02_jprb,.678e-02_jprb,.690e-02_jprb,&
&.667e-02_jprb,.613e-02_jprb,.520e-02_jprb,.443e-02_jprb,.396e-02_jprb,.377e-02_jprb,.393e-02_jprb,&
&.419e-02_jprb,.432e-02_jprb,.424e-02_jprb,.398e-02_jprb,.368e-02_jprb,.342e-02_jprb,.366e-02_jprb,&
&.691e-02_jprb,.199e-01_jprb,.703e-01_jprb,.436e-01_jprb,.224e-01_jprb,.151e-01_jprb,.120e-01_jprb,&
&.108e-01_jprb,.102e-01_jprb,.932e-02_jprb,.834e-02_jprb,.747e-02_jprb,.681e-02_jprb,.640e-02_jprb,&
&.607e-02_jprb,.596e-02_jprb,.585e-02_jprb,.581e-02_jprb,.585e-02_jprb,.637e-02_jprb,.674e-02_jprb,&
&.698e-02_jprb,.745e-02_jprb,.829e-02_jprb,.902e-02_jprb,.835e-02_jprb,.724e-02_jprb,.656e-02_jprb,&
&.642e-02_jprb,.656e-02_jprb,.675e-02_jprb,.700e-02_jprb,.687e-02_jprb,.640e-02_jprb,.573e-02_jprb,&
&.513e-02_jprb,.465e-02_jprb,.423e-02_jprb,.477e-02_jprb,.820e-02_jprb,.212e-01_jprb,.358e-01_jprb,&
&.315e-01_jprb,.197e-01_jprb,.134e-01_jprb,.141e-01_jprb,.178e-01_jprb,.177e-01_jprb,.103e-01_jprb,&
&.815e-02_jprb,.721e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 14  38.0
zaer(:,14, 9) = (/&
&.892e-02_jprb,.899e-02_jprb,.857e-02_jprb,.788e-02_jprb,.754e-02_jprb,.735e-02_jprb,.709e-02_jprb,&
&.664e-02_jprb,.600e-02_jprb,.514e-02_jprb,.461e-02_jprb,.431e-02_jprb,.440e-02_jprb,.488e-02_jprb,&
&.535e-02_jprb,.553e-02_jprb,.549e-02_jprb,.519e-02_jprb,.473e-02_jprb,.422e-02_jprb,.391e-02_jprb,&
&.461e-02_jprb,.119e-01_jprb,.491e-01_jprb,.484e-01_jprb,.303e-01_jprb,.201e-01_jprb,.150e-01_jprb,&
&.132e-01_jprb,.121e-01_jprb,.113e-01_jprb,.106e-01_jprb,.970e-02_jprb,.871e-02_jprb,.791e-02_jprb,&
&.736e-02_jprb,.704e-02_jprb,.684e-02_jprb,.696e-02_jprb,.728e-02_jprb,.837e-02_jprb,.932e-02_jprb,&
&.101e-01_jprb,.106e-01_jprb,.117e-01_jprb,.117e-01_jprb,.107e-01_jprb,.922e-02_jprb,.823e-02_jprb,&
&.784e-02_jprb,.812e-02_jprb,.852e-02_jprb,.874e-02_jprb,.834e-02_jprb,.776e-02_jprb,.696e-02_jprb,&
&.607e-02_jprb,.520e-02_jprb,.500e-02_jprb,.725e-02_jprb,.263e-01_jprb,.619e-01_jprb,.659e-01_jprb,&
&.405e-01_jprb,.261e-01_jprb,.205e-01_jprb,.187e-01_jprb,.200e-01_jprb,.191e-01_jprb,.131e-01_jprb,&
&.102e-01_jprb,.916e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 15  34.0
zaer(:,15, 9) = (/&
&.117e-01_jprb,.114e-01_jprb,.107e-01_jprb,.999e-02_jprb,.946e-02_jprb,.864e-02_jprb,.791e-02_jprb,&
&.731e-02_jprb,.660e-02_jprb,.586e-02_jprb,.552e-02_jprb,.546e-02_jprb,.586e-02_jprb,.633e-02_jprb,&
&.657e-02_jprb,.660e-02_jprb,.653e-02_jprb,.643e-02_jprb,.605e-02_jprb,.547e-02_jprb,.523e-02_jprb,&
&.665e-02_jprb,.120e-01_jprb,.262e-01_jprb,.335e-01_jprb,.256e-01_jprb,.196e-01_jprb,.164e-01_jprb,&
&.143e-01_jprb,.131e-01_jprb,.127e-01_jprb,.118e-01_jprb,.109e-01_jprb,.995e-02_jprb,.909e-02_jprb,&
&.850e-02_jprb,.829e-02_jprb,.849e-02_jprb,.909e-02_jprb,.113e-01_jprb,.156e-01_jprb,.192e-01_jprb,&
&.193e-01_jprb,.183e-01_jprb,.170e-01_jprb,.157e-01_jprb,.152e-01_jprb,.128e-01_jprb,.109e-01_jprb,&
&.101e-01_jprb,.107e-01_jprb,.116e-01_jprb,.117e-01_jprb,.113e-01_jprb,.104e-01_jprb,.914e-02_jprb,&
&.789e-02_jprb,.668e-02_jprb,.673e-02_jprb,.143e-01_jprb,.542e-01_jprb,.111e+00_jprb,.105e+00_jprb,&
&.692e-01_jprb,.599e-01_jprb,.419e-01_jprb,.322e-01_jprb,.263e-01_jprb,.211e-01_jprb,.159e-01_jprb,&
&.131e-01_jprb,.119e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 16  30.0
zaer(:,16, 9) = (/&
&.151e-01_jprb,.144e-01_jprb,.138e-01_jprb,.136e-01_jprb,.127e-01_jprb,.113e-01_jprb,.101e-01_jprb,&
&.898e-02_jprb,.816e-02_jprb,.751e-02_jprb,.727e-02_jprb,.741e-02_jprb,.785e-02_jprb,.777e-02_jprb,&
&.754e-02_jprb,.729e-02_jprb,.706e-02_jprb,.706e-02_jprb,.696e-02_jprb,.683e-02_jprb,.720e-02_jprb,&
&.911e-02_jprb,.175e-01_jprb,.322e-01_jprb,.342e-01_jprb,.254e-01_jprb,.206e-01_jprb,.179e-01_jprb,&
&.159e-01_jprb,.148e-01_jprb,.139e-01_jprb,.129e-01_jprb,.122e-01_jprb,.115e-01_jprb,.109e-01_jprb,&
&.107e-01_jprb,.109e-01_jprb,.118e-01_jprb,.148e-01_jprb,.229e-01_jprb,.366e-01_jprb,.382e-01_jprb,&
&.343e-01_jprb,.284e-01_jprb,.254e-01_jprb,.257e-01_jprb,.243e-01_jprb,.201e-01_jprb,.173e-01_jprb,&
&.159e-01_jprb,.159e-01_jprb,.164e-01_jprb,.163e-01_jprb,.161e-01_jprb,.153e-01_jprb,.140e-01_jprb,&
&.122e-01_jprb,.107e-01_jprb,.117e-01_jprb,.327e-01_jprb,.812e-01_jprb,.136e+00_jprb,.147e+00_jprb,&
&.110e+00_jprb,.864e-01_jprb,.587e-01_jprb,.437e-01_jprb,.341e-01_jprb,.257e-01_jprb,.205e-01_jprb,&
&.176e-01_jprb,.160e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 17  26.0
zaer(:,17, 9) = (/&
&.182e-01_jprb,.171e-01_jprb,.164e-01_jprb,.155e-01_jprb,.146e-01_jprb,.134e-01_jprb,.123e-01_jprb,&
&.110e-01_jprb,.991e-02_jprb,.914e-02_jprb,.889e-02_jprb,.887e-02_jprb,.867e-02_jprb,.804e-02_jprb,&
&.770e-02_jprb,.716e-02_jprb,.694e-02_jprb,.690e-02_jprb,.709e-02_jprb,.761e-02_jprb,.831e-02_jprb,&
&.953e-02_jprb,.164e-01_jprb,.401e-01_jprb,.511e-01_jprb,.348e-01_jprb,.272e-01_jprb,.225e-01_jprb,&
&.190e-01_jprb,.162e-01_jprb,.146e-01_jprb,.136e-01_jprb,.128e-01_jprb,.121e-01_jprb,.118e-01_jprb,&
&.122e-01_jprb,.130e-01_jprb,.146e-01_jprb,.213e-01_jprb,.362e-01_jprb,.507e-01_jprb,.616e-01_jprb,&
&.538e-01_jprb,.414e-01_jprb,.373e-01_jprb,.453e-01_jprb,.365e-01_jprb,.283e-01_jprb,.251e-01_jprb,&
&.232e-01_jprb,.227e-01_jprb,.229e-01_jprb,.230e-01_jprb,.215e-01_jprb,.197e-01_jprb,.179e-01_jprb,&
&.163e-01_jprb,.158e-01_jprb,.238e-01_jprb,.618e-01_jprb,.100e+00_jprb,.132e+00_jprb,.135e+00_jprb,&
&.110e+00_jprb,.766e-01_jprb,.570e-01_jprb,.445e-01_jprb,.358e-01_jprb,.278e-01_jprb,.232e-01_jprb,&
&.207e-01_jprb,.193e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 18  22.0
zaer(:,18, 9) = (/&
&.166e-01_jprb,.154e-01_jprb,.143e-01_jprb,.135e-01_jprb,.125e-01_jprb,.116e-01_jprb,.111e-01_jprb,&
&.106e-01_jprb,.102e-01_jprb,.973e-02_jprb,.923e-02_jprb,.845e-02_jprb,.764e-02_jprb,.722e-02_jprb,&
&.733e-02_jprb,.701e-02_jprb,.697e-02_jprb,.705e-02_jprb,.735e-02_jprb,.793e-02_jprb,.854e-02_jprb,&
&.924e-02_jprb,.137e-01_jprb,.406e-01_jprb,.856e-01_jprb,.456e-01_jprb,.275e-01_jprb,.212e-01_jprb,&
&.173e-01_jprb,.145e-01_jprb,.128e-01_jprb,.119e-01_jprb,.114e-01_jprb,.110e-01_jprb,.113e-01_jprb,&
&.128e-01_jprb,.141e-01_jprb,.163e-01_jprb,.250e-01_jprb,.451e-01_jprb,.772e-01_jprb,.117e+00_jprb,&
&.718e-01_jprb,.447e-01_jprb,.451e-01_jprb,.592e-01_jprb,.378e-01_jprb,.291e-01_jprb,.266e-01_jprb,&
&.246e-01_jprb,.230e-01_jprb,.229e-01_jprb,.232e-01_jprb,.217e-01_jprb,.200e-01_jprb,.186e-01_jprb,&
&.179e-01_jprb,.197e-01_jprb,.349e-01_jprb,.686e-01_jprb,.913e-01_jprb,.106e+00_jprb,.935e-01_jprb,&
&.779e-01_jprb,.672e-01_jprb,.548e-01_jprb,.400e-01_jprb,.304e-01_jprb,.244e-01_jprb,.212e-01_jprb,&
&.196e-01_jprb,.181e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 19  18.0
zaer(:,19, 9) = (/&
&.118e-01_jprb,.106e-01_jprb,.977e-02_jprb,.895e-02_jprb,.825e-02_jprb,.783e-02_jprb,.811e-02_jprb,&
&.835e-02_jprb,.829e-02_jprb,.798e-02_jprb,.743e-02_jprb,.693e-02_jprb,.655e-02_jprb,.657e-02_jprb,&
&.689e-02_jprb,.683e-02_jprb,.686e-02_jprb,.704e-02_jprb,.730e-02_jprb,.763e-02_jprb,.791e-02_jprb,&
&.870e-02_jprb,.114e-01_jprb,.263e-01_jprb,.478e-01_jprb,.314e-01_jprb,.208e-01_jprb,.169e-01_jprb,&
&.149e-01_jprb,.131e-01_jprb,.120e-01_jprb,.115e-01_jprb,.115e-01_jprb,.118e-01_jprb,.129e-01_jprb,&
&.143e-01_jprb,.164e-01_jprb,.199e-01_jprb,.270e-01_jprb,.400e-01_jprb,.681e-01_jprb,.860e-01_jprb,&
&.523e-01_jprb,.434e-01_jprb,.519e-01_jprb,.543e-01_jprb,.325e-01_jprb,.268e-01_jprb,.233e-01_jprb,&
&.199e-01_jprb,.176e-01_jprb,.169e-01_jprb,.166e-01_jprb,.158e-01_jprb,.151e-01_jprb,.149e-01_jprb,&
&.161e-01_jprb,.210e-01_jprb,.320e-01_jprb,.413e-01_jprb,.512e-01_jprb,.647e-01_jprb,.645e-01_jprb,&
&.628e-01_jprb,.498e-01_jprb,.346e-01_jprb,.284e-01_jprb,.234e-01_jprb,.193e-01_jprb,.168e-01_jprb,&
&.154e-01_jprb,.134e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 20  14.0
zaer(:,20, 9) = (/&
&.618e-02_jprb,.593e-02_jprb,.574e-02_jprb,.558e-02_jprb,.573e-02_jprb,.593e-02_jprb,.634e-02_jprb,&
&.649e-02_jprb,.632e-02_jprb,.625e-02_jprb,.630e-02_jprb,.629e-02_jprb,.640e-02_jprb,.667e-02_jprb,&
&.681e-02_jprb,.679e-02_jprb,.692e-02_jprb,.713e-02_jprb,.726e-02_jprb,.750e-02_jprb,.795e-02_jprb,&
&.868e-02_jprb,.110e-01_jprb,.197e-01_jprb,.206e-01_jprb,.170e-01_jprb,.164e-01_jprb,.152e-01_jprb,&
&.139e-01_jprb,.133e-01_jprb,.132e-01_jprb,.134e-01_jprb,.140e-01_jprb,.150e-01_jprb,.160e-01_jprb,&
&.175e-01_jprb,.202e-01_jprb,.245e-01_jprb,.297e-01_jprb,.367e-01_jprb,.430e-01_jprb,.417e-01_jprb,&
&.400e-01_jprb,.388e-01_jprb,.380e-01_jprb,.323e-01_jprb,.255e-01_jprb,.205e-01_jprb,.167e-01_jprb,&
&.138e-01_jprb,.126e-01_jprb,.114e-01_jprb,.103e-01_jprb,.107e-01_jprb,.117e-01_jprb,.134e-01_jprb,&
&.164e-01_jprb,.204e-01_jprb,.238e-01_jprb,.236e-01_jprb,.265e-01_jprb,.328e-01_jprb,.356e-01_jprb,&
&.330e-01_jprb,.245e-01_jprb,.200e-01_jprb,.173e-01_jprb,.149e-01_jprb,.120e-01_jprb,.978e-02_jprb,&
&.862e-02_jprb,.704e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 21  10.0
zaer(:,21, 9) = (/&
&.410e-02_jprb,.435e-02_jprb,.447e-02_jprb,.458e-02_jprb,.489e-02_jprb,.526e-02_jprb,.570e-02_jprb,&
&.594e-02_jprb,.596e-02_jprb,.604e-02_jprb,.629e-02_jprb,.660e-02_jprb,.684e-02_jprb,.703e-02_jprb,&
&.732e-02_jprb,.754e-02_jprb,.768e-02_jprb,.792e-02_jprb,.837e-02_jprb,.896e-02_jprb,.937e-02_jprb,&
&.102e-01_jprb,.125e-01_jprb,.151e-01_jprb,.137e-01_jprb,.141e-01_jprb,.152e-01_jprb,.158e-01_jprb,&
&.153e-01_jprb,.150e-01_jprb,.156e-01_jprb,.162e-01_jprb,.170e-01_jprb,.177e-01_jprb,.185e-01_jprb,&
&.198e-01_jprb,.223e-01_jprb,.257e-01_jprb,.286e-01_jprb,.306e-01_jprb,.294e-01_jprb,.292e-01_jprb,&
&.305e-01_jprb,.300e-01_jprb,.261e-01_jprb,.208e-01_jprb,.167e-01_jprb,.132e-01_jprb,.106e-01_jprb,&
&.899e-02_jprb,.824e-02_jprb,.736e-02_jprb,.720e-02_jprb,.872e-02_jprb,.108e-01_jprb,.129e-01_jprb,&
&.152e-01_jprb,.169e-01_jprb,.172e-01_jprb,.166e-01_jprb,.167e-01_jprb,.166e-01_jprb,.148e-01_jprb,&
&.125e-01_jprb,.101e-01_jprb,.890e-02_jprb,.769e-02_jprb,.614e-02_jprb,.474e-02_jprb,.410e-02_jprb,&
&.391e-02_jprb,.375e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 22   6.0
zaer(:,22, 9) = (/&
&.349e-02_jprb,.385e-02_jprb,.415e-02_jprb,.450e-02_jprb,.497e-02_jprb,.542e-02_jprb,.584e-02_jprb,&
&.615e-02_jprb,.635e-02_jprb,.649e-02_jprb,.674e-02_jprb,.701e-02_jprb,.717e-02_jprb,.736e-02_jprb,&
&.767e-02_jprb,.800e-02_jprb,.846e-02_jprb,.896e-02_jprb,.962e-02_jprb,.100e-01_jprb,.102e-01_jprb,&
&.101e-01_jprb,.108e-01_jprb,.119e-01_jprb,.132e-01_jprb,.150e-01_jprb,.164e-01_jprb,.173e-01_jprb,&
&.177e-01_jprb,.169e-01_jprb,.167e-01_jprb,.175e-01_jprb,.181e-01_jprb,.185e-01_jprb,.190e-01_jprb,&
&.201e-01_jprb,.216e-01_jprb,.227e-01_jprb,.229e-01_jprb,.224e-01_jprb,.211e-01_jprb,.222e-01_jprb,&
&.260e-01_jprb,.255e-01_jprb,.191e-01_jprb,.146e-01_jprb,.111e-01_jprb,.846e-02_jprb,.628e-02_jprb,&
&.491e-02_jprb,.395e-02_jprb,.357e-02_jprb,.394e-02_jprb,.490e-02_jprb,.587e-02_jprb,.695e-02_jprb,&
&.825e-02_jprb,.911e-02_jprb,.911e-02_jprb,.873e-02_jprb,.799e-02_jprb,.614e-02_jprb,.472e-02_jprb,&
&.387e-02_jprb,.332e-02_jprb,.296e-02_jprb,.255e-02_jprb,.232e-02_jprb,.231e-02_jprb,.249e-02_jprb,&
&.275e-02_jprb,.310e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 23   2.0
zaer(:,23, 9) = (/&
&.295e-02_jprb,.333e-02_jprb,.371e-02_jprb,.413e-02_jprb,.457e-02_jprb,.498e-02_jprb,.531e-02_jprb,&
&.554e-02_jprb,.569e-02_jprb,.588e-02_jprb,.609e-02_jprb,.624e-02_jprb,.644e-02_jprb,.667e-02_jprb,&
&.687e-02_jprb,.705e-02_jprb,.753e-02_jprb,.802e-02_jprb,.844e-02_jprb,.909e-02_jprb,.937e-02_jprb,&
&.905e-02_jprb,.973e-02_jprb,.113e-01_jprb,.131e-01_jprb,.151e-01_jprb,.172e-01_jprb,.182e-01_jprb,&
&.163e-01_jprb,.149e-01_jprb,.153e-01_jprb,.157e-01_jprb,.164e-01_jprb,.171e-01_jprb,.180e-01_jprb,&
&.195e-01_jprb,.209e-01_jprb,.225e-01_jprb,.236e-01_jprb,.252e-01_jprb,.269e-01_jprb,.310e-01_jprb,&
&.359e-01_jprb,.354e-01_jprb,.269e-01_jprb,.171e-01_jprb,.108e-01_jprb,.681e-02_jprb,.432e-02_jprb,&
&.296e-02_jprb,.222e-02_jprb,.202e-02_jprb,.201e-02_jprb,.218e-02_jprb,.245e-02_jprb,.289e-02_jprb,&
&.329e-02_jprb,.343e-02_jprb,.328e-02_jprb,.294e-02_jprb,.234e-02_jprb,.167e-02_jprb,.149e-02_jprb,&
&.139e-02_jprb,.133e-02_jprb,.131e-02_jprb,.134e-02_jprb,.149e-02_jprb,.174e-02_jprb,.202e-02_jprb,&
&.231e-02_jprb,.261e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 24  -2.0
zaer(:,24, 9) = (/&
&.201e-02_jprb,.220e-02_jprb,.243e-02_jprb,.269e-02_jprb,.299e-02_jprb,.331e-02_jprb,.362e-02_jprb,&
&.391e-02_jprb,.418e-02_jprb,.437e-02_jprb,.448e-02_jprb,.452e-02_jprb,.456e-02_jprb,.468e-02_jprb,&
&.482e-02_jprb,.485e-02_jprb,.498e-02_jprb,.529e-02_jprb,.564e-02_jprb,.590e-02_jprb,.659e-02_jprb,&
&.736e-02_jprb,.826e-02_jprb,.934e-02_jprb,.104e-01_jprb,.112e-01_jprb,.116e-01_jprb,.113e-01_jprb,&
&.110e-01_jprb,.111e-01_jprb,.113e-01_jprb,.116e-01_jprb,.120e-01_jprb,.128e-01_jprb,.141e-01_jprb,&
&.165e-01_jprb,.192e-01_jprb,.217e-01_jprb,.260e-01_jprb,.334e-01_jprb,.424e-01_jprb,.519e-01_jprb,&
&.617e-01_jprb,.676e-01_jprb,.618e-01_jprb,.506e-01_jprb,.303e-01_jprb,.139e-01_jprb,.835e-02_jprb,&
&.620e-02_jprb,.446e-02_jprb,.319e-02_jprb,.240e-02_jprb,.177e-02_jprb,.136e-02_jprb,.124e-02_jprb,&
&.119e-02_jprb,.109e-02_jprb,.103e-02_jprb,.902e-03_jprb,.765e-03_jprb,.666e-03_jprb,.664e-03_jprb,&
&.677e-03_jprb,.703e-03_jprb,.762e-03_jprb,.851e-03_jprb,.974e-03_jprb,.114e-02_jprb,.135e-02_jprb,&
&.156e-02_jprb,.179e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 25  -6.0
zaer(:,25, 9) = (/&
&.130e-02_jprb,.142e-02_jprb,.157e-02_jprb,.176e-02_jprb,.199e-02_jprb,.223e-02_jprb,.246e-02_jprb,&
&.272e-02_jprb,.298e-02_jprb,.315e-02_jprb,.315e-02_jprb,.305e-02_jprb,.298e-02_jprb,.292e-02_jprb,&
&.286e-02_jprb,.279e-02_jprb,.274e-02_jprb,.288e-02_jprb,.303e-02_jprb,.377e-02_jprb,.492e-02_jprb,&
&.614e-02_jprb,.701e-02_jprb,.800e-02_jprb,.909e-02_jprb,.101e-01_jprb,.109e-01_jprb,.107e-01_jprb,&
&.105e-01_jprb,.104e-01_jprb,.103e-01_jprb,.103e-01_jprb,.100e-01_jprb,.109e-01_jprb,.130e-01_jprb,&
&.167e-01_jprb,.211e-01_jprb,.260e-01_jprb,.343e-01_jprb,.458e-01_jprb,.616e-01_jprb,.836e-01_jprb,&
&.109e+00_jprb,.139e+00_jprb,.167e+00_jprb,.219e+00_jprb,.287e+00_jprb,.783e-01_jprb,.307e-01_jprb,&
&.212e-01_jprb,.177e-01_jprb,.148e-01_jprb,.102e-01_jprb,.518e-02_jprb,.239e-02_jprb,.109e-02_jprb,&
&.646e-03_jprb,.391e-03_jprb,.405e-03_jprb,.422e-03_jprb,.412e-03_jprb,.364e-03_jprb,.341e-03_jprb,&
&.357e-03_jprb,.394e-03_jprb,.439e-03_jprb,.504e-03_jprb,.588e-03_jprb,.686e-03_jprb,.829e-03_jprb,&
&.985e-03_jprb,.116e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 26 -10.0
zaer(:,26, 9) = (/&
&.101e-02_jprb,.110e-02_jprb,.116e-02_jprb,.125e-02_jprb,.138e-02_jprb,.157e-02_jprb,.173e-02_jprb,&
&.192e-02_jprb,.217e-02_jprb,.237e-02_jprb,.241e-02_jprb,.221e-02_jprb,.197e-02_jprb,.166e-02_jprb,&
&.141e-02_jprb,.133e-02_jprb,.137e-02_jprb,.151e-02_jprb,.185e-02_jprb,.265e-02_jprb,.412e-02_jprb,&
&.597e-02_jprb,.756e-02_jprb,.870e-02_jprb,.101e-01_jprb,.118e-01_jprb,.132e-01_jprb,.135e-01_jprb,&
&.142e-01_jprb,.151e-01_jprb,.153e-01_jprb,.148e-01_jprb,.140e-01_jprb,.159e-01_jprb,.188e-01_jprb,&
&.233e-01_jprb,.297e-01_jprb,.380e-01_jprb,.519e-01_jprb,.686e-01_jprb,.912e-01_jprb,.119e+00_jprb,&
&.154e+00_jprb,.206e+00_jprb,.267e+00_jprb,.397e+00_jprb,.697e+00_jprb,.314e+00_jprb,.117e+00_jprb,&
&.833e-01_jprb,.811e-01_jprb,.801e-01_jprb,.538e-01_jprb,.251e-01_jprb,.967e-02_jprb,.543e-02_jprb,&
&.260e-02_jprb,.971e-03_jprb,.566e-03_jprb,.625e-03_jprb,.772e-03_jprb,.629e-03_jprb,.404e-03_jprb,&
&.314e-03_jprb,.281e-03_jprb,.325e-03_jprb,.428e-03_jprb,.483e-03_jprb,.545e-03_jprb,.608e-03_jprb,&
&.678e-03_jprb,.832e-03_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 27 -14.0
zaer(:,27, 9) = (/&
&.122e-02_jprb,.131e-02_jprb,.138e-02_jprb,.148e-02_jprb,.160e-02_jprb,.183e-02_jprb,.210e-02_jprb,&
&.243e-02_jprb,.287e-02_jprb,.341e-02_jprb,.378e-02_jprb,.370e-02_jprb,.343e-02_jprb,.298e-02_jprb,&
&.192e-02_jprb,.170e-02_jprb,.173e-02_jprb,.180e-02_jprb,.207e-02_jprb,.307e-02_jprb,.485e-02_jprb,&
&.715e-02_jprb,.931e-02_jprb,.107e-01_jprb,.118e-01_jprb,.132e-01_jprb,.157e-01_jprb,.186e-01_jprb,&
&.215e-01_jprb,.240e-01_jprb,.267e-01_jprb,.296e-01_jprb,.343e-01_jprb,.381e-01_jprb,.411e-01_jprb,&
&.488e-01_jprb,.601e-01_jprb,.717e-01_jprb,.908e-01_jprb,.111e+00_jprb,.138e+00_jprb,.161e+00_jprb,&
&.201e+00_jprb,.253e+00_jprb,.305e+00_jprb,.368e+00_jprb,.480e+00_jprb,.388e+00_jprb,.216e+00_jprb,&
&.157e+00_jprb,.155e+00_jprb,.151e+00_jprb,.114e+00_jprb,.698e-01_jprb,.347e-01_jprb,.208e-01_jprb,&
&.128e-01_jprb,.594e-02_jprb,.255e-02_jprb,.235e-02_jprb,.280e-02_jprb,.271e-02_jprb,.147e-02_jprb,&
&.736e-03_jprb,.481e-03_jprb,.473e-03_jprb,.762e-03_jprb,.958e-03_jprb,.997e-03_jprb,.918e-03_jprb,&
&.862e-03_jprb,.100e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 28 -18.0
zaer(:,28, 9) = (/&
&.241e-02_jprb,.231e-02_jprb,.235e-02_jprb,.246e-02_jprb,.277e-02_jprb,.332e-02_jprb,.377e-02_jprb,&
&.402e-02_jprb,.442e-02_jprb,.493e-02_jprb,.555e-02_jprb,.593e-02_jprb,.652e-02_jprb,.752e-02_jprb,&
&.769e-02_jprb,.447e-02_jprb,.381e-02_jprb,.386e-02_jprb,.358e-02_jprb,.406e-02_jprb,.520e-02_jprb,&
&.686e-02_jprb,.896e-02_jprb,.108e-01_jprb,.115e-01_jprb,.121e-01_jprb,.142e-01_jprb,.177e-01_jprb,&
&.215e-01_jprb,.256e-01_jprb,.312e-01_jprb,.408e-01_jprb,.603e-01_jprb,.705e-01_jprb,.721e-01_jprb,&
&.823e-01_jprb,.921e-01_jprb,.107e+00_jprb,.133e+00_jprb,.161e+00_jprb,.185e+00_jprb,.213e+00_jprb,&
&.265e+00_jprb,.288e+00_jprb,.321e+00_jprb,.387e+00_jprb,.402e+00_jprb,.416e+00_jprb,.317e+00_jprb,&
&.220e+00_jprb,.191e+00_jprb,.176e+00_jprb,.140e+00_jprb,.108e+00_jprb,.693e-01_jprb,.445e-01_jprb,&
&.292e-01_jprb,.144e-01_jprb,.770e-02_jprb,.668e-02_jprb,.798e-02_jprb,.859e-02_jprb,.586e-02_jprb,&
&.336e-02_jprb,.174e-02_jprb,.112e-02_jprb,.139e-02_jprb,.190e-02_jprb,.226e-02_jprb,.221e-02_jprb,&
&.206e-02_jprb,.225e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 29 -22.0
zaer(:,29, 9) = (/&
&.504e-02_jprb,.467e-02_jprb,.453e-02_jprb,.451e-02_jprb,.485e-02_jprb,.562e-02_jprb,.635e-02_jprb,&
&.656e-02_jprb,.634e-02_jprb,.612e-02_jprb,.627e-02_jprb,.690e-02_jprb,.822e-02_jprb,.119e-01_jprb,&
&.146e-01_jprb,.883e-02_jprb,.669e-02_jprb,.649e-02_jprb,.643e-02_jprb,.583e-02_jprb,.571e-02_jprb,&
&.608e-02_jprb,.806e-02_jprb,.916e-02_jprb,.961e-02_jprb,.942e-02_jprb,.106e-01_jprb,.133e-01_jprb,&
&.154e-01_jprb,.167e-01_jprb,.196e-01_jprb,.265e-01_jprb,.492e-01_jprb,.889e-01_jprb,.962e-01_jprb,&
&.108e+00_jprb,.118e+00_jprb,.123e+00_jprb,.159e+00_jprb,.171e+00_jprb,.170e+00_jprb,.197e+00_jprb,&
&.253e+00_jprb,.263e+00_jprb,.279e+00_jprb,.306e+00_jprb,.290e+00_jprb,.308e+00_jprb,.326e+00_jprb,&
&.265e+00_jprb,.216e+00_jprb,.189e+00_jprb,.155e+00_jprb,.126e+00_jprb,.895e-01_jprb,.642e-01_jprb,&
&.426e-01_jprb,.219e-01_jprb,.139e-01_jprb,.123e-01_jprb,.144e-01_jprb,.165e-01_jprb,.155e-01_jprb,&
&.115e-01_jprb,.702e-02_jprb,.369e-02_jprb,.266e-02_jprb,.328e-02_jprb,.421e-02_jprb,.479e-02_jprb,&
&.508e-02_jprb,.518e-02_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 30 -26.0
zaer(:,30, 9) = (/&
&.956e-02_jprb,.877e-02_jprb,.859e-02_jprb,.865e-02_jprb,.884e-02_jprb,.917e-02_jprb,.101e-01_jprb,&
&.107e-01_jprb,.103e-01_jprb,.880e-02_jprb,.793e-02_jprb,.818e-02_jprb,.104e-01_jprb,.173e-01_jprb,&
&.153e-01_jprb,.975e-02_jprb,.866e-02_jprb,.811e-02_jprb,.901e-02_jprb,.868e-02_jprb,.785e-02_jprb,&
&.729e-02_jprb,.770e-02_jprb,.782e-02_jprb,.820e-02_jprb,.776e-02_jprb,.785e-02_jprb,.877e-02_jprb,&
&.885e-02_jprb,.796e-02_jprb,.804e-02_jprb,.104e-01_jprb,.217e-01_jprb,.654e-01_jprb,.102e+00_jprb,&
&.121e+00_jprb,.133e+00_jprb,.136e+00_jprb,.171e+00_jprb,.165e+00_jprb,.158e+00_jprb,.173e+00_jprb,&
&.189e+00_jprb,.199e+00_jprb,.216e+00_jprb,.236e+00_jprb,.254e+00_jprb,.264e+00_jprb,.278e+00_jprb,&
&.269e+00_jprb,.235e+00_jprb,.187e+00_jprb,.153e+00_jprb,.126e+00_jprb,.872e-01_jprb,.675e-01_jprb,&
&.520e-01_jprb,.319e-01_jprb,.203e-01_jprb,.179e-01_jprb,.204e-01_jprb,.265e-01_jprb,.306e-01_jprb,&
&.274e-01_jprb,.204e-01_jprb,.131e-01_jprb,.899e-02_jprb,.803e-02_jprb,.883e-02_jprb,.989e-02_jprb,&
&.106e-01_jprb,.104e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 31 -30.0
zaer(:,31, 9) = (/&
&.125e-01_jprb,.123e-01_jprb,.122e-01_jprb,.124e-01_jprb,.131e-01_jprb,.136e-01_jprb,.141e-01_jprb,&
&.144e-01_jprb,.136e-01_jprb,.124e-01_jprb,.115e-01_jprb,.110e-01_jprb,.135e-01_jprb,.179e-01_jprb,&
&.124e-01_jprb,.121e-01_jprb,.129e-01_jprb,.103e-01_jprb,.103e-01_jprb,.107e-01_jprb,.953e-02_jprb,&
&.838e-02_jprb,.779e-02_jprb,.720e-02_jprb,.681e-02_jprb,.683e-02_jprb,.629e-02_jprb,.641e-02_jprb,&
&.698e-02_jprb,.695e-02_jprb,.669e-02_jprb,.738e-02_jprb,.991e-02_jprb,.199e-01_jprb,.517e-01_jprb,&
&.771e-01_jprb,.918e-01_jprb,.119e+00_jprb,.151e+00_jprb,.127e+00_jprb,.134e+00_jprb,.148e+00_jprb,&
&.138e+00_jprb,.138e+00_jprb,.172e+00_jprb,.223e+00_jprb,.247e+00_jprb,.239e+00_jprb,.260e+00_jprb,&
&.261e+00_jprb,.233e+00_jprb,.175e+00_jprb,.147e+00_jprb,.123e+00_jprb,.791e-01_jprb,.654e-01_jprb,&
&.517e-01_jprb,.370e-01_jprb,.237e-01_jprb,.202e-01_jprb,.221e-01_jprb,.316e-01_jprb,.394e-01_jprb,&
&.373e-01_jprb,.329e-01_jprb,.257e-01_jprb,.194e-01_jprb,.164e-01_jprb,.158e-01_jprb,.159e-01_jprb,&
&.151e-01_jprb,.135e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 32 -34.0
zaer(:,32, 9) = (/&
&.143e-01_jprb,.139e-01_jprb,.143e-01_jprb,.149e-01_jprb,.159e-01_jprb,.170e-01_jprb,.164e-01_jprb,&
&.157e-01_jprb,.150e-01_jprb,.141e-01_jprb,.145e-01_jprb,.154e-01_jprb,.181e-01_jprb,.170e-01_jprb,&
&.132e-01_jprb,.138e-01_jprb,.173e-01_jprb,.146e-01_jprb,.124e-01_jprb,.125e-01_jprb,.114e-01_jprb,&
&.100e-01_jprb,.894e-02_jprb,.767e-02_jprb,.675e-02_jprb,.693e-02_jprb,.652e-02_jprb,.670e-02_jprb,&
&.743e-02_jprb,.735e-02_jprb,.713e-02_jprb,.740e-02_jprb,.801e-02_jprb,.947e-02_jprb,.194e-01_jprb,&
&.444e-01_jprb,.743e-01_jprb,.947e-01_jprb,.107e+00_jprb,.100e+00_jprb,.106e+00_jprb,.108e+00_jprb,&
&.103e+00_jprb,.106e+00_jprb,.134e+00_jprb,.169e+00_jprb,.202e+00_jprb,.227e+00_jprb,.233e+00_jprb,&
&.244e+00_jprb,.211e+00_jprb,.173e+00_jprb,.144e+00_jprb,.112e+00_jprb,.884e-01_jprb,.849e-01_jprb,&
&.657e-01_jprb,.440e-01_jprb,.259e-01_jprb,.197e-01_jprb,.234e-01_jprb,.347e-01_jprb,.393e-01_jprb,&
&.332e-01_jprb,.319e-01_jprb,.303e-01_jprb,.263e-01_jprb,.238e-01_jprb,.214e-01_jprb,.199e-01_jprb,&
&.182e-01_jprb,.157e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 33 -38.0
zaer(:,33, 9) = (/&
&.178e-01_jprb,.172e-01_jprb,.173e-01_jprb,.177e-01_jprb,.184e-01_jprb,.178e-01_jprb,.166e-01_jprb,&
&.157e-01_jprb,.153e-01_jprb,.149e-01_jprb,.158e-01_jprb,.185e-01_jprb,.210e-01_jprb,.189e-01_jprb,&
&.161e-01_jprb,.181e-01_jprb,.209e-01_jprb,.176e-01_jprb,.155e-01_jprb,.147e-01_jprb,.134e-01_jprb,&
&.122e-01_jprb,.114e-01_jprb,.985e-02_jprb,.862e-02_jprb,.846e-02_jprb,.849e-02_jprb,.859e-02_jprb,&
&.859e-02_jprb,.828e-02_jprb,.814e-02_jprb,.820e-02_jprb,.840e-02_jprb,.851e-02_jprb,.140e-01_jprb,&
&.329e-01_jprb,.594e-01_jprb,.717e-01_jprb,.723e-01_jprb,.796e-01_jprb,.841e-01_jprb,.783e-01_jprb,&
&.845e-01_jprb,.938e-01_jprb,.104e+00_jprb,.147e+00_jprb,.258e+00_jprb,.282e+00_jprb,.223e+00_jprb,&
&.162e+00_jprb,.140e+00_jprb,.134e+00_jprb,.137e+00_jprb,.121e+00_jprb,.101e+00_jprb,.976e-01_jprb,&
&.949e-01_jprb,.651e-01_jprb,.425e-01_jprb,.310e-01_jprb,.303e-01_jprb,.409e-01_jprb,.445e-01_jprb,&
&.345e-01_jprb,.294e-01_jprb,.274e-01_jprb,.276e-01_jprb,.277e-01_jprb,.253e-01_jprb,.228e-01_jprb,&
&.202e-01_jprb,.188e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 34 -42.0
zaer(:,34, 9) = (/&
&.226e-01_jprb,.221e-01_jprb,.219e-01_jprb,.214e-01_jprb,.199e-01_jprb,.179e-01_jprb,.171e-01_jprb,&
&.167e-01_jprb,.162e-01_jprb,.158e-01_jprb,.164e-01_jprb,.184e-01_jprb,.209e-01_jprb,.216e-01_jprb,&
&.206e-01_jprb,.286e-01_jprb,.381e-01_jprb,.255e-01_jprb,.192e-01_jprb,.165e-01_jprb,.157e-01_jprb,&
&.151e-01_jprb,.138e-01_jprb,.126e-01_jprb,.114e-01_jprb,.108e-01_jprb,.105e-01_jprb,.997e-02_jprb,&
&.949e-02_jprb,.921e-02_jprb,.917e-02_jprb,.912e-02_jprb,.915e-02_jprb,.924e-02_jprb,.122e-01_jprb,&
&.203e-01_jprb,.330e-01_jprb,.472e-01_jprb,.519e-01_jprb,.545e-01_jprb,.594e-01_jprb,.686e-01_jprb,&
&.876e-01_jprb,.107e+00_jprb,.126e+00_jprb,.214e+00_jprb,.344e+00_jprb,.345e+00_jprb,.227e+00_jprb,&
&.140e+00_jprb,.116e+00_jprb,.119e+00_jprb,.122e+00_jprb,.116e+00_jprb,.111e+00_jprb,.117e+00_jprb,&
&.153e+00_jprb,.149e+00_jprb,.108e+00_jprb,.851e-01_jprb,.639e-01_jprb,.557e-01_jprb,.501e-01_jprb,&
&.409e-01_jprb,.363e-01_jprb,.327e-01_jprb,.310e-01_jprb,.294e-01_jprb,.279e-01_jprb,.252e-01_jprb,&
&.230e-01_jprb,.226e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 35 -46.0
zaer(:,35, 9) = (/&
&.255e-01_jprb,.251e-01_jprb,.246e-01_jprb,.231e-01_jprb,.211e-01_jprb,.187e-01_jprb,.176e-01_jprb,&
&.172e-01_jprb,.169e-01_jprb,.167e-01_jprb,.174e-01_jprb,.190e-01_jprb,.206e-01_jprb,.218e-01_jprb,&
&.223e-01_jprb,.287e-01_jprb,.363e-01_jprb,.285e-01_jprb,.222e-01_jprb,.187e-01_jprb,.174e-01_jprb,&
&.168e-01_jprb,.150e-01_jprb,.139e-01_jprb,.129e-01_jprb,.118e-01_jprb,.111e-01_jprb,.103e-01_jprb,&
&.974e-02_jprb,.972e-02_jprb,.994e-02_jprb,.995e-02_jprb,.987e-02_jprb,.100e-01_jprb,.112e-01_jprb,&
&.132e-01_jprb,.197e-01_jprb,.286e-01_jprb,.333e-01_jprb,.342e-01_jprb,.329e-01_jprb,.335e-01_jprb,&
&.503e-01_jprb,.791e-01_jprb,.123e+00_jprb,.223e+00_jprb,.279e+00_jprb,.271e+00_jprb,.226e+00_jprb,&
&.141e+00_jprb,.117e+00_jprb,.126e+00_jprb,.129e+00_jprb,.105e+00_jprb,.111e+00_jprb,.143e+00_jprb,&
&.157e+00_jprb,.164e+00_jprb,.174e+00_jprb,.159e+00_jprb,.109e+00_jprb,.670e-01_jprb,.531e-01_jprb,&
&.443e-01_jprb,.401e-01_jprb,.374e-01_jprb,.361e-01_jprb,.346e-01_jprb,.319e-01_jprb,.290e-01_jprb,&
&.269e-01_jprb,.260e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 36 -50.0
zaer(:,36, 9) = (/&
&.260e-01_jprb,.250e-01_jprb,.249e-01_jprb,.241e-01_jprb,.223e-01_jprb,.205e-01_jprb,.188e-01_jprb,&
&.179e-01_jprb,.175e-01_jprb,.173e-01_jprb,.180e-01_jprb,.188e-01_jprb,.192e-01_jprb,.195e-01_jprb,&
&.205e-01_jprb,.221e-01_jprb,.239e-01_jprb,.223e-01_jprb,.207e-01_jprb,.195e-01_jprb,.184e-01_jprb,&
&.170e-01_jprb,.149e-01_jprb,.135e-01_jprb,.126e-01_jprb,.117e-01_jprb,.112e-01_jprb,.108e-01_jprb,&
&.103e-01_jprb,.101e-01_jprb,.100e-01_jprb,.976e-02_jprb,.967e-02_jprb,.972e-02_jprb,.101e-01_jprb,&
&.107e-01_jprb,.127e-01_jprb,.178e-01_jprb,.218e-01_jprb,.239e-01_jprb,.228e-01_jprb,.213e-01_jprb,&
&.232e-01_jprb,.289e-01_jprb,.369e-01_jprb,.659e-01_jprb,.105e+00_jprb,.151e+00_jprb,.187e+00_jprb,&
&.185e+00_jprb,.185e+00_jprb,.139e+00_jprb,.107e+00_jprb,.855e-01_jprb,.817e-01_jprb,.935e-01_jprb,&
&.977e-01_jprb,.103e+00_jprb,.134e+00_jprb,.147e+00_jprb,.104e+00_jprb,.679e-01_jprb,.509e-01_jprb,&
&.420e-01_jprb,.386e-01_jprb,.361e-01_jprb,.337e-01_jprb,.319e-01_jprb,.310e-01_jprb,.302e-01_jprb,&
&.291e-01_jprb,.275e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 37 -54.0
zaer(:,37, 9) = (/&
&.245e-01_jprb,.241e-01_jprb,.235e-01_jprb,.228e-01_jprb,.218e-01_jprb,.206e-01_jprb,.192e-01_jprb,&
&.181e-01_jprb,.175e-01_jprb,.169e-01_jprb,.167e-01_jprb,.169e-01_jprb,.164e-01_jprb,.164e-01_jprb,&
&.166e-01_jprb,.167e-01_jprb,.178e-01_jprb,.181e-01_jprb,.176e-01_jprb,.170e-01_jprb,.166e-01_jprb,&
&.160e-01_jprb,.147e-01_jprb,.134e-01_jprb,.126e-01_jprb,.122e-01_jprb,.114e-01_jprb,.106e-01_jprb,&
&.101e-01_jprb,.967e-02_jprb,.920e-02_jprb,.873e-02_jprb,.851e-02_jprb,.847e-02_jprb,.856e-02_jprb,&
&.903e-02_jprb,.955e-02_jprb,.110e-01_jprb,.137e-01_jprb,.159e-01_jprb,.170e-01_jprb,.171e-01_jprb,&
&.179e-01_jprb,.196e-01_jprb,.205e-01_jprb,.230e-01_jprb,.326e-01_jprb,.546e-01_jprb,.859e-01_jprb,&
&.125e+00_jprb,.146e+00_jprb,.119e+00_jprb,.811e-01_jprb,.654e-01_jprb,.629e-01_jprb,.635e-01_jprb,&
&.625e-01_jprb,.692e-01_jprb,.780e-01_jprb,.735e-01_jprb,.633e-01_jprb,.533e-01_jprb,.456e-01_jprb,&
&.391e-01_jprb,.337e-01_jprb,.294e-01_jprb,.267e-01_jprb,.255e-01_jprb,.254e-01_jprb,.253e-01_jprb,&
&.249e-01_jprb,.247e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 38 -58.0
zaer(:,38, 9) = (/&
&.188e-01_jprb,.191e-01_jprb,.190e-01_jprb,.188e-01_jprb,.189e-01_jprb,.184e-01_jprb,.174e-01_jprb,&
&.163e-01_jprb,.152e-01_jprb,.143e-01_jprb,.137e-01_jprb,.134e-01_jprb,.136e-01_jprb,.144e-01_jprb,&
&.138e-01_jprb,.138e-01_jprb,.142e-01_jprb,.156e-01_jprb,.159e-01_jprb,.156e-01_jprb,.151e-01_jprb,&
&.150e-01_jprb,.151e-01_jprb,.145e-01_jprb,.135e-01_jprb,.126e-01_jprb,.114e-01_jprb,.104e-01_jprb,&
&.949e-02_jprb,.876e-02_jprb,.859e-02_jprb,.820e-02_jprb,.786e-02_jprb,.762e-02_jprb,.764e-02_jprb,&
&.799e-02_jprb,.832e-02_jprb,.863e-02_jprb,.939e-02_jprb,.105e-01_jprb,.114e-01_jprb,.121e-01_jprb,&
&.125e-01_jprb,.131e-01_jprb,.131e-01_jprb,.135e-01_jprb,.157e-01_jprb,.206e-01_jprb,.298e-01_jprb,&
&.463e-01_jprb,.701e-01_jprb,.801e-01_jprb,.658e-01_jprb,.490e-01_jprb,.434e-01_jprb,.435e-01_jprb,&
&.420e-01_jprb,.410e-01_jprb,.415e-01_jprb,.413e-01_jprb,.385e-01_jprb,.356e-01_jprb,.323e-01_jprb,&
&.290e-01_jprb,.256e-01_jprb,.222e-01_jprb,.201e-01_jprb,.192e-01_jprb,.198e-01_jprb,.193e-01_jprb,&
&.184e-01_jprb,.184e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 39 -62.0
zaer(:,39, 9) = (/&
&.138e-01_jprb,.137e-01_jprb,.141e-01_jprb,.148e-01_jprb,.152e-01_jprb,.152e-01_jprb,.146e-01_jprb,&
&.139e-01_jprb,.133e-01_jprb,.127e-01_jprb,.126e-01_jprb,.130e-01_jprb,.136e-01_jprb,.137e-01_jprb,&
&.138e-01_jprb,.141e-01_jprb,.150e-01_jprb,.154e-01_jprb,.142e-01_jprb,.149e-01_jprb,.150e-01_jprb,&
&.146e-01_jprb,.143e-01_jprb,.138e-01_jprb,.126e-01_jprb,.116e-01_jprb,.109e-01_jprb,.105e-01_jprb,&
&.926e-02_jprb,.820e-02_jprb,.800e-02_jprb,.774e-02_jprb,.762e-02_jprb,.782e-02_jprb,.802e-02_jprb,&
&.798e-02_jprb,.805e-02_jprb,.821e-02_jprb,.835e-02_jprb,.849e-02_jprb,.884e-02_jprb,.917e-02_jprb,&
&.918e-02_jprb,.920e-02_jprb,.937e-02_jprb,.928e-02_jprb,.976e-02_jprb,.109e-01_jprb,.132e-01_jprb,&
&.183e-01_jprb,.265e-01_jprb,.401e-01_jprb,.404e-01_jprb,.379e-01_jprb,.365e-01_jprb,.352e-01_jprb,&
&.321e-01_jprb,.299e-01_jprb,.288e-01_jprb,.283e-01_jprb,.270e-01_jprb,.253e-01_jprb,.235e-01_jprb,&
&.214e-01_jprb,.196e-01_jprb,.183e-01_jprb,.167e-01_jprb,.157e-01_jprb,.164e-01_jprb,.175e-01_jprb,&
&.154e-01_jprb,.144e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 40 -66.0
zaer(:,40, 9) = (/&
&.119e-01_jprb,.114e-01_jprb,.115e-01_jprb,.124e-01_jprb,.125e-01_jprb,.125e-01_jprb,.125e-01_jprb,&
&.124e-01_jprb,.123e-01_jprb,.124e-01_jprb,.131e-01_jprb,.143e-01_jprb,.158e-01_jprb,.156e-01_jprb,&
&.157e-01_jprb,.165e-01_jprb,.159e-01_jprb,.132e-01_jprb,.119e-01_jprb,.125e-01_jprb,.128e-01_jprb,&
&.136e-01_jprb,.132e-01_jprb,.123e-01_jprb,.111e-01_jprb,.107e-01_jprb,.105e-01_jprb,.104e-01_jprb,&
&.970e-02_jprb,.903e-02_jprb,.851e-02_jprb,.801e-02_jprb,.799e-02_jprb,.826e-02_jprb,.848e-02_jprb,&
&.845e-02_jprb,.848e-02_jprb,.831e-02_jprb,.804e-02_jprb,.799e-02_jprb,.800e-02_jprb,.802e-02_jprb,&
&.806e-02_jprb,.791e-02_jprb,.777e-02_jprb,.785e-02_jprb,.792e-02_jprb,.839e-02_jprb,.974e-02_jprb,&
&.117e-01_jprb,.143e-01_jprb,.170e-01_jprb,.206e-01_jprb,.229e-01_jprb,.235e-01_jprb,.232e-01_jprb,&
&.239e-01_jprb,.240e-01_jprb,.231e-01_jprb,.221e-01_jprb,.209e-01_jprb,.199e-01_jprb,.190e-01_jprb,&
&.179e-01_jprb,.168e-01_jprb,.158e-01_jprb,.149e-01_jprb,.139e-01_jprb,.136e-01_jprb,.144e-01_jprb,&
&.144e-01_jprb,.134e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 41 -70.0
zaer(:,41, 9) = (/&
&.113e-01_jprb,.114e-01_jprb,.112e-01_jprb,.113e-01_jprb,.111e-01_jprb,.112e-01_jprb,.112e-01_jprb,&
&.113e-01_jprb,.114e-01_jprb,.118e-01_jprb,.121e-01_jprb,.124e-01_jprb,.137e-01_jprb,.149e-01_jprb,&
&.156e-01_jprb,.182e-01_jprb,.161e-01_jprb,.124e-01_jprb,.109e-01_jprb,.110e-01_jprb,.116e-01_jprb,&
&.117e-01_jprb,.114e-01_jprb,.108e-01_jprb,.101e-01_jprb,.993e-02_jprb,.991e-02_jprb,.975e-02_jprb,&
&.995e-02_jprb,.100e-01_jprb,.988e-02_jprb,.905e-02_jprb,.852e-02_jprb,.885e-02_jprb,.940e-02_jprb,&
&.938e-02_jprb,.922e-02_jprb,.887e-02_jprb,.837e-02_jprb,.828e-02_jprb,.830e-02_jprb,.833e-02_jprb,&
&.833e-02_jprb,.831e-02_jprb,.851e-02_jprb,.890e-02_jprb,.907e-02_jprb,.933e-02_jprb,.100e-01_jprb,&
&.107e-01_jprb,.115e-01_jprb,.125e-01_jprb,.137e-01_jprb,.156e-01_jprb,.170e-01_jprb,.164e-01_jprb,&
&.159e-01_jprb,.159e-01_jprb,.160e-01_jprb,.161e-01_jprb,.155e-01_jprb,.147e-01_jprb,.143e-01_jprb,&
&.144e-01_jprb,.140e-01_jprb,.135e-01_jprb,.130e-01_jprb,.122e-01_jprb,.118e-01_jprb,.113e-01_jprb,&
&.109e-01_jprb,.111e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 42 -74.0
zaer(:,42, 9) = (/&
&.120e-01_jprb,.122e-01_jprb,.120e-01_jprb,.117e-01_jprb,.114e-01_jprb,.114e-01_jprb,.117e-01_jprb,&
&.119e-01_jprb,.120e-01_jprb,.118e-01_jprb,.113e-01_jprb,.114e-01_jprb,.124e-01_jprb,.124e-01_jprb,&
&.139e-01_jprb,.191e-01_jprb,.220e-01_jprb,.168e-01_jprb,.132e-01_jprb,.113e-01_jprb,.108e-01_jprb,&
&.104e-01_jprb,.101e-01_jprb,.969e-02_jprb,.948e-02_jprb,.945e-02_jprb,.968e-02_jprb,.985e-02_jprb,&
&.100e-01_jprb,.103e-01_jprb,.103e-01_jprb,.974e-02_jprb,.912e-02_jprb,.924e-02_jprb,.101e-01_jprb,&
&.103e-01_jprb,.104e-01_jprb,.106e-01_jprb,.106e-01_jprb,.107e-01_jprb,.103e-01_jprb,.104e-01_jprb,&
&.110e-01_jprb,.121e-01_jprb,.128e-01_jprb,.134e-01_jprb,.143e-01_jprb,.120e-01_jprb,.103e-01_jprb,&
&.100e-01_jprb,.106e-01_jprb,.116e-01_jprb,.133e-01_jprb,.160e-01_jprb,.175e-01_jprb,.163e-01_jprb,&
&.142e-01_jprb,.147e-01_jprb,.156e-01_jprb,.153e-01_jprb,.151e-01_jprb,.146e-01_jprb,.151e-01_jprb,&
&.174e-01_jprb,.190e-01_jprb,.183e-01_jprb,.149e-01_jprb,.128e-01_jprb,.117e-01_jprb,.110e-01_jprb,&
&.106e-01_jprb,.112e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 43 -78.0
zaer(:,43, 9) = (/&
&.121e-01_jprb,.122e-01_jprb,.122e-01_jprb,.125e-01_jprb,.128e-01_jprb,.129e-01_jprb,.128e-01_jprb,&
&.128e-01_jprb,.127e-01_jprb,.125e-01_jprb,.124e-01_jprb,.136e-01_jprb,.142e-01_jprb,.140e-01_jprb,&
&.152e-01_jprb,.180e-01_jprb,.200e-01_jprb,.198e-01_jprb,.171e-01_jprb,.116e-01_jprb,.101e-01_jprb,&
&.997e-02_jprb,.958e-02_jprb,.940e-02_jprb,.947e-02_jprb,.946e-02_jprb,.946e-02_jprb,.947e-02_jprb,&
&.950e-02_jprb,.959e-02_jprb,.973e-02_jprb,.970e-02_jprb,.937e-02_jprb,.933e-02_jprb,.101e-01_jprb,&
&.105e-01_jprb,.108e-01_jprb,.110e-01_jprb,.111e-01_jprb,.113e-01_jprb,.113e-01_jprb,.116e-01_jprb,&
&.122e-01_jprb,.135e-01_jprb,.143e-01_jprb,.144e-01_jprb,.136e-01_jprb,.121e-01_jprb,.114e-01_jprb,&
&.112e-01_jprb,.114e-01_jprb,.120e-01_jprb,.136e-01_jprb,.154e-01_jprb,.164e-01_jprb,.161e-01_jprb,&
&.149e-01_jprb,.142e-01_jprb,.137e-01_jprb,.137e-01_jprb,.146e-01_jprb,.151e-01_jprb,.159e-01_jprb,&
&.167e-01_jprb,.172e-01_jprb,.163e-01_jprb,.139e-01_jprb,.124e-01_jprb,.113e-01_jprb,.109e-01_jprb,&
&.110e-01_jprb,.116e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 44 -82.0
zaer(:,44, 9) = (/&
&.115e-01_jprb,.117e-01_jprb,.119e-01_jprb,.124e-01_jprb,.129e-01_jprb,.132e-01_jprb,.135e-01_jprb,&
&.138e-01_jprb,.141e-01_jprb,.143e-01_jprb,.143e-01_jprb,.143e-01_jprb,.145e-01_jprb,.143e-01_jprb,&
&.137e-01_jprb,.134e-01_jprb,.140e-01_jprb,.151e-01_jprb,.135e-01_jprb,.119e-01_jprb,.107e-01_jprb,&
&.996e-02_jprb,.947e-02_jprb,.930e-02_jprb,.928e-02_jprb,.928e-02_jprb,.926e-02_jprb,.928e-02_jprb,&
&.936e-02_jprb,.950e-02_jprb,.968e-02_jprb,.980e-02_jprb,.984e-02_jprb,.998e-02_jprb,.104e-01_jprb,&
&.108e-01_jprb,.109e-01_jprb,.110e-01_jprb,.110e-01_jprb,.111e-01_jprb,.110e-01_jprb,.109e-01_jprb,&
&.110e-01_jprb,.111e-01_jprb,.112e-01_jprb,.112e-01_jprb,.113e-01_jprb,.114e-01_jprb,.117e-01_jprb,&
&.120e-01_jprb,.126e-01_jprb,.131e-01_jprb,.136e-01_jprb,.136e-01_jprb,.139e-01_jprb,.141e-01_jprb,&
&.136e-01_jprb,.132e-01_jprb,.131e-01_jprb,.131e-01_jprb,.128e-01_jprb,.126e-01_jprb,.123e-01_jprb,&
&.120e-01_jprb,.115e-01_jprb,.109e-01_jprb,.106e-01_jprb,.106e-01_jprb,.107e-01_jprb,.109e-01_jprb,&
&.111e-01_jprb,.113e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 45 -86.0
zaer(:,45, 9) = (/&
&.114e-01_jprb,.113e-01_jprb,.113e-01_jprb,.114e-01_jprb,.113e-01_jprb,.113e-01_jprb,.113e-01_jprb,&
&.112e-01_jprb,.111e-01_jprb,.110e-01_jprb,.109e-01_jprb,.109e-01_jprb,.107e-01_jprb,.105e-01_jprb,&
&.103e-01_jprb,.103e-01_jprb,.103e-01_jprb,.103e-01_jprb,.102e-01_jprb,.102e-01_jprb,.100e-01_jprb,&
&.988e-02_jprb,.986e-02_jprb,.988e-02_jprb,.987e-02_jprb,.986e-02_jprb,.988e-02_jprb,.100e-01_jprb,&
&.102e-01_jprb,.104e-01_jprb,.105e-01_jprb,.105e-01_jprb,.106e-01_jprb,.107e-01_jprb,.109e-01_jprb,&
&.110e-01_jprb,.110e-01_jprb,.110e-01_jprb,.110e-01_jprb,.110e-01_jprb,.111e-01_jprb,.111e-01_jprb,&
&.111e-01_jprb,.112e-01_jprb,.113e-01_jprb,.113e-01_jprb,.113e-01_jprb,.112e-01_jprb,.111e-01_jprb,&
&.111e-01_jprb,.111e-01_jprb,.111e-01_jprb,.111e-01_jprb,.111e-01_jprb,.112e-01_jprb,.112e-01_jprb,&
&.111e-01_jprb,.110e-01_jprb,.110e-01_jprb,.109e-01_jprb,.109e-01_jprb,.109e-01_jprb,.109e-01_jprb,&
&.110e-01_jprb,.110e-01_jprb,.110e-01_jprb,.111e-01_jprb,.112e-01_jprb,.112e-01_jprb,.113e-01_jprb,&
&.113e-01_jprb,.113e-01_jprb/)
!-- Total Soil Dust Aerosol  month:  9 --- lat: 46 -90.0
zaer(:,46, 9) = (/&
&.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,&
&.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,&
&.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,&
&.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,&
&.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,&
&.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,&
&.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,&
&.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,&
&.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,&
&.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,.108e-01_jprb,&
&.108e-01_jprb,.108e-01_jprb/)


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

!ZMAX=-1.E+8_JPRB
!ZMIN= 1.E+8_JPRB
   jm=9   
  DO ji=1,46
    DO jl=1,72
      raersd(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,'SOIL DUST AEROSOLS ',2e12.5)

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

RETURN
END SUBROUTINE suecaesd_09