INTERFACE
SUBROUTINE SUJBCOR(CDJBTYPE,KPRT,PCOVTPS,PCOVP,PCOVU,PCOVD,PCOVQ,&
 & PCOVO3,KLEV,KNUMB) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
USE YOMDIM , ONLY : NDGLG ,NFLEVG ,NSMAX ,&
 & NSPEC2G ,NUMP 
INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
INTEGER(KIND=JPIM),INTENT(IN) :: KNUMB
CHARACTER(LEN=10) ,INTENT(IN) :: CDJBTYPE
INTEGER(KIND=JPIM),INTENT(IN) :: KPRT
REAL(KIND=JPRB) ,INTENT(IN) :: PCOVTPS(KLEV+1,KLEV+1,0:KNUMB-1)
REAL(KIND=JPRB) ,INTENT(IN) :: PCOVP(KLEV,KLEV,0:KNUMB-1)
REAL(KIND=JPRB) ,INTENT(IN) :: PCOVU(KLEV,KLEV,0:KNUMB-1)
REAL(KIND=JPRB) ,INTENT(IN) :: PCOVD(KLEV,KLEV,0:KNUMB-1)
REAL(KIND=JPRB) ,INTENT(IN) :: PCOVQ(KLEV,KLEV,0:KNUMB-1)
REAL(KIND=JPRB) ,INTENT(IN) :: PCOVO3(KLEV,KLEV,0:KNUMB-1)
END SUBROUTINE SUJBCOR
END INTERFACE
