INTERFACE
SUBROUTINE SUFRAME(CDMCA,PMUCEN,PLOCEN,PSTRET,KSTTYP,KSMAX,KDGL,KDLON,KLOEN,&
 & KMEN,PMU,LDGARD,KFLEV,PVP00,PVALH,PVBH) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KDGL
INTEGER(KIND=JPIM),INTENT(IN) :: KFLEV
CHARACTER(LEN=16) ,INTENT(IN) :: CDMCA
REAL(KIND=JPRB) ,INTENT(IN) :: PMUCEN
REAL(KIND=JPRB) ,INTENT(IN) :: PLOCEN
REAL(KIND=JPRB) ,INTENT(IN) :: PSTRET
INTEGER(KIND=JPIM),INTENT(IN) :: KSTTYP
INTEGER(KIND=JPIM),INTENT(IN) :: KSMAX
INTEGER(KIND=JPIM),INTENT(IN) :: KDLON
INTEGER(KIND=JPIM),INTENT(IN) :: KLOEN((KDGL+1)/2)
INTEGER(KIND=JPIM),INTENT(IN) :: KMEN((KDGL+1)/2)
REAL(KIND=JPRB) ,INTENT(IN) :: PMU((KDGL+1)/2)
LOGICAL ,INTENT(IN) :: LDGARD
REAL(KIND=JPRB) ,INTENT(IN) :: PVP00
REAL(KIND=JPRB) ,INTENT(IN) :: PVALH(0:KFLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PVBH(0:KFLEV)
END SUBROUTINE SUFRAME
END INTERFACE
