Index: LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_scheme.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_scheme.F90	(revision 4790)
+++ LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_scheme.F90	(revision 4791)
@@ -21,5 +21,7 @@
 ! Inputs
      & (KIDIA, KFDIA, KLON, KLEV, KAEROSOL, NSW, &
-     &  namelist_file, ok_3Deffect, IDAY, TIME, &
+     &  namelist_file, ok_3Deffect, &
+     &  debut, ok_volcan, flag_aerosol_strat, &
+     &  IDAY, TIME, &
      &  PSOLAR_IRRADIANCE, &
      &  PMU0, PTEMPERATURE_SKIN, &
@@ -183,5 +185,7 @@
 ! Name of file names specified on command line
 character(len=512), INTENT(IN) :: namelist_file
-logical, INTENT(IN)            :: ok_3Deffect
+logical, INTENT(IN)            :: ok_3Deffect, debut, ok_volcan
+INTEGER(KIND=JPIM), INTENT(IN) :: flag_aerosol_strat
+
 
 ! OUTPUT ARGUMENTS
@@ -577,4 +581,7 @@
                              rad_config,thermodynamics,aerosol)
     endif                 
+    if (flag_aerosol_strat.eq.2) then
+       CALL readaerosolstrato_ecrad(rad_config, debut, ok_volcan)
+    endif
  endif