subroutine public mo_gas_optics_kernels::compute_tau_rayleigh |
( |
integer, intent(in) | ncol, |
|
|
integer, intent(in) | nlay, |
|
|
integer, intent(in) | nbnd, |
|
|
integer, intent(in) | ngpt, |
|
|
integer, intent(in) | ngas, |
|
|
integer, intent(in) | nflav, |
|
|
integer, intent(in) | neta, |
|
|
integer, intent(in) | npres, |
|
|
integer, intent(in) | ntemp, |
|
|
integer, dimension(2,ngpt), intent(in) | gpoint_flavor, |
|
|
integer, dimension(2,nbnd), intent(in) | band_lims_gpt, |
|
|
real(wp), dimension(ntemp,neta,ngpt,2), intent(in) | krayl, |
|
|
integer, intent(in) | idx_h2o, |
|
|
real(wp), dimension(ncol,nlay), intent(in) | col_dry, |
|
|
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, |
|
|
logical(wl), dimension(ncol,nlay), intent(in) | tropo, |
|
|
integer, dimension(ncol,nlay), intent(in) | jtemp, |
|
|
real(wp), dimension(ncol,nlay,ngpt), intent(out) | tau_rayleigh ) |