pure subroutine mo_optical_props_kernels::inc_nstream_by_2stream_bybnd |
( |
integer, intent(in) | ncol, |
|
|
integer, intent(in) | nlay, |
|
|
integer, intent(in) | ngpt, |
|
|
integer, intent(in) | nmom1, |
|
|
real(wp), dimension(ncol,nlay,ngpt), intent(inout) | tau1, |
|
|
real(wp), dimension(ncol,nlay,ngpt), intent(inout) | ssa1, |
|
|
real(wp), dimension(nmom1, ncol,nlay,ngpt), intent(inout) | p1, |
|
|
real(wp), dimension(ncol,nlay,nbnd), intent(in) | tau2, |
|
|
real(wp), dimension(ncol,nlay,nbnd), intent(in) | ssa2, |
|
|
real(wp), dimension(ncol,nlay,nbnd), intent(in) | g2, |
|
|
integer, intent(in) | nbnd, |
|
|
integer, dimension(2,nbnd), intent(in) | gpt_lims ) |