Go to the source code of this file.
Functions/Subroutines | |
subroutine | bugs_lwr (ncol, nlm, pp, ppl, dp, tt, rmix, cwrho, cirho, o3mix, ts, cldamt, cldmax, b1, b2, b3, b4, umco2, umch4, umn2o, fdlw, fdlwcl, fulw, fulwcl, sel_rules) |
subroutine bugs_lwr | ( | 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,nlm), intent(in) | cldamt, | ||
real (kind=dbl_kind), dimension(ncol), intent(in) | cldmax, | ||
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), intent(in) | umco2, | ||
real (kind=dbl_kind), intent(in) | umch4, | ||
real (kind=dbl_kind), intent(in) | umn2o, | ||
real (kind=dbl_kind), dimension(ncol,nlm+1), intent(out) | fdlw, | ||
real (kind=dbl_kind), dimension(ncol,nlm+1), intent(out) | fdlwcl, | ||
real (kind=dbl_kind), dimension(ncol,nlm+1), intent(out) | fulw, | ||
real (kind=dbl_kind), dimension(ncol,nlm+1), intent(out) | fulwcl, | ||
logical (kind=log_kind), intent(in) | sel_rules | ||
) |
Definition at line 9 of file bugs_lwr.f.