11 REAL(KIND=JPRB) ,INTENT(OUT) :: PTR(KLON,
KABS)
INTERFACE SUBROUTINE SW1S KNU
INTERFACE SUBROUTINE LW KLON
INTERFACE SUBROUTINE SWUVO3 KABS
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
INTERFACE SUBROUTINE ONLY
INTERFACE SUBROUTINE LW KFDIA
INTERFACE SUBROUTINE JPRB INTEGER(KIND=JPIM)
INTERFACE SUBROUTINE SWUVO3 && PU
INTERFACE SUBROUTINE SWTT1(KIDIA, KFDIA, KLON, KNU, KABS, KIND, PU, PTR) USE PARKIND1
INTERFACE SUBROUTINE LW && KIDIA