LMDZ
rrtm_rtrn1a_140gp.intfb.h
Go to the documentation of this file.
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
P_TBOUND
INTERFACE SUBROUTINE RRTM_ECRT_140GP P_TBOUND
Definition: rrtm_ecrt_140gp.intfb.h:3
RRTM_RTRN1A_140GP
INTERFACE SUBROUTINE RRTM_RTRN1A_140GP(KLEV, K_ISTART, K_IEND, K_ICLDLYR, P_CLDFRAC, P_TAUCLD, P_ABSS1,&&P_OD, P_TAUSF1, P_CLFNET, P_CLHTR, P_FNET, P_HTR, P_TOTDFLUC, P_TOTDFLUX, P_TOTUFLUC, P_TOTUFLUX,&&P_TAVEL, PZ, P_TZ, P_TBOUND, PFRAC, P_SEMISS, P_SEMISLW, K_IREFLECT) USE PARKIND1
JPBAND
INTERFACE SUBROUTINE JPRB USE JPBAND
Definition: rrtm_gasabs1a_140gp.intfb.h:6
REAL
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
P_SEMISS
INTERFACE SUBROUTINE RRTM_ECRT_140GP P_SEMISS
Definition: rrtm_ecrt_140gp.intfb.h:3
P_CLDFRAC
INTERFACE SUBROUTINE RRTM_ECRT_140GP && P_CLDFRAC
Definition: rrtm_ecrt_140gp.intfb.h:3
ONLY
INTERFACE SUBROUTINE ONLY
Definition: rrtm_rtrn1a_140gp.intfb.h:5
JPIM
ONLY JPIM
Definition: tsmbkind.h:5
KLEV
INTERFACE SUBROUTINE LW KLEV
Definition: lw.intfb.h:3
P_TAUCLD
INTERFACE SUBROUTINE RRTM_ECRT_140GP P_TAUCLD
Definition: rrtm_ecrt_140gp.intfb.h:3
P_TZ
INTERFACE SUBROUTINE RRTM_ECRT_140GP P_TZ
Definition: rrtm_ecrt_140gp.intfb.h:3
JPGPT
INTERFACE SUBROUTINE JPRB USE JPGPT
Definition: rrtm_rtrn1a_140gp.intfb.h:5
PZ
INTERFACE SUBROUTINE RRTM_ECRT_140GP PZ
Definition: rrtm_ecrt_140gp.intfb.h:3
JPRB
ONLY JPRB
Definition: tsmbkind.h:5
P_TAVEL
INTERFACE SUBROUTINE RRTM_ECRT_140GP P_TAVEL
Definition: rrtm_ecrt_140gp.intfb.h:3
INTEGER
INTERFACE SUBROUTINE JPRB USE JPLAY INTEGER(KIND=JPIM)
JPLAY
INTERFACE SUBROUTINE RRTM_ECRT_140GP K_IREFLECT USE JPRB USE JPLAY
Definition: rrtm_ecrt_140gp.intfb.h:3