55 |
PARAMETER (cetahb = 0.45, cetamb = 0.80) |
PARAMETER (cetahb = 0.45, cetamb = 0.80) |
56 |
! |
! |
57 |
INTEGER i, k |
INTEGER i, k |
58 |
REAL zflwp, zradef, zfice, zmsac |
REAL zflwp, zfice |
59 |
! |
! |
60 |
REAL radius, rad_froid, rad_chaud, rad_chau1, rad_chau2 |
REAL radius, rad_froid, rad_chaud, rad_chau1, rad_chau2 |
61 |
PARAMETER (rad_chau1=13.0, rad_chau2=9.0, rad_froid=35.0) |
PARAMETER (rad_chau1=13.0, rad_chau2=9.0, rad_froid=35.0) |
78 |
REAL re(klon, klev) ! cloud droplet effective radius [um] |
REAL re(klon, klev) ! cloud droplet effective radius [um] |
79 |
REAL sulfate_pi(klon, klev) ! sulfate aerosol mass concentration [ug m-3] (pre-industrial value) |
REAL sulfate_pi(klon, klev) ! sulfate aerosol mass concentration [ug m-3] (pre-industrial value) |
80 |
REAL cdnc_pi(klon, klev) ! cloud droplet number concentration [m-3] (pi value) |
REAL cdnc_pi(klon, klev) ! cloud droplet number concentration [m-3] (pi value) |
|
REAL re_pi(klon, klev) ! cloud droplet effective radius [um] (pi value) |
|
81 |
|
|
82 |
REAL fl(klon, klev) ! xliq * rneb (denominator to re ; fraction of liquid water clouds within the grid cell) |
REAL fl(klon, klev) ! xliq * rneb (denominator to re ; fraction of liquid water clouds within the grid cell) |
83 |
|
|