c***************************************************************

	LOGICAL FUNCTION lmix_t(nu)

c fonction PUBLIC du module mod_evol
c était-on, au temps t, dans une zone de mélange pour la comp. chim.

c entrée :
c	nu : masse^2/3

c sortie :
c	lmix_t=.TRUE. : on était dans une zone mélangée

c Auteur: P.Morel, Département J.D. Cassini, O.C.A., CESAM2k

c-------------------------------------------------------------------

	USE mod_kind
	USE mod_numerique, ONLY : inside, linf, no_croiss
	
	IMPLICIT NONE
	
	REAL (kind=dp), INTENT(in) :: nu
		
	REAL (kind=dp) :: mr
	
	INTEGER, SAVE :: l=1
	
c------------------------------------------------------------------

c toujours convectif à l'extérieur
	lmix_t=nu >= x_mix_t(n_mix_t)
	IF(lmix_t)RETURN
	
c à l'intérieur		
	mr=inside(x_mix_t(1),x_mix_t(n_mix_t),nu)
	CALL linf(mr,x_mix_t,n_mix_t,l)
	IF(no_croiss)PRINT*,'Problème dans lmix_t'
	lmix_t=mix_t(l)
	
	RETURN	
	
	END FUNCTION lmix_t