pure subroutine public mo_rte_solver_kernels::sw_solver_noscat | ( | integer, intent(in) | ncol, |
integer, intent(in) | nlay, | ||
integer, intent(in) | ngpt, | ||
logical(wl), intent(in) | top_at_1, | ||
real(wp), dimension(ncol,nlay, ngpt), intent(in) | tau, | ||
real(wp), dimension(ncol,nlay ), intent(in) | mu0, | ||
real(wp), dimension(ncol, ngpt), intent(in) | inc_flux_dir, | ||
real(wp), dimension(ncol,nlay+1,ngpt), intent(out) | flux_dir ) |