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