subroutine rrtmg_sw::vrtqdr ( real (kind=kind_phys), dimension(nlp1), intent(in)  zrefb, real (kind=kind_phys), dimension(nlp1), intent(in)  zrefd, real (kind=kind_phys), dimension(nlp1), intent(in)  ztrab, real (kind=kind_phys), dimension(nlp1), intent(in)  ztrad, real (kind=kind_phys), dimension(nlp1), intent(in)  zldbt, real (kind=kind_phys), dimension(nlp1), intent(in)  ztdbt, integer, intent(in)  NLAY, integer, intent(in)  NLP1, real (kind=kind_phys), dimension(nlp1), intent(out)  zfu, real (kind=kind_phys), dimension(nlp1), intent(out)  zfd  )

private

Parameters

zrefb	layer direct beam reflectivity
zrefd	layer diffuse reflectivity
ztrab	layer direct beam transmissivity
ztrad	layer diffuse transmissivity
zldbt	layer mean beam transmittance
ztdbt	total beam transmittance at levels
NLAY,NLP1	number of layers/levels
zfu	upward flux at layer interface
zfd	downward flux at layer interface

vrtqdr General Algorithm

1. Link lowest layer with surface.
2. Pass from bottom to top.
3. Upper boundary conditions
4. Pass from top to bottom
5. Up and down-welling fluxes at levels.

Referenced by spcvrtc(), and spcvrtm().