Changeset 535 for LMDZ.3.3/branches
- Timestamp:
- Jun 3, 2004, 11:30:12 AM (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/phylmd/newmicro.F
r517 r535 190 190 . 1.1 * ( (pqlwp(i,k) * pplay(i,k) / (RD * T(i,k)) ) 191 191 . / (4./3. * RPI * 1000. * cdnc_pi(i,k)) )**(1./3.) 192 radius = MAX(radius*1.e6, 3.)192 radius = MAX(radius*1.e6, 5.) 193 193 194 194 tc = t(i,k)-273.15
Note: See TracChangeset
for help on using the changeset viewer.