Index: trunk/LMDZ.MARS/libf/phymars/improvedco2clouds_mod.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/improvedco2clouds_mod.F90	(revision 2386)
+++ trunk/LMDZ.MARS/libf/phymars/improvedco2clouds_mod.F90	(revision 2387)
@@ -485,6 +485,8 @@
         ! WIP: cas où satu < 1 et donc si on a de la glace de co2 et que T > Tcond, alors on relache notre glace en vap
       else
-          write(*,*)zq(1,l,igcm_co2_ice), tcond(1,l), zt(1,l), satu
-        stop
+          if (tcond(ig,l) <= zt(ig,l) .and. zq(ig,l,igcm_co2_ice) >= threshold) then
+            zq(ig,l,igcm_co2) = zq(ig,l,igcm_co2) + zq(ig,l,igcm_co2_ice)
+            zq(ig,l,igcm_co2_ice) = 0.
+          end if
       end if ! of is satu > 1
 !----------------------------------------------------------------------------------------------------------------------!