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 |