INTERFACE
SUBROUTINE GWPROFILTL&
 & ( KIDIA , KFDIA , KLON , KLEV,&
 & LDGWD,&
 & KKCRITH, KCRIT , KKENVH , KKNU , KKNU2,&
 & PAPHM15, PRHO5 , PSTAB5 , PVPH5 , PRI5 , PTAU5,&
 & PDMOD5 , PSIG , PHSTD,&
 & PAPHM1 , PRHO , PSTAB , PVPH , PRI , PTAU,&
 & PDMOD ) 
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
LOGICAL ,INTENT(IN) :: LDGWD(KLON)
INTEGER(KIND=JPIM),INTENT(IN) :: KKCRITH(KLON)
INTEGER(KIND=JPIM),INTENT(IN) :: KCRIT(KLON)
INTEGER(KIND=JPIM),INTENT(IN) :: KKENVH(KLON)
INTEGER(KIND=JPIM),INTENT(IN) :: KKNU(KLON)
INTEGER(KIND=JPIM),INTENT(IN) :: KKNU2(KLON)
REAL(KIND=JPRB) ,INTENT(IN) :: PAPHM15(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PRHO5(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PSTAB5(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PVPH5(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PRI5(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PTAU5(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PDMOD5(KLON)
REAL(KIND=JPRB) ,INTENT(IN) :: PSIG(KLON)
REAL(KIND=JPRB) ,INTENT(IN) :: PHSTD(KLON)
REAL(KIND=JPRB) ,INTENT(IN) :: PAPHM1(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PRHO(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PSTAB(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PVPH(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PRI(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PTAU(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PDMOD(KLON)
END SUBROUTINE GWPROFILTL
END INTERFACE
