Index: trunk/LMDZ.MARS/libf/phymars/physiq_mod.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/physiq_mod.F	(revision 1633)
+++ trunk/LMDZ.MARS/libf/phymars/physiq_mod.F	(revision 1635)
@@ -2220,5 +2220,7 @@
       !state  real  RICE      ikj   misc  1  -  h  "RICE"      "ICE RADIUS"                      "m"
       comm_RICE(1:ngrid,1:nlayer) = rice(1:ngrid,1:nlayer)
-
+      if (co2clouds) then
+        comm_RICE(1:ngrid,1:nlayer) = riceco2(1:ngrid,1:nlayer)
+      endif
    
       !! calculate sensible heat flux in W/m2 for outputs