LMDZ
lwvn.intfb.h
Go to the documentation of this file.
1 INTERFACE
2 SUBROUTINE LWVN&
3  & ( KIDIA, KFDIA, KLON , KLEV , KUAER,&
4  & PABCU, PDBSL, PGA , PGB,&
5  & PADJD, PADJU, PCNTRB, PDBDT, PDWFSU&
6  & )
7 USE PARKIND1 ,ONLY : JPIM ,JPRB
8 USE YOELW , ONLY : NSIL ,NIPD ,NTRA ,NUA ,&
9  & NG1 ,NG1P1 ,WG1
10 INTEGER(KIND=JPIM),INTENT(IN) :: KLON
11 INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
12 INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
13 INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
14 INTEGER(KIND=JPIM),INTENT(IN) :: KUAER
15 REAL(KIND=JPRB) ,INTENT(IN) :: PABCU(KLON,NUA,3*KLEV+1)
16 REAL(KIND=JPRB) ,INTENT(IN) :: PDBSL(KLON,NSIL,KLEV*2)
17 REAL(KIND=JPRB) ,INTENT(IN) :: PGA(KLON,NIPD,2,KLEV)
18 REAL(KIND=JPRB) ,INTENT(IN) :: PGB(KLON,NIPD,2,KLEV)
19 REAL(KIND=JPRB) ,INTENT(OUT) :: PADJD(KLON,KLEV+1)
20 REAL(KIND=JPRB) ,INTENT(OUT) :: PADJU(KLON,KLEV+1)
21 REAL(KIND=JPRB) ,INTENT(OUT) :: PCNTRB(KLON,KLEV+1,KLEV+1)
22 REAL(KIND=JPRB) ,INTENT(OUT) :: PDBDT(KLON,NSIL,KLEV)
23 REAL(KIND=JPRB) ,INTENT(INOUT) :: PDWFSU(KLON,NSIL)
24 END SUBROUTINE LWVN
25 END INTERFACE
KLEV
INTERFACE SUBROUTINE LWVN KLEV
Definition: lwvn.intfb.h:3
PDWFSU
INTERFACE SUBROUTINE LWVB && PDWFSU
Definition: lwvb.intfb.h:3
KLON
INTERFACE SUBROUTINE LWVN KLON
Definition: lwvn.intfb.h:3
PADJD
INTERFACE SUBROUTINE LWVN && PADJD
Definition: lwvn.intfb.h:3
PADJU
INTERFACE SUBROUTINE LWVN PADJU
Definition: lwvn.intfb.h:3
REAL
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
PCNTRB
INTERFACE SUBROUTINE LWVN PCNTRB
Definition: lwvn.intfb.h:3
JPIM
ONLY JPIM
Definition: tsmbkind.h:5
PABCU
INTERFACE SUBROUTINE LWVN && PABCU
Definition: lwvn.intfb.h:3
PGB
INTERFACE SUBROUTINE LWVN PGB
Definition: lwvn.intfb.h:3
INTEGER
INTERFACE SUBROUTINE LWVN PDWFSU &&USE JPRB USE WG1 INTEGER(KIND=JPIM)
PGA
INTERFACE SUBROUTINE LWVN PGA
Definition: lwvn.intfb.h:3
KFDIA
INTERFACE SUBROUTINE LWVN KFDIA
Definition: lwvn.intfb.h:3
NTRA
INTERFACE SUBROUTINE LWVN PDWFSU &&USE JPRB USE NTRA
Definition: lwvn.intfb.h:3
NG1
INTERFACE SUBROUTINE LWVN PDWFSU &&USE JPRB USE && NG1
Definition: lwvn.intfb.h:3
NIPD
INTERFACE SUBROUTINE LWVN PDWFSU &&USE JPRB USE NIPD
Definition: lwvn.intfb.h:3
NUA
INTERFACE SUBROUTINE LWVN PDWFSU &&USE JPRB USE NUA
Definition: lwvn.intfb.h:3
JPRB
ONLY JPRB
Definition: tsmbkind.h:5
PDBSL
INTERFACE SUBROUTINE LWVN PDBSL
Definition: lwvn.intfb.h:3
KIDIA
INTERFACE SUBROUTINE LWVN && KIDIA
Definition: lwvn.intfb.h:3
ONLY
INTERFACE SUBROUTINE LWVN PDWFSU &&USE ONLY
Definition: lwvn.intfb.h:3
PDBDT
INTERFACE SUBROUTINE LWVN PDBDT
Definition: lwvn.intfb.h:3
NSIL
INTERFACE SUBROUTINE LWB PGBTOP &&USE JPRB USE NSIL
Definition: lwb.intfb.h:3
KUAER
INTERFACE SUBROUTINE LWVN KUAER
Definition: lwvn.intfb.h:3
NG1P1
INTERFACE SUBROUTINE LWVN PDWFSU &&USE JPRB USE NG1P1
Definition: lwvn.intfb.h:3