extract_subset_absorption_tau Subroutine
public pure subroutine extract_subset_absorption_tau(ncol, nlay, ngpt, tau_in, ssa_in, colS, colE, tau_out) bind(C, name="0")
Extract the absorption optical thickness
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | ncol | Array sizes |
||
| integer, | intent(in) | :: | nlay | Array sizes |
||
| integer, | intent(in) | :: | ngpt | Array sizes |
||
| real(kind=wp), | intent(in), | dimension(ncol,nlay,ngpt) | :: | tau_in | Optical thickness, single scattering albedo |
|
| real(kind=wp), | intent(in), | dimension(ncol,nlay,ngpt) | :: | ssa_in | Optical thickness, single scattering albedo |
|
| integer, | intent(in) | :: | colS | Starting and ending index |
||
| integer, | intent(in) | :: | colE | Starting and ending index |
||
| real(kind=wp), | intent(out), | dimension(colE-colS+1, nlay,ngpt) | :: | tau_out | absorption optical thickness subset |