subroutine mo_gas_optics_kernels::gas_optical_depths_minor |
( |
integer, intent(in) | ncol, |
|
|
integer, intent(in) | nlay, |
|
|
integer, intent(in) | ngpt, |
|
|
integer, intent(in) | ngas, |
|
|
integer, intent(in) | nflav, |
|
|
integer, intent(in) | ntemp, |
|
|
integer, intent(in) | neta, |
|
|
integer, intent(in) | nminor, |
|
|
integer, intent(in) | nminork, |
|
|
integer, intent(in) | idx_h2o, |
|
|
integer, dimension(ngpt), intent(in) | gpt_flv, |
|
|
real(wp), dimension(ntemp,neta,nminork), intent(in) | kminor, |
|
|
integer, dimension(2,nminor), intent(in) | minor_limits_gpt, |
|
|
logical(wl), dimension( nminor), intent(in) | minor_scales_with_density, |
|
|
logical(wl), dimension( nminor), intent(in) | scale_by_complement, |
|
|
integer, dimension( nminor), intent(in) | idx_minor, |
|
|
integer, dimension( nminor), intent(in) | idx_minor_scaling, |
|
|
integer, dimension( nminor), intent(in) | kminor_start, |
|
|
real(wp), dimension(ncol,nlay), intent(in) | play, |
|
|
real(wp), dimension(ncol,nlay), intent(in) | tlay, |
|
|
real(wp), dimension(ncol,nlay,0:ngas), intent(in) | col_gas, |
|
|
real(wp), dimension(2,2,ncol,nlay,nflav), intent(in) | fminor, |
|
|
integer, dimension(2, ncol,nlay,nflav), intent(in) | jeta, |
|
|
integer, dimension(ncol, 2), intent(in) | layer_limits, |
|
|
integer, dimension(ncol,nlay), intent(in) | jtemp, |
|
|
real(wp), dimension(ncol,nlay,ngpt), intent(inout) | tau ) |
|
private |