increment_1scalar_by_1scalar Interface

interface

increase one absorption optical depth by a second value


public pure subroutine increment_1scalar_by_1scalar(ncol, nlay, ngpt, tau1, tau2) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: ncol

array sizes

integer, intent(in) :: nlay

array sizes

integer, intent(in) :: ngpt

array sizes

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

optical properties to be modified

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

optical properties to be added to original