CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches

◆ reduce_minor_arrays()

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

References count().

Here is the call graph for this function: