Index: trunk/LMDZ.GENERIC/README
===================================================================
--- trunk/LMDZ.GENERIC/README	(revision 2061)
+++ trunk/LMDZ.GENERIC/README	(revision 2062)
@@ -1423,3 +1423,4 @@
 == 09/01/2018 == AB
 - Add the thermal plume model (cf. Rio et al. 2010) extended to gas giant. Specific parameters are set in thermcell_mod.
-
+- Add keys (back2lay_visname, back2lay_irname) to set aeroback2lay aerosol optprop files names and solve the name conflict between Saturn and Jupiter.
+  Default values are the previously hard coded values.
Index: trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90
===================================================================
--- trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90	(revision 2061)
+++ trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90	(revision 2062)
@@ -78,4 +78,6 @@
       real,save :: obs_tau_col_strato
 !$OMP THREADPRIVATE(Tstrat,tplanet,obs_tau_col_tropo,obs_tau_col_strato)
+      character(64),save :: optprop_back2lay_vis
+      character(64),save :: optprop_back2lay_ir
       real,save :: pres_bottom_tropo
       real,save :: pres_top_tropo
Index: trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90
===================================================================
--- trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90	(revision 2061)
+++ trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90	(revision 2062)
@@ -553,4 +553,14 @@
      write(*,*)" obs_tau_col_strato = ",obs_tau_col_strato
 
+     write(*,*)"TWOLAY AEROSOL: optprop_back2lay_vis?"
+     optprop_back2lay_vis = 'optprop_saturn_vis_n20.dat'
+     call getin_p("optprop_back2lay_vis",optprop_back2lay_vis)
+     write(*,*)" optprop_back2lay_vis = ",optprop_back2lay_vis
+
+     write(*,*)"TWOLAY AEROSOL: optprop_back2lay_ir?"
+     optprop_back2lay_ir = 'optprop_saturn_ir_n20.dat'
+     call getin_p("optprop_back2lay_ir",optprop_back2lay_ir)
+     write(*,*)" optprop_back2lay_ir = ",optprop_back2lay_ir
+     
      write(*,*)"TWOLAY AEROSOL: pres_bottom_tropo? in pa"
      pres_bottom_tropo=66000.0
Index: trunk/LMDZ.GENERIC/libf/phystd/suaer_corrk.F90
===================================================================
--- trunk/LMDZ.GENERIC/libf/phystd/suaer_corrk.F90	(revision 2061)
+++ trunk/LMDZ.GENERIC/libf/phystd/suaer_corrk.F90	(revision 2062)
@@ -11,5 +11,5 @@
       use radcommon_h, only: qrefvis,qrefir,omegarefir !,omegarefvis
       use aerosol_mod
-      use callkeys_mod, only: tplanet
+      use callkeys_mod, only: tplanet, optprop_back2lay_vis, optprop_back2lay_ir
 
       implicit none
@@ -67,5 +67,5 @@
       INTEGER :: idomain        ! Domain index (1=VIS,2=IR)
       INTEGER :: ilw            ! longwave index
-      INTEGER :: isw           ! shortwave index
+      INTEGER :: isw            ! shortwave index
       INTEGER :: isize          ! Particle size index
       INTEGER :: jfile          ! ASCII file scan index
@@ -171,10 +171,10 @@
        if (iaer.eq.iaero_back2lay) then
          print*, 'naerkind= back2lay', iaer
-
-!     visible
-         file_id(iaer,1) = 'optprop_saturn_vis_n20.dat'
+         
+!     visible
+         file_id(iaer,1) = TRIM(optprop_back2lay_vis)
          lamrefvis(iaer)=0.8E-6  ! 
 !     infrared
-         file_id(iaer,2) = 'optprop_saturn_ir_n20.dat'
+         file_id(iaer,2) = TRIM(optprop_back2lay_ir)
          lamrefir(iaer)=6.E-6  ! 
 ! added by SG
@@ -192,5 +192,4 @@
 ! added by SG
        endif
-
 
        if (iaer.eq.iaero_aurora) then