source: LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_ecrt_140gp.intfb.h @ 1999

Last change on this file since 1999 was 1999, checked in by Laurent Fairhead, 11 years ago

Merged trunk changes r1920:1997 into testing branch

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 1.9 KB
Line 
1INTERFACE
2SUBROUTINE RRTM_ECRT_140GP&
3 & ( K_IPLON, klon , klev, kcld,&
4 & paer , paph , pap,&
5 & pts , pth , pt,&
6 & P_ZEMIS, P_ZEMIW,&
7 & pq , pcco2, pozn, pcldf, ptaucld, ptclear,&
8 & P_CLDFRAC,P_TAUCLD,P_COLDRY,P_WKL,P_WX,&
9 & P_TAUAERL,PAVEL,P_TAVEL,PZ,P_TZ,P_TBOUND,K_NLAYERS,P_SEMISS,K_IREFLECT) 
10USE PARKIND1 ,ONLY : JPIM ,JPRB
11USE PARRRTM , ONLY : JPBAND ,JPXSEC ,JPLAY ,&
12 & JPINPX
13INTEGER(KIND=JPIM),INTENT(IN) :: KLON
14INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
15INTEGER(KIND=JPIM),INTENT(IN) :: K_IPLON
16INTEGER(KIND=JPIM),INTENT(OUT) :: KCLD
17REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
18REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1)
19REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV)
20REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON)
21REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1)
22REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV)
23REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIS(KLON)
24REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIW(KLON)
25REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)
26REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
27REAL(KIND=JPRB) ,INTENT(IN) :: POZN(KLON,KLEV)
28REAL(KIND=JPRB) ,INTENT(IN) :: PCLDF(KLON,KLEV)
29REAL(KIND=JPRB) ,INTENT(IN) :: PTAUCLD(KLON,KLEV,JPBAND)
30REAL(KIND=JPRB) ,INTENT(OUT) :: PTCLEAR
31REAL(KIND=JPRB) ,INTENT(OUT) :: P_CLDFRAC(JPLAY)
32REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUCLD(JPLAY,JPBAND)
33REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLDRY(JPLAY)
34REAL(KIND=JPRB) ,INTENT(OUT) :: P_WKL(JPINPX,JPLAY)
35REAL(KIND=JPRB) ,INTENT(OUT) :: P_WX(JPXSEC,JPLAY)
36REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUAERL(JPLAY,JPBAND)
37REAL(KIND=JPRB) ,INTENT(OUT) :: PAVEL(JPLAY)
38REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAVEL(JPLAY)
39REAL(KIND=JPRB) ,INTENT(OUT) :: PZ(0:JPLAY)
40REAL(KIND=JPRB) ,INTENT(OUT) :: P_TZ(0:JPLAY)
41REAL(KIND=JPRB) ,INTENT(OUT) :: P_TBOUND
42INTEGER(KIND=JPIM),INTENT(OUT) :: K_NLAYERS
43REAL(KIND=JPRB) ,INTENT(OUT) :: P_SEMISS(JPBAND)
44INTEGER(KIND=JPIM),INTENT(OUT) :: K_IREFLECT
45END SUBROUTINE RRTM_ECRT_140GP
46END INTERFACE
Note: See TracBrowser for help on using the repository browser.