LMDZ
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | rrtm_setcoef_140gp (KLEV, P_COLDRY, P_WKL, P_FAC00, P_FAC01, P_FAC10, P_FAC11, P_FORFAC, K_JP, K_JT, K_JT1, P_COLH2O, P_COLCO2, P_COLO3, P_COLN2O, P_COLCH4, P_COLO2, P_CO2MULT, K_LAYTROP, K_LAYSWTCH, K_LAYLOW, PAVEL, P_TAVEL, P_SELFFAC, P_SELFFRAC, K_INDSELF) |
subroutine rrtm_setcoef_140gp | ( | integer(kind=jpim), intent(in) | KLEV, |
real(kind=jprb), dimension(jplay), intent(in) | P_COLDRY, | ||
real(kind=jprb), dimension(jpinpx,jplay), intent(in) | P_WKL, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_FAC00, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_FAC01, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_FAC10, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_FAC11, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_FORFAC, | ||
integer(kind=jpim), dimension(jplay), intent(out) | K_JP, | ||
integer(kind=jpim), dimension(jplay), intent(out) | K_JT, | ||
integer(kind=jpim), dimension(jplay), intent(out) | K_JT1, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_COLH2O, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_COLCO2, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_COLO3, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_COLN2O, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_COLCH4, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_COLO2, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_CO2MULT, | ||
integer(kind=jpim), intent(out) | K_LAYTROP, | ||
integer(kind=jpim), intent(out) | K_LAYSWTCH, | ||
integer(kind=jpim), intent(out) | K_LAYLOW, | ||
real(kind=jprb), dimension(jplay), intent(in) | PAVEL, | ||
real(kind=jprb), dimension(jplay), intent(in) | P_TAVEL, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_SELFFAC, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_SELFFRAC, | ||
integer(kind=jpim), dimension(jplay), intent(out) | K_INDSELF | ||
) |
Definition at line 5 of file rrtm_setcoef_140gp.F90.