INTERFACE
SUBROUTINE RADHEATTL&
 & ( KIDIA , KFDIA , KLON , KLEV,&
 & PAPHM15 , PAPM15,&
 & PEMIS , PEMTED5 , PMU0,&
 & PQM15,&
 & PTE5 , PTM15 , PTRSOL5 , PTRSOD5 , PTSM1M5,&
 & PCLFR5 , PQLWP5 , PQIWP5 ,&
 & PFRSO5 , PFRTH5 , PFRSOD5 , PFRTHD5,&
 & PAPHM1 , PAPM1,&
 & PEMTED,&
 & PQM1,&
 & PTE , PTM1 , PTRSOL , PTRSOD , PTSM1M,&
 & PFRSO , PFRTH , PFRSOD , PFRTHD ) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KLON
INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
REAL(KIND=JPRB) ,INTENT(IN) :: PAPHM15(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PAPM15(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PEMIS(KLON)
REAL(KIND=JPRB) ,INTENT(IN) :: PEMTED5(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PMU0(KLON)
REAL(KIND=JPRB) ,INTENT(IN) :: PQM15(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PTE5(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PTM15(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PTRSOL5(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PTRSOD5(KLON)
REAL(KIND=JPRB) ,INTENT(IN) :: PTSM1M5(KLON)
REAL(KIND=JPRB) ,INTENT(IN) :: PCLFR5(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PQLWP5(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PQIWP5(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(OUT) :: PFRSO5(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PFRTH5(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PFRSOD5(KLON)
REAL(KIND=JPRB) ,INTENT(OUT) :: PFRTHD5(KLON)
REAL(KIND=JPRB) ,INTENT(IN) :: PAPHM1(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PAPM1(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PEMTED(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PQM1(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PTE(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PTM1(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PTRSOL(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PTRSOD(KLON)
REAL(KIND=JPRB) ,INTENT(IN) :: PTSM1M(KLON)
REAL(KIND=JPRB) ,INTENT(OUT) :: PFRSO(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PFRTH(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PFRSOD(KLON)
REAL(KIND=JPRB) ,INTENT(OUT) :: PFRTHD(KLON)
END SUBROUTINE RADHEATTL
END INTERFACE
