LMDZ
rrtm_taumol12.intfb.h
Go to the documentation of this file.
1 INTERFACE
2 SUBROUTINE RRTM_TAUMOL12 (KLEV,P_TAU,&
3  & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
4  & P_COLH2O,P_COLCO2,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)
5 USE PARKIND1 ,ONLY : JPIM ,JPRB
6 USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG12 ,NGS11
7 INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
8 REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
9 REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
10 REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
11 REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
12 REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
13 REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
14 INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
15 INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
16 INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
17 REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
18 REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
19 REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
20 INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
21 REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
22 REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
23 INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
24 REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
25 END SUBROUTINE RRTM_TAUMOL12
26 END INTERFACE
K_JT
INTERFACE SUBROUTINE SRTM_TAUMOL16 K_JT
Definition: srtm_taumol16.intfb.h:3
P_COLH2O
INTERFACE SUBROUTINE SRTM_TAUMOL16 && P_COLH2O
Definition: srtm_taumol16.intfb.h:3
K_LAYTROP
INTERFACE SUBROUTINE SRTM_TAUMOL16 && K_LAYTROP
Definition: srtm_taumol16.intfb.h:3
P_ONEMINUS
INTERFACE SUBROUTINE SRTM_TAUMOL16 P_ONEMINUS
Definition: srtm_taumol16.intfb.h:3
REAL
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
P_SELFFAC
INTERFACE SUBROUTINE SRTM_TAUMOL16 P_SELFFAC
Definition: srtm_taumol16.intfb.h:3
RRTM_TAUMOL12
INTERFACE SUBROUTINE RRTM_TAUMOL12(KLEV, P_TAU,&&P_TAUAERL, P_FAC00, P_FAC01, P_FAC10, P_FAC11, K_JP, K_JT, K_JT1, P_ONEMINUS,&&P_COLH2O, P_COLCO2, K_LAYTROP, P_SELFFAC, P_SELFFRAC, K_INDSELF, PFRAC) USE PARKIND1
JPIM
ONLY JPIM
Definition: tsmbkind.h:5
KLEV
INTERFACE SUBROUTINE LW KLEV
Definition: lw.intfb.h:3
K_JT1
INTERFACE SUBROUTINE SRTM_TAUMOL16 K_JT1
Definition: srtm_taumol16.intfb.h:3
P_COLCO2
INTERFACE SUBROUTINE SRTM_TAUMOL17 P_COLCO2
Definition: srtm_taumol17.intfb.h:3
P_FAC10
INTERFACE SUBROUTINE SRTM_TAUMOL16 P_FAC10
Definition: srtm_taumol16.intfb.h:3
NG12
INTERFACE SUBROUTINE JPRB USE NG12
Definition: rrtm_taumol12.intfb.h:5
P_FAC01
INTERFACE SUBROUTINE SRTM_TAUMOL16 P_FAC01
Definition: srtm_taumol16.intfb.h:3
JPRB
ONLY JPRB
Definition: tsmbkind.h:5
ONLY
INTERFACE SUBROUTINE ONLY
Definition: rrtm_taumol12.intfb.h:5
K_JP
INTERFACE SUBROUTINE SRTM_TAUMOL16 && K_JP
Definition: srtm_taumol16.intfb.h:3
P_TAUAERL
INTERFACE SUBROUTINE RRTM_ECRT_140GP && P_TAUAERL
Definition: rrtm_ecrt_140gp.intfb.h:3
INTEGER
INTERFACE SUBROUTINE JPRB USE NGS11 INTEGER(KIND=JPIM)
JPBAND
INTERFACE SUBROUTINE JPRB USE JPBAND
Definition: rrtm_taumol12.intfb.h:5
K_INDSELF
INTERFACE SUBROUTINE SRTM_TAUMOL16 K_INDSELF
Definition: srtm_taumol16.intfb.h:3
P_FAC00
INTERFACE SUBROUTINE SRTM_TAUMOL16 && P_FAC00
Definition: srtm_taumol16.intfb.h:3
JPLAY
INTERFACE SUBROUTINE RRTM_ECRT_140GP K_IREFLECT USE JPRB USE JPLAY
Definition: rrtm_ecrt_140gp.intfb.h:3
JPGPT
INTERFACE SUBROUTINE JPRB USE JPGPT
Definition: rrtm_taumol12.intfb.h:5
P_SELFFRAC
INTERFACE SUBROUTINE SRTM_TAUMOL16 P_SELFFRAC
Definition: srtm_taumol16.intfb.h:3
P_FAC11
INTERFACE SUBROUTINE SRTM_TAUMOL16 P_FAC11
Definition: srtm_taumol16.intfb.h:3