INTERFACE
SUBROUTINE ECOMMJBBAL(KLEV,KSMAX,KSPEC2,PFACT,PSDIV,PSTPS,PSHUM)
USE PARKIND1 ,ONLY : JPIM ,JPRB
USE MPL_MODULE
INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
INTEGER(KIND=JPIM),INTENT(IN) :: KSMAX
INTEGER(KIND=JPIM),INTENT(IN) :: KSPEC2
REAL(KIND=JPRB) ,INTENT(INOUT) :: PFACT(KSPEC2)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PSDIV(KLEV,KLEV,0:KSMAX)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PSTPS(KLEV+1,2*KLEV,0:KSMAX)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PSHUM(KLEV,3*KLEV+1,0:KSMAX)
END SUBROUTINE ECOMMJBBAL
END INTERFACE
