subroutine mo_gas_optics_rrtmgp::reduce_minor_arrays |
( |
class(ty_gas_concs), intent(in) | available_gases, |
|
|
character(len=*), dimension(:), intent(in) | gas_minor, |
|
|
character(len=*), dimension(:), intent(in) | identifier_minor, |
|
|
real(wp), dimension(:,:,:), intent(in) | kminor_atm, |
|
|
character(len=*), dimension(:), intent(in) | minor_gases_atm, |
|
|
integer, dimension(:,:), intent(in) | minor_limits_gpt_atm, |
|
|
logical(wl), dimension(:), intent(in) | minor_scales_with_density_atm, |
|
|
character(len=*), dimension(:), intent(in) | scaling_gas_atm, |
|
|
logical(wl), dimension(:), intent(in) | scale_by_complement_atm, |
|
|
integer, dimension(:), intent(in) | kminor_start_atm, |
|
|
real(wp), dimension(:,:,:), intent(out), allocatable | kminor_atm_red, |
|
|
character(len=*), dimension(:), intent(out), allocatable | minor_gases_atm_red, |
|
|
integer, dimension(:,:), intent(out), allocatable | minor_limits_gpt_atm_red, |
|
|
logical(wl), dimension(:), intent(out), allocatable | minor_scales_with_density_atm_red, |
|
|
character(len=*), dimension(:), intent(out), allocatable | scaling_gas_atm_red, |
|
|
logical(wl), dimension(:), intent(out), allocatable | scale_by_complement_atm_red, |
|
|
integer, dimension(:), intent(out), allocatable | kminor_start_atm_red ) |
|
private |