source: LMDZ6/branches/IPSLCM6.0.13/libf/phylmd/rrtm/radlsw.intfb.h @ 3040

Last change on this file since 3040 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: 3.7 KB
Line 
1INTERFACE
2SUBROUTINE RADLSW &
3 & ( KIDIA, KFDIA , KLON , KLEV  , KMODE, KAER,&
4 & PRII0,&
5 & PAER , PALBD , PALBP, PAPH , PAP,&
6 & PCCNL, PCCNO,&
7 & PCCO2, PCLFR , PDP  , PEMIS, PEMIW , PLSM , PMU0, POZON,&
8 & PQ   , PQIWP , PQLWP, PQS  , PQRAIN, PRAINT,&
9 & PTH  , PT    , PTS  , PNBAS, PNTOP,&
10 & PREF_LIQ, PREF_ICE,&
11 & PEMIT, PFCT  , PFLT , PFCS , PFLS,&
12 & PFRSOD,PSUDU , PUVDF, PPARF, PPARCF, PTINCF,&
13 & PSFSWDIR, PSFSWDIF,PFSDNN,PFSDNV ,& 
14 & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST,&
15 & PTAU_LW,&
16 & PFLUX,PFLUC,PFSDN ,PFSUP , PFSCDN , PFSCUP)
17
18USE PARKIND1 ,ONLY : JPIM ,JPRB
19USE YOERAD , ONLY : NLW, LRRTM ,LCCNL ,LCCNO, LDIFFC,&
20 & NRADIP , NRADLP , NICEOPT, NLIQOPT, NINHOM ,NLAYINH ,&
21 & RCCNLND, RCCNSEA, RLWINHF, RSWINHF, RRe2De ,&
22 & LEDBUG
23include "clesphys.h"
24INTEGER(KIND=JPIM),INTENT(IN) :: KLON
25INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
26INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
27INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
28INTEGER(KIND=JPIM),INTENT(IN) :: KMODE
29INTEGER(KIND=JPIM),INTENT(IN) :: KAER
30REAL(KIND=JPRB) ,INTENT(IN) :: PRII0
31REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
32REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,NSW)
33REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,NSW)
34REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1)
35REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV)
36REAL(KIND=JPRB) ,INTENT(IN) :: PCCNL(KLON)
37REAL(KIND=JPRB) ,INTENT(IN) :: PCCNO(KLON)
38REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
39REAL(KIND=JPRB) ,INTENT(IN) :: PCLFR(KLON,KLEV)
40REAL(KIND=JPRB) ,INTENT(IN) :: PDP(KLON,KLEV)
41REAL(KIND=JPRB) ,INTENT(IN) :: PEMIS(KLON)
42REAL(KIND=JPRB) ,INTENT(IN) :: PEMIW(KLON)
43REAL(KIND=JPRB) ,INTENT(IN) :: PLSM(KLON)
44REAL(KIND=JPRB) ,INTENT(IN) :: PMU0(KLON)
45REAL(KIND=JPRB) ,INTENT(IN) :: POZON(KLON,KLEV)
46REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)
47REAL(KIND=JPRB) ,INTENT(IN) :: PQIWP(KLON,KLEV)
48REAL(KIND=JPRB) ,INTENT(IN) :: PQLWP(KLON,KLEV)
49REAL(KIND=JPRB) ,INTENT(IN) :: PQS(KLON,KLEV)
50REAL(KIND=JPRB) :: PQRAIN(KLON,KLEV)
51REAL(KIND=JPRB) :: PRAINT(KLON,KLEV)
52REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1)
53REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV)
54REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON)
55REAL(KIND=JPRB) ,INTENT(IN) :: PNBAS(KLON)
56REAL(KIND=JPRB) ,INTENT(IN) :: PNTOP(KLON)
57REAL(KIND=JPRB) ,INTENT(IN) :: PREF_LIQ(KLON,KLEV)
58REAL(KIND=JPRB) ,INTENT(IN) :: PREF_ICE(KLON,KLEV)
59LOGICAL ,INTENT(IN) :: LRDUST
60REAL(KIND=JPRB) ,INTENT(IN) :: PPIZA_DST(KLON,KLEV,NSW)
61REAL(KIND=JPRB) ,INTENT(IN) :: PCGA_DST(KLON,KLEV,NSW)
62REAL(KIND=JPRB) ,INTENT(IN) :: PTAUREL_DST(KLON,KLEV,NSW)
63!--C.Kleinschmitt
64REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_LW(KLON,KLEV,NLW)
65!--end
66REAL(KIND=JPRB) ,INTENT(OUT) :: PEMIT(KLON)
67REAL(KIND=JPRB) ,INTENT(OUT) :: PFCT(KLON,KLEV+1)
68REAL(KIND=JPRB) ,INTENT(OUT) :: PFLT(KLON,KLEV+1)
69REAL(KIND=JPRB) ,INTENT(OUT) :: PFCS(KLON,KLEV+1)
70REAL(KIND=JPRB) ,INTENT(OUT) :: PFLS(KLON,KLEV+1)
71REAL(KIND=JPRB) ,INTENT(OUT) :: PFRSOD(KLON)
72REAL(KIND=JPRB) ,INTENT(OUT) :: PSUDU(KLON)
73REAL(KIND=JPRB) ,INTENT(OUT) :: PUVDF(KLON)
74REAL(KIND=JPRB) ,INTENT(OUT) :: PPARF(KLON)
75REAL(KIND=JPRB) ,INTENT(OUT) :: PPARCF(KLON), PTINCF(KLON)
76REAL(KIND=JPRB) ,INTENT(OUT) :: PSFSWDIR(KLON,NSW)
77REAL(KIND=JPRB) ,INTENT(OUT) :: PSFSWDIF(KLON,NSW)
78REAL(KIND=JPRB) ,INTENT(OUT) :: PFSDNN(KLON)
79REAL(KIND=JPRB) ,INTENT(OUT) :: PFSDNV(KLON)
80REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUX(KLON,2,KLEV+1) ! LW total sky flux (1=up, 2=down)
81REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUC(KLON,2,KLEV+1) ! LW clear sky flux (1=up, 2=down)
82REAL(KIND=JPRB) ,INTENT(OUT) :: PFSDN(KLON,KLEV+1)   ! SW total sky flux down
83REAL(KIND=JPRB) ,INTENT(OUT) :: PFSUP(KLON,KLEV+1)   ! SW total sky flux up
84REAL(KIND=JPRB) ,INTENT(OUT) :: PFSCDN(KLON,KLEV+1)  ! SW clear sky flux down
85REAL(KIND=JPRB) ,INTENT(OUT) :: PFSCUP(KLON,KLEV+1)  ! SW clear sky flux up
86END SUBROUTINE RADLSW
87END INTERFACE
Note: See TracBrowser for help on using the repository browser.