subroutine mo_rte_solver_kernels::lw_source_noscat |
( |
integer, intent(in) | ncol, |
|
|
integer, intent(in) | nlay, |
|
|
real(wp), dimension(ncol, nlay), intent(in) | lay_source, |
|
|
real(wp), dimension(ncol, nlay), intent(in) | lev_source_up, |
|
|
real(wp), dimension(ncol, nlay), intent(in) | lev_source_dn, |
|
|
real(wp), dimension(ncol, nlay), intent(in) | tau, |
|
|
real(wp), dimension(ncol, nlay), intent(in) | trans, |
|
|
real(wp), dimension(ncol, nlay), intent(out) | source_dn, |
|
|
real(wp), dimension(ncol, nlay), intent(out) | source_up ) |
|
private |