source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/rrtm/sw.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: 2.4 KB
Line 
1INTERFACE
2SUBROUTINE SW&
3 & ( KIDIA, KFDIA , KLON , KLEV , KAER,&
4 & PSCT , PCARDI, PPSOL , PALBD, PALBP , PWV, PQS,&
5 & PRMU0, PCG , PCLDSW, PDP , POMEGA, POZ, PPMB,&
6 & PTAU , PTAVE , PAER,&
7 & PFDOWN, PFUP,&
8 & PCDOWN, PCUP,&
9 & PFDNN, PFDNV , PFUPN, PFUPV,&
10 & PCDNN, PCDNV , PCUPN, PCUPV,&
11 & PSUDU, PUVDF , PPARF, PPARCF, PDIFFS , PDIRFS,&
12 & LRDUST, PPIZA_DST,PCGA_DST,PTAUREL_DST&
13 & ) 
14USE PARKIND1 ,ONLY : JPIM ,JPRB
15include "clesphys.h"   
16INTEGER(KIND=JPIM),INTENT(IN) :: KLON
17INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
18INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
19INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
20INTEGER(KIND=JPIM),INTENT(IN) :: KAER
21REAL(KIND=JPRB) ,INTENT(IN) :: PSCT
22REAL(KIND=JPRB) ,INTENT(IN) :: PCARDI
23REAL(KIND=JPRB) ,INTENT(IN) :: PPSOL(KLON)
24REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,NSW)
25REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,NSW)
26REAL(KIND=JPRB) ,INTENT(IN) :: PWV(KLON,KLEV)
27REAL(KIND=JPRB) ,INTENT(IN) :: PQS(KLON,KLEV)
28REAL(KIND=JPRB) ,INTENT(IN) :: PRMU0(KLON)
29REAL(KIND=JPRB) ,INTENT(IN) :: PCG(KLON,NSW,KLEV)
30REAL(KIND=JPRB) ,INTENT(IN) :: PCLDSW(KLON,KLEV)
31REAL(KIND=JPRB) :: PDP(KLON,KLEV)
32REAL(KIND=JPRB) ,INTENT(IN) :: POMEGA(KLON,NSW,KLEV)
33REAL(KIND=JPRB) ,INTENT(IN) :: POZ(KLON,KLEV)
34REAL(KIND=JPRB) ,INTENT(IN) :: PPMB(KLON,KLEV+1)
35REAL(KIND=JPRB) ,INTENT(IN) :: PTAU(KLON,NSW,KLEV)
36REAL(KIND=JPRB) ,INTENT(IN) :: PTAVE(KLON,KLEV)
37REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
38LOGICAL ,INTENT(IN) :: LRDUST
39REAL(KIND=JPRB) ,INTENT(IN) :: PPIZA_DST(KLON,KLEV,NSW)
40REAL(KIND=JPRB) ,INTENT(IN) :: PCGA_DST(KLON,KLEV,NSW)
41REAL(KIND=JPRB) ,INTENT(IN) :: PTAUREL_DST(KLON,KLEV,NSW)
42REAL(KIND=JPRB) ,INTENT(OUT) :: PFDOWN(KLON,KLEV+1)
43REAL(KIND=JPRB) ,INTENT(OUT) :: PFUP(KLON,KLEV+1)
44REAL(KIND=JPRB) ,INTENT(OUT) :: PCDOWN(KLON,KLEV+1)
45REAL(KIND=JPRB) ,INTENT(OUT) :: PCUP(KLON,KLEV+1)
46REAL(KIND=JPRB) ,INTENT(OUT) :: PFDNN(KLON)
47REAL(KIND=JPRB) ,INTENT(OUT) :: PFDNV(KLON)
48REAL(KIND=JPRB) ,INTENT(OUT) :: PFUPN(KLON)
49REAL(KIND=JPRB) ,INTENT(OUT) :: PFUPV(KLON)
50REAL(KIND=JPRB) ,INTENT(OUT) :: PCDNN(KLON)
51REAL(KIND=JPRB) ,INTENT(OUT) :: PCDNV(KLON)
52REAL(KIND=JPRB) ,INTENT(OUT) :: PCUPN(KLON)
53REAL(KIND=JPRB) ,INTENT(OUT) :: PCUPV(KLON)
54REAL(KIND=JPRB) ,INTENT(OUT) :: PSUDU(KLON)
55REAL(KIND=JPRB) ,INTENT(OUT) :: PUVDF(KLON)
56REAL(KIND=JPRB) ,INTENT(OUT) :: PPARF(KLON)
57REAL(KIND=JPRB) ,INTENT(OUT) :: PPARCF(KLON)
58REAL(KIND=JPRB) ,INTENT(OUT) :: PDIFFS(KLON,NSW)
59REAL(KIND=JPRB) ,INTENT(OUT) :: PDIRFS(KLON,NSW)
60END SUBROUTINE SW
61END INTERFACE
Note: See TracBrowser for help on using the repository browser.