compute_Planck_source Subroutine

public subroutine compute_Planck_source(ncol, nlay, nbnd, ngpt, nflav, neta, npres, ntemp, nPlanckTemp, tlay, tlev, tsfc, sfc_lay, fmajor, jeta, tropo, jtemp, jpress, gpoint_bands, band_lims_gpt, pfracin, temp_ref_min, totplnk_delta, totplnk, gpoint_flavor, sfc_src, lay_src, lev_src, sfc_source_Jac) 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)			::	nflav
integer,	intent(in)			::	neta
integer,	intent(in)			::	npres
integer,	intent(in)			::	ntemp
integer,	intent(in)			::	nPlanckTemp
real(kind=wp),	intent(in),		dimension(ncol,nlay )	::	tlay
real(kind=wp),	intent(in),		dimension(ncol,nlay+1)	::	tlev
real(kind=wp),	intent(in),		dimension(ncol )	::	tsfc
integer,	intent(in)			::	sfc_lay
real(kind=wp),	intent(in),		dimension(2,2,2,ncol,nlay,nflav)	::	fmajor
integer,	intent(in),		dimension(2, ncol,nlay,nflav)	::	jeta
logical(kind=wl),	intent(in),		dimension( ncol,nlay)	::	tropo
integer,	intent(in),		dimension( ncol,nlay)	::	jtemp
integer,	intent(in),		dimension( ncol,nlay)	::	jpress
integer,	intent(in),		dimension(ngpt)	::	gpoint_bands
integer,	intent(in),		dimension(2, nbnd)	::	band_lims_gpt
real(kind=wp),	intent(in),		dimension(ntemp,neta,npres+1,ngpt)	::	pfracin
real(kind=wp),	intent(in)			::	temp_ref_min
real(kind=wp),	intent(in)			::	totplnk_delta
real(kind=wp),	intent(in),		dimension(nPlanckTemp,nbnd)	::	totplnk
integer,	intent(in),		dimension(2,ngpt)	::	gpoint_flavor
real(kind=wp),	intent(out),		dimension(ncol, ngpt)	::	sfc_src
real(kind=wp),	intent(out),		dimension(ncol,nlay, ngpt)	::	lay_src
real(kind=wp),	intent(out),		dimension(ncol,nlay+1,ngpt)	::	lev_src
real(kind=wp),	intent(out),		dimension(ncol, ngpt)	::	sfc_source_Jac

Contents

None