INTERFACE
SUBROUTINE EINTER10(PZ0,KLAT0,KLON0,KNCH,PZI,PZS,KLAT,KLON,KNPT,&
 & PDELX,PDELY,KPP,KNCO,KULOUT,PSEA0,PSEA1,PSEA2,PSEA3,PSPCM) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KLAT0
INTEGER(KIND=JPIM),INTENT(IN) :: KLON0
INTEGER(KIND=JPIM),INTENT(IN) :: KNCH
INTEGER(KIND=JPIM),INTENT(IN) :: KNPT
REAL(KIND=JPRB) ,INTENT(INOUT) :: PZ0(KLON0,KLAT0,KNCH)
REAL(KIND=JPRB) ,INTENT(OUT) :: PZI(KNPT,KNCH)
REAL(KIND=JPRB) ,INTENT(OUT) :: PZS(KNPT,KNCH)
INTEGER(KIND=JPIM),INTENT(IN) :: KLAT
INTEGER(KIND=JPIM),INTENT(IN) :: KLON
REAL(KIND=JPRB) ,INTENT(IN) :: PDELX
REAL(KIND=JPRB) ,INTENT(IN) :: PDELY
INTEGER(KIND=JPIM),INTENT(IN) :: KPP
INTEGER(KIND=JPIM),INTENT(IN) :: KNCO
INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
REAL(KIND=JPRB) ,INTENT(IN) :: PSEA0(KLON0,KLAT0)
REAL(KIND=JPRB) ,INTENT(IN) :: PSEA1(KNPT)
REAL(KIND=JPRB) ,INTENT(IN) :: PSEA2(KNPT)
REAL(KIND=JPRB) ,INTENT(OUT) :: PSEA3(KNPT)
REAL(KIND=JPRB) ,INTENT(IN) :: PSPCM
END SUBROUTINE EINTER10
END INTERFACE
