Go to the source code of this file.
Functions/Subroutines | |
subroutine | two_rt_sw_gsolap (ncol, nlm, mbs, ib, slr, amu0, wc_clr, asym_clr, tau_clr, wc_cld, asym_cld, tau_cld, asdir, asdif, fddir_clr, fddif_clr, fudif_clr, fddir_all, fddif_all, fudif_all, cldamt, c_maximal, cf_max, cf_random) |
subroutine two_rt_sw_gsolap | ( | 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_clr, | ||
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | asym_clr, | ||
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | tau_clr, | ||
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | wc_cld, | ||
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | asym_cld, | ||
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | tau_cld, | ||
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) | fddir_clr, | ||
real(kind=dbl_kind), dimension(ncol, nlm+1), intent(out) | fddif_clr, | ||
real(kind=dbl_kind), dimension(ncol, nlm+1), intent(out) | fudif_clr, | ||
real(kind=dbl_kind), dimension(ncol, nlm+1), intent(out) | fddir_all, | ||
real(kind=dbl_kind), dimension(ncol, nlm+1), intent(out) | fddif_all, | ||
real(kind=dbl_kind), dimension(ncol, nlm+1), intent(out) | fudif_all, | ||
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | cldamt, | ||
real (kind=dbl_kind), dimension(ncol), intent(in) | c_maximal, | ||
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | cf_max, | ||
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | cf_random | ||
) |
Definition at line 9 of file two_rt_sw_ocastrndm.f90.