c****************************************************************
	 
	SUBROUTINE diffw(dlnro,grand_k,nu,nu_cin,n2mu,n2t,r,ro,y,
	1 deff,dh,dv,dhv)

c subroutine public du module mod_evol
	 	
c subroutine générique de calcul des coefficients de
c diffusion turbulente pour la rotation

c Auteur: P.Morel, Département Cassiopée, O.C.A., CESAM2k

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

	USE mod_donnees, ONLY : langue, nom_diffw, nrot
	USE mod_kind	 

	IMPLICIT NONE
	
	REAL (kind=dp), INTENT(in), DIMENSION(2,0:1) :: y	
	REAL (kind=dp), INTENT(in) :: dlnro, grand_k, nu, nu_cin, n2mu, n2t,
	1 r, ro
	REAL (kind=dp), INTENT(out), DIMENSION(2,2,0:1) :: dhv
	REAL (kind=dp), INTENT(out) :: deff, dh, dv
	 
c-------------------------------------------------------------------------
	 
	SELECT CASE(nom_diffw)
	CASE('diffw_mpz')
	 CALL diffw_mpz(dlnro,grand_k,nu,nu_cin,n2mu,n2t,r,ro,y,
	1 deff,dh,dv,dhv)
	CASE('diffw_p03')
	 CALL diffw_p03(dlnro,grand_k,nu,nu_cin,n2mu,n2t,r,ro,y,
	1 deff,dh,dv,dhv)	
	CASE('diffw_0')
	 deff=0.d0 ; dh=0.d0 ; dv=0.d0 ; dhv=0.d0
	CASE('diffw_cte')
	 deff=3.d2 ; dh=1.d6 ; dv=2.5d2	; dhv=0.d0	 
	CASE DEFAULT
	 PRINT*
	 SELECT CASE(langue)
	 CASE('english')
	  WRITE(*,1001)nom_diffw ; WRITE(2,1001)nom_diffw
1001	  FORMAT('STOP, unknown subroutine of diff. for the rotation',a,/,
	1 'known subroutines : diffw_0, diffw_cte, diffw_mpz, diffw_p03')
	 CASE DEFAULT
	  WRITE(*,1)nom_diffw ; WRITE(2,1)nom_diffw
1	  FORMAT('ARRET, routine de diff. pour la rotation inconnue: ',a,/,
	1 'routines connues : diffw_0, diffw_cte, diffw_mpz, diffw_p03')
	 END SELECT
	 STOP
	END SELECT
	 	
	RETURN
	 
	END SUBROUTINE diffw