subroutine mo_rte_solver_kernels::lw_source_2str |
( |
integer, intent(in) | ncol, |
|
|
integer, intent(in) | nlay, |
|
|
integer, intent(in) | ngpt, |
|
|
logical(wl), intent(in) | top_at_1, |
|
|
real(wp), dimension(ncol , ngpt), intent(in) | sfc_emis, |
|
|
real(wp), dimension(ncol , ngpt), intent(in) | sfc_src, |
|
|
real(wp), dimension(ncol, nlay, ngpt), intent(in) | lay_source, |
|
|
real(wp), dimension(ncol, nlay+1, ngpt), intent(in), target | lev_source, |
|
|
real(wp), dimension(ncol, nlay, ngpt), intent(in) | gamma1, |
|
|
real(wp), dimension(ncol, nlay, ngpt), intent(in) | gamma2, |
|
|
real(wp), dimension(ncol, nlay, ngpt), intent(in) | rdif, |
|
|
real(wp), dimension(ncol, nlay, ngpt), intent(in) | tdif, |
|
|
real(wp), dimension(ncol, nlay, ngpt), intent(in) | tau, |
|
|
real(wp), dimension(ncol, nlay, ngpt), intent(out) | source_dn, |
|
|
real(wp), dimension(ncol, nlay, ngpt), intent(out) | source_up, |
|
|
real(wp), dimension(ncol , ngpt), intent(out) | source_sfc ) |
|
private |