INTERFACE
SUBROUTINE LWTTMAD ( KIDIA, KFDIA, KLON, PGA, PGB,&
 & PUU15 , PUU25 , PTT5, PUU1 , PUU2 , PTT ) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
USE YOELW , ONLY : NTRA ,NUA ,RPTYPE ,RETYPE ,&
 & RO1H ,RO2H ,RPIALF0 
INTEGER(KIND=JPIM),INTENT(IN) :: KLON
INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
REAL(KIND=JPRB) ,INTENT(IN) :: PGA(KLON,8,2)
REAL(KIND=JPRB) ,INTENT(IN) :: PGB(KLON,8,2)
REAL(KIND=JPRB) ,INTENT(IN) :: PUU15(KLON,NUA)
REAL(KIND=JPRB) ,INTENT(IN) :: PUU25(KLON,NUA)
REAL(KIND=JPRB) ,INTENT(OUT) :: PTT5(KLON,NTRA)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PUU1(KLON,NUA)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PUU2(KLON,NUA)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PTT(KLON,NTRA)
END SUBROUTINE LWTTMAD
END INTERFACE
