source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/rrtm/radlsw.intfb.h

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

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM


Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence

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