source: LMDZ6/trunk/libf/phylmd/rrtm/aeropt_6bands_rrtm.F90 @ 5408

Last change on this file since 5408 was 5294, checked in by Laurent Fairhead, 7 weeks ago

Keeping clesphys.h was not the right solution
LF
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:keywords set to Author Date Id Revi
File size: 49.1 KB
RevLine 
[2004]1!
[2005]2! $Id: aeropt_6bands_rrtm.F90 5294 2024-10-29 18:35:00Z evignon $
[2004]3!
4SUBROUTINE AEROPT_6BANDS_RRTM ( &
[2737]5     pdel, m_allaer, RHcl, &
6     tau_allaer, piz_allaer, &
7     cg_allaer, m_allaer_pi, &
[3480]8     flag_aerosol, flag_bc_internal_mixture, zrho, ok_volcan )
[2004]9
10  USE dimphy
11  USE aero_mod
[2748]12  USE YOMCST, ONLY: RG
[5294]13! Temporary fix waiting for cleaner interface (or not)
14  USE clesphys_mod_h, ONLY: NSW
15 
[2004]16  !    Yves Balkanski le 12 avril 2006
17  !    Celine Deandreis
18  !    Anne Cozic Avril 2009
19  !    a partir d'une sous-routine de Johannes Quaas pour les sulfates
20  !    Olivier Boucher février 2014 pour passage à RRTM
21  !    a partir des propriétés optiques fournies par Yves Balkanski
22  !
23  IMPLICIT NONE
[2748]24  !
[5294]25!!  INCLUDE "clesphys.h"
[2004]26  !
27  ! Input arguments:
28  !
[2748]29  REAL, DIMENSION(klon,klev),     INTENT(IN)  :: pdel
30  REAL, DIMENSION(klon,klev,naero_tot),   INTENT(IN)  :: m_allaer
31  REAL, DIMENSION(klon,klev,naero_tot),   INTENT(IN)  :: m_allaer_pi
32  REAL, DIMENSION(klon,klev),     INTENT(IN)  :: RHcl       ! humidite relative ciel clair
33  INTEGER,                        INTENT(IN)  :: flag_aerosol
34  LOGICAL,                        INTENT(IN)  :: flag_bc_internal_mixture
35  REAL, DIMENSION(klon,klev),     INTENT(IN)  :: zrho
[3480]36  LOGICAL,                        INTENT(IN)  :: ok_volcan ! volcanic diags
[2004]37  !
38  ! Output arguments:
[2634]39  ! 2= total aerosols
40  ! 1= natural aerosols
[2004]41  !
[2748]42  REAL, DIMENSION(klon,klev,2,nbands_sw_rrtm), INTENT(OUT) :: tau_allaer ! epaisseur optique aerosol
43  REAL, DIMENSION(klon,klev,2,nbands_sw_rrtm), INTENT(OUT) :: piz_allaer ! single scattering albedo aerosol
44  REAL, DIMENSION(klon,klev,2,nbands_sw_rrtm), INTENT(OUT) :: cg_allaer  ! asymmetry parameter aerosol
[2004]45  !
46  ! Local
47  !
[2739]48  LOGICAL :: soluble
[2004]49  INTEGER :: i, k,n, inu, m
50  INTEGER :: spsol, spinsol
51  INTEGER :: RH_num(klon,klev)
52
53  INTEGER, PARAMETER :: nb_level=19 ! number of vertical levels in DATA
54
[2738]55  INTEGER, PARAMETER :: naero_soluble=9    ! 1- BC soluble; 2- POM soluble; 3- SO4. acc. 4- SO4 coarse
56                                           ! 5- seasalt super coarse  6- seasalt
57                                           ! coarse  7- seasalt acc.
58                                           ! 8- NO3 coarse 9- NO3 acc.
59  INTEGER, PARAMETER :: naero_insoluble=4  ! 1- Dust; 2- BC insoluble; 3- POM insoluble; 4- NO3 insoluble
[2004]60
61  INTEGER, PARAMETER :: nbre_RH=12
62  REAL,PARAMETER :: RH_tab(nbre_RH)=(/0.,10.,20.,30.,40.,50.,60.,70.,80.,85.,90.,95./)
63  REAL, PARAMETER :: RH_MAX=95.
64  REAL :: delta(klon,klev), rh(klon,klev)
65  REAL :: tau_ae2b_int   ! Intermediate computation of epaisseur optique aerosol
66  REAL :: piz_ae2b_int   ! Intermediate computation of Single scattering albedo
67  REAL :: cg_ae2b_int    ! Intermediate computation of Assymetry parameter
68  REAL :: Fact_RH(nbre_RH)
69  REAL :: fac
[2634]70  REAL :: zdh(klon,klev)
[2739]71  INTEGER, ALLOCATABLE, DIMENSION(:) :: aerosol_name
[2004]72  INTEGER :: nb_aer
73
[2739]74  REAL, DIMENSION(klon,klev,naero_tot,nbands_sw_rrtm) :: tau_ae
75  REAL, DIMENSION(klon,klev,naero_tot,nbands_sw_rrtm) :: piz_ae
76  REAL, DIMENSION(klon,klev,naero_tot,nbands_sw_rrtm) :: cg_ae
[2644]77
[2739]78  REAL, DIMENSION(klon,klev,naero_tot,nbands_sw_rrtm) :: tau_ae_pi
[2644]79  REAL, DIMENSION(klon,klev,id_ASBCM_phy:id_ASBCM_phy,nbands_sw_rrtm) :: piz_ae_pi
80  REAL, DIMENSION(klon,klev,id_ASBCM_phy:id_ASBCM_phy,nbands_sw_rrtm) :: cg_ae_pi
[2004]81  !
82  ! Proprietes optiques
83  !
[2738]84  REAL:: alpha_aers_6bands(nbre_RH,nbands_sw_rrtm,naero_soluble)   !--unit m2/g
85  REAL:: alpha_aeri_6bands(nbands_sw_rrtm,naero_insoluble)         !--unit m2/g
86  REAL:: cg_aers_6bands(nbre_RH,nbands_sw_rrtm,naero_soluble)      !--unitless
87  REAL:: cg_aeri_6bands(nbands_sw_rrtm,naero_insoluble)            !--unitless
88  REAL:: piz_aers_6bands(nbre_RH,nbands_sw_rrtm,naero_soluble)     !--unitless
89  REAL:: piz_aeri_6bands(nbands_sw_rrtm,naero_insoluble)           !--unitless
[2644]90  !
91  ! BC internal mixture
92  !
[2739]93  INTEGER, PARAMETER ::  nbclassbc = 6  ! Added by Rong Wang/OB for the 5 fractions
[2738]94                                        ! of BC in the soluble mode:
[2739]95                                        ! bc_content/0.001, 0.01, 0.02, 0.05, 0.1, 0.2/
[2644]96  ! for Maxwell-Garnet internal mixture
97  ! Detailed theory can be found in R. Wang Estimation of global black carbon direct
98  ! radiative forcing and its uncertainty constrained by observations. J.
99  ! Geophys. Res. Atmos. Added by R. Wang and OB
100  REAL :: alpha_MG_6bands(nbre_RH,nbands_sw_rrtm,nbclassbc)
101  REAL :: cg_MG_6bands(nbre_RH,nbands_sw_rrtm,nbclassbc)
102  REAL :: piz_MG_6bands(nbre_RH,nbands_sw_rrtm,nbclassbc)
103  !
[2738]104  INTEGER :: aerindex, classbc, classbc_pi
[2644]105  REAL :: tmp_var, tmp_var_pi, BC_massfra, BC_massfra_pi
[2748]106  CHARACTER*20 :: modname
[2644]107  !
[2739]108  REAL, PARAMETER :: tau_min = 1.e-7
[2004]109
110!***************************************************************************
111!--the order of the soluble   species has to follow the spsol   index below
112!--the order of the insoluble species has to follow the spinsol index below
113
114  DATA alpha_aers_6bands/  &
[2739]115   ! BC Accumulation Soluble (AS)     
116  5.276, 5.276, 5.276, 5.276, 5.276, 5.797, 6.353, 7.568, 8.779, 8.920, 9.062,10.403, &
117  5.371, 5.371, 5.371, 5.371, 5.371, 5.870, 6.401, 7.559, 8.720, 8.857, 8.994,10.298, &
118  5.126, 5.126, 5.126, 5.126, 5.126, 5.572, 6.043, 7.073, 8.113, 8.235, 8.359, 9.544, &
119  4.225, 4.225, 4.225, 4.225, 4.225, 4.549, 4.887, 5.624, 6.370, 6.459, 6.548, 7.412, &
120  2.667, 2.667, 2.667, 2.667, 2.667, 2.840, 3.015, 3.382, 3.745, 3.788, 3.832, 4.251, &
121  1.113, 1.113, 1.113, 1.113, 1.113, 1.210, 1.307, 1.506, 1.699, 1.721, 1.744, 1.961, &
122   ! POM Accumulation Soluble (AS)   
123  5.962, 5.962, 5.962, 5.962, 5.962, 6.544, 7.153, 8.460, 9.732, 9.877,10.026,11.398, &
124  5.609, 5.609, 5.609, 5.609, 5.609, 6.163, 6.752, 8.041, 9.324, 9.473, 9.624,11.044, &
125  4.527, 4.527, 4.527, 4.527, 4.527, 4.982, 5.476, 6.586, 7.726, 7.861, 7.998, 9.306, &
126  2.697, 2.697, 2.697, 2.697, 2.697, 2.980, 3.293, 4.017, 4.790, 4.884, 4.979, 5.902, &
127  0.918, 0.918, 0.918, 0.918, 0.918, 1.025, 1.146, 1.435, 1.754, 1.794, 1.834, 2.232, &
128  0.105, 0.105, 0.105, 0.105, 0.105, 0.154, 0.211, 0.344, 0.491, 0.509, 0.528, 0.710, &
129  ! Sulfate Coarse Soluble (CS)     
130  0.670, 0.670, 0.670, 0.670, 0.905, 0.981, 1.081, 1.217, 1.434, 1.615, 1.940, 2.773, &
131  0.689, 0.689, 0.689, 0.689, 0.930, 1.009, 1.110, 1.247, 1.469, 1.655, 1.980, 2.825, &
132  0.726, 0.726, 0.726, 0.726, 0.978, 1.060, 1.164, 1.306, 1.533, 1.723, 2.056, 2.915, &
133  0.785, 0.785, 0.785, 0.785, 1.056, 1.144, 1.254, 1.406, 1.650, 1.852, 2.203, 3.103, &
134  0.795, 0.795, 0.795, 0.795, 1.064, 1.160, 1.282, 1.449, 1.720, 1.945, 2.340, 3.348, &
135  0.502, 0.502, 0.502, 0.502, 0.656, 0.728, 0.820, 0.950, 1.170, 1.360, 1.706, 2.666, &
136   !-- Sulfate Accumulation (BC content=0)
137  5.246, 5.246, 5.246, 5.246, 7.041, 7.658, 8.437, 9.503,11.204,12.608,15.030,21.080, &
138  4.924, 4.924, 4.924, 4.924, 6.619, 7.258, 8.067, 9.186,10.998,12.507,15.142,21.822, &
139  3.925, 3.925, 3.925, 3.925, 5.304, 5.888, 6.635, 7.686, 9.433,10.921,13.587,20.659, &
140  2.248, 2.248, 2.248, 2.248, 3.079, 3.477, 3.993, 4.738, 6.022, 7.153, 9.261,15.301, &
141  0.720, 0.720, 0.720, 0.720, 1.014, 1.169, 1.374, 1.678, 2.225, 2.726, 3.703, 6.779, &
142  0.069, 0.069, 0.069, 0.069, 0.102, 0.121, 0.146, 0.185, 0.258, 0.328, 0.472, 0.974, &
143   ! Seasalt Super Coarse Soluble (SS)
144  0.189, 0.232, 0.249, 0.270, 0.293, 0.322, 0.361, 0.425, 0.536, 0.634, 0.813, 1.250, &
145  0.192, 0.235, 0.252, 0.274, 0.296, 0.325, 0.365, 0.429, 0.542, 0.639, 0.821, 1.259, &
146  0.196, 0.240, 0.257, 0.279, 0.302, 0.331, 0.371, 0.437, 0.550, 0.649, 0.832, 1.274, &
147  0.204, 0.249, 0.267, 0.289, 0.313, 0.342, 0.384, 0.450, 0.565, 0.666, 0.851, 1.300, &
148  0.222, 0.270, 0.289, 0.313, 0.338, 0.369, 0.413, 0.482, 0.602, 0.705, 0.896, 1.355, &
149  0.244, 0.293, 0.313, 0.338, 0.364, 0.397, 0.443, 0.517, 0.646, 0.757, 0.960, 1.443, &
150   ! Seasalt Coarse Soluble (CS)     
151  0.547, 0.657, 0.705, 0.754, 0.817, 0.896, 1.008, 1.169, 1.456, 1.724, 2.199, 3.358, &
152  0.566, 0.679, 0.727, 0.776, 0.840, 0.920, 1.032, 1.196, 1.492, 1.760, 2.238, 3.416, &
153  0.596, 0.714, 0.764, 0.816, 0.882, 0.965, 1.081, 1.250, 1.552, 1.828, 2.310, 3.509, &
154  0.644, 0.771, 0.825, 0.880, 0.951, 1.040, 1.164, 1.345, 1.666, 1.957, 2.462, 3.700, &
155  0.640, 0.772, 0.829, 0.887, 0.965, 1.061, 1.198, 1.398, 1.758, 2.085, 2.658, 4.031, &
156  0.452, 0.562, 0.609, 0.659, 0.728, 0.813, 0.938, 1.125, 1.471, 1.797, 2.384, 3.855, &
157   ! Seasalt Accumulation Soluble (AS)
158  4.270, 5.032, 5.395, 5.772, 6.158, 6.768, 7.510, 8.634,10.695,12.512,15.740,23.122, &
159  3.952, 4.673, 5.030, 5.403, 5.781, 6.399, 7.156, 8.328,10.533,12.524,16.091,24.329, &
160  3.090, 3.676, 3.979, 4.301, 4.622, 5.172, 5.853, 6.941, 9.077,11.083,14.830,23.951, &
161  1.710, 2.069, 2.262, 2.471, 2.678, 3.048, 3.513, 4.285, 5.882, 7.467,10.618,19.102, &
162  0.529, 0.663, 0.737, 0.819, 0.901, 1.050, 1.244, 1.575, 2.301, 3.067, 4.704, 9.712, &
163  0.073, 0.142, 0.177, 0.215, 0.259, 0.328, 0.422, 0.579, 0.913, 1.263, 2.011, 4.358, &
164   ! Nitrate Coarse Soluble (CS)     
165  0.688, 0.688, 0.688, 0.755, 0.826, 0.900, 0.994, 1.190, 1.501, 1.804, 2.251, 2.374, &
166  0.712, 0.712, 0.712, 0.781, 0.853, 0.929, 1.023, 1.225, 1.540, 1.846, 2.299, 2.421, &
167  0.754, 0.754, 0.754, 0.826, 0.902, 0.980, 1.077, 1.286, 1.612, 1.925, 2.388, 2.509, &
168  0.809, 0.809, 0.809, 0.887, 0.969, 1.053, 1.160, 1.384, 1.732, 2.069, 2.557, 2.685, &
169  0.786, 0.786, 0.786, 0.867, 0.952, 1.043, 1.157, 1.403, 1.793, 2.171, 2.725, 2.871, &
170  0.703, 0.703, 0.703, 0.767, 0.836, 0.909, 1.002, 1.210, 1.552, 1.901, 2.434, 2.579, &
171   ! Nitrate Accumulation Soluble (AS)
172  5.251, 5.251, 5.251, 5.779, 6.336, 6.920, 7.655, 9.230,11.678,14.026,17.391,18.279, &
173  4.643, 4.643, 4.643, 5.152, 5.696, 6.276, 7.016, 8.640,11.238,13.787,17.511,18.494, &
174  3.373, 3.373, 3.373, 3.790, 4.245, 4.739, 5.383, 6.842, 9.289,11.804,15.637,16.675, &
175  1.779, 1.779, 1.779, 2.029, 2.309, 2.619, 3.033, 4.008, 5.746, 7.645,10.730,11.601, &
176  0.549, 0.549, 0.549, 0.639, 0.742, 0.859, 1.019, 1.412, 2.157, 3.029, 4.552, 5.002, &
177  0.367, 0.367, 0.367, 0.416, 0.471, 0.532, 0.614, 0.808, 1.166, 1.575, 2.281, 2.489  /
[2004]178
179  DATA piz_aers_6bands/&
[2739]180   ! BC Accumulation Soluble (AS)     
181  0.480, 0.480, 0.480, 0.480, 0.480, 0.487, 0.495, 0.513, 0.530, 0.532, 0.534, 0.553, &
182  0.469, 0.469, 0.469, 0.469, 0.469, 0.474, 0.480, 0.497, 0.514, 0.517, 0.519, 0.538, &
183  0.456, 0.456, 0.456, 0.456, 0.456, 0.464, 0.473, 0.495, 0.519, 0.522, 0.524, 0.550, &
184  0.427, 0.427, 0.427, 0.427, 0.427, 0.437, 0.448, 0.476, 0.505, 0.509, 0.512, 0.543, &
185  0.349, 0.349, 0.349, 0.349, 0.349, 0.358, 0.369, 0.396, 0.425, 0.429, 0.432, 0.465, &
186  0.196, 0.196, 0.196, 0.196, 0.196, 0.198, 0.202, 0.213, 0.226, 0.227, 0.229, 0.243, &
187   ! POM Accumulation Soluble (AS)   
188  0.956, 0.956, 0.956, 0.956, 0.956, 0.961, 0.964, 0.970, 0.974, 0.975, 0.975, 0.978, &
189  0.965, 0.965, 0.965, 0.965, 0.965, 0.969, 0.972, 0.977, 0.980, 0.980, 0.981, 0.983, &
190  0.969, 0.969, 0.969, 0.969, 0.969, 0.972, 0.975, 0.979, 0.983, 0.983, 0.983, 0.986, &
191  0.953, 0.953, 0.953, 0.953, 0.953, 0.958, 0.962, 0.969, 0.974, 0.975, 0.975, 0.979, &
192  0.892, 0.892, 0.892, 0.892, 0.892, 0.902, 0.912, 0.928, 0.940, 0.942, 0.943, 0.952, &
193  0.826, 0.826, 0.826, 0.826, 0.826, 0.658, 0.568, 0.479, 0.444, 0.442, 0.439, 0.426, &
194   ! Sulfate Coarse Soluble (CS)     
[2004]195  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
196  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
197  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
198  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
199  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
200  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
[2739]201   !-- Sulfate Accumulation (BC content=0)
[2004]202  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
203  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
[2739]204  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
205  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
206  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
207  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
208   ! Seasalt Super Coarse Soluble (SS)
209  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
210  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
211  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
212  0.999, 0.999, 0.999, 0.999, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
213  0.983, 0.985, 0.986, 0.987, 0.987, 0.988, 0.988, 0.989, 0.989, 0.989, 0.989, 0.989, &
214  0.957, 0.792, 0.765, 0.740, 0.721, 0.704, 0.687, 0.670, 0.652, 0.643, 0.631, 0.617, &
215   ! Seasalt Coarse Soluble (CS)     
216  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.001, 1.000, &
217  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
218  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
219  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
220  0.994, 0.994, 0.995, 0.995, 0.995, 0.995, 0.996, 0.996, 0.996, 0.996, 0.996, 0.996, &
221  0.976, 0.867, 0.837, 0.814, 0.796, 0.774, 0.754, 0.735, 0.713, 0.702, 0.690, 0.675, &
222   ! Seasalt Accumulation Soluble (AS)
223  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
224  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
225  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
226  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
227  0.995, 0.996, 0.996, 0.996, 0.997, 0.997, 0.997, 0.998, 0.998, 0.998, 0.998, 0.999, &
228  0.919, 0.607, 0.553, 0.515, 0.480, 0.455, 0.434, 0.421, 0.421, 0.429, 0.449, 0.492, &
229   ! Nitrate Coarse Soluble (CS)     
230  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
231  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
232  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
233  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
234  0.999, 0.999, 0.999, 0.999, 0.999, 0.999, 0.998, 0.998, 0.998, 0.998, 0.998, 0.998, &
235  0.707, 0.707, 0.707, 0.705, 0.702, 0.699, 0.697, 0.692, 0.686, 0.683, 0.679, 0.678, &
236   ! Nitrate Accumulation Soluble (AS)
237  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
238  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
239  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
240  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
241  0.999, 0.999, 0.999, 0.999, 0.999, 0.999, 0.999, 0.999, 0.999, 0.999, 0.999, 0.999, &
242  0.362, 0.362, 0.362, 0.362, 0.363, 0.365, 0.367, 0.375, 0.390, 0.406, 0.428, 0.434  /
[2004]243
[2739]244  DATA cg_aers_6bands/ &
245   ! BC Accumulation Soluble (AS)     
246  0.820, 0.820, 0.820, 0.820, 0.820, 0.831, 0.840, 0.852, 0.859, 0.860, 0.860, 0.864, &
247  0.760, 0.760, 0.760, 0.760, 0.760, 0.777, 0.791, 0.812, 0.826, 0.827, 0.828, 0.837, &
248  0.695, 0.695, 0.695, 0.695, 0.695, 0.716, 0.734, 0.762, 0.780, 0.782, 0.784, 0.797, &
249  0.603, 0.603, 0.603, 0.603, 0.603, 0.628, 0.649, 0.685, 0.710, 0.712, 0.715, 0.734, &
250  0.469, 0.469, 0.469, 0.469, 0.469, 0.494, 0.518, 0.559, 0.590, 0.593, 0.597, 0.622, &
251  0.276, 0.276, 0.276, 0.276, 0.276, 0.292, 0.308, 0.337, 0.361, 0.364, 0.367, 0.389, &
252   ! POM Accumulation Soluble (AS)   
253  0.687, 0.687, 0.687, 0.687, 0.687, 0.700, 0.711, 0.729, 0.740, 0.741, 0.742, 0.750, &
254  0.685, 0.685, 0.685, 0.685, 0.685, 0.699, 0.712, 0.731, 0.744, 0.745, 0.747, 0.756, &
255  0.673, 0.673, 0.673, 0.673, 0.673, 0.689, 0.702, 0.724, 0.739, 0.741, 0.742, 0.754, &
256  0.637, 0.637, 0.637, 0.637, 0.637, 0.653, 0.667, 0.691, 0.709, 0.711, 0.712, 0.726, &
257  0.553, 0.553, 0.553, 0.553, 0.553, 0.568, 0.582, 0.607, 0.628, 0.630, 0.632, 0.649, &
258  0.340, 0.340, 0.340, 0.340, 0.340, 0.350, 0.361, 0.382, 0.400, 0.402, 0.404, 0.422, &
259   ! Sulfate Coarse Soluble (CS)     
260  0.746, 0.746, 0.746, 0.746, 0.779, 0.785, 0.790, 0.796, 0.804, 0.810, 0.816, 0.830, &
261  0.730, 0.730, 0.730, 0.730, 0.764, 0.770, 0.775, 0.782, 0.791, 0.797, 0.806, 0.819, &
262  0.707, 0.707, 0.707, 0.707, 0.746, 0.752, 0.758, 0.765, 0.775, 0.781, 0.790, 0.805, &
263  0.691, 0.691, 0.691, 0.691, 0.736, 0.741, 0.747, 0.754, 0.763, 0.769, 0.778, 0.791, &
264  0.696, 0.696, 0.696, 0.696, 0.748, 0.753, 0.759, 0.767, 0.776, 0.781, 0.789, 0.800, &
265  0.711, 0.711, 0.711, 0.711, 0.766, 0.773, 0.782, 0.791, 0.803, 0.811, 0.822, 0.838, &
266   !-- Sulfate Accumulation (BC content=0)
267  0.674, 0.674, 0.674, 0.674, 0.724, 0.729, 0.735, 0.741, 0.749, 0.753, 0.760, 0.769, &
268  0.677, 0.677, 0.677, 0.677, 0.729, 0.734, 0.740, 0.747, 0.756, 0.761, 0.768, 0.777, &
269  0.671, 0.671, 0.671, 0.671, 0.723, 0.730, 0.737, 0.746, 0.757, 0.764, 0.773, 0.786, &
270  0.638, 0.638, 0.638, 0.638, 0.691, 0.700, 0.710, 0.721, 0.736, 0.746, 0.760, 0.781, &
271  0.553, 0.553, 0.553, 0.553, 0.604, 0.616, 0.629, 0.644, 0.665, 0.680, 0.700, 0.736, &
272  0.344, 0.344, 0.344, 0.344, 0.388, 0.401, 0.416, 0.435, 0.462, 0.482, 0.512, 0.571, &
273   ! Seasalt Super Coarse Soluble (SS)
274  0.795, 0.810, 0.814, 0.819, 0.824, 0.829, 0.832, 0.840, 0.846, 0.849, 0.854, 0.860, &
275  0.788, 0.804, 0.808, 0.813, 0.818, 0.823, 0.828, 0.834, 0.842, 0.847, 0.851, 0.858, &
276  0.775, 0.792, 0.797, 0.803, 0.808, 0.813, 0.820, 0.826, 0.835, 0.840, 0.846, 0.854, &
277  0.754, 0.773, 0.779, 0.785, 0.791, 0.796, 0.803, 0.811, 0.821, 0.827, 0.834, 0.844, &
278  0.735, 0.755, 0.761, 0.768, 0.774, 0.779, 0.786, 0.794, 0.804, 0.810, 0.817, 0.829, &
279  0.712, 0.782, 0.795, 0.808, 0.819, 0.829, 0.840, 0.852, 0.865, 0.873, 0.882, 0.895, &
280   ! Seasalt Coarse Soluble (CS)     
281  0.754, 0.770, 0.776, 0.781, 0.784, 0.791, 0.797, 0.805, 0.815, 0.822, 0.828, 0.840, &
282  0.736, 0.753, 0.759, 0.765, 0.771, 0.778, 0.785, 0.793, 0.804, 0.811, 0.820, 0.831, &
283  0.716, 0.735, 0.742, 0.748, 0.754, 0.762, 0.769, 0.778, 0.789, 0.796, 0.807, 0.819, &
284  0.704, 0.725, 0.733, 0.739, 0.745, 0.752, 0.759, 0.768, 0.778, 0.784, 0.792, 0.803, &
285  0.716, 0.737, 0.744, 0.751, 0.756, 0.763, 0.770, 0.777, 0.786, 0.790, 0.795, 0.800, &
286  0.688, 0.730, 0.741, 0.751, 0.761, 0.771, 0.782, 0.795, 0.810, 0.820, 0.833, 0.849, &
287   ! Seasalt Accumulation Soluble (AS)
288  0.686, 0.711, 0.719, 0.726, 0.733, 0.740, 0.748, 0.755, 0.763, 0.767, 0.770, 0.774, &
289  0.690, 0.716, 0.724, 0.731, 0.739, 0.747, 0.756, 0.764, 0.774, 0.778, 0.782, 0.784, &
290  0.683, 0.710, 0.719, 0.727, 0.735, 0.744, 0.754, 0.765, 0.777, 0.784, 0.791, 0.797, &
291  0.649, 0.676, 0.686, 0.695, 0.704, 0.714, 0.726, 0.739, 0.757, 0.768, 0.781, 0.797, &
292  0.559, 0.586, 0.596, 0.606, 0.616, 0.629, 0.643, 0.661, 0.686, 0.703, 0.726, 0.758, &
293  0.341, 0.358, 0.366, 0.375, 0.382, 0.395, 0.408, 0.428, 0.459, 0.484, 0.520, 0.581, &
294   ! Nitrate Coarse Soluble (CS)     
295  0.765, 0.765, 0.765, 0.773, 0.779, 0.785, 0.791, 0.803, 0.813, 0.819, 0.827, 0.828, &
296  0.754, 0.754, 0.754, 0.762, 0.769, 0.774, 0.781, 0.790, 0.802, 0.810, 0.817, 0.818, &
297  0.743, 0.743, 0.743, 0.751, 0.758, 0.763, 0.770, 0.779, 0.789, 0.797, 0.804, 0.806, &
298  0.737, 0.737, 0.737, 0.745, 0.752, 0.758, 0.764, 0.773, 0.781, 0.786, 0.792, 0.793, &
299  0.739, 0.739, 0.739, 0.749, 0.757, 0.763, 0.770, 0.779, 0.788, 0.793, 0.797, 0.798, &
300  0.651, 0.651, 0.651, 0.672, 0.690, 0.707, 0.724, 0.751, 0.779, 0.796, 0.813, 0.817, &
301   ! Nitrate Accumulation Soluble (AS)
302  0.713, 0.713, 0.713, 0.723, 0.732, 0.739, 0.746, 0.756, 0.765, 0.769, 0.772, 0.772, &
303  0.724, 0.724, 0.724, 0.734, 0.742, 0.750, 0.757, 0.767, 0.777, 0.782, 0.785, 0.785, &
304  0.719, 0.719, 0.719, 0.729, 0.738, 0.746, 0.754, 0.767, 0.780, 0.787, 0.793, 0.794, &
305  0.673, 0.673, 0.673, 0.685, 0.696, 0.706, 0.717, 0.734, 0.753, 0.766, 0.778, 0.781, &
306  0.565, 0.565, 0.565, 0.580, 0.593, 0.605, 0.619, 0.644, 0.673, 0.693, 0.716, 0.720, &
307  0.328, 0.328, 0.328, 0.338, 0.348, 0.359, 0.371, 0.396, 0.431, 0.459, 0.494, 0.502  /
308
309  DATA alpha_aeri_6bands/  &
310   ! Dust insoluble
311  0.735, 0.765, 0.817, 0.846, 0.718, 0.414, &
312   ! BC insoluble
313  5.276, 5.371, 5.126, 4.225, 2.667, 1.113, &
314   ! POM insoluble
315  5.962, 5.609, 4.527, 2.697, 0.918, 0.105, &
316   ! Nitrate insoluble
317  0.688, 0.712, 0.754, 0.809, 0.786, 0.703 /
318
[2004]319  DATA piz_aeri_6bands/ &
[2739]320   ! Dust insoluble
321  0.894, 0.902, 0.937, 0.980, 0.993, 0.967, &
[4165]322   ! BC insoluble
323  0.480, 0.469, 0.456, 0.427, 0.349, 0.196, &
[2739]324   ! POM insoluble
[4165]325  0.956, 0.965, 0.969, 0.953, 0.892, 0.826, &
[2739]326   ! Nitrate insoluble
327  1.000, 1.000, 1.000, 1.000, 0.999, 0.707 /
[2004]328
[2739]329  DATA cg_aeri_6bands/ &
330   ! Dust insoluble
331  0.756, 0.737, 0.713, 0.701, 0.696, 0.672, &
[4165]332   ! BC insoluble
333  0.820, 0.760, 0.695, 0.603, 0.469, 0.276, &
[2739]334   ! POM insoluble
[4165]335  0.687, 0.685, 0.673, 0.637, 0.553, 0.340, &
[2739]336   ! Nitrate insoluble
337  0.765, 0.754, 0.743, 0.737, 0.739, 0.651 /
338
[2644]339! Added by R. Wang (July 31 2016)
340! properties for BC assuming Maxwell-Garnett rule and internal mixture
341
[2739]342   DATA alpha_MG_6bands/ &
343 !--BC content=0.001
344   3.546,  3.546,  3.546,  3.546,  3.640,  3.891,  3.883,  4.354,  4.967,  5.424,  6.412,  9.049, &
345   3.995,  3.995,  3.995,  3.995,  4.073,  4.091,  4.111,  4.209,  4.502,  4.878,  5.591,  8.029, &
346   4.650,  4.650,  4.650,  4.650,  4.661,  4.561,  4.472,  4.386,  4.373,  4.451,  4.726,  6.248, &
347   4.445,  4.445,  4.445,  4.445,  4.393,  4.291,  4.171,  4.017,  3.812,  3.682,  3.514,  3.593, &
348   2.837,  2.837,  2.837,  2.837,  2.824,  2.798,  2.760,  2.696,  2.579,  2.471,  2.265,  1.735, &
349   1.087,  1.087,  1.087,  1.087,  1.095,  1.101,  1.107,  1.110,  1.109,  1.101,  1.074,  0.944, &
350 !--BC content=0.010
351   3.550,  3.550,  3.550,  3.550,  3.623,  3.852,  4.006,  4.342,  4.945,  5.381,  6.394,  8.972, &
352   3.995,  3.995,  3.995,  3.995,  4.082,  4.094,  4.133,  4.235,  4.517,  4.871,  5.601,  8.001, &
353   4.653,  4.653,  4.653,  4.653,  4.662,  4.564,  4.475,  4.393,  4.376,  4.447,  4.736,  6.221, &
354   4.434,  4.434,  4.434,  4.434,  4.386,  4.286,  4.170,  4.021,  3.815,  3.680,  3.524,  3.583, &
355   2.831,  2.831,  2.831,  2.831,  2.820,  2.795,  2.757,  2.695,  2.579,  2.472,  2.270,  1.734, &
356   1.086,  1.086,  1.086,  1.086,  1.095,  1.101,  1.106,  1.110,  1.108,  1.101,  1.075,  0.944, &
357 !--BC content=0.020
358   3.549,  3.549,  3.549,  3.549,  3.630,  3.842,  4.016,  4.335,  4.928,  5.383,  6.369,  8.937, &
359   4.004,  4.004,  4.004,  4.004,  4.096,  4.100,  4.145,  4.243,  4.529,  4.870,  5.595,  7.973, &
360   4.650,  4.650,  4.650,  4.650,  4.662,  4.564,  4.478,  4.397,  4.379,  4.449,  4.734,  6.207, &
361   4.422,  4.422,  4.422,  4.422,  4.378,  4.280,  4.167,  4.020,  3.817,  3.683,  3.527,  3.583, &
362   2.824,  2.824,  2.824,  2.824,  2.815,  2.791,  2.754,  2.693,  2.579,  2.472,  2.272,  1.740, &
363   1.085,  1.085,  1.085,  1.085,  1.094,  1.100,  1.105,  1.109,  1.108,  1.100,  1.075,  0.945, &
364 !--BC content=0.050
365   3.563,  3.563,  3.563,  3.563,  3.662,  3.834,  4.019,  4.318,  4.889,  5.360,  6.305,  8.842, &
366   4.039,  4.039,  4.039,  4.039,  4.130,  4.126,  4.166,  4.261,  4.544,  4.863,  5.573,  7.895, &
367   4.641,  4.641,  4.641,  4.641,  4.659,  4.565,  4.483,  4.407,  4.389,  4.455,  4.731,  6.161, &
368   4.388,  4.388,  4.388,  4.388,  4.356,  4.264,  4.157,  4.017,  3.821,  3.691,  3.537,  3.582, &
369   2.805,  2.805,  2.805,  2.805,  2.801,  2.779,  2.744,  2.687,  2.577,  2.474,  2.279,  1.757, &
370   1.081,  1.081,  1.081,  1.081,  1.091,  1.098,  1.103,  1.107,  1.106,  1.099,  1.074,  0.949, &
371 !--BC content=0.100
372   3.607,  3.607,  3.607,  3.607,  3.701,  3.843,  4.021,  4.302,  4.841,  5.306,  6.214,  8.689, &
373   4.098,  4.098,  4.098,  4.098,  4.175,  4.168,  4.201,  4.291,  4.554,  4.854,  5.529,  7.763, &
374   4.627,  4.627,  4.627,  4.627,  4.651,  4.567,  4.490,  4.421,  4.403,  4.464,  4.723,  6.082, &
375   4.333,  4.333,  4.333,  4.333,  4.319,  4.236,  4.139,  4.011,  3.828,  3.704,  3.554,  3.580, &
376   2.773,  2.773,  2.773,  2.773,  2.778,  2.758,  2.727,  2.675,  2.573,  2.476,  2.291,  1.786, &
377   1.076,  1.076,  1.076,  1.076,  1.087,  1.094,  1.099,  1.103,  1.103,  1.097,  1.073,  0.954, &
378 !--BC content=0.200
379   3.702,  3.702,  3.702,  3.702,  3.768,  3.878,  4.030,  4.278,  4.757,  5.190,  6.032,  8.370, &
380   4.204,  4.204,  4.204,  4.204,  4.255,  4.246,  4.270,  4.345,  4.571,  4.837,  5.440,  7.494, &
381   4.598,  4.598,  4.598,  4.598,  4.633,  4.565,  4.502,  4.445,  4.428,  4.481,  4.706,  5.923, &
382   4.230,  4.230,  4.230,  4.230,  4.244,  4.179,  4.101,  3.996,  3.838,  3.728,  3.588,  3.581, &
383   2.710,  2.710,  2.710,  2.710,  2.730,  2.716,  2.693,  2.651,  2.564,  2.480,  2.314,  1.846, &
384   1.064,  1.064,  1.064,  1.064,  1.078,  1.085,  1.091,  1.096,  1.097,  1.091,  1.072,  0.965  /
385   
386   DATA piz_MG_6bands/ &
387 !--BC content=0.001
388  -3.984, -3.984, -3.984, -3.984, -3.395, -3.075, -3.051, -2.567, -2.053, -1.807, -1.308, -0.592, &
389  -3.014, -3.014, -3.014, -3.014, -2.520, -2.473, -2.411, -2.294, -2.027, -1.771, -1.368, -0.613, &
390  -1.142, -1.142, -1.142, -1.142, -0.930, -0.961, -0.981, -1.001, -0.981, -0.934, -0.798, -0.337, &
391  -0.202, -0.202, -0.202, -0.202, -0.129, -0.154, -0.183, -0.224, -0.284, -0.326, -0.383, -0.347, &
392   0.133,  0.133,  0.133,  0.133,  0.158,  0.146,  0.131,  0.107,  0.061,  0.015, -0.081, -0.433, &
393   0.137,  0.137,  0.137,  0.137,  0.148,  0.149,  0.149,  0.147,  0.139,  0.128,  0.098, -0.048, &
394 !--BC content=0.010
395  -3.640, -3.640, -3.640, -3.640, -3.219, -2.942, -2.761, -2.445, -1.983, -1.731, -1.262, -0.576, &
396  -2.791, -2.791, -2.791, -2.791, -2.383, -2.352, -2.290, -2.180, -1.943, -1.707, -1.321, -0.595, &
397  -1.069, -1.069, -1.069, -1.069, -0.889, -0.920, -0.945, -0.966, -0.954, -0.910, -0.775, -0.333, &
398  -0.185, -0.185, -0.185, -0.185, -0.119, -0.144, -0.173, -0.213, -0.275, -0.318, -0.372, -0.346, &
399   0.138,  0.138,  0.138,  0.138,  0.160,  0.149,  0.134,  0.110,  0.063,  0.018, -0.076, -0.430, &
400   0.137,  0.137,  0.137,  0.137,  0.148,  0.149,  0.150,  0.148,  0.140,  0.129,  0.099, -0.046, &
401 !--BC content=0.020
402  -3.369, -3.369, -3.369, -3.369, -3.033, -2.799, -2.619, -2.339, -1.913, -1.657, -1.223, -0.558, &
403  -2.592, -2.592, -2.592, -2.592, -2.254, -2.239, -2.185, -2.091, -1.869, -1.652, -1.284, -0.580, &
404  -1.004, -1.004, -1.004, -1.004, -0.849, -0.882, -0.909, -0.932, -0.926, -0.885, -0.758, -0.326, &
405  -0.168, -0.168, -0.168, -0.168, -0.108, -0.133, -0.163, -0.203, -0.265, -0.309, -0.364, -0.341, &
406   0.142,  0.142,  0.142,  0.142,  0.163,  0.152,  0.137,  0.113,  0.066,  0.022, -0.072, -0.422, &
407   0.138,  0.138,  0.138,  0.138,  0.149,  0.150,  0.150,  0.148,  0.140,  0.129,  0.100, -0.044, &
408 !--BC content=0.050
409  -2.743, -2.743, -2.743, -2.743, -2.582, -2.438, -2.292, -2.078, -1.729, -1.495, -1.123, -0.512, &
410  -2.121, -2.121, -2.121, -2.121, -1.939, -1.951, -1.926, -1.865, -1.688, -1.511, -1.188, -0.541, &
411  -0.839, -0.839, -0.839, -0.839, -0.742, -0.780, -0.812, -0.842, -0.848, -0.818, -0.707, -0.307, &
412  -0.121, -0.121, -0.121, -0.121, -0.078, -0.103, -0.133, -0.174, -0.236, -0.281, -0.337, -0.325, &
413   0.154,  0.154,  0.154,  0.154,  0.171,  0.160,  0.145,  0.121,  0.075,  0.032, -0.060, -0.399, &
414   0.141,  0.141,  0.141,  0.141,  0.150,  0.151,  0.152,  0.150,  0.142,  0.131,  0.103, -0.038, &
415 !--BC content=0.100
416  -2.025, -2.025, -2.025, -2.025, -2.035, -1.965, -1.875, -1.731, -1.475, -1.285, -0.980, -0.447, &
417  -1.569, -1.569, -1.569, -1.569, -1.540, -1.572, -1.580, -1.557, -1.444, -1.312, -1.052, -0.485, &
418  -0.628, -0.628, -0.628, -0.628, -0.593, -0.634, -0.672, -0.710, -0.732, -0.716, -0.631, -0.279, &
419  -0.054, -0.054, -0.054, -0.054, -0.032, -0.058, -0.088, -0.129, -0.191, -0.236, -0.295, -0.299, &
420   0.173,  0.173,  0.173,  0.173,  0.184,  0.173,  0.158,  0.135,  0.090,  0.048, -0.039, -0.361, &
421   0.145,  0.145,  0.145,  0.145,  0.153,  0.154,  0.154,  0.152,  0.144,  0.134,  0.107, -0.027, &
422 !--BC content=0.200
423  -1.155, -1.155, -1.155, -1.155, -1.300, -1.295, -1.272, -1.213, -1.077, -0.957, -0.747, -0.336, &
424  -0.884, -0.884, -0.884, -0.884, -0.979, -1.028, -1.065, -1.086, -1.054, -0.986, -0.820, -0.388, &
425  -0.332, -0.332, -0.332, -0.332, -0.360, -0.402, -0.444, -0.490, -0.531, -0.536, -0.492, -0.225, &
426   0.050,  0.050,  0.050,  0.050,  0.048,  0.022, -0.007, -0.047, -0.107, -0.152, -0.213, -0.245, &
427   0.204,  0.204,  0.204,  0.204,  0.208,  0.197,  0.182,  0.161,  0.120,  0.081,  0.002, -0.285, &
428   0.153,  0.153,  0.153,  0.153,  0.159,  0.159,  0.159,  0.157,  0.150,  0.140,  0.115, -0.005  /
429   
430   DATA cg_MG_6bands/ &
431 !--BC content=0.001
432   0.290,  0.290,  0.290,  0.290,  0.378,  0.381,  0.377,  0.378,  0.373,  0.344,  0.317,  0.118, &
433   0.374,  0.374,  0.374,  0.374,  0.469,  0.474,  0.480,  0.480,  0.475,  0.462,  0.438,  0.242, &
434   0.375,  0.375,  0.375,  0.375,  0.491,  0.502,  0.517,  0.527,  0.534,  0.529,  0.508,  0.255, &
435   0.242,  0.242,  0.242,  0.242,  0.455,  0.516,  0.577,  0.631,  0.687,  0.715,  0.748,  0.772, &
436   0.559,  0.559,  0.559,  0.559,  0.487,  0.461,  0.410,  0.303, -0.181, -3.594,  1.814,  1.164, &
437   0.323,  0.323,  0.323,  0.323,  0.339,  0.339,  0.337,  0.328,  0.295,  0.243,  0.045,  2.778, &
438 !--BC content=0.010
439   0.300,  0.300,  0.300,  0.300,  0.385,  0.389,  0.390,  0.386,  0.377,  0.353,  0.319,  0.116, &
440   0.384,  0.384,  0.384,  0.384,  0.478,  0.482,  0.488,  0.488,  0.483,  0.471,  0.442,  0.246, &
441   0.380,  0.380,  0.380,  0.380,  0.496,  0.507,  0.520,  0.531,  0.538,  0.534,  0.512,  0.259, &
442   0.233,  0.233,  0.233,  0.233,  0.454,  0.520,  0.581,  0.636,  0.691,  0.719,  0.752,  0.778, &
443   0.553,  0.553,  0.553,  0.553,  0.487,  0.461,  0.414,  0.308, -0.144, -2.858,  1.889,  1.165, &
444   0.323,  0.323,  0.323,  0.323,  0.338,  0.339,  0.337,  0.328,  0.295,  0.244,  0.051,  2.847, &
445 !--BC content=0.020
446   0.305,  0.305,  0.305,  0.305,  0.391,  0.394,  0.395,  0.390,  0.380,  0.358,  0.321,  0.112, &
447   0.391,  0.391,  0.391,  0.391,  0.484,  0.488,  0.493,  0.493,  0.488,  0.476,  0.445,  0.246, &
448   0.384,  0.384,  0.384,  0.384,  0.499,  0.511,  0.524,  0.534,  0.541,  0.537,  0.514,  0.260, &
449   0.219,  0.219,  0.219,  0.219,  0.451,  0.523,  0.586,  0.642,  0.696,  0.724,  0.756,  0.783, &
450   0.547,  0.547,  0.547,  0.547,  0.487,  0.461,  0.416,  0.315, -0.108, -2.308,  1.954,  1.170, &
451   0.322,  0.322,  0.322,  0.322,  0.338,  0.339,  0.337,  0.328,  0.296,  0.245,  0.056,  2.949, &
452 !--BC content=0.050
453   0.312,  0.312,  0.312,  0.312,  0.400,  0.402,  0.403,  0.398,  0.385,  0.364,  0.321,  0.094, &
454   0.402,  0.402,  0.402,  0.402,  0.495,  0.498,  0.503,  0.503,  0.496,  0.484,  0.451,  0.242, &
455   0.388,  0.388,  0.388,  0.388,  0.506,  0.518,  0.530,  0.541,  0.548,  0.544,  0.521,  0.259, &
456   0.152,  0.152,  0.152,  0.152,  0.434,  0.527,  0.599,  0.658,  0.711,  0.738,  0.768,  0.794, &
457   0.534,  0.534,  0.534,  0.534,  0.486,  0.463,  0.423,  0.332, -0.018, -1.355,  2.203,  1.188, &
458   0.321,  0.321,  0.321,  0.321,  0.337,  0.338,  0.336,  0.328,  0.297,  0.249,  0.071,  3.311, &
459 !--BC content=0.100
460   0.309,  0.309,  0.309,  0.309,  0.404,  0.405,  0.406,  0.401,  0.385,  0.364,  0.316,  0.057, &
461   0.406,  0.406,  0.406,  0.406,  0.503,  0.507,  0.511,  0.512,  0.504,  0.491,  0.456,  0.232, &
462   0.382,  0.382,  0.382,  0.382,  0.510,  0.523,  0.537,  0.548,  0.555,  0.551,  0.528,  0.255, &
463  -0.178, -0.178, -0.178, -0.178,  0.312,  0.524,  0.626,  0.692,  0.741,  0.765,  0.791,  0.816, &
464   0.519,  0.519,  0.519,  0.519,  0.486,  0.466,  0.432,  0.357,  0.091, -0.650,  2.968,  1.221, &
465   0.319,  0.319,  0.319,  0.319,  0.336,  0.337,  0.335,  0.328,  0.300,  0.255,  0.094,  4.314, &
466 !--BC content=0.200
467   0.267,  0.267,  0.267,  0.267,  0.388,  0.391,  0.392,  0.387,  0.370,  0.345,  0.287, -0.053, &
468   0.381,  0.381,  0.381,  0.381,  0.499,  0.506,  0.512,  0.514,  0.507,  0.494,  0.455,  0.198, &
469   0.318,  0.318,  0.318,  0.318,  0.494,  0.515,  0.535,  0.551,  0.561,  0.559,  0.535,  0.237, &
470   1.151,  1.151,  1.151,  1.151,  0.703,  0.643,  1.248,  0.874,  0.846,  0.846,  0.853,  0.868, &
471   0.502,  0.502,  0.502,  0.502,  0.486,  0.472,  0.447,  0.393,  0.226, -0.108,-43.753,  1.313, &
472   0.315,  0.315,  0.315,  0.315,  0.332,  0.334,  0.333,  0.327,  0.304,  0.266,  0.135, 21.079  /
[2644]473
[2004]474!----BEGINNING OF CALCULATIONS
475
[2748]476  modname='aeropt_6bands_rrtm'
477
[2004]478  spsol = 0
479  spinsol = 0
[2634]480
[2146]481  IF (NSW.NE.nbands_sw_rrtm) THEN
[2750]482    CALL abort_physic(modname,'Erreur NSW doit etre egal a 6 pour cette routine',1)
[2146]483  ENDIF
[2004]484
[2634]485  zdh(:,:)=pdel(:,:)/(RG*zrho(:,:))      ! m
[2004]486
487  IF (flag_aerosol .EQ. 1) THEN
488     nb_aer = 2
489     ALLOCATE (aerosol_name(nb_aer))
[2146]490     aerosol_name(1) = id_ASSO4M_phy
491     aerosol_name(2) = id_CSSO4M_phy
[2004]492  ELSEIF (flag_aerosol .EQ. 2) THEN
493     nb_aer = 2
494     ALLOCATE (aerosol_name(nb_aer))
[2146]495     aerosol_name(1) = id_ASBCM_phy
496     aerosol_name(2) = id_AIBCM_phy
[2004]497  ELSEIF (flag_aerosol .EQ. 3) THEN
498     nb_aer = 2
499     ALLOCATE (aerosol_name(nb_aer))
[2146]500     aerosol_name(1) = id_ASPOMM_phy
501     aerosol_name(2) = id_AIPOMM_phy
[2004]502  ELSEIF (flag_aerosol .EQ. 4) THEN
503     nb_aer = 3
504     ALLOCATE (aerosol_name(nb_aer))
[2146]505     aerosol_name(1) = id_CSSSM_phy
506     aerosol_name(2) = id_SSSSM_phy
507     aerosol_name(3) = id_ASSSM_phy
[2004]508  ELSEIF (flag_aerosol .EQ. 5) THEN
509     nb_aer = 1
510     ALLOCATE (aerosol_name(nb_aer))
[2146]511     aerosol_name(1) = id_CIDUSTM_phy
[3288]512  ELSEIF (flag_aerosol .EQ. 6 .OR. flag_aerosol .EQ. 7 ) THEN
[2738]513     nb_aer = 13
[2004]514     ALLOCATE (aerosol_name(nb_aer))
[2146]515     aerosol_name(1) = id_ASSO4M_phy     
516     aerosol_name(2) = id_ASBCM_phy
517     aerosol_name(3) = id_AIBCM_phy
518     aerosol_name(4) = id_ASPOMM_phy
519     aerosol_name(5) = id_AIPOMM_phy
520     aerosol_name(6) = id_CSSSM_phy
521     aerosol_name(7) = id_SSSSM_phy
522     aerosol_name(8) = id_ASSSM_phy
523     aerosol_name(9) = id_CIDUSTM_phy
524     aerosol_name(10)= id_CSSO4M_phy
[2738]525     aerosol_name(11)= id_CSNO3M_phy
526     aerosol_name(12)= id_ASNO3M_phy
527     aerosol_name(13)= id_CINO3M_phy
[2004]528  ENDIF
529
530  !
531  ! loop over modes, use of precalculated nmd and corresponding sigma
532  !    loop over wavelengths
533  !    for each mass species in mode
534  !      interpolate from Sext to retrieve Sext_at_gridpoint_per_species
535  !      compute optical_thickness_at_gridpoint_per_species
536
537  DO n=1,nbre_RH-1
538    fact_RH(n)=1./(RH_tab(n+1)-RH_tab(n))
539  ENDDO
540   
[2634]541  DO k=1, klev
542    DO i=1, klon
[2004]543      rh(i,k)=MIN(RHcl(i,k)*100.,RH_MAX)
[2146]544      RH_num(i,k) = INT(rh(i,k)/10. + 1.)
[2004]545      IF (rh(i,k).GT.85.) RH_num(i,k)=10
546      IF (rh(i,k).GT.90.) RH_num(i,k)=11
547      delta(i,k)=(rh(i,k)-RH_tab(RH_num(i,k)))*fact_RH(RH_num(i,k))
548    ENDDO
549  ENDDO
550
[2634]551  tau_ae(:,:,:,:)=0.
552  piz_ae(:,:,:,:)=0.
553  cg_ae(:,:,:,:)=0.
[2644]554
555  tau_ae_pi(:,:,:,:)=0.
556  piz_ae_pi(:,:,:,:)=0.
557  cg_ae_pi(:,:,:,:)=0.
[2004]558   
559  DO m=1,nb_aer   ! tau is only computed for each mass
560     fac=1.0
[2146]561     IF (aerosol_name(m).EQ.id_ASBCM_phy) THEN
[2004]562        soluble=.TRUE.
563        spsol=1
[2146]564     ELSEIF (aerosol_name(m).EQ.id_ASPOMM_phy) THEN
[2004]565        soluble=.TRUE.
566        spsol=2
[2738]567     ELSEIF (aerosol_name(m).EQ.id_CSSO4M_phy) THEN
[2004]568        soluble=.TRUE.
569        spsol=3
[2810]570        !fac=1.375    ! (NH4)2-SO4/SO4 132/96 mass conversion factor for AOD
571        fac=0.0      !--6 March 2017 - OB as Didier H said CSSO4 should not be used
[2738]572     ELSEIF  (aerosol_name(m).EQ.id_ASSO4M_phy) THEN
[2004]573        soluble=.TRUE.
574        spsol=4
[2644]575        fac=1.375    ! (NH4)2-SO4/SO4 132/96 mass conversion factor for AOD
[2146]576     ELSEIF (aerosol_name(m).EQ.id_SSSSM_phy) THEN
[2004]577         soluble=.TRUE.
578         spsol=5
[2146]579     ELSEIF (aerosol_name(m).EQ.id_CSSSM_phy) THEN
[2004]580         soluble=.TRUE.
581         spsol=6
[2146]582     ELSEIF (aerosol_name(m).EQ.id_ASSSM_phy) THEN
[2004]583         soluble=.TRUE.
584         spsol=7
[2738]585     ELSEIF (aerosol_name(m).EQ.id_CSNO3M_phy) THEN
586         soluble=.TRUE.
587         spsol=8
588         fac=1.2903    ! NO3NH4/NO3 / mass conversion factor for AOD
589     ELSEIF (aerosol_name(m).EQ.id_ASNO3M_phy) THEN
590         soluble=.TRUE.
591         spsol=9
592         fac=1.2903    ! NO3NH4/NO3 / mass conversion factor for AOD
[2146]593     ELSEIF (aerosol_name(m).EQ.id_CIDUSTM_phy) THEN
[2004]594         soluble=.FALSE.
595         spinsol=1
[2146]596     ELSEIF  (aerosol_name(m).EQ.id_AIBCM_phy) THEN
[2004]597         soluble=.FALSE.
598         spinsol=2
[2146]599     ELSEIF (aerosol_name(m).EQ.id_AIPOMM_phy) THEN
[2004]600         soluble=.FALSE.
601         spinsol=3
[2738]602     ELSEIF (aerosol_name(m).EQ.id_CINO3M_phy) THEN
603         soluble=.FALSE.
604         spinsol=4
605         fac=1.2903    ! NO3NH4/NO3 / mass conversion factor for AOD
[2004]606     ELSE
607         CYCLE
608     ENDIF
609
[2644]610    !--shortname for aerosol index
[2738]611    aerindex=aerosol_name(m)
[2004]612
613    IF (soluble) THEN
614
[2644]615       !--here we treat the special case of soluble BC internal mixture with Maxwell-Garnett rule
616       IF (spsol.EQ.1 .AND. flag_bc_internal_mixture) THEN
[2004]617
[2644]618         DO k=1, klev
619           DO i=1, klon
[2004]620
[2738]621             tmp_var=m_allaer(i,k,aerindex)/1.e6*zdh(i,k)*fac
622             tmp_var_pi=m_allaer_pi(i,k,aerindex)/1.e6*zdh(i,k)*fac
[2644]623
624             ! Calculate the dry BC/(BC+SUL) mass ratio for all (natural+anthropogenic) aerosols
625             BC_massfra = m_allaer(i,k,id_ASBCM_phy)/(m_allaer(i,k,id_ASBCM_phy)+m_allaer(i,k,id_ASSO4M_phy))
626
[2739]627             IF (BC_massfra.GE.0.20) THEN
628               classbc = 6
629             ELSEIF (BC_massfra.GE.0.10) THEN
[2644]630               classbc = 5
631             ELSEIF  (BC_massfra.GE.0.05) THEN
632               classbc = 4
633             ELSEIF  (BC_massfra.GE.0.02) THEN
634               classbc = 3
635             ELSEIF  (BC_massfra.GE.0.01) THEN
636               classbc = 2
637             ELSE
638               classbc = 1
639             ENDIF
640
641             ! Calculate the dry BC/(BC+SUL) mass ratio for natural aerosols
642             BC_massfra_pi = m_allaer_pi(i,k,id_ASBCM_phy)/(m_allaer_pi(i,k,id_ASBCM_phy)+m_allaer_pi(i,k,id_ASSO4M_phy))
643
[2739]644             IF (BC_massfra_pi.GE.0.20) THEN
645               classbc_pi = 6
646             ELSEIF (BC_massfra_pi.GE.0.10) THEN
[2644]647               classbc_pi = 5
648             ELSEIF  (BC_massfra_pi.GE.0.05) THEN
649               classbc_pi = 4
650             ELSEIF  (BC_massfra_pi.GE.0.02) THEN
651               classbc_pi = 3
652             ELSEIF  (BC_massfra_pi.GE.0.01) THEN
653               classbc_pi = 2
654             ELSE
655               classbc_pi = 1
656             ENDIF
657
[2739]658             DO inu=1, NSW
[2644]659
660               !--all aerosols
661               tau_ae2b_int= alpha_MG_6bands(RH_num(i,k),inu,classbc)+                 &
662                             delta(i,k)* (alpha_MG_6bands(RH_num(i,k)+1,inu,classbc) - &
663                             alpha_MG_6bands(RH_num(i,k),inu,classbc))
[2004]664                   
[2644]665               piz_ae2b_int = piz_MG_6bands(RH_num(i,k),inu,classbc) +                 &
666                              delta(i,k)* (piz_MG_6bands(RH_num(i,k)+1,inu,classbc) -  &
667                              piz_MG_6bands(RH_num(i,k),inu,classbc))
668                   
669               cg_ae2b_int = cg_MG_6bands(RH_num(i,k),inu,classbc) +                   &
670                             delta(i,k)* (cg_MG_6bands(RH_num(i,k)+1,inu,classbc) -    &
671                             cg_MG_6bands(RH_num(i,k),inu,classbc))
672
[2738]673               tau_ae(i,k,aerindex,inu)    = tmp_var*tau_ae2b_int
674               piz_ae(i,k,aerindex,inu)    = piz_ae2b_int
675               cg_ae(i,k,aerindex,inu)     = cg_ae2b_int
[2644]676
677               !--natural aerosols
678               tau_ae2b_int= alpha_MG_6bands(RH_num(i,k),inu,classbc_pi)+                 &
679                             delta(i,k)* (alpha_MG_6bands(RH_num(i,k)+1,inu,classbc_pi) - &
680                             alpha_MG_6bands(RH_num(i,k),inu,classbc_pi))
681                   
682               piz_ae2b_int = piz_MG_6bands(RH_num(i,k),inu,classbc_pi) +                 &
683                              delta(i,k)* (piz_MG_6bands(RH_num(i,k)+1,inu,classbc_pi) -  &
684                              piz_MG_6bands(RH_num(i,k),inu,classbc_pi))
685                   
686               cg_ae2b_int = cg_MG_6bands(RH_num(i,k),inu,classbc_pi) +                   &
687                             delta(i,k)* (cg_MG_6bands(RH_num(i,k)+1,inu,classbc_pi) -    &
688                             cg_MG_6bands(RH_num(i,k),inu,classbc_pi))
689
[2738]690               tau_ae_pi(i,k,aerindex,inu) = tmp_var_pi* tau_ae2b_int
691               piz_ae_pi(i,k,aerindex,inu) = piz_ae2b_int
692               cg_ae_pi(i,k,aerindex,inu)  = cg_ae2b_int
[2644]693                       
694             ENDDO
695           ENDDO
696         ENDDO
697
698       !--else treat all other cases of soluble aerosols
699       ELSE
700
701         DO k=1, klev
702           DO i=1, klon
[2738]703             tmp_var=m_allaer(i,k,aerindex)/1.e6*zdh(i,k)*fac
704             tmp_var_pi=m_allaer_pi(i,k,aerindex)/1.e6*zdh(i,k)*fac
[2644]705
[2739]706             DO inu=1, NSW
[2644]707
708               tau_ae2b_int= alpha_aers_6bands(RH_num(i,k),inu,spsol)+ &
709                             delta(i,k)* (alpha_aers_6bands(RH_num(i,k)+1,inu,spsol) - &
710                             alpha_aers_6bands(RH_num(i,k),inu,spsol))
711                   
712               piz_ae2b_int = piz_aers_6bands(RH_num(i,k),inu,spsol) + &
[2004]713                            delta(i,k)* (piz_aers_6bands(RH_num(i,k)+1,inu,spsol) - &
[2644]714                              piz_aers_6bands(RH_num(i,k),inu,spsol))
[2004]715                   
[2644]716               cg_ae2b_int = cg_aers_6bands(RH_num(i,k),inu,spsol) + &
717                             delta(i,k)* (cg_aers_6bands(RH_num(i,k)+1,inu,spsol) - &
718                             cg_aers_6bands(RH_num(i,k),inu,spsol))
[2004]719
[2738]720               tau_ae(i,k,aerindex,inu)    = tmp_var*tau_ae2b_int
721               tau_ae_pi(i,k,aerindex,inu) = tmp_var_pi* tau_ae2b_int
722               piz_ae(i,k,aerindex,inu)    = piz_ae2b_int
723               cg_ae(i,k,aerindex,inu)     = cg_ae2b_int
[2644]724                       
725             ENDDO
[2004]726           ENDDO
727         ENDDO
[2644]728
729         !--external mixture case for soluble BC
730         IF (spsol.EQ.1) THEN
[2738]731           piz_ae_pi(:,:,aerindex,:) = piz_ae(:,:,aerindex,:)
732           cg_ae_pi(:,:,aerindex,:)  = cg_ae(:,:,aerindex,:)
[2644]733         ENDIF
734
735       ENDIF
[2004]736       
737     ELSE    ! For all aerosol insoluble components
738
[2634]739       DO k=1, klev
740         DO i=1, klon
[2738]741           tmp_var=m_allaer(i,k,aerindex)/1.e6*zdh(i,k)*fac
742           tmp_var_pi=m_allaer_pi(i,k,aerindex)/1.e6*zdh(i,k)*fac
[2004]743
[2739]744           DO inu=1, NSW
[2004]745             tau_ae2b_int = alpha_aeri_6bands(inu,spinsol)
746             piz_ae2b_int = piz_aeri_6bands(inu,spinsol)
747             cg_ae2b_int = cg_aeri_6bands(inu,spinsol)
748
[2738]749             tau_ae(i,k,aerindex,inu) = tmp_var*tau_ae2b_int
750             tau_ae_pi(i,k,aerindex,inu) = tmp_var_pi*tau_ae2b_int
751             piz_ae(i,k,aerindex,inu) = piz_ae2b_int
752             cg_ae(i,k,aerindex,inu)= cg_ae2b_int
[2004]753           ENDDO
754         ENDDO
755       ENDDO
756
757     ENDIF ! soluble / insoluble
758
759  ENDDO  ! nb_aer 
760
761  DO inu=1, NSW
[2634]762     DO k=1, klev
763       DO i=1, klon
[2644]764!--all (natural + anthropogenic) aerosol
[2146]765         tau_allaer(i,k,2,inu)=tau_ae(i,k,id_ASSO4M_phy,inu)+tau_ae(i,k,id_CSSO4M_phy,inu)+ &
766                               tau_ae(i,k,id_ASBCM_phy,inu)+tau_ae(i,k,id_AIBCM_phy,inu)+   &
767                               tau_ae(i,k,id_ASPOMM_phy,inu)+tau_ae(i,k,id_AIPOMM_phy,inu)+ &
768                               tau_ae(i,k,id_ASSSM_phy,inu)+tau_ae(i,k,id_CSSSM_phy,inu)+   &
769                               tau_ae(i,k,id_SSSSM_phy,inu)+ tau_ae(i,k,id_CIDUSTM_phy,inu)
[2644]770         tau_allaer(i,k,2,inu)=MAX(tau_allaer(i,k,2,inu),tau_min)
[2004]771
[2644]772         piz_allaer(i,k,2,inu)=(tau_ae(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu)+   &
773                                tau_ae(i,k,id_CSSO4M_phy,inu)*piz_ae(i,k,id_CSSO4M_phy,inu)+   &
774                                tau_ae(i,k,id_ASBCM_phy,inu)*piz_ae(i,k,id_ASBCM_phy,inu)+     &
775                                tau_ae(i,k,id_AIBCM_phy,inu)*piz_ae(i,k,id_AIBCM_phy,inu)+     &
776                                tau_ae(i,k,id_ASPOMM_phy,inu)*piz_ae(i,k,id_ASPOMM_phy,inu)+   &
777                                tau_ae(i,k,id_AIPOMM_phy,inu)*piz_ae(i,k,id_AIPOMM_phy,inu)+   &
778                                tau_ae(i,k,id_ASSSM_phy,inu)*piz_ae(i,k,id_ASSSM_phy,inu)+     &
779                                tau_ae(i,k,id_CSSSM_phy,inu)*piz_ae(i,k,id_CSSSM_phy,inu)+     &
780                                tau_ae(i,k,id_SSSSM_phy,inu)*piz_ae(i,k,id_SSSSM_phy,inu)+     &
[2146]781                                tau_ae(i,k,id_CIDUSTM_phy,inu)*piz_ae(i,k,id_CIDUSTM_phy,inu)) &
[2004]782                                /tau_allaer(i,k,2,inu)
[2644]783         piz_allaer(i,k,2,inu)=MIN(MAX(piz_allaer(i,k,2,inu),0.01),1.0)
784         IF (tau_allaer(i,k,2,inu).LE.tau_min) piz_allaer(i,k,2,inu)=1.0
[2004]785
[2146]786         cg_allaer(i,k,2,inu)=(tau_ae(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu)*cg_ae(i,k,id_ASSO4M_phy,inu)+ &
787                               tau_ae(i,k,id_CSSO4M_phy,inu)*piz_ae(i,k,id_CSSO4M_phy,inu)*cg_ae(i,k,id_CSSO4M_phy,inu)+ &
[2644]788                               tau_ae(i,k,id_ASBCM_phy,inu)*piz_ae(i,k,id_ASBCM_phy,inu)*cg_ae(i,k,id_ASBCM_phy,inu)+    &
789                               tau_ae(i,k,id_AIBCM_phy,inu)*piz_ae(i,k,id_AIBCM_phy,inu)*cg_ae(i,k,id_AIBCM_phy,inu)+    &
[2146]790                               tau_ae(i,k,id_ASPOMM_phy,inu)*piz_ae(i,k,id_ASPOMM_phy,inu)*cg_ae(i,k,id_ASPOMM_phy,inu)+ &
791                               tau_ae(i,k,id_AIPOMM_phy,inu)*piz_ae(i,k,id_AIPOMM_phy,inu)*cg_ae(i,k,id_AIPOMM_phy,inu)+ &
[2644]792                               tau_ae(i,k,id_ASSSM_phy,inu)*piz_ae(i,k,id_ASSSM_phy,inu)*cg_ae(i,k,id_ASSSM_phy,inu)+    &
793                               tau_ae(i,k,id_CSSSM_phy,inu)*piz_ae(i,k,id_CSSSM_phy,inu)*cg_ae(i,k,id_CSSSM_phy,inu)+    &
794                               tau_ae(i,k,id_SSSSM_phy,inu)*piz_ae(i,k,id_SSSSM_phy,inu)*cg_ae(i,k,id_SSSSM_phy,inu)+    &
[2146]795                               tau_ae(i,k,id_CIDUSTM_phy,inu)*piz_ae(i,k,id_CIDUSTM_phy,inu)*cg_ae(i,k,id_CIDUSTM_phy,inu))/ &
[2004]796                               (tau_allaer(i,k,2,inu)*piz_allaer(i,k,2,inu))
[2644]797         cg_allaer(i,k,2,inu)=MIN(MAX(cg_allaer(i,k,2,inu),0.0),1.0)
[2004]798
[3480]799         IF (.NOT. ok_volcan) THEN
[3479]800!
[3480]801!--this is the default case
802!--in this case, index 1 of tau_allaer contains natural aerosols only
803!--because the objective is to perform the double radiation call with and without anthropogenic aerosols
[3479]804!
[3480]805           tau_allaer(i,k,1,inu)=tau_ae_pi(i,k,id_ASSO4M_phy,inu)+tau_ae_pi(i,k,id_CSSO4M_phy,inu)+ &
806                                 tau_ae_pi(i,k,id_ASBCM_phy,inu)+tau_ae_pi(i,k,id_AIBCM_phy,inu)+   &
807                                 tau_ae_pi(i,k,id_ASPOMM_phy,inu)+tau_ae_pi(i,k,id_AIPOMM_phy,inu)+ &
808                                 tau_ae_pi(i,k,id_ASSSM_phy,inu)+tau_ae_pi(i,k,id_CSSSM_phy,inu)+   &
809                                 tau_ae_pi(i,k,id_SSSSM_phy,inu)+ tau_ae_pi(i,k,id_CIDUSTM_phy,inu)
810           tau_allaer(i,k,1,inu)=MAX(tau_allaer(i,k,1,inu),tau_min)
811         
812           piz_allaer(i,k,1,inu)=(tau_ae_pi(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu)+   &
813                                  tau_ae_pi(i,k,id_CSSO4M_phy,inu)*piz_ae(i,k,id_CSSO4M_phy,inu)+   &
814                                  tau_ae_pi(i,k,id_ASBCM_phy,inu)*piz_ae_pi(i,k,id_ASBCM_phy,inu)+  &
815                                  tau_ae_pi(i,k,id_AIBCM_phy,inu)*piz_ae(i,k,id_AIBCM_phy,inu)+     &
816                                  tau_ae_pi(i,k,id_ASPOMM_phy,inu)*piz_ae(i,k,id_ASPOMM_phy,inu)+   &
817                                  tau_ae_pi(i,k,id_AIPOMM_phy,inu)*piz_ae(i,k,id_AIPOMM_phy,inu)+   &
818                                  tau_ae_pi(i,k,id_ASSSM_phy,inu)*piz_ae(i,k,id_ASSSM_phy,inu)+     &
819                                  tau_ae_pi(i,k,id_CSSSM_phy,inu)*piz_ae(i,k,id_CSSSM_phy,inu)+     &
820                                  tau_ae_pi(i,k,id_SSSSM_phy,inu)*piz_ae(i,k,id_SSSSM_phy,inu)+     &
821                                  tau_ae_pi(i,k,id_CIDUSTM_phy,inu)*piz_ae(i,k,id_CIDUSTM_phy,inu)) &
822                                  /tau_allaer(i,k,1,inu)
823           piz_allaer(i,k,1,inu)=MIN(MAX(piz_allaer(i,k,1,inu),0.01),1.0)
824           IF (tau_allaer(i,k,1,inu).LE.tau_min) piz_allaer(i,k,1,inu)=1.0
825         
826           cg_allaer(i,k,1,inu)=(tau_ae_pi(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu)*cg_ae(i,k,id_ASSO4M_phy,inu)+    &
827                                 tau_ae_pi(i,k,id_CSSO4M_phy,inu)*piz_ae(i,k,id_CSSO4M_phy,inu)*cg_ae(i,k,id_CSSO4M_phy,inu)+    &
828                                 tau_ae_pi(i,k,id_ASBCM_phy,inu)*piz_ae_pi(i,k,id_ASBCM_phy,inu)*cg_ae_pi(i,k,id_ASBCM_phy,inu)+ &
829                                 tau_ae_pi(i,k,id_AIBCM_phy,inu)*piz_ae(i,k,id_AIBCM_phy,inu)*cg_ae(i,k,id_AIBCM_phy,inu)+       &
830                                 tau_ae_pi(i,k,id_ASPOMM_phy,inu)*piz_ae(i,k,id_ASPOMM_phy,inu)*cg_ae(i,k,id_ASPOMM_phy,inu)+    &
831                                 tau_ae_pi(i,k,id_AIPOMM_phy,inu)*piz_ae(i,k,id_AIPOMM_phy,inu)*cg_ae(i,k,id_AIPOMM_phy,inu)+    &
832                                 tau_ae_pi(i,k,id_ASSSM_phy,inu)*piz_ae(i,k,id_ASSSM_phy,inu)*cg_ae(i,k,id_ASSSM_phy,inu)+       &
833                                 tau_ae_pi(i,k,id_CSSSM_phy,inu)*piz_ae(i,k,id_CSSSM_phy,inu)*cg_ae(i,k,id_CSSSM_phy,inu)+       &
834                                 tau_ae_pi(i,k,id_SSSSM_phy,inu)*piz_ae(i,k,id_SSSSM_phy,inu)*cg_ae(i,k,id_SSSSM_phy,inu)+       &
835                                 tau_ae_pi(i,k,id_CIDUSTM_phy,inu)*piz_ae(i,k,id_CIDUSTM_phy,inu)*cg_ae(i,k,id_CIDUSTM_phy,inu))/ &
836                                 (tau_allaer(i,k,1,inu)*piz_allaer(i,k,1,inu))
837           cg_allaer(i,k,1,inu)=MIN(MAX(cg_allaer(i,k,1,inu),0.0),1.0)
838!
839         ELSE
840!
841!--this is the case for VOLMIP
842!--in this case index 1 of tau_allaer contains all (natural+anthropogenic) aerosols (same as index 2 above)
843!--but stratospheric aerosols will not be added in rrtm/readaerosolstrato2 as
844!--the objective is to have the double radiation call with and without stratospheric aerosols
845!
846           tau_allaer(i,k,1,inu)=tau_allaer(i,k,2,inu)
847           
848           piz_allaer(i,k,1,inu)=piz_allaer(i,k,2,inu)
849           
850           cg_allaer(i,k,1,inu) =cg_allaer(i,k,2,inu)
851!
852         ENDIF
[2004]853        ENDDO
854      ENDDO
855    ENDDO
856   
857  DEALLOCATE(aerosol_name)
858
859END SUBROUTINE AEROPT_6BANDS_RRTM
Note: See TracBrowser for help on using the repository browser.