Index: trunk/LMDZ.MARS/libf/phymars/improvedclouds_mod.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/improvedclouds_mod.F	(revision 3074)
+++ trunk/LMDZ.MARS/libf/phymars/improvedclouds_mod.F	(revision 3075)
@@ -738,10 +738,14 @@
       real,intent(in) :: potcond ! condensible vapor / sublimable ice(kg/kg)
       real :: alpha, beta ! Coefficients for power law
+      real :: defstep,coef ! Default ptimestep of 7.5 mins (iphysiq=5)
       integer,intent(out) :: zimicro ! number of ptimestep division
 
+c      Default ptimestep : defstep (7.5 mins)
+       defstep=88775.*5./960.
+       coef=ptimestep/defstep
 c      Conservative coefficients :
        alpha=1.81846504e+11
        beta=1.54550140e+00
-       zimicro=ceiling(min(max(alpha*abs(potcond)**beta,5.),7000.))
+       zimicro=ceiling(min(max(coef*alpha*abs(potcond)**beta,5.),7000.))
 
       END SUBROUTINE adapt_imicro