8 INTEGER(KIND=JPIM),INTENT(IN) :: KA
 
   10 REAL(KIND=JPRB) ,INTENT(OUT) :: PTR(
KLON)
 
INTERFACE SUBROUTINE ONLY
 
INTERFACE SUBROUTINE SW1S KNU
 
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 SWTT(KIDIA, KFDIA, KLON, KNU, KA, PU, PTR) USE PARKIND1
 
INTERFACE SUBROUTINE LW KFDIA
 
INTERFACE SUBROUTINE JPRB INTEGER(KIND=JPIM)
 
INTERFACE SUBROUTINE SWUVO3 && PU
 
INTERFACE SUBROUTINE LW && KIDIA