subroutine mo_rte_solver_kernels::lw_transport_1rescl |
( |
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) | trans, |
|
|
real(wp), dimension(ncol,nlay ,ngpt), intent(in) | source_dn, |
|
|
real(wp), dimension(ncol,nlay ,ngpt), intent(in) | source_up, |
|
|
real(wp), dimension(ncol,nlay+1,ngpt), intent(inout) | radn_up, |
|
|
real(wp), dimension(ncol,nlay+1,ngpt), intent(inout) | radn_dn, |
|
|
real(wp), dimension(ncol,nlay ,ngpt), intent(in) | an, |
|
|
real(wp), dimension(ncol,nlay ,ngpt), intent(in) | cn, |
|
|
logical(wl), intent(in) | do_jacobians, |
|
|
real(wp), dimension(ncol,nlay+1,ngpt), intent(inout) | radn_up_jac ) |
|
private |