INTERFACE
SUBROUTINE EXTRAP(PROFIN,PROFOUT, KNPF)
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM), PARAMETER :: JPLEV =43
INTEGER(KIND=JPIM), PARAMETER :: JPMOTOP =8
INTEGER(KIND=JPIM), PARAMETER :: JPMOLEV =43-JPMOTOP+1
INTEGER(KIND=JPIM),INTENT(IN) :: KNPF
REAL(KIND=JPRB) ,INTENT(IN) :: PROFIN(KNPF,JPMOLEV)
REAL(KIND=JPRB) ,INTENT(OUT) :: PROFOUT(KNPF,JPLEV)
INTEGER(KIND=JPIM), PARAMETER :: JPXTLVIN =18
INTEGER(KIND=JPIM), PARAMETER :: JPXTLVOU =7
INTEGER(KIND=JPIM), PARAMETER :: JPXTOUMX =9
END SUBROUTINE EXTRAP
END INTERFACE
