sw_solver_2stream Subroutine

public subroutine sw_solver_2stream(ncol, nlay, ngpt, top_at_1, tau, ssa, g, mu0, sfc_alb_dir, sfc_alb_dif, inc_flux_dir, flux_up, flux_dn, flux_dir, has_dif_bc, inc_flux_dif, do_broadband, broadband_up, broadband_dn, broadband_dir) bind(C, name="0")

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncol
integer,	intent(in)			::	nlay
integer,	intent(in)			::	ngpt
logical(kind=wl),	intent(in)			::	top_at_1
real(kind=wp),	intent(in),		dimension(ncol,nlay, ngpt)	::	tau
real(kind=wp),	intent(in),		dimension(ncol,nlay, ngpt)	::	ssa
real(kind=wp),	intent(in),		dimension(ncol,nlay, ngpt)	::	g
real(kind=wp),	intent(in),		dimension(ncol,nlay )	::	mu0
real(kind=wp),	intent(in),		dimension(ncol, ngpt)	::	sfc_alb_dir
real(kind=wp),	intent(in),		dimension(ncol, ngpt)	::	sfc_alb_dif
real(kind=wp),	intent(in),		dimension(ncol, ngpt)	::	inc_flux_dir
real(kind=wp),	intent(out),		dimension(ncol,nlay+1,ngpt), target	::	flux_up
real(kind=wp),	intent(out),		dimension(ncol,nlay+1,ngpt), target	::	flux_dn
real(kind=wp),	intent(out),		dimension(ncol,nlay+1,ngpt), target	::	flux_dir
logical(kind=wl),	intent(in)			::	has_dif_bc
real(kind=wp),	intent(in),		dimension(ncol, ngpt)	::	inc_flux_dif
logical(kind=wl),	intent(in)			::	do_broadband
real(kind=wp),	intent(out),		dimension(ncol,nlay+1 )	::	broadband_up
real(kind=wp),	intent(out),		dimension(ncol,nlay+1 )	::	broadband_dn
real(kind=wp),	intent(out),		dimension(ncol,nlay+1 )	::	broadband_dir

Contents

None