compute_tau_absorption Subroutine

public subroutine compute_tau_absorption(ncol, nlay, nbnd, ngpt, ngas, nflav, neta, npres, ntemp, nminorlower, nminorklower, nminorupper, nminorkupper, idx_h2o, gpoint_flavor, band_lims_gpt, kmajor, kminor_lower, kminor_upper, minor_limits_gpt_lower, minor_limits_gpt_upper, minor_scales_with_density_lower, minor_scales_with_density_upper, scale_by_complement_lower, scale_by_complement_upper, idx_minor_lower, idx_minor_upper, idx_minor_scaling_lower, idx_minor_scaling_upper, kminor_start_lower, kminor_start_upper, tropo, col_mix, fmajor, fminor, play, tlay, col_gas, jeta, jtemp, jpress, tau) bind(C, name="0")

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncol
integer,	intent(in)			::	nlay
integer,	intent(in)			::	nbnd
integer,	intent(in)			::	ngpt
integer,	intent(in)			::	ngas
integer,	intent(in)			::	nflav
integer,	intent(in)			::	neta
integer,	intent(in)			::	npres
integer,	intent(in)			::	ntemp
integer,	intent(in)			::	nminorlower
integer,	intent(in)			::	nminorklower
integer,	intent(in)			::	nminorupper
integer,	intent(in)			::	nminorkupper
integer,	intent(in)			::	idx_h2o
integer,	intent(in),		dimension(2,ngpt)	::	gpoint_flavor
integer,	intent(in),		dimension(2,nbnd)	::	band_lims_gpt
real(kind=wp),	intent(in),		dimension(ntemp,neta,npres+1,ngpt)	::	kmajor
real(kind=wp),	intent(in),		dimension(ntemp,neta,nminorklower)	::	kminor_lower
real(kind=wp),	intent(in),		dimension(ntemp,neta,nminorkupper)	::	kminor_upper
integer,	intent(in),		dimension(2,nminorlower)	::	minor_limits_gpt_lower
integer,	intent(in),		dimension(2,nminorupper)	::	minor_limits_gpt_upper
logical(kind=wl),	intent(in),		dimension( nminorlower)	::	minor_scales_with_density_lower
logical(kind=wl),	intent(in),		dimension( nminorupper)	::	minor_scales_with_density_upper
logical(kind=wl),	intent(in),		dimension( nminorlower)	::	scale_by_complement_lower
logical(kind=wl),	intent(in),		dimension( nminorupper)	::	scale_by_complement_upper
integer,	intent(in),		dimension( nminorlower)	::	idx_minor_lower
integer,	intent(in),		dimension( nminorupper)	::	idx_minor_upper
integer,	intent(in),		dimension( nminorlower)	::	idx_minor_scaling_lower
integer,	intent(in),		dimension( nminorupper)	::	idx_minor_scaling_upper
integer,	intent(in),		dimension( nminorlower)	::	kminor_start_lower
integer,	intent(in),		dimension( nminorupper)	::	kminor_start_upper
logical(kind=wl),	intent(in),		dimension(ncol,nlay)	::	tropo
real(kind=wp),	intent(in),		dimension(2, ncol,nlay,nflav )	::	col_mix
real(kind=wp),	intent(in),		dimension(2,2,2,ncol,nlay,nflav )	::	fmajor
real(kind=wp),	intent(in),		dimension(2,2, ncol,nlay,nflav )	::	fminor
real(kind=wp),	intent(in),		dimension( ncol,nlay )	::	play
real(kind=wp),	intent(in),		dimension( ncol,nlay )	::	tlay
real(kind=wp),	intent(in),		dimension( ncol,nlay,0:ngas)	::	col_gas
integer,	intent(in),		dimension(2, ncol,nlay,nflav )	::	jeta
integer,	intent(in),		dimension( ncol,nlay )	::	jtemp
integer,	intent(in),		dimension( ncol,nlay )	::	jpress
real(kind=wp),	intent(inout),		dimension(ncol,nlay,ngpt)	::	tau

Contents

None