INTERFACE
SUBROUTINE TSL(KH,KDJ,PMU0,PGELAT,PGELAM,PGEMU)
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(INOUT) :: KH
INTEGER(KIND=JPIM),INTENT(INOUT) :: KDJ
REAL(KIND=JPRB) ,INTENT(OUT) :: PMU0
REAL(KIND=JPRB) ,INTENT(IN) :: PGELAT
REAL(KIND=JPRB) ,INTENT(IN) :: PGELAM
REAL(KIND=JPRB) ,INTENT(IN) :: PGEMU
END SUBROUTINE TSL
END INTERFACE
