subroutine rrtmg_lw::rtrnmr |
( |
real (kind=kind_phys), dimension(nbands), intent(in) |
semiss, |
|
|
real (kind=kind_phys), dimension(nlay), intent(in) |
delp, |
|
|
real (kind=kind_phys), dimension(0:nlp1), intent(in) |
cldfrc, |
|
|
real (kind=kind_phys), dimension(nbands,nlay), intent(in) |
taucld, |
|
|
real (kind=kind_phys), dimension(ngptlw,nlay), intent(in) |
tautot, |
|
|
real (kind=kind_phys), dimension(nbands,0:nlay), intent(in) |
pklay, |
|
|
real (kind=kind_phys), dimension(nbands,0:nlay), intent(in) |
pklev, |
|
|
real (kind=kind_phys), dimension(ngptlw,nlay), intent(in) |
fracs, |
|
|
real (kind=kind_phys), dimension(nbands), intent(in) |
secdif, |
|
|
integer, intent(in) |
nlay, |
|
|
integer, intent(in) |
nlp1, |
|
|
real (kind=kind_phys), dimension(0:nlay), intent(out) |
totuflux, |
|
|
real (kind=kind_phys), dimension(0:nlay), intent(out) |
totdflux, |
|
|
real (kind=kind_phys), dimension(nlay), intent(out) |
htr, |
|
|
real (kind=kind_phys), dimension(0:nlay), intent(out) |
totuclfl, |
|
|
real (kind=kind_phys), dimension(0:nlay), intent(out) |
totdclfl, |
|
|
real (kind=kind_phys), dimension(nlay), intent(out) |
htrcl, |
|
|
real (kind=kind_phys), dimension(nlay,nbands), intent(out) |
htrb |
|
) |
| |
|
private |