pure subroutine mo_rte_solver_kernels::sw_dif_and_source |
( |
integer, intent(in) | ncol, |
|
|
integer, intent(in) | nlay, |
|
|
logical(wl), intent(in) | top_at_1, |
|
|
real(wp), dimension(ncol,nlay ), intent(in) | mu0, |
|
|
real(wp), dimension(ncol ), intent(in) | sfc_albedo, |
|
|
real(wp), dimension(ncol,nlay ), intent(in) | tau, |
|
|
real(wp), dimension(ncol,nlay ), intent(in) | w0, |
|
|
real(wp), dimension(ncol,nlay ), intent(in) | g, |
|
|
real(wp), dimension(ncol,nlay ), intent(out) | rdif, |
|
|
real(wp), dimension(ncol,nlay ), intent(out) | tdif, |
|
|
real(wp), dimension(ncol,nlay ), intent(out) | source_dn, |
|
|
real(wp), dimension(ncol,nlay ), intent(out) | source_up, |
|
|
real(wp), dimension(ncol ), intent(out) | source_sfc, |
|
|
real(wp), dimension(ncol,nlay+1), intent(inout), target | flux_dn_dir ) |
|
private |