INTERFACE
SUBROUTINE VDIFLCZAD (KIDIA, KFDIA, KLON, KLEV,&
 & PTSTEP,&
 & PLSM,&
 & PAPHI5,&
 & PAPHI, PAPHIF,&
 & PU9, PV9, PT9,&
 & PUT1,PVT1,PTT1) 
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) :: PTSTEP
REAL(KIND=JPRB) ,INTENT(IN) :: PLSM(KLON)
REAL(KIND=JPRB) ,INTENT(IN) :: PAPHI5(KLON,0:KLEV)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PAPHI(KLON,0:KLEV)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PAPHIF(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PU9(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PV9(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PT9(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PUT1(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PVT1(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PTT1(KLON,KLEV)
END SUBROUTINE VDIFLCZAD
END INTERFACE
