Go to the source code of this file.
|
INTERFACE 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) USE PARKIND1 |
|
INTERFACE SUBROUTINE JPRB USE JPINPX | INTEGER (KIND=JPIM) |
|
INTERFACE SUBROUTINE JPRB USE JPINPX INTEGER |
( |
KIND |
= JPIM | ) |
|
INTERFACE 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 |
|
|
) |
| |
INTERFACE SUBROUTINE JPRB USE ONLY |
INTERFACE SUBROUTINE JPRB USE PARRRTM |