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