INTERFACE
SUBROUTINE BALADSM(PNOR,KM,KSMAX,PVOR,PZ)
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KM
INTEGER(KIND=JPIM),INTENT(IN) :: KSMAX
REAL(KIND=JPRB) ,INTENT(IN) :: PNOR
REAL(KIND=JPRB) ,INTENT(IN) :: PVOR(2,KM:KSMAX)
REAL(KIND=JPRB) ,INTENT(OUT) :: PZ(2,KM:KSMAX)
END SUBROUTINE BALADSM
END INTERFACE
