INTERFACE
SUBROUTINE PHYS_TL (KPRINT, KLEV, KLON,&
 & PT5 ,&
 & PQ5 ,&
 & PP5 ,&
 & PPH5 ,&
 & PTENT5 ,&
 & PTENQ5 ,&
 & PS5 ,&
 & PDIFTS5 ,&
 & PDIFTQ5 ,&
 & PSTRTU5 ,&
 & PSTRTV5 ,&
 & PRAIN3D5 ,&
 & PSNOW3D5 ,&
 & PDQL5 ,&
 & PDQI5 ,&
 & PDCC5 ,&
 & PFLS5 ,&
 & PFLC5 ,&
 & PT ,&
 & PQ ,&
 & PP ,&
 & PPH ,&
 & PTENT ,&
 & PTENQ ,&
 & PS ,&
 & PDIFTS ,&
 & PDIFTQ ,&
 & PSTRTU ,&
 & PSTRTV ,&
 & PRAIN3D ,&
 & PSNOW3D ,&
 & PDQL ,&
 & PDQI ,&
 & PDCC ,&
 & PFLS ,&
 & PFLC) 
USE PARKIND1, ONLY: JPIM, JPRB
INTEGER (KIND=JPIM), INTENT ( IN) :: KPRINT, KLEV, KLON
REAL (KIND=JPRB), INTENT ( IN), DIMENSION (KLON,KLEV+1) :: PPH5
REAL (KIND=JPRB), INTENT ( IN), DIMENSION (KLON,KLEV) :: PP5, PT5, PQ5
REAL (KIND=JPRB), INTENT (INOUT), DIMENSION (KLON,KLEV) :: PTENQ5, PTENT5
REAL (KIND=JPRB), INTENT ( IN), DIMENSION (KLON) :: PS5, PDIFTS5, PDIFTQ5, PSTRTU5, PSTRTV5
REAL (KIND=JPRB), INTENT (INOUT), DIMENSION (KLON,KLEV) :: PRAIN3D5, PSNOW3D5
REAL (KIND=JPRB), INTENT (INOUT), DIMENSION (KLON,KLEV) :: PDQL5, PDQI5, PDCC5
REAL (KIND=JPRB), INTENT (INOUT), DIMENSION (KLON) :: PFLS5, PFLC5
REAL (KIND=JPRB), INTENT (INOUT), DIMENSION (KLON,KLEV+1) :: PPH
REAL (KIND=JPRB), INTENT (INOUT), DIMENSION (KLON,KLEV) :: PP, PT, PQ
REAL (KIND=JPRB), INTENT (INOUT), DIMENSION (KLON,KLEV) :: PTENQ, PTENT
REAL (KIND=JPRB), INTENT (INOUT), DIMENSION (KLON) :: PS, PDIFTS, PDIFTQ, PSTRTU, PSTRTV
REAL (KIND=JPRB), INTENT (INOUT), DIMENSION (KLON,KLEV) :: PRAIN3D, PSNOW3D
REAL (KIND=JPRB), INTENT (INOUT), DIMENSION (KLON,KLEV) :: PDQL, PDQI, PDCC
REAL (KIND=JPRB), INTENT (INOUT), DIMENSION (KLON) :: PFLS, PFLC
END SUBROUTINE PHYS_TL
END INTERFACE
