extract_subset Interface

public interface extract_subset

Calls

interface~~extract_subset~3~~CallsGraph interface~extract_subset~3 extract_subset proc~extract_subset_dim1_3d~2 extract_subset_dim1_3d interface~extract_subset~3->proc~extract_subset_dim1_3d~2 proc~extract_subset_absorption_tau~2 extract_subset_absorption_tau interface~extract_subset~3->proc~extract_subset_absorption_tau~2 proc~extract_subset_dim2_4d~2 extract_subset_dim2_4d interface~extract_subset~3->proc~extract_subset_dim2_4d~2

Contents


Module Procedures

public subroutine extract_subset_dim1_3d(ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: ncol
integer, intent(in) :: nlay
integer, intent(in) :: ngpt
real(kind=wp), intent(in), dimension(ncol,nlay,ngpt):: array_in
integer, intent(in) :: colS
integer, intent(in) :: colE
real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt):: array_out

public subroutine extract_subset_dim2_4d(nmom, ncol, nlay, ngpt, array_in, colS, colE, array_out) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: nmom
integer, intent(in) :: ncol
integer, intent(in) :: nlay
integer, intent(in) :: ngpt
real(kind=wp), intent(in), dimension(nmom,ncol,nlay,ngpt):: array_in
integer, intent(in) :: colS
integer, intent(in) :: colE
real(kind=wp), intent(out), dimension(nmom,colE-colS+1, nlay,ngpt):: array_out

public subroutine extract_subset_absorption_tau(ncol, nlay, ngpt, tau_in, ssa_in, colS, colE, tau_out) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: ncol
integer, intent(in) :: nlay
integer, intent(in) :: ngpt
real(kind=wp), intent(in), dimension(ncol,nlay,ngpt):: tau_in
real(kind=wp), intent(in), dimension(ncol,nlay,ngpt):: ssa_in
integer, intent(in) :: colS
integer, intent(in) :: colE
real(kind=wp), intent(out), dimension(colE-colS+1, nlay,ngpt):: tau_out