10 REAL(KIND=JPRB) ,INTENT(IN) :: 
PGB(KLON,8,2)
 
   11 REAL(KIND=JPRB) ,INTENT(IN) :: PUU(KLON,NUA)
 
   12 REAL(KIND=JPRB) ,INTENT(OUT) :: PTT(KLON,NTRA)
 
INTERFACE SUBROUTINE JPRB USE RPIALF0 INTEGER(KIND=JPIM)
 
INTERFACE SUBROUTINE LW KLON
 
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
 
INTERFACE SUBROUTINE LWVB PFLUC &&USE JPRB USE NTRA
 
INTERFACE SUBROUTINE LWTT(KIDIA, KFDIA, KLON, PGA, PGB, PUU, PTT) USE PARKIND1
 
INTERFACE SUBROUTINE LW KFDIA
 
INTERFACE SUBROUTINE JPRB USE RO2H
 
INTERFACE SUBROUTINE JPRB USE RETYPE
 
INTERFACE SUBROUTINE LWB PGB
 
INTERFACE SUBROUTINE ONLY
 
INTERFACE SUBROUTINE JPRB USE && RO1H
 
INTERFACE SUBROUTINE LWB && PGA
 
INTERFACE SUBROUTINE JPRB USE NUA
 
INTERFACE SUBROUTINE JPRB USE RPTYPE
 
INTERFACE SUBROUTINE LW && KIDIA