subroutine mo_gas_optics_rrtmgp::create_idx_minor |
( |
character(len=*), dimension(:), intent(in) | gas_names, |
|
|
character(len=*), dimension(:), intent(in) | gas_minor, |
|
|
character(len=*), dimension(:), intent(in) | identifier_minor, |
|
|
character(len=*), dimension(:), intent(in) | minor_gases_atm, |
|
|
integer, dimension(:), intent(out), allocatable | idx_minor_atm ) |
|
private |