Index: LMDZ6/trunk/libf/phylmd/newmicro.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/newmicro.F90	(revision 3279)
+++ LMDZ6/trunk/libf/phylmd/newmicro.F90	(revision 3280)
@@ -168,4 +168,7 @@
   REAL,SAVE :: cdnc_min_m3
   !$OMP THREADPRIVATE(cdnc_min,cdnc_min_m3)
+  REAL,SAVE :: cdnc_max=-1.
+  REAL,SAVE :: cdnc_max_m3
+  !$OMP THREADPRIVATE(cdnc_max,cdnc_max_m3)
 
   ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -186,4 +189,8 @@
       IF (cdnc_min_m3<0.) cdnc_min_m3=20.E6 ! astuce pour retrocompatibilite
       write(lunout,*)'cdnc_min=', cdnc_min_m3/1.E6
+      call getin_p('cdnc_max',cdnc_max)
+      cdnc_max_m3=cdnc_max*1.E6
+      IF (cdnc_max_m3<0.) cdnc_max_m3=1000.E6 ! astuce pour retrocompatibilite
+      write(lunout,*)'cdnc_max=', cdnc_max_m3/1.E6
   ENDIF
 
@@ -253,5 +260,5 @@
         cdnc_pi(i, k) = 10.**(bl95_b0+bl95_b1*log(max(mass_solu_aero_pi(i,k), &
           1.E-4))/log(10.))*1.E6 !-m-3
-        cdnc_pi(i, k) = min(1000.E6, max(cdnc_min_m3,cdnc_pi(i,k)))
+        cdnc_pi(i, k) = min(cdnc_max, max(cdnc_min_m3,cdnc_pi(i,k)))
 
       ENDDO
@@ -282,5 +289,5 @@
           cdnc(i, k) = 10.**(bl95_b0+bl95_b1*log(max(mass_solu_aero(i,k), &
             1.E-4))/log(10.))*1.E6 !-m-3
-          cdnc(i, k) = min(1000.E6, max(cdnc_min_m3,cdnc(i,k)))
+          cdnc(i, k) = min(cdnc_max, max(cdnc_min_m3,cdnc(i,k)))
 
         ENDDO