INTERFACE
SUBROUTINE SUEJBCOSU (KPRT,PCOVTPS,PCOVP,PCOVD,PCOVQ,&
 & KLEV,KNUMB) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
USE MPL_MODULE
INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
INTEGER(KIND=JPIM),INTENT(IN) :: KNUMB
INTEGER(KIND=JPIM),INTENT(IN) :: KPRT
REAL(KIND=JPRB) ,INTENT(INOUT) :: PCOVTPS(KLEV+1,KLEV+1,0:KNUMB-1)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PCOVP(KLEV,KLEV,0:KNUMB-1)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PCOVD(KLEV,KLEV,0:KNUMB-1)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PCOVQ(KLEV,KLEV,0:KNUMB-1)
END SUBROUTINE SUEJBCOSU
END INTERFACE
