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, |
|
|
integer, intent(in) | iswmode, |
|
|
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 |