LMDZ
lwv.intfb.h
Go to the documentation of this file.
1 INTERFACE
2 SUBROUTINE LWV&
3  & ( KIDIA, KFDIA, KLON , KLEV , KUAER , KTRAER,&
4  & PABCU, PB , PBINT, PBSUR, PBTOP , PDBSL,&
5  & PEMIS, PEMIW,&
6  & PGA , PGB , PGASUR,PGBSUR,PGATOP, PGBTOP,&
7  & PCNTRB,PFLUC&
8  & )
9 USE PARKIND1 ,ONLY : JPIM ,JPRB
10 USE YOELW , ONLY : NSIL ,NIPD ,NUA
11 INTEGER(KIND=JPIM),INTENT(IN) :: KLON
12 INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
13 INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
14 INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
15 INTEGER(KIND=JPIM),INTENT(IN) :: KUAER
16 INTEGER(KIND=JPIM),INTENT(IN) :: KTRAER
17 REAL(KIND=JPRB) ,INTENT(IN) :: PABCU(KLON,NUA,3*KLEV+1)
18 REAL(KIND=JPRB) ,INTENT(IN) :: PB(KLON,NSIL,KLEV+1)
19 REAL(KIND=JPRB) ,INTENT(IN) :: PBINT(KLON,KLEV+1)
20 REAL(KIND=JPRB) ,INTENT(IN) :: PBSUR(KLON,NSIL)
21 REAL(KIND=JPRB) ,INTENT(IN) :: PBTOP(KLON,NSIL)
22 REAL(KIND=JPRB) ,INTENT(IN) :: PDBSL(KLON,NSIL,KLEV*2)
23 REAL(KIND=JPRB) ,INTENT(IN) :: PEMIS(KLON)
24 REAL(KIND=JPRB) ,INTENT(IN) :: PEMIW(KLON)
25 REAL(KIND=JPRB) ,INTENT(IN) :: PGA(KLON,NIPD,2,KLEV)
26 REAL(KIND=JPRB) ,INTENT(IN) :: PGB(KLON,NIPD,2,KLEV)
27 REAL(KIND=JPRB) ,INTENT(IN) :: PGASUR(KLON,NIPD,2)
28 REAL(KIND=JPRB) ,INTENT(IN) :: PGBSUR(KLON,NIPD,2)
29 REAL(KIND=JPRB) ,INTENT(IN) :: PGATOP(KLON,NIPD,2)
30 REAL(KIND=JPRB) ,INTENT(IN) :: PGBTOP(KLON,NIPD,2)
31 REAL(KIND=JPRB) ,INTENT(OUT) :: PCNTRB(KLON,KLEV+1,KLEV+1)
32 REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUC(KLON,2,KLEV+1)
33 END SUBROUTINE LWV
34 END INTERFACE
PBSUR
INTERFACE SUBROUTINE LWV PBSUR
Definition: lwv.intfb.h:3
REAL
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
PB
INTERFACE SUBROUTINE LWV PB
Definition: lwv.intfb.h:3
JPIM
ONLY JPIM
Definition: tsmbkind.h:5
PGBTOP
INTERFACE SUBROUTINE LWV PGBTOP
Definition: lwv.intfb.h:3
PGA
INTERFACE SUBROUTINE LWV && PGA
Definition: lwv.intfb.h:3
KLEV
INTERFACE SUBROUTINE LWV KLEV
Definition: lwv.intfb.h:3
PGATOP
INTERFACE SUBROUTINE LWV PGATOP
Definition: lwv.intfb.h:3
PBTOP
INTERFACE SUBROUTINE LWV PBTOP
Definition: lwv.intfb.h:3
KUAER
INTERFACE SUBROUTINE LWV KUAER
Definition: lwv.intfb.h:3
PGASUR
INTERFACE SUBROUTINE LWV PGASUR
Definition: lwv.intfb.h:3
PEMIW
INTERFACE SUBROUTINE LWV PEMIW
Definition: lwv.intfb.h:3
KIDIA
INTERFACE SUBROUTINE LWV && KIDIA
Definition: lwv.intfb.h:3
PDBSL
INTERFACE SUBROUTINE LWV PDBSL
Definition: lwv.intfb.h:3
PGB
INTERFACE SUBROUTINE LWV PGB
Definition: lwv.intfb.h:3
JPRB
ONLY JPRB
Definition: tsmbkind.h:5
ONLY
INTERFACE SUBROUTINE LWV PFLUC &&USE ONLY
Definition: lwv.intfb.h:3
PFLUC
INTERFACE SUBROUTINE LWBV PFLUC
Definition: lwbv.intfb.h:3
PEMIS
INTERFACE SUBROUTINE LWV && PEMIS
Definition: lwv.intfb.h:3
KFDIA
INTERFACE SUBROUTINE LWV KFDIA
Definition: lwv.intfb.h:3
PABCU
INTERFACE SUBROUTINE LWV && PABCU
Definition: lwv.intfb.h:3
NSIL
INTERFACE SUBROUTINE LWB PGBTOP &&USE JPRB USE NSIL
Definition: lwb.intfb.h:3
PBINT
INTERFACE SUBROUTINE LWV PBINT
Definition: lwv.intfb.h:3
KLON
INTERFACE SUBROUTINE LWV KLON
Definition: lwv.intfb.h:3
INTEGER
INTERFACE SUBROUTINE LWV PFLUC &&USE JPRB USE NUA INTEGER(KIND=JPIM)
NUA
INTERFACE SUBROUTINE JPRB USE NUA
Definition: lwtt.intfb.h:3
PCNTRB
INTERFACE SUBROUTINE LWV && PCNTRB
Definition: lwv.intfb.h:3
NIPD
INTERFACE SUBROUTINE LWV PFLUC &&USE JPRB USE NIPD
Definition: lwv.intfb.h:3
PGBSUR
INTERFACE SUBROUTINE LWV PGBSUR
Definition: lwv.intfb.h:3
KTRAER
INTERFACE SUBROUTINE LWV KTRAER
Definition: lwv.intfb.h:3