25 REAL(KIND=
JPRB) ,INTENT(OUT) :: PAEROS
INTERFACE SUBROUTINE SUAERV PVOBGA
INTERFACE SUBROUTINE SUAERV PETAH
INTERFACE SUBROUTINE SUAERV PAEROS &&USE JPRB INTEGER(KIND=JPIM)
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 SUAERV && PVDAES
INTERFACE SUBROUTINE SUAERV && PTRBGA
INTERFACE SUBROUTINE SUAERV PAEADK
INTERFACE SUBROUTINE SUAERV PAEROS &&USE ONLY
INTERFACE SUBROUTINE SUAERV PVDAEU
INTERFACE SUBROUTINE SUAERV PVDAEL
INTERFACE SUBROUTINE SUAERV PAEADM
INTERFACE SUBROUTINE SUAERV && KLEV
INTERFACE SUBROUTINE SUAERV PTRPT
INTERFACE SUBROUTINE SUAERV PSTBGA
INTERFACE SUBROUTINE SUAERV PAEOPL
INTERFACE SUBROUTINE SUAERV PAEOPU
INTERFACE SUBROUTINE SUAERV PAEOPS