subroutine public mo_gas_optics_kernels::compute_tau_absorption |
( |
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, intent(in) | nminorlower, |
|
|
integer, intent(in) | nminorklower, |
|
|
integer, intent(in) | nminorupper, |
|
|
integer, intent(in) | nminorkupper, |
|
|
integer, intent(in) | idx_h2o, |
|
|
integer, dimension(2,ngpt), intent(in) | gpoint_flavor, |
|
|
integer, dimension(2,nbnd), intent(in) | band_lims_gpt, |
|
|
real(wp), dimension(ntemp,neta,npres+1,ngpt), intent(in) | kmajor, |
|
|
real(wp), dimension(ntemp,neta,nminorklower), intent(in) | kminor_lower, |
|
|
real(wp), dimension(ntemp,neta,nminorkupper), intent(in) | kminor_upper, |
|
|
integer, dimension(2,nminorlower), intent(in) | minor_limits_gpt_lower, |
|
|
integer, dimension(2,nminorupper), intent(in) | minor_limits_gpt_upper, |
|
|
logical(wl), dimension( nminorlower), intent(in) | minor_scales_with_density_lower, |
|
|
logical(wl), dimension( nminorupper), intent(in) | minor_scales_with_density_upper, |
|
|
logical(wl), dimension( nminorlower), intent(in) | scale_by_complement_lower, |
|
|
logical(wl), dimension( nminorupper), intent(in) | scale_by_complement_upper, |
|
|
integer, dimension( nminorlower), intent(in) | idx_minor_lower, |
|
|
integer, dimension( nminorupper), intent(in) | idx_minor_upper, |
|
|
integer, dimension( nminorlower), intent(in) | idx_minor_scaling_lower, |
|
|
integer, dimension( nminorupper), intent(in) | idx_minor_scaling_upper, |
|
|
integer, dimension( nminorlower), intent(in) | kminor_start_lower, |
|
|
integer, dimension( nminorupper), intent(in) | kminor_start_upper, |
|
|
logical(wl), dimension(ncol,nlay), intent(in) | tropo, |
|
|
real(wp), dimension(2, ncol,nlay,nflav ), intent(in) | col_mix, |
|
|
real(wp), dimension(2,2,2,ncol,nlay,nflav ), intent(in) | fmajor, |
|
|
real(wp), dimension(2,2, ncol,nlay,nflav ), intent(in) | fminor, |
|
|
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, |
|
|
integer, dimension(2, ncol,nlay,nflav ), intent(in) | jeta, |
|
|
integer, dimension( ncol,nlay ), intent(in) | jtemp, |
|
|
integer, dimension( ncol,nlay ), intent(in) | jpress, |
|
|
real(wp), dimension(ncol,nlay,ngpt), intent(inout) | tau ) |