INTERFACE
SUBROUTINE EXTRAPAD(P_ADPROFIN, P_ADPROFOUT, 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(INOUT) :: P_ADPROFIN(KNPF,JPMOLEV)
REAL(KIND=JPRB) ,INTENT(INOUT) :: P_ADPROFOUT(KNPF,JPLEV)
INTEGER(KIND=JPIM), PARAMETER :: JPXTLVIN =18
INTEGER(KIND=JPIM), PARAMETER :: JPXTLVOU =7
INTEGER(KIND=JPIM), PARAMETER :: JPXTOUMX =9
END SUBROUTINE EXTRAPAD
END INTERFACE
