1) Get aerosol mass
2) Calculate optical properties for the aerosols
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| logical, | intent(in) | :: | debut | |||
| logical, | intent(in) | :: | aerosol_couple | |||
| logical, | intent(in) | :: | ok_alw | |||
| logical, | intent(in) | :: | ok_volcan | |||
| integer, | intent(in) | :: | flag_aerosol | |||
| logical, | intent(in) | :: | flag_bc_internal_mixture | |||
| integer, | intent(in) | :: | itap | |||
| real, | intent(in) | :: | rjourvrai | |||
| real, | intent(in) | :: | pdtphys | |||
| real, | intent(in), | DIMENSION(klon,klev) | :: | pplay | ||
| real, | intent(in), | DIMENSION(klon,klev+1) | :: | paprs | ||
| real, | intent(in), | DIMENSION(klon,klev) | :: | t_seri | ||
| real, | intent(in), | DIMENSION(klon,klev) | :: | rhcl | ||
| real, | intent(in), | DIMENSION(klev) | :: | presnivs | ||
| real, | intent(in), | DIMENSION(klon,klev,nbtr) | :: | tr_seri |
|
|
| real, | intent(out), | DIMENSION(klon,klev) | :: | mass_solu_aero | ||
| real, | intent(out), | DIMENSION(klon,klev) | :: | mass_solu_aero_pi | ||
| real, | intent(out), | DIMENSION(klon,klev,2,NSW) | :: | tau_aero | ||
| real, | intent(out), | DIMENSION(klon,klev,2,NSW) | :: | piz_aero | ||
| real, | intent(out), | DIMENSION(klon,klev,2,NSW) | :: | cg_aero | ||
| real, | intent(out), | DIMENSION(klon,nwave,naero_tot) | :: | tausum_aero | ||
| real, | intent(out), | DIMENSION(klon,naero_tot) | :: | drytausum_aero | ||
| real, | intent(out), | DIMENSION(klon,klev,nwave,naero_tot) | :: | tau3d_aero |
|