Changeset 1305 for LMDZ4/trunk
- Timestamp:
- Jan 29, 2010, 3:33:00 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/newmicro.F
r1286 r1305 170 170 ! 171 171 cdnc_pi(i,k) = 10.**(bl95_b0+bl95_b1* 172 & log(MAX(mass_solu_aero_pi(i,k),1.e-4))/log(10.))*1.e6 !-m-3 172 & log(MAX(mass_solu_aero_pi(i,k),1.e-4))/log(10.)) 173 & *1.e6 !-m-3 173 174 cdnc_pi(i,k)=MIN(1000.e6,MAX(20.e6,cdnc_pi(i,k))) 174 175 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.