5 INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
7 REAL(KIND=JPRB) ,INTENT(IN) :: PVBH(
KLEV+1)
INTERFACE SUBROUTINE ONLY
!$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 SUGWD(KULOUT, KLEV, PVAH, PVBH) USE PARKIND1