BUGSrad
 All Classes Files Functions Variables
Functions/Subroutines
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.