LMDZ
rrtm_setcoef_140gp.F90 File Reference

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)
 

Function/Subroutine Documentation

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.

Here is the call graph for this function:

Here is the caller graph for this function: