source: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_ecrt_140gp.intfb.h @ 5001

Last change on this file since 5001 was 2146, checked in by idelkadi, 10 years ago

Les modifications introduites ont pour but :
1/ d'autoriser le couplage entre INCA-aerosol et les parametrisations de
la nouvelle physique (NP) de LMDZ, en particulier les thermiques et le
transport convectif,
2/ generaliser les routines de calcul de proprietes optiques des
aerosols pour RRTM au cas ou les aerosols sont interactifs
3/ d'inclure les effets LW des aerosols stratospheriques pour RRTM
  • 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: 2.1 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,&
9 & PTAU_LW,&
10 & P_COLDRY,P_WKL,P_WX,&
11 & P_TAUAERL,PAVEL,P_TAVEL,PZ,P_TZ,P_TBOUND,K_NLAYERS,P_SEMISS,K_IREFLECT )
12USE PARKIND1  ,ONLY : JPIM     ,JPRB
13USE PARRRTM  , ONLY : JPBAND   ,JPXSEC   ,JPLAY   ,&
14 & JPINPX 
15USE YOERAD   , ONLY : NLW      ,NOVLP
16USE YOERDI   , ONLY :    RCH4     ,RN2O    ,RCFC11  ,RCFC12
17USE YOESW    , ONLY : RAER
18INTEGER(KIND=JPIM),INTENT(IN) :: KLON
19INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
20INTEGER(KIND=JPIM),INTENT(IN) :: K_IPLON
21INTEGER(KIND=JPIM),INTENT(OUT) :: KCLD
22REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
23REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1)
24REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV)
25REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON)
26REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1)
27REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV)
28REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIS(KLON)
29REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIW(KLON)
30REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)
31REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
32REAL(KIND=JPRB) ,INTENT(IN) :: POZN(KLON,KLEV)
33REAL(KIND=JPRB) ,INTENT(IN) :: PCLDF(KLON,KLEV)
34REAL(KIND=JPRB) ,INTENT(IN) :: PTAUCLD(KLON,KLEV,JPBAND)
35!--C.Kleinschmitt
36REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_LW(KLON,KLEV,NLW) ! LW Optical depth of aerosols 
37!--end
38REAL(KIND=JPRB) ,INTENT(OUT) :: PTCLEAR
39REAL(KIND=JPRB) ,INTENT(OUT) :: P_CLDFRAC(JPLAY)
40REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUCLD(JPLAY,JPBAND)
41REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLDRY(JPLAY)
42REAL(KIND=JPRB) ,INTENT(OUT) :: P_WKL(JPINPX,JPLAY)
43REAL(KIND=JPRB) ,INTENT(OUT) :: P_WX(JPXSEC,JPLAY)
44REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUAERL(JPLAY,JPBAND)
45REAL(KIND=JPRB) ,INTENT(OUT) :: PAVEL(JPLAY)
46REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAVEL(JPLAY)
47REAL(KIND=JPRB) ,INTENT(OUT) :: PZ(0:JPLAY)
48REAL(KIND=JPRB) ,INTENT(OUT) :: P_TZ(0:JPLAY)
49REAL(KIND=JPRB) ,INTENT(OUT) :: P_TBOUND
50INTEGER(KIND=JPIM),INTENT(OUT) :: K_NLAYERS
51REAL(KIND=JPRB) ,INTENT(OUT) :: P_SEMISS(JPBAND)
52INTEGER(KIND=JPIM),INTENT(OUT) :: K_IREFLECT
53END SUBROUTINE RRTM_ECRT_140GP
54END INTERFACE
Note: See TracBrowser for help on using the repository browser.