LMDZ
lwb.intfb.h
Go to the documentation of this file.
1 INTERFACE
2 SUBROUTINE LWB&
3  & ( KIDIA, KFDIA, KLON , KLEV , KMODE,&
4  & PDT0 , PTAVE, PTL,&
5  & PB , PBINT, PBSUR , PBTOP , PDBSL,&
6  & PGA , PGB , PGASUR, PGBSUR, PGATOP, PGBTOP&
7  & )
8 USE PARKIND1 ,ONLY : JPIM ,JPRB
9 USE YOELW , ONLY : MXIXT ,NSIL ,NIPD ,PDGA ,&
10  & PDGB ,TINTP ,TSTAND ,TSTP ,XP
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) :: KMODE
16 REAL(KIND=JPRB) ,INTENT(IN) :: PDT0(KLON)
17 REAL(KIND=JPRB) ,INTENT(IN) :: PTAVE(KLON,KLEV)
18 REAL(KIND=JPRB) ,INTENT(IN) :: PTL(KLON,KLEV+1)
19 REAL(KIND=JPRB) ,INTENT(OUT) :: PB(KLON,NSIL,KLEV+1)
20 REAL(KIND=JPRB) ,INTENT(OUT) :: PBINT(KLON,KLEV+1)
21 REAL(KIND=JPRB) ,INTENT(OUT) :: PBSUR(KLON,NSIL)
22 REAL(KIND=JPRB) ,INTENT(OUT) :: PBTOP(KLON,NSIL)
23 REAL(KIND=JPRB) ,INTENT(OUT) :: PDBSL(KLON,NSIL,KLEV*2)
24 REAL(KIND=JPRB) ,INTENT(OUT) :: PGA(KLON,NIPD,2,KLEV)
25 REAL(KIND=JPRB) ,INTENT(OUT) :: PGB(KLON,NIPD,2,KLEV)
26 REAL(KIND=JPRB) ,INTENT(OUT) :: PGASUR(KLON,NIPD,2)
27 REAL(KIND=JPRB) ,INTENT(OUT) :: PGBSUR(KLON,NIPD,2)
28 REAL(KIND=JPRB) ,INTENT(OUT) :: PGATOP(KLON,NIPD,2)
29 REAL(KIND=JPRB) ,INTENT(OUT) :: PGBTOP(KLON,NIPD,2)
30 END SUBROUTINE LWB
31 END INTERFACE
ONLY
INTERFACE SUBROUTINE LWB PGBTOP &&USE ONLY
Definition: lwb.intfb.h:3
REAL
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
PTL
INTERFACE SUBROUTINE LWB PTL
Definition: lwb.intfb.h:3
NIPD
INTERFACE SUBROUTINE LWB PGBTOP &&USE JPRB USE NIPD
Definition: lwb.intfb.h:3
JPIM
ONLY JPIM
Definition: tsmbkind.h:5
PGBTOP
INTERFACE SUBROUTINE LWV PGBTOP
Definition: lwv.intfb.h:3
PGASUR
INTERFACE SUBROUTINE LWB PGASUR
Definition: lwb.intfb.h:3
TINTP
INTERFACE SUBROUTINE LWB PGBTOP &&USE JPRB USE TINTP
Definition: lwb.intfb.h:3
TSTP
INTERFACE SUBROUTINE LWB PGBTOP &&USE JPRB USE TSTP
Definition: lwb.intfb.h:3
PBSUR
INTERFACE SUBROUTINE LWB PBSUR
Definition: lwb.intfb.h:3
PTAVE
INTERFACE SUBROUTINE LWB PTAVE
Definition: lwb.intfb.h:3
TSTAND
INTERFACE SUBROUTINE LWB PGBTOP &&USE JPRB USE TSTAND
Definition: lwb.intfb.h:3
PDGA
INTERFACE SUBROUTINE LWB PGBTOP &&USE JPRB USE PDGA
Definition: lwb.intfb.h:3
KMODE
INTERFACE SUBROUTINE LWB KMODE
Definition: lwb.intfb.h:3
PGBSUR
INTERFACE SUBROUTINE LWB PGBSUR
Definition: lwb.intfb.h:3
KIDIA
INTERFACE SUBROUTINE LWB && KIDIA
Definition: lwb.intfb.h:3
PBTOP
INTERFACE SUBROUTINE LWB PBTOP
Definition: lwb.intfb.h:3
PGATOP
INTERFACE SUBROUTINE LWB PGATOP
Definition: lwb.intfb.h:3
PGB
INTERFACE SUBROUTINE LWB PGB
Definition: lwb.intfb.h:3
KFDIA
INTERFACE SUBROUTINE LWB KFDIA
Definition: lwb.intfb.h:3
PBINT
INTERFACE SUBROUTINE LWB PBINT
Definition: lwb.intfb.h:3
KLON
INTERFACE SUBROUTINE LWB KLON
Definition: lwb.intfb.h:3
JPRB
ONLY JPRB
Definition: tsmbkind.h:5
KLEV
INTERFACE SUBROUTINE LWB KLEV
Definition: lwb.intfb.h:3
PDT0
INTERFACE SUBROUTINE LWB && PDT0
Definition: lwb.intfb.h:3
NSIL
INTERFACE SUBROUTINE LWB PGBTOP &&USE JPRB USE NSIL
Definition: lwb.intfb.h:3
PGA
INTERFACE SUBROUTINE LWB && PGA
Definition: lwb.intfb.h:3
INTEGER
INTERFACE SUBROUTINE LWB PGBTOP &&USE JPRB USE XP INTEGER(KIND=JPIM)
PDGB
INTERFACE SUBROUTINE LWB PGBTOP &&USE JPRB USE && PDGB
Definition: lwb.intfb.h:3
PDBSL
INTERFACE SUBROUTINE LWB PDBSL
Definition: lwb.intfb.h:3
PB
INTERFACE SUBROUTINE LWB && PB
Definition: lwb.intfb.h:3