CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches

◆ extract_subset_absorption_tau()

pure subroutine mo_optical_props_kernels::extract_subset_absorption_tau ( integer, intent(in) ncol,
integer, intent(in) nlay,
integer, intent(in) ngpt,
real(wp), dimension(ncol,nlay,ngpt), intent(in) tau_in,
real(wp), dimension(ncol,nlay,ngpt), intent(in) ssa_in,
integer, intent(in) cols,
integer, intent(in) cole,
real(wp), dimension(cole-cols+1, nlay,ngpt), intent(out) tau_out )