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