6 INTEGER(KIND=JPIM),INTENT(OUT) :: KPARA
7 REAL(KIND=JPRB) ,INTENT(IN) :: PSTPRE(
KLEV)
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
INTERFACE SUBROUTINE LW KLEV
INTERFACE SUBROUTINE JPRB INTEGER(KIND=JPIM)
INTERFACE SUBROUTINE SEAPRE(PARA, KPARA, PSTPRE, KLEV) USE PARKIND1
INTERFACE SUBROUTINE ONLY