| 1 | INTERFACE |
|---|
| 2 | SUBROUTINE RRTM_RTRN1A_140GP (KLEV,K_ISTART,K_IEND,K_ICLDLYR,P_CLDFRAC,P_TAUCLD,P_ABSS1,& |
|---|
| 3 | & P_OD,P_TAUSF1,P_CLFNET,P_CLHTR,P_FNET,P_HTR,P_TOTDFLUC,P_TOTDFLUX,P_TOTUFLUC,P_TOTUFLUX,& |
|---|
| 4 | & P_TAVEL,PZ,P_TZ,P_TBOUND,PFRAC,P_SEMISS,P_SEMISLW,K_IREFLECT) |
|---|
| 5 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 6 | USE PARRRTM , ONLY : JPBAND ,JPGPT ,JPLAY |
|---|
| 7 | INTEGER(KIND=JPIM),INTENT(IN) :: KLEV |
|---|
| 8 | INTEGER(KIND=JPIM),INTENT(IN) :: K_ISTART |
|---|
| 9 | INTEGER(KIND=JPIM),INTENT(IN) :: K_IEND |
|---|
| 10 | INTEGER(KIND=JPIM),INTENT(IN) :: K_ICLDLYR(JPLAY) |
|---|
| 11 | REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDFRAC(JPLAY) |
|---|
| 12 | REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUCLD(JPLAY,JPBAND) |
|---|
| 13 | REAL(KIND=JPRB) ,INTENT(IN) :: P_ABSS1(JPGPT*JPLAY) |
|---|
| 14 | REAL(KIND=JPRB) ,INTENT(IN) :: P_OD(JPGPT,JPLAY) |
|---|
| 15 | REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUSF1(JPGPT*JPLAY) |
|---|
| 16 | REAL(KIND=JPRB) :: P_CLFNET(0:JPLAY) |
|---|
| 17 | REAL(KIND=JPRB) :: P_CLHTR(0:JPLAY) |
|---|
| 18 | REAL(KIND=JPRB) :: P_FNET(0:JPLAY) |
|---|
| 19 | REAL(KIND=JPRB) :: P_HTR(0:JPLAY) |
|---|
| 20 | REAL(KIND=JPRB) ,INTENT(OUT) :: P_TOTDFLUC(0:JPLAY) |
|---|
| 21 | REAL(KIND=JPRB) ,INTENT(OUT) :: P_TOTDFLUX(0:JPLAY) |
|---|
| 22 | REAL(KIND=JPRB) ,INTENT(OUT) :: P_TOTUFLUC(0:JPLAY) |
|---|
| 23 | REAL(KIND=JPRB) ,INTENT(OUT) :: P_TOTUFLUX(0:JPLAY) |
|---|
| 24 | REAL(KIND=JPRB) ,INTENT(IN) :: P_TAVEL(JPLAY) |
|---|
| 25 | REAL(KIND=JPRB) :: PZ(0:JPLAY) |
|---|
| 26 | REAL(KIND=JPRB) ,INTENT(IN) :: P_TZ(0:JPLAY) |
|---|
| 27 | REAL(KIND=JPRB) ,INTENT(IN) :: P_TBOUND |
|---|
| 28 | REAL(KIND=JPRB) ,INTENT(IN) :: PFRAC(JPGPT,JPLAY) |
|---|
| 29 | REAL(KIND=JPRB) ,INTENT(IN) :: P_SEMISS(JPBAND) |
|---|
| 30 | REAL(KIND=JPRB) ,INTENT(OUT) :: P_SEMISLW |
|---|
| 31 | INTEGER(KIND=JPIM) :: K_IREFLECT |
|---|
| 32 | END SUBROUTINE RRTM_RTRN1A_140GP |
|---|
| 33 | END INTERFACE |
|---|
