Index: LMDZ6/trunk/libf/phylmd/rrtm/aeropt_5wv_rrtm.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/rrtm/aeropt_5wv_rrtm.F90	(revision 3287)
+++ LMDZ6/trunk/libf/phylmd/rrtm/aeropt_5wv_rrtm.F90	(revision 3288)
@@ -381,5 +381,5 @@
      ALLOCATE (aerosol_name(nb_aer)) 
      aerosol_name(1) = id_CIDUSTM_phy
-  ELSEIF (flag_aerosol .EQ. 6) THEN 
+  ELSEIF (flag_aerosol .EQ. 6 .OR. flag_aerosol .EQ. 7 ) THEN 
      nb_aer = 13
      ALLOCATE (aerosol_name(nb_aer)) 
Index: LMDZ6/trunk/libf/phylmd/rrtm/aeropt_6bands_rrtm.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/rrtm/aeropt_6bands_rrtm.F90	(revision 3287)
+++ LMDZ6/trunk/libf/phylmd/rrtm/aeropt_6bands_rrtm.F90	(revision 3288)
@@ -507,5 +507,5 @@
      ALLOCATE (aerosol_name(nb_aer)) 
      aerosol_name(1) = id_CIDUSTM_phy
-  ELSEIF (flag_aerosol .EQ. 6) THEN 
+  ELSEIF (flag_aerosol .EQ. 6 .OR. flag_aerosol .EQ. 7 ) THEN 
      nb_aer = 13
      ALLOCATE (aerosol_name(nb_aer)) 
Index: LMDZ6/trunk/libf/phylmd/rrtm/aeropt_lw_rrtm.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/rrtm/aeropt_lw_rrtm.F90	(revision 3287)
+++ LMDZ6/trunk/libf/phylmd/rrtm/aeropt_lw_rrtm.F90	(revision 3288)
@@ -46,5 +46,5 @@
   IF (ok_alw) THEN                                   !--aerosol LW effects
    !
-   IF (flag_aerosol.EQ.5.OR.flag_aerosol.EQ.6) THEN  !-Dust
+   IF (flag_aerosol.EQ.5.OR.flag_aerosol.EQ.6.OR.flag_aerosol.EQ.7) THEN  !-Dust
     !
     zdh(:,:)=pdel(:,:)/(RG*zrho(:,:))      ! m