source: LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_rrtm_140gp.intfb.h

Last change on this file was 2160, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand

  • 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.5 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 & PTAU_LW,&
10 & PEMIT , PFLUX , PFLUC, PTCLEAR )
11USE PARKIND1 ,ONLY : JPIM ,JPRB
12USE YOERAD   ,ONLY : NLW !--C.Kleinschmitt
13USE PARRRTM , ONLY : JPBAND ,JPXSEC ,JPGPT ,JPLAY ,&
14 & JPINPX 
15!-NLW in clesphys now OB
16include "clesphys.h"
17INTEGER(KIND=JPIM),INTENT(IN) :: KLON
18INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
19INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
20INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
21REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
22REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1)
23REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV)
24REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON)
25REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1)
26REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV)
27REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIS(KLON)
28REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIW(KLON)
29REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)
30REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
31REAL(KIND=JPRB) ,INTENT(IN) :: POZN(KLON,KLEV)
32REAL(KIND=JPRB) ,INTENT(IN) :: PCLDF(KLON,KLEV)
33REAL(KIND=JPRB) ,INTENT(IN) :: PTAUCLD(KLON,KLEV,JPBAND)
34!--C.Kleinschmitt
35REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_LW(KLON,KLEV,NLW) ! LW Optical depth of aerosols 
36!--end
37REAL(KIND=JPRB) ,INTENT(OUT) :: PEMIT(KLON)
38REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUX(KLON,2,KLEV+1)
39REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUC(KLON,2,KLEV+1)
40REAL(KIND=JPRB) ,INTENT(OUT) :: PTCLEAR(KLON)
41END SUBROUTINE RRTM_RRTM_140GP
42END INTERFACE
Note: See TracBrowser for help on using the repository browser.