|
BUGSrad
|
Go to the source code of this file.
Functions/Subroutines | |
| subroutine | bugs_swr (ncol, nlm, pp, ppl, dp, tt, rmix, cwrho, cirho, o3mix, ts, amu0, slr, alvdf, alndf, alvdr, alndr, cldamt, cldmax, umco2, umch4, umn2o, b1, b2, b3, b4, fdsw, fdswcl, fusw, fuswcl, radvbc, radvbccl, radvdc, radvdccl, radnbc, radnbccl, radndc, radndccl, sel_rules) |
| subroutine bugs_swr | ( | integer (kind=int_kind), intent(in) | ncol, |
| integer (kind=int_kind), intent(in) | nlm, | ||
| real (kind=dbl_kind), dimension(ncol,nlm+1), intent(in) | pp, | ||
| real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | ppl, | ||
| real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | dp, | ||
| real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | tt, | ||
| real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | rmix, | ||
| real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | cwrho, | ||
| real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | cirho, | ||
| real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | o3mix, | ||
| real (kind=dbl_kind), dimension(ncol), intent(in) | ts, | ||
| real (kind=dbl_kind), dimension(ncol), intent(in) | amu0, | ||
| real (kind=dbl_kind), dimension(ncol), intent(in) | slr, | ||
| real (kind=dbl_kind), dimension(ncol), intent(in) | alvdf, | ||
| real (kind=dbl_kind), dimension(ncol), intent(in) | alndf, | ||
| real (kind=dbl_kind), dimension(ncol), intent(in) | alvdr, | ||
| real (kind=dbl_kind), dimension(ncol), intent(in) | alndr, | ||
| real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | cldamt, | ||
| real (kind=dbl_kind), dimension(ncol), intent(in) | cldmax, | ||
| real (kind=dbl_kind), intent(in) | umco2, | ||
| real (kind=dbl_kind), intent(in) | umch4, | ||
| real (kind=dbl_kind), intent(in) | umn2o, | ||
| real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | b1, | ||
| real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | b2, | ||
| real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | b3, | ||
| real (kind=dbl_kind), dimension(ncol,nlm), intent(in) | b4, | ||
| real (kind=dbl_kind), dimension(ncol,nlm+1), intent(out) | fdsw, | ||
| real (kind=dbl_kind), dimension(ncol,nlm+1), intent(out) | fdswcl, | ||
| real (kind=dbl_kind), dimension(ncol,nlm+1), intent(out) | fusw, | ||
| real (kind=dbl_kind), dimension(ncol,nlm+1), intent(out) | fuswcl, | ||
| real (kind=dbl_kind), dimension(ncol), intent(out) | radvbc, | ||
| real (kind=dbl_kind), dimension(ncol), intent(out) | radvbccl, | ||
| real (kind=dbl_kind), dimension(ncol), intent(out) | radvdc, | ||
| real (kind=dbl_kind), dimension(ncol), intent(out) | radvdccl, | ||
| real (kind=dbl_kind), dimension(ncol), intent(out) | radnbc, | ||
| real (kind=dbl_kind), dimension(ncol), intent(out) | radnbccl, | ||
| real (kind=dbl_kind), dimension(ncol), intent(out) | radndc, | ||
| real (kind=dbl_kind), dimension(ncol), intent(out) | radndccl, | ||
| logical (kind=log_kind), intent(in) | sel_rules | ||
| ) |
Definition at line 8 of file bugs_swr.f.
1.8.3.1
