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