Changeset 3281 for LMDZ6/trunk/libf

Timestamp:

Mar 16, 2018, 7:26:14 PM (7 years ago)

Author:

musat

Message:

Correction commission precedente

File:

• LMDZ6/trunk/libf/phylmd/newmicro.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/newmicro.F90

@@ -260 +260 @@
         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(cdnc_max, max(cdnc_min_m3,cdnc_pi(i,k)))
+        cdnc_pi(i, k) = min(cdnc_max_m3, max(cdnc_min_m3,cdnc_pi(i,k)))
 
       ENDDO
@@ -289 +289 @@
           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(cdnc_max, max(cdnc_min_m3,cdnc(i,k)))
+          cdnc(i, k) = min(cdnc_max_m3, max(cdnc_min_m3,cdnc(i,k)))
 
         ENDDO