@brief Module MO_SIMPLE_PLUMES: provides anthropogenic aerosol optical properties as a function of lat, lon height, time, and wavelength
@remarks
@author Bjorn Stevens, Stephanie Fiedler and Karsten Peters MPI-Met, Hamburg (v1 release 2016-11-10)
@change-log: - 2016-12-05: beta release (BS, SF and KP, MPI-Met) - 2016-09-28: revised representation of Twomey effect (SF, MPI-Met) - 2015-09-28: bug fixes (SF, MPI-Met) - 2016-10-12: revised maximum longitudinal extent of European plume (KP, SF, MPI-Met) $ID: n/a$
@par Origin Based on code originally developed at the MPI-Met by Karsten Peters, Bjorn Stevens, Stephanie Fiedler and Stefan Kinne with input from Thorsten Mauritsen and Robert Pincus
@par Copyright
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public, | parameter | :: | nplumes | = | 9 | |
| integer, | public, | parameter | :: | nfeatures | = | 2 | |
| integer, | public, | parameter | :: | ntimes | = | 52 | |
| integer, | public, | parameter | :: | nyears | = | 251 | |
| logical, | public, | SAVE | :: | sp_initialized | = | .FALSE. | |
| real, | public, | SAVE | :: | plume_lat(nplumes) | |||
| real, | public, | SAVE | :: | plume_lon(nplumes) | |||
| real, | public, | SAVE | :: | beta_a(nplumes) | |||
| real, | public, | SAVE | :: | beta_b(nplumes) | |||
| real, | public, | SAVE | :: | aod_spmx(nplumes) | |||
| real, | public, | SAVE | :: | aod_fmbg(nplumes) | |||
| real, | public, | SAVE | :: | asy550(nplumes) | |||
| real, | public, | SAVE | :: | ssa550(nplumes) | |||
| real, | public, | SAVE | :: | angstrom(nplumes) | |||
| real, | public, | SAVE | :: | sig_lon_E(nfeatures,nplumes) | |||
| real, | public, | SAVE | :: | sig_lon_W(nfeatures,nplumes) | |||
| real, | public, | SAVE | :: | sig_lat_E(nfeatures,nplumes) | |||
| real, | public, | SAVE | :: | sig_lat_W(nfeatures,nplumes) | |||
| real, | public, | SAVE | :: | theta(nfeatures,nplumes) | |||
| real, | public, | SAVE | :: | ftr_weight(nfeatures,nplumes) | |||
| real, | public, | SAVE | :: | year_weight(nyears,nplumes) | |||
| real, | public, | SAVE | :: | ann_cycle(nfeatures,ntimes,nplumes) | |||
| real, | public | :: | time_weight(nfeatures,nplumes) | ||||
| real, | public | :: | time_weight_bg(nfeatures,nplumes) |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(in) | :: | year_fr |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | nlevels | |||
| integer, | intent(in) | :: | ncol | |||
| real, | intent(in) | :: | lambda | |||
| real, | intent(in) | :: | oro(ncol) | |||
| real, | intent(in) | :: | lon(ncol) | |||
| real, | intent(in) | :: | lat(ncol) | |||
| real, | intent(in) | :: | year_fr | |||
| real, | intent(in) | :: | z(ncol,nlevels) | |||
| real, | intent(in) | :: | dz(ncol,nlevels) | |||
| real, | intent(out) | :: | dNovrN(ncol) | |||
| real, | intent(out) | :: | aod_prof(ncol,nlevels) | |||
| real, | intent(out) | :: | ssa_prof(ncol,nlevels) | |||
| real, | intent(out) | :: | asy_prof(ncol,nlevels) |