INTERFACE
SUBROUTINE SUOVLP ( KLEV )
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
END SUBROUTINE SUOVLP
END INTERFACE