subroutine mo_gas_optics_rrtmgp::create_key_species_reduce |
( |
character(len=*), dimension(:), intent(in) | gas_names, |
|
|
character(len=*), dimension(:), intent(in) | gas_names_red, |
|
|
integer, dimension(:,:,:), intent(in) | key_species, |
|
|
integer, dimension(:,:,:), intent(out), allocatable | key_species_red, |
|
|
logical, dimension(:), intent(out), allocatable | key_species_present_init ) |
|
private |