INTERFACE
SUBROUTINE VDFDIFMS (KIDIA, KFDIA, KLON, KLEV, KTOP,&
 & PTMST ,PUM1 ,PVM1 ,PAPHM1 , PCFM, PTOFDC,&
 & PVOM ,PVOL ,PUDIF ,PVDIF) 
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
INTEGER(KIND=JPIM),INTENT(IN) :: KTOP
REAL(KIND=JPRB) ,INTENT(IN) :: PTMST
REAL(KIND=JPRB) ,INTENT(IN) :: PUM1(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PVM1(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PAPHM1(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PCFM(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PTOFDC(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PVOM(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PVOL(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(OUT) :: PUDIF(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(OUT) :: PVDIF(KLON,KLEV)
END SUBROUTINE VDFDIFMS
END INTERFACE
