Index: trunk/LMDZ.MARS/libf/phymars/updaterad.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/updaterad.F90	(revision 857)
+++ trunk/LMDZ.MARS/libf/phymars/updaterad.F90	(revision 882)
@@ -42,6 +42,6 @@
 real, parameter :: qdust_threshold  = 1.e-20
 
-real, parameter :: r3dustmin = 1.e-21  ! ie rdustmin = 0.1 microns
-real, parameter :: rdustmin  = 0.1e-6
+real, parameter :: r3dustmin = 1.e-24  ! ie rdustmin = 0.1 microns
+real, parameter :: rdustmin  = 0.01e-6
 
 real, parameter :: r3dustmax = 125.e-12 ! ie rdustmax  = 500 microns
Index: trunk/LMDZ.MARS/libf/phymars/watercloud.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/watercloud.F	(revision 857)
+++ trunk/LMDZ.MARS/libf/phymars/watercloud.F	(revision 882)
@@ -244,4 +244,13 @@
           ENDDO
         ENDDO
+        
+        IF (activice) THEN
+          DO l=1,nlay
+            DO ig=1,ngrid
+              subpdt(ig,l) =
+     &            subpdt(ig,l) + subpdtcloud(ig,l)
+            ENDDO
+          ENDDO
+        ENDIF