INTERFACE
SUBROUTINE SUDEFO_VV1(LDECMWF,KFLEV,PVALH,PVBH,PVP00)
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KFLEV
LOGICAL ,INTENT(IN) :: LDECMWF
REAL(KIND=JPRB) ,INTENT(OUT) :: PVALH(0:KFLEV)
REAL(KIND=JPRB) ,INTENT(OUT) :: PVBH(0:KFLEV)
REAL(KIND=JPRB) ,INTENT(OUT) :: PVP00
END SUBROUTINE SUDEFO_VV1
END INTERFACE
