two_rt_sw_bs.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	two_rt_sw_bs (ncol, nlm, mbs, ib, slr, amu0, wc, wcclr, asym, asyclr, tau, tauclr, asdir, asdif, fudif, fddir, fddif, sel_rules, b1, b2, b3, b4)

Function/Subroutine Documentation

subroutine two_rt_sw_bs	(	integer (kind=int_kind), intent(in)	ncol,
		integer (kind=int_kind), intent(in)	nlm,
		integer (kind=int_kind), intent(in)	mbs,
		integer (kind=int_kind), intent(in)	ib,
		real (kind=dbl_kind), dimension(ncol), intent(in)	slr,
		real (kind=dbl_kind), dimension(ncol), intent(in)	amu0,
		real (kind=dbl_kind), dimension(ncol,nlm), intent(in)	wc,
		real (kind=dbl_kind), dimension(ncol,nlm), intent(in)	wcclr,
		real (kind=dbl_kind), dimension(ncol,nlm), intent(in)	asym,
		real (kind=dbl_kind), dimension(ncol,nlm), intent(in)	asyclr,
		real (kind=dbl_kind), dimension(ncol,nlm), intent(in)	tau,
		real (kind=dbl_kind), dimension(ncol,nlm), intent(in)	tauclr,
		real (kind=dbl_kind), dimension(ncol,mbs), intent(in)	asdir,
		real (kind=dbl_kind), dimension(ncol,mbs), intent(in)	asdif,
		real (kind=dbl_kind), dimension(ncol,nlm+1), intent(out)	fudif,
		real (kind=dbl_kind), dimension(ncol,nlm+1), intent(out)	fddir,
		real (kind=dbl_kind), dimension(ncol,nlm+1), intent(out)	fddif,
		logical (kind=log_kind), intent(in)	sel_rules,
		real (kind=dbl_kind), dimension(ncol,nlm), intent(in)	b1,
		real (kind=dbl_kind), dimension(ncol,nlm), intent(in)	b2,
		real (kind=dbl_kind), dimension(ncol,nlm), intent(in)	b3,
		real (kind=dbl_kind), dimension(ncol,nlm), intent(in)	b4
	)

Definition at line 8 of file two_rt_sw_bs.f.