Index: LMDZ6/trunk/libf/phylmd/newmicro.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/newmicro.F90	(revision 3258)
+++ LMDZ6/trunk/libf/phylmd/newmicro.F90	(revision 3265)
@@ -1,5 +1,3 @@
 ! $Id$
-
-
 
 SUBROUTINE newmicro(ok_cdnc, bl95_b0, bl95_b1, paprs, pplay, t, pqlwp, pclc, &
@@ -10,8 +8,10 @@
   USE dimphy
   USE phys_local_var_mod, ONLY: scdnc, cldncl, reffclwtop, lcc, reffclws, &
-    reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra, zfice
+      reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra, zfice
   USE phys_state_var_mod, ONLY: rnebcon, clwcon
   USE icefrac_lsc_mod ! computes ice fraction (JBM 3/14)
   USE ioipsl_getin_p_mod, ONLY : getin_p
+  USE print_control_mod, ONLY: lunout
+
 
   IMPLICIT NONE
@@ -181,6 +181,7 @@
   if (first) THEN
       call getin_p('cdnc_min',cdnc_min)
-      cdnc_min_m3=cdnc_min*1E6
+      cdnc_min_m3=cdnc_min*1.E6
       IF (cdnc_min_m3<0.) cdnc_min_m3=20.E6 ! astuce pour retrocompatibilite
+      write(lunout,*)'cdnc_min=', cdnc_min_m3/1.E6
   ENDIF