ty_aerosol_optics_rrtmgp_merra Derived Type
type, public, extends(ty_optical_props) :: ty_aerosol_optics_rrtmgp_merra
Inherits
Components
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=wp), | public, | dimension(:,:,: ), allocatable | :: | aero_bcar_rh_tbl | |||
| real(kind=wp), | public, | dimension(:,: ), allocatable | :: | aero_bcar_tbl | |||
| real(kind=wp), | public, | dimension(:,:,: ), allocatable | :: | aero_dust_tbl | |||
| real(kind=wp), | public, | dimension(:,:,: ), allocatable | :: | aero_ocar_rh_tbl | |||
| real(kind=wp), | public, | dimension(:,: ), allocatable | :: | aero_ocar_tbl | |||
| real(kind=wp), | public, | dimension(:), allocatable | :: | aero_rh(:) | |||
| real(kind=wp), | public, | dimension(:,:,:,:), allocatable | :: | aero_salt_tbl | |||
| real(kind=wp), | public, | dimension(:,:,: ), allocatable | :: | aero_sulf_tbl | |||
| real(kind=wp), | public, | dimension(:,:), allocatable | :: | merra_aero_bin_lims |
Type-Bound Procedures
procedure, public :: aerosol_optics
-
private function aerosol_optics(this, aero_type, aero_size, aero_mass, relhum, optical_props) result(error_msg)
Arguments
Type Intent Optional Attributes Name class(ty_aerosol_optics_rrtmgp_merra), intent(in) :: this integer, intent(in) :: aero_type(:,:) real(kind=wp), intent(in) :: aero_size(:,:) real(kind=wp), intent(in) :: aero_mass(:,:) real(kind=wp), intent(in) :: relhum(:,:) class(ty_optical_props_arry), intent(inout) :: optical_props Return Value character(len=128)
procedure, public :: finalize
-
private subroutine finalize(this)
Arguments
Type Intent Optional Attributes Name class(ty_aerosol_optics_rrtmgp_merra), intent(inout) :: this
generic, public :: load => load_lut
-
private function load_lut(this, band_lims_wvn, merra_aero_bin_lims, aero_rh, aero_dust_tbl, aero_salt_tbl, aero_sulf_tbl, aero_bcar_tbl, aero_bcar_rh_tbl, aero_ocar_tbl, aero_ocar_rh_tbl) result(error_msg)
Arguments
Type Intent Optional Attributes Name class(ty_aerosol_optics_rrtmgp_merra), intent(inout) :: this real(kind=wp), intent(in), dimension(:,:) :: band_lims_wvn real(kind=wp), intent(in), dimension(:,:) :: merra_aero_bin_lims real(kind=wp), intent(in), dimension(:) :: aero_rh real(kind=wp), intent(in), dimension(:,:,:) :: aero_dust_tbl real(kind=wp), intent(in), dimension(:,:,:,:) :: aero_salt_tbl real(kind=wp), intent(in), dimension(:,:,:) :: aero_sulf_tbl real(kind=wp), intent(in), dimension(:,:) :: aero_bcar_tbl real(kind=wp), intent(in), dimension(:,:,:) :: aero_bcar_rh_tbl real(kind=wp), intent(in), dimension(:,:) :: aero_ocar_tbl real(kind=wp), intent(in), dimension(:,:,:) :: aero_ocar_rh_tbl Return Value character(len=128)