increment_nstream_by_nstream Subroutine

public pure subroutine increment_nstream_by_nstream(ncol, nlay, ngpt, nmom1, nmom2, tau1, ssa1, p1, tau2, ssa2, p2) bind(C, name="0")

increment one set of n-stream optical properties with another set

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: ncol

array sizes

integer, intent(in) :: nlay

array sizes

integer, intent(in) :: ngpt

array sizes

integer, intent(in) :: nmom1

array sizes

integer, intent(in) :: nmom2

array sizes

real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt):: tau1

optical properties to be modified

real(kind=wp), intent(inout), dimension(ncol,nlay,ngpt):: ssa1

optical properties to be modified

real(kind=wp), intent(inout), dimension(nmom1, ncol,nlay,ngpt):: p1

moments of the phase function be modified

real(kind=wp), intent(in), dimension(ncol,nlay,ngpt):: tau2

optical properties to be added to original

real(kind=wp), intent(in), dimension(ncol,nlay,ngpt):: ssa2

optical properties to be added to original

real(kind=wp), intent(in), dimension(nmom2, ncol,nlay,ngpt):: p2

moments of the phase function to be added


Contents

None