Go to the source code of this file.
subroutine aeropt_5wv_rrtm |
( |
real, dimension(klon,klev), intent(in) |
pdel, |
|
|
real, dimension(klon,klev,naero_tot), intent(in) |
m_allaer, |
|
|
real, intent(in) |
delt, |
|
|
real, dimension(klon,klev), intent(in) |
RHcl, |
|
|
real, dimension(klon), intent(out) |
ai, |
|
|
integer, intent(in) |
flag_aerosol, |
|
|
real, dimension(klon,klev), intent(in) |
pplay, |
|
|
real, dimension(klon,klev), intent(in) |
t_seri, |
|
|
real, dimension(klon,nwave,naero_tot), intent(out) |
tausum, |
|
|
real, dimension(klon,klev,nwave,naero_tot), intent(out) |
tau |
|
) |
| |