14 REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAEF(
KLEV+1)
21 REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPF
26 REAL(KIND=JPRB) ,INTENT(OUT) :: PAEROS
INTERFACE SUBROUTINE SUAERV PVOBGA
INTERFACE SUBROUTINE SUAERV PETAH
INTERFACE SUBROUTINE SUAERV && PAEOPD
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
INTERFACE SUBROUTINE SUAERV PVDAED
INTERFACE SUBROUTINE LW KLEV
INTERFACE SUBROUTINE SUAERV && PVDAES
INTERFACE SUBROUTINE ONLY
INTERFACE SUBROUTINE SUAERV && PTRBGA
INTERFACE SUBROUTINE SUAERV PAEADK
INTERFACE SUBROUTINE SUAERV PVDAEU
INTERFACE SUBROUTINE SUAERV PVDAEL
INTERFACE SUBROUTINE SUAERV PAEADM
INTERFACE SUBROUTINE SUAERV PTRPT
INTERFACE SUBROUTINE SUAERV PSTBGA
INTERFACE SUBROUTINE SUAERV PAEOPL
INTERFACE SUBROUTINE JPRB INTEGER(KIND=JPIM)
INTERFACE SUBROUTINE SUAERV PAEOPU
INTERFACE SUBROUTINE SUAERV PAEOPS
INTERFACE SUBROUTINE SUAERV15(KLEV, PETAH,&&PVDAES, PVDAEL, PVDAEU, PVDAED, PVDAEF,&&PTRBGA, PVOBGA, PSTBGA, PAEOPS, PAEOPL, PAEOPU,&&PAEOPF,&&PAEOPD, PTRPT, PAEADK, PAEADM, PAEROS) USE PARKIND1