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

         SUBROUTINE pertw(r,mw_dot)

c routine private du module mod_evol

c routine générique pour le calcul de la perte/gain de moment cinétique
c il y a des appels différents suivant nom_pertw

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

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

	USE mod_donnees, ONLY : langue, nom_pertw
	USE mod_kind
	USE mod_variables, ONLY : sortie

	IMPLICIT NONE

	REAL (kind=dp), INTENT(in) :: r
	REAL (kind=dp), INTENT(out) :: mw_dot

	LOGICAL, SAVE :: pass=.TRUE.

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

c A supprimer si reprise des pertes de moment cinétique+++++++++++++++
	SELECT CASE(nom_pertw)
	CASE ('pertw_sch','pertw_loc','pertw_ptm')
	 SELECT CASE(langue)
	 CASE('english')
	  PRINT*,'STOP, unvailable routine of angular momentum losses: ',
	1 nom_pertw
	 CASE DEFAULT
	  PRINT*,'ARRET, routine de perte de moment cinétique indisponible: ',
	1 nom_pertw
	 END SELECT
	 CALL sortie('pertw 1')
	END SELECT
c A supprimer si reprise des pertes de moment cinétique	+++++++++++++++++++

c pertes de moment cinétique
	SELECT CASE(nom_pertw)
	CASE ('pertw_sch')
	 CALL pertw_sch(r,mw_dot)
	CASE ('pertw_loc')
	 CALL pertw_loc(r,mw_dot)
	CASE ('pertw_ptm')
	 CALL pertw_ptm(r,mw_dot)
	CASE ('pertw_0')
	 mw_dot=0.d0 ; lw_perte=.FALSE.
	 IF(pass)THEN
	  pass=.FALSE.
	  SELECT CASE(langue)
	  CASE('english')
	   WRITE(*,1000) ; WRITE(2,1000)
1000	   FORMAT('Without angular momentum losses')
	  CASE DEFAULT
	   WRITE(*,1) ; WRITE(2,1)
1	   FORMAT('Sans perte de moment cinétique')
	  END SELECT
	 ENDIF
	CASE DEFAULT
	 SELECT CASE(langue)
	 CASE('english')
	  PRINT*,'STOP, unknown routine of angular momentum lost : ',
	1 nom_pertw
	  PRINT*,'known routines: pertw_sch, pertw_loc, pertw_ptm, pertw_0'
	 CASE DEFAULT
	  PRINT*,'ARRET, routine de perte de moment cinétique inconnue: ',
	1 nom_pertw
	  PRINT*,'routines connues: pertw_sch, pertw_loc, pertw_ptm, pertw_0'
	 END SELECT
	 CALL sortie('pertw 2')
	END SELECT

	RETURN

	END SUBROUTINE pertw