Changeset 535 for LMDZ.3.3


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

Correction pour diagnostiques JLD
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/newmicro.F

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