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