Changeset 4119 for LMDZ6/trunk/libf/phylmd/newmicro.F90
- Timestamp:
- Mar 29, 2022, 6:01:08 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/newmicro.F90
r4114 r4119 456 456 dei=(1.2351+0.0105*(t(i,k)-273.15))*(45.8966*(iwc**0.2214) + & 457 457 &0.7957*(iwc**0.2535)*(t(i,k)-83.15)) 458 459 deimax=155.0 460 deimin=20.+40*cos(abs(latitude_deg(i))/180.*RPI) 458 !deimax=155.0 459 !deimin=20.+40*cos(abs(latitude_deg(i))/180.*RPI) 460 !Etienne: deimax and deimin controled by rei_max and rei_min in physiq.def 461 deimax=rei_max*2.0 462 deimin=2.0*rei_min+40*cos(abs(latitude_deg(i))/180.*RPI) 461 463 dei=min(dei,deimax) 462 464 dei=max(dei,deimin)
Note: See TracChangeset
for help on using the changeset viewer.