subroutine mo_rte_solver_kernels::lw_solver_noscat_oneangle |
( |
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) | d, |
|
|
real(wp), intent(in) | weight, |
|
|
real(wp), dimension(ncol,nlay, ngpt), intent(in) | tau, |
|
|
real(wp), dimension(ncol,nlay, ngpt), intent(in) | lay_source, |
|
|
real(wp), dimension(ncol,nlay, ngpt), intent(in), target | lev_source_inc, |
|
|
real(wp), dimension(ncol,nlay, ngpt), intent(in), target | lev_source_dec, |
|
|
real(wp), dimension(ncol, ngpt), intent(in) | sfc_emis, |
|
|
real(wp), dimension(ncol, ngpt), intent(in) | sfc_src, |
|
|
real(wp), dimension(ncol, ngpt), intent(in) | incident_flux, |
|
|
real(wp), dimension(ncol,nlay+1,ngpt), intent(out), target | flux_up, |
|
|
real(wp), dimension(ncol,nlay+1,ngpt), intent(out), target | flux_dn, |
|
|
logical(wl), intent(in) | do_broadband, |
|
|
real(wp), dimension(ncol,nlay+1 ), intent(out) | broadband_up, |
|
|
real(wp), dimension(ncol,nlay+1 ), intent(out) | broadband_dn, |
|
|
logical(wl), intent(in) | do_jacobians, |
|
|
real(wp), dimension(ncol ,ngpt), intent(in) | sfc_srcjac, |
|
|
real(wp), dimension(ncol,nlay+1 ), intent(out) | flux_upjac, |
|
|
logical(wl), intent(in) | do_rescaling, |
|
|
real(wp), dimension(ncol,nlay ,ngpt), intent(in) | ssa, |
|
|
real(wp), dimension(ncol,nlay ,ngpt), intent(in) | g ) |
|
private |