6 |
c |
c |
7 |
use dimens_m |
use dimens_m |
8 |
use dimphy |
use dimphy |
9 |
use YOMCST |
use SUPHEC_M |
10 |
IMPLICIT none |
IMPLICIT none |
11 |
c |
c |
12 |
c |
c |
15 |
c Arguments: |
c Arguments: |
16 |
c |
c |
17 |
REAL, intent(in):: paprs(klon,klev+1) |
REAL, intent(in):: paprs(klon,klev+1) |
18 |
REAL pplay(klon,klev), t_seri(klon,klev) |
REAL, intent(in):: pplay(klon,klev), t_seri(klon,klev) |
19 |
REAL msulfate(klon,klev) ! masse sulfate ug SO4/m3 [ug/m^3] |
REAL msulfate(klon,klev) ! masse sulfate ug SO4/m3 [ug/m^3] |
20 |
REAL RHcl(klon,klev) ! humidite relative ciel clair |
REAL RHcl(klon,klev) ! humidite relative ciel clair |
21 |
REAL tau_ae(klon,klev,2) ! epaisseur optique aerosol |
REAL tau_ae(klon,klev,2) ! epaisseur optique aerosol |