subroutine rrtmg_sw::spcvrtm |
( |
real (kind=kind_phys), intent(in) |
ssolar, |
|
|
real (kind=kind_phys), intent(in) |
cosz, |
|
|
real (kind=kind_phys), intent(in) |
sntz, |
|
|
real (kind=kind_phys), dimension(2), intent(in) |
albbm, |
|
|
real (kind=kind_phys), dimension(2), intent(in) |
albdf, |
|
|
real (kind=kind_phys), dimension(ngptsw), intent(in) |
sfluxzen, |
|
|
real (kind=kind_phys), dimension(nlay,ngptsw), intent(in) |
cldfmc, |
|
|
real (kind=kind_phys), intent(in) |
cf1, |
|
|
real (kind=kind_phys), intent(in) |
cf0, |
|
|
real (kind=kind_phys), dimension(nlay,ngptsw), intent(in) |
taug, |
|
|
real (kind=kind_phys), dimension(nlay,ngptsw), intent(in) |
taur, |
|
|
real (kind=kind_phys), dimension(nlay,nbdsw), intent(in) |
tauae, |
|
|
real (kind=kind_phys), dimension(nlay,nbdsw), intent(in) |
ssaae, |
|
|
real (kind=kind_phys), dimension(nlay,nbdsw), intent(in) |
asyae, |
|
|
real (kind=kind_phys), dimension(nlay,nbdsw), intent(in) |
taucw, |
|
|
real (kind=kind_phys), dimension(nlay,nbdsw), intent(in) |
ssacw, |
|
|
real (kind=kind_phys), dimension(nlay,nbdsw), intent(in) |
asycw, |
|
|
integer, intent(in) |
nlay, |
|
|
integer, intent(in) |
nlp1, |
|
|
real (kind=kind_phys), dimension(nlp1,nbdsw), intent(out) |
fxupc, |
|
|
real (kind=kind_phys), dimension(nlp1,nbdsw), intent(out) |
fxdnc, |
|
|
real (kind=kind_phys), dimension(nlp1,nbdsw), intent(out) |
fxup0, |
|
|
real (kind=kind_phys), dimension(nlp1,nbdsw), intent(out) |
fxdn0, |
|
|
real (kind=kind_phys), intent(out) |
ftoauc, |
|
|
real (kind=kind_phys), intent(out) |
ftoau0, |
|
|
real (kind=kind_phys), intent(out) |
ftoadc, |
|
|
real (kind=kind_phys), intent(out) |
fsfcuc, |
|
|
real (kind=kind_phys), intent(out) |
fsfcu0, |
|
|
real (kind=kind_phys), intent(out) |
fsfcdc, |
|
|
real (kind=kind_phys), intent(out) |
fsfcd0, |
|
|
real (kind=kind_phys), dimension(2), intent(out) |
sfbmc, |
|
|
real (kind=kind_phys), dimension(2), intent(out) |
sfdfc, |
|
|
real (kind=kind_phys), dimension(2), intent(out) |
sfbm0, |
|
|
real (kind=kind_phys), dimension(2), intent(out) |
sfdf0, |
|
|
real (kind=kind_phys), intent(out) |
suvbfc, |
|
|
real (kind=kind_phys), intent(out) |
suvbf0 |
|
) |
| |
|
private |