LMDZ
sw.intfb.h
Go to the documentation of this file.
1 INTERFACE
2 SUBROUTINE 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  & )
14 USE PARKIND1 ,ONLY : JPIM ,JPRB
15 include "clesphys.h"
16 INTEGER(KIND=JPIM),INTENT(IN) :: KLON
17 INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
18 INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
19 INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
20 INTEGER(KIND=JPIM),INTENT(IN) :: KAER
21 REAL(KIND=JPRB) ,INTENT(IN) :: PSCT
22 REAL(KIND=JPRB) ,INTENT(IN) :: PCARDI
23 REAL(KIND=JPRB) ,INTENT(IN) :: PPSOL(KLON)
24 REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,NSW)
25 REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,NSW)
26 REAL(KIND=JPRB) ,INTENT(IN) :: PWV(KLON,KLEV)
27 REAL(KIND=JPRB) ,INTENT(IN) :: PQS(KLON,KLEV)
28 REAL(KIND=JPRB) ,INTENT(IN) :: PRMU0(KLON)
29 REAL(KIND=JPRB) ,INTENT(IN) :: PCG(KLON,NSW,KLEV)
30 REAL(KIND=JPRB) ,INTENT(IN) :: PCLDSW(KLON,KLEV)
31 REAL(KIND=JPRB) :: PDP(KLON,KLEV)
32 REAL(KIND=JPRB) ,INTENT(IN) :: POMEGA(KLON,NSW,KLEV)
33 REAL(KIND=JPRB) ,INTENT(IN) :: POZ(KLON,KLEV)
34 REAL(KIND=JPRB) ,INTENT(IN) :: PPMB(KLON,KLEV+1)
35 REAL(KIND=JPRB) ,INTENT(IN) :: PTAU(KLON,NSW,KLEV)
36 REAL(KIND=JPRB) ,INTENT(IN) :: PTAVE(KLON,KLEV)
37 REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
38 LOGICAL ,INTENT(IN) :: LRDUST
39 REAL(KIND=JPRB) ,INTENT(IN) :: PPIZA_DST(KLON,KLEV,NSW)
40 REAL(KIND=JPRB) ,INTENT(IN) :: PCGA_DST(KLON,KLEV,NSW)
41 REAL(KIND=JPRB) ,INTENT(IN) :: PTAUREL_DST(KLON,KLEV,NSW)
42 REAL(KIND=JPRB) ,INTENT(OUT) :: PFDOWN(KLON,KLEV+1)
43 REAL(KIND=JPRB) ,INTENT(OUT) :: PFUP(KLON,KLEV+1)
44 REAL(KIND=JPRB) ,INTENT(OUT) :: PCDOWN(KLON,KLEV+1)
45 REAL(KIND=JPRB) ,INTENT(OUT) :: PCUP(KLON,KLEV+1)
46 REAL(KIND=JPRB) ,INTENT(OUT) :: PFDNN(KLON)
47 REAL(KIND=JPRB) ,INTENT(OUT) :: PFDNV(KLON)
48 REAL(KIND=JPRB) ,INTENT(OUT) :: PFUPN(KLON)
49 REAL(KIND=JPRB) ,INTENT(OUT) :: PFUPV(KLON)
50 REAL(KIND=JPRB) ,INTENT(OUT) :: PCDNN(KLON)
51 REAL(KIND=JPRB) ,INTENT(OUT) :: PCDNV(KLON)
52 REAL(KIND=JPRB) ,INTENT(OUT) :: PCUPN(KLON)
53 REAL(KIND=JPRB) ,INTENT(OUT) :: PCUPV(KLON)
54 REAL(KIND=JPRB) ,INTENT(OUT) :: PSUDU(KLON)
55 REAL(KIND=JPRB) ,INTENT(OUT) :: PUVDF(KLON)
56 REAL(KIND=JPRB) ,INTENT(OUT) :: PPARF(KLON)
57 REAL(KIND=JPRB) ,INTENT(OUT) :: PPARCF(KLON)
58 REAL(KIND=JPRB) ,INTENT(OUT) :: PDIFFS(KLON,NSW)
59 REAL(KIND=JPRB) ,INTENT(OUT) :: PDIRFS(KLON,NSW)
60 END SUBROUTINE SW
61 END INTERFACE
PFDNV
INTERFACE SUBROUTINE SW PFDNV
Definition: sw.intfb.h:3
KLEV
INTERFACE SUBROUTINE SW KLEV
Definition: sw.intfb.h:3
KAER
INTERFACE SUBROUTINE SW KAER
Definition: sw.intfb.h:3
PPARCF
INTERFACE SUBROUTINE SW PPARCF
Definition: sw.intfb.h:3
PCARDI
INTERFACE SUBROUTINE SW PCARDI
Definition: sw.intfb.h:3
PPMB
INTERFACE SUBROUTINE SW PPMB
Definition: sw.intfb.h:3
PTAU
INTERFACE SUBROUTINE SW && PTAU
Definition: sw.intfb.h:3
REAL
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
PPSOL
INTERFACE SUBROUTINE SW PPSOL
Definition: sw.intfb.h:3
PCDNV
INTERFACE SUBROUTINE SW PCDNV
Definition: sw.intfb.h:3
KIDIA
INTERFACE SUBROUTINE SW && KIDIA
Definition: sw.intfb.h:3
PWV
INTERFACE SUBROUTINE SW PWV
Definition: sw.intfb.h:3
JPIM
ONLY JPIM
Definition: tsmbkind.h:5
ONLY
INTERFACE SUBROUTINE SW PTAUREL_DST &&USE ONLY
Definition: sw.intfb.h:3
PALBP
INTERFACE SUBROUTINE SW PALBP
Definition: sw.intfb.h:3
PTAVE
INTERFACE SUBROUTINE SW PTAVE
Definition: sw.intfb.h:3
KLON
INTERFACE SUBROUTINE SW KLON
Definition: sw.intfb.h:3
PDIRFS
INTERFACE SUBROUTINE SW PDIRFS
Definition: sw.intfb.h:3
PCDOWN
INTERFACE SUBROUTINE SW && PCDOWN
Definition: sw.intfb.h:3
PCUP
INTERFACE SUBROUTINE SW PCUP
Definition: sw.intfb.h:3
PFUP
INTERFACE SUBROUTINE SW PFUP
Definition: sw.intfb.h:3
PFUPV
INTERFACE SUBROUTINE SW PFUPV
Definition: sw.intfb.h:3
PCDNN
INTERFACE SUBROUTINE SW && PCDNN
Definition: sw.intfb.h:3
POMEGA
INTERFACE SUBROUTINE SW POMEGA
Definition: sw.intfb.h:3
PPARF
INTERFACE SUBROUTINE SW PPARF
Definition: sw.intfb.h:3
PQS
INTERFACE SUBROUTINE SW PQS
Definition: sw.intfb.h:3
PSUDU
INTERFACE SUBROUTINE SW && PSUDU
Definition: sw.intfb.h:3
PRMU0
INTERFACE SUBROUTINE SW && PRMU0
Definition: sw.intfb.h:3
PPIZA_DST
INTERFACE SUBROUTINE SW PPIZA_DST
Definition: sw.intfb.h:3
PUVDF
INTERFACE SUBROUTINE SW PUVDF
Definition: sw.intfb.h:3
INTEGER
INTERFACE SUBROUTINE SW PTAUREL_DST &&USE JPRB include clesphys h INTEGER(KIND=JPIM)
JPRB
ONLY JPRB
Definition: tsmbkind.h:5
PALBD
INTERFACE SUBROUTINE SW PALBD
Definition: sw.intfb.h:3
PCGA_DST
INTERFACE SUBROUTINE SW PCGA_DST
Definition: sw.intfb.h:3
PDP
INTERFACE SUBROUTINE SW PDP
Definition: sw.intfb.h:3
LRDUST
INTERFACE SUBROUTINE SW && LRDUST
Definition: sw.intfb.h:3
KFDIA
INTERFACE SUBROUTINE SW KFDIA
Definition: sw.intfb.h:3
PFDOWN
INTERFACE SUBROUTINE SW && PFDOWN
Definition: sw.intfb.h:3
PTAUREL_DST
INTERFACE SUBROUTINE RADLSW PTAUREL_DST
Definition: radlsw.intfb.h:3
PFUPN
INTERFACE SUBROUTINE SW PFUPN
Definition: sw.intfb.h:3
PSCT
INTERFACE SUBROUTINE SW && PSCT
Definition: sw.intfb.h:3
PDIFFS
INTERFACE SUBROUTINE SW PDIFFS
Definition: sw.intfb.h:3
PCG
INTERFACE SUBROUTINE SW PCG
Definition: sw.intfb.h:3
PCUPN
INTERFACE SUBROUTINE SW PCUPN
Definition: sw.intfb.h:3
PAER
INTERFACE SUBROUTINE SW PAER
Definition: sw.intfb.h:3
PCUPV
INTERFACE SUBROUTINE SW PCUPV
Definition: sw.intfb.h:3
NSW
NAMELIST NAERAD LONEWSW LSRTM LNOTROAER LRADONDEM NRADLP NLAYINH NSW
Definition: naerad.h:3
PFDNN
INTERFACE SUBROUTINE SW && PFDNN
Definition: sw.intfb.h:3
PCLDSW
INTERFACE SUBROUTINE SW PCLDSW
Definition: sw.intfb.h:3
POZ
INTERFACE SUBROUTINE SW POZ
Definition: sw.intfb.h:3