Index: trunk/LMDZ.MARS/libf/phymars/aeropacity.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/aeropacity.F	(revision 190)
+++ trunk/LMDZ.MARS/libf/phymars/aeropacity.F	(revision 222)
@@ -172,5 +172,6 @@
         msolsir(1:nlayer,1:naerkind)=0
         mqextsqabs(1:nlayer,1:naerkind)=0
-        WRITE(*,*) "Typical profiles of solsir and Qext/Qabs(IR):"
+        WRITE(*,*) "Typical profiles of Qext(vis)/Qext(IR)"
+        WRITE(*,*) "  and Qext(IR)/Qabs(IR):"
         DO iaer = 1, naerkind ! Loop on aerosol kind
           WRITE(*,*) "Aerosol # ",iaer
@@ -193,4 +194,9 @@
 !       otherwise default value read from starfi.nc file will be used)
         call getin("tauvis",tauvis)
+
+!       Some information about the water cycle
+        IF (water) THEN
+          write(*,*) "water_param CCN reduc. fac. ", ccn_factor
+        ENDIF
 
         firstcall=.false.
@@ -490,5 +496,4 @@
 !         ccn(ig,l) = ccn(ig,l) / 8.
 c -----------------------------------------------------------------
-       write(*,*) "water_param CCN reduc. fac. ", ccn_factor
        DO l=1,nlayer
          DO ig=1,ngrid
Index: trunk/LMDZ.MARS/libf/phymars/suaer.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/suaer.F90	(revision 190)
+++ trunk/LMDZ.MARS/libf/phymars/suaer.F90	(revision 222)
@@ -100,9 +100,12 @@
 !       Visible domain:
         file_id(iaer,1) = 'optprop_dustvis_TM.dat'     !M.Wolff TM
+!       file_id(iaer,1) = 'optprop_dustvis_clancy.dat' !Clancy-Lee
 !       file_id(iaer,1) = 'optprop_dustvis_ockert.dat' !Ockert-Bell
-!       file_id(iaer,1) = 'optprop_dustvis.dat'        !Clancy-Lee
 !       Infrared domain:
         file_id(iaer,2) = 'optprop_dustir_TM.dat'      !M.Wolff TM
-!       file_id(iaer,2) = 'optprop_dustir_x0.5.dat'    !Toon-Forget
+!       Toon-Forget + solsir=2 using Clancy-Lee
+!       file_id(iaer,2) = 'optprop_dustir_clancy.dat'
+!       Toon-Forget + solsir=2 using Ockert-Bell
+!       file_id(iaer,2) = 'optprop_dustir_ockert.dat'
 !       Reference wavelength in the visible:
         longrefvis(iaer)=0.67E-6