Index: trunk/LMDZ.PLUTO.old/libf/phypluto/aerosol_mod.F90
===================================================================
--- trunk/LMDZ.PLUTO.old/libf/phypluto/aerosol_mod.F90	(revision 3353)
+++ trunk/LMDZ.PLUTO.old/libf/phypluto/aerosol_mod.F90	(revision 3357)
@@ -62,6 +62,15 @@
       IF (firstcall) then
         firstcall=.false.
-      !   file_path=trim(datadir)//'/haze_prop/hazemmr.txt'
-        file_path=trim(datadir)//'/haze_prop/dens_haze.txt'
+        if (hazemmr_file/='None')then
+            file_name = hazemmr_file
+            print*, 'Read Haze MMR file: ',hazemmr_file
+        else if(hazedens_file/='None')then
+            file_name = hazedens_file
+            print*, 'Read Haze density: ',hazedens_file
+        else
+            STOP "No filename given for haze profile. Either set hazemmr_file or hazedens_file"
+        endif
+
+        file_path=trim(datadir)//'/haze_prop/'//file_name
         open(224,file=file_path,form='formatted')
         do ifine=1,Nfine
@@ -80,5 +89,5 @@
       !                                --> kg m-3 --> kg/kg
       do iaer=1,naerkind
-            if(iaer.eq.iaero_haze.and.1.eq.1) then !TB22 activate/deactivate mmr or part density   
+            if(iaer.eq.iaero_haze.and.hazedens_file/='None') then !AF24 activate/deactivate mmr or part density
               !print*, 'Haze profile is fixed'
               do ig=1,ngrid
Index: trunk/LMDZ.PLUTO.old/libf/phypluto/datafile_mod.F90
===================================================================
--- trunk/LMDZ.PLUTO.old/libf/phypluto/datafile_mod.F90	(revision 3353)
+++ trunk/LMDZ.PLUTO.old/libf/phypluto/datafile_mod.F90	(revision 3357)
@@ -18,4 +18,7 @@
       ! Data haze properties
       character(len=300),save :: hazeprop 
+      character(len=300),save :: hazerad_file 
+      character(len=300),save :: hazemmr_file 
+      character(len=300),save :: hazedens_file 
 
       end module datafile_mod
Index: trunk/LMDZ.PLUTO.old/libf/phypluto/inifis.F
===================================================================
--- trunk/LMDZ.PLUTO.old/libf/phypluto/inifis.F	(revision 3353)
+++ trunk/LMDZ.PLUTO.old/libf/phypluto/inifis.F	(revision 3357)
@@ -132,4 +132,16 @@
          call getin("hazeprop",hazeprop) 
          write(*,*) " hazeprop = ",trim(hazeprop)
+         write(*,*) "Haze radii datafile"
+         hazerad_file="hazerad.txt"  ! default file
+         call getin("hazerad_file",hazerad_file)
+         write(*,*) trim(rname)//" hazerad_file = ",trim(hazerad_file)
+         write(*,*) "Haze mmr datafile"
+         hazemmr_file="None"  ! default file
+         call getin("hazemmr_file",hazemmr_file)
+         write(*,*) trim(rname)//" hazemmr_file = ",trim(hazemmr_file)
+         write(*,*) "Haze dens datafile"
+         hazedens_file="None"  ! default file
+         call getin("hazedens_file",hazedens_file)
+         write(*,*) trim(rname)//" hazedens_file = ",trim(hazedens_file)
 
 !***************************************************************
Index: trunk/LMDZ.PLUTO.old/libf/phypluto/radii_mod.F90
===================================================================
--- trunk/LMDZ.PLUTO.old/libf/phypluto/radii_mod.F90	(revision 3353)
+++ trunk/LMDZ.PLUTO.old/libf/phypluto/radii_mod.F90	(revision 3357)
@@ -91,5 +91,5 @@
       IF (firstcall) then
         firstcall=.false.
-        file_path=trim(datadir)//'/haze_prop/rad_haze.txt'
+         file_path=trim(datadir)//'/haze_prop/'//hazerad_file
       !   file_path=trim(datadir)//'/haze_prop/hazerad.txt'
         open(223,file=file_path,form='formatted')