Changeset 534


Ignore:
Timestamp:
Jun 3, 2004, 11:22:43 AM (20 years ago)
Author:
lmdzadmin
Message:

Correction pour diagnostiques JLD
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/newmicro.F

    r524 r534  
    193193     .           1.1 * ( (pqlwp(i,k) * pplay(i,k) / (RD * T(i,k)) ) 
    194194     .               / (4./3. * RPI * 1000. * cdnc_pi(i,k)) )**(1./3.)
    195             radius = MAX(radius*1.e6, 3.)
     195            radius = MAX(radius*1.e6, 5.)
    196196           
    197197            tc = t(i,k)-273.15
Note: See TracChangeset for help on using the changeset viewer.