c****************************************************************
	 
	SUBROUTINE difft(melange,t,ro,drox,kap,dkapx,deff,gradad,gradrad,m,d,dd)

c	subroutine private du module mod_evol
	 	
c	subroutine générique de calcul des coefficients de
c	diffusion turbulente

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

	USE mod_donnees, ONLY : nom_difft
	USE mod_kind

	IMPLICIT NONE
	
	REAL (kind=dp), INTENT(in) :: deff, dkapx, drox, gradad,gradrad, kap,
	1 m, ro, t
	LOGICAL, INTENT(in) :: melange			
	REAL (kind=dp), INTENT(inout), DIMENSION(:,:,:) :: dd	
	REAL (kind=dp), INTENT(inout), DIMENSION(:,:) :: d
	 
c-------------------------------------------------------------------------

2000	FORMAT(8es10.3)	 
	SELECT CASE(nom_difft)
	CASE('difft_nu')
	 CALL difft_nu(melange,t,ro,drox,kap,dkapx,deff,d,dd)	 
	CASE('difft_gab')
	 CALL difft_gab(melange,t,deff,d)
	CASE('difft_sun')
	 CALL difft_sun(melange,deff,gradad,gradrad,m,d)
	CASE DEFAULT
	 PRINT*,'routine de diffusion turbulente inconnue: ',nom_difft
	 PRINT*,'routines connues: difft_gab, difft_nu, difft_sun'
	 PRINT*,'ARRÊT' ; STOP
	END SELECT
	
	RETURN
	 
	END SUBROUTINE difft