subroutine aer_cloud::arg_activ |
( |
real*8, intent(in) |
wparc, |
|
|
real*8, intent(in) |
sigw, |
|
|
real*8, intent(out) |
nact, |
|
|
real*8, intent(out) |
smax, |
|
|
integer, intent(in) |
nmodes, |
|
|
real*8, dimension(nmodes) |
tp_par, |
|
|
real*8, dimension(nmodes) |
dpg_par, |
|
|
real*8, dimension(nmodes) |
kappa_par, |
|
|
real*8, dimension(nmodes) |
sig_par, |
|
|
|
temp_par, |
|
|
|
pres_par |
|
) |
| |
|
private |