4 !-----------------------------------------------------------------------
15 !-----------------------------------------------------------------------
!$Header!INCLUDE comdissip h COMMON comdissip && niterdis
!$Header!INCLUDE comdissip h COMMON comdissip tetavel
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
INTERFACE SUBROUTINE JPRB INTEGER(KIND=JPIM)
!$Header!INCLUDE comdissip h COMMON comdissip tetatemp
!$Header!INCLUDE comdissip h COMMON comdissip coefdis