source: LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_rrtm_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.3 KB
Line 
1INTERFACE
2SUBROUTINE RRTM_RRTM_140GP&
3 & ( KIDIA , KFDIA , KLON , KLEV,&
4 & PAER , PAPH , PAP,&
5 & PTS , PTH , PT,&
6 & P_ZEMIS , P_ZEMIW,&
7 & PQ , PCCO2 , POZN,&
8 & PCLDF , PTAUCLD,&
9 & PEMIT , PFLUX , PFLUC, PTCLEAR&
10 & ) 
11USE PARKIND1 ,ONLY : JPIM ,JPRB
12USE PARRRTM , ONLY : JPBAND ,JPXSEC ,JPGPT ,JPLAY ,&
13 & JPINPX
14INTEGER(KIND=JPIM),INTENT(IN) :: KLON
15INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
16INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
17INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
18REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
19REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1)
20REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV)
21REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON)
22REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1)
23REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV)
24REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIS(KLON)
25REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIW(KLON)
26REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)
27REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
28REAL(KIND=JPRB) ,INTENT(IN) :: POZN(KLON,KLEV)
29REAL(KIND=JPRB) ,INTENT(IN) :: PCLDF(KLON,KLEV)
30REAL(KIND=JPRB) ,INTENT(IN) :: PTAUCLD(KLON,KLEV,JPBAND)
31REAL(KIND=JPRB) ,INTENT(OUT) :: PEMIT(KLON)
32REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUX(KLON,2,KLEV+1)
33REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUC(KLON,2,KLEV+1)
34REAL(KIND=JPRB) ,INTENT(OUT) :: PTCLEAR(KLON)
35END SUBROUTINE RRTM_RRTM_140GP
36END INTERFACE
Note: See TracBrowser for help on using the repository browser.