subroutine mo_rte_solver_kernels::lw_combine_sources |
( |
integer, intent(in) | ncol, |
|
|
integer, intent(in) | nlay, |
|
|
logical(wl), intent(in) | top_at_1, |
|
|
real(wp), dimension(ncol, nlay ), intent(in) | lev_src_inc, |
|
|
real(wp), dimension(ncol, nlay ), intent(in) | lev_src_dec, |
|
|
real(wp), dimension(ncol, nlay+1), intent(out) | lev_source ) |
|
private |