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

	SUBROUTINE init_grille_fixe

c routine PUBLIC du module mod_donnees

c initialisation de la grille équidistante en m^2/3 pour l'évolution de la
c composition chimique
c dans evol les limites ZR/ZC seront introduite dans cette grille pour former
c la grille de composition chimique mc évoluant dans le temps en tenant compte du
c mélange convectif, de la diffusion et des réactions nucléaires

c Auteur: P. Morel, Laboratoire Lagrange, O.C.A., CESAM2k

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

	USE mod_kind

	REAL (kind=dp) :: pas

	INTEGER :: i

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

2000	FORMAT(8es10.3)

	pas=mtot/REAL(nc_fixe-1,dp)
	DO i=1,nc_fixe
	 mc_fixe(i)=pas*REAL(i-1,dp)
	ENDDO
	mc_fixe=mc_fixe**(2.d0/3.d0)

c écritures
	SELECT CASE(langue)
	CASE('english')
	 WRITE(*,1050)nc_fixe ; WRITE(2,1050)nc_fixe
1050	 FORMAT(/,'Use of a fixed grid for the chem. comp. n=',i4,/)
	CASE DEFAULT
	 WRITE(*,50)nc_fixe ; WRITE(2,50)nc_fixe
50	 FORMAT(/,'Utilisation d''une grille fixe pour la comp.chim. n=',i4,/)
	END SELECT

	RETURN

	END SUBROUTINE init_grille_fixe