53 |
|
|
54 |
REAL, PARAMETER:: cetahb = 0.45, cetamb = 0.8 |
REAL, PARAMETER:: cetahb = 0.45, cetamb = 0.8 |
55 |
INTEGER i, k |
INTEGER i, k |
56 |
REAL zflwp |
REAL zflwp ! liquid water path, in micrometers |
57 |
real fice ! fraction of ice in cloud |
real fice ! fraction of ice in cloud |
58 |
REAL rad_chaud |
REAL rad_chaud ! effective radius of liquid cloud droplets, in micrometers |
59 |
REAL, PARAMETER:: coef_chau = 0.13 |
REAL, PARAMETER:: coef_chau = 0.13 |
60 |
REAL, PARAMETER:: seuil_neb = 0.001, t_glace = 258. |
REAL, PARAMETER:: seuil_neb = 0.001, t_glace = 258. |
61 |
real tc, rei, zfiwp |
real tc, rei, zfiwp |