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

	SUBROUTINE write_rg(age_car,l0)

c écriture du fichier de réglage *.rg
c routine public du module mod_exploit

c utilisé, en particulier, pour créer un fichier de réglage simultanément
c avec un fichier *.don

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

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

	USE mod_cesam ,ONLY: des_instb
	USE mod_donnees, ONLY: ajuste, dn_fixe, dpsi, dtmax, dtmin, dt0,
	1 d_lum, d_press, d_ray, d_temp, en_m23, fcv, ini0,
	2 kipp, l_fac, lisse, loc_zc, mu_saha, m_ch, m_ptm, m_qs,
	3 m_rot, m_tds, new_bv, nom_fich2,no_discon, npt_lisse, n_atm,
	4 n_min_ZC, ordre, precic, precit, precix, psi0, q0
	USE mod_kind
	USE mod_static, ONLY: d_zc
	USE mod_variables, ONLY: ctel, ctem, ctep,  cter, ctet

	IMPLICIT NONE

	REAL(kind=dp), INTENT(in) :: age _car

	INTEGER, INTENT(in) :: l0

	CHARACTER (len=50) :: chain

	NAMELIST/nl_rlg/m_qs,m_ch,m_rot,m_tds,m_ptm,ordre,precic,precix,
	1 precit,psi0,loc_zc,dtmax,dtmin,dt0,d_lum,
	2 d_press,d_ray,d_temp,age_car,ini0,n_atm,kipp,en_m23,ctel,ctep,
	3 ctem,cter,ctet,dn_fixe, dpsi,mu_saha,ajuste,lisse,npt_lisse,
	4 q0,l0,new_bv,fcv,des_instb,no_discon,n_min_ZC,l_fac,d_zc

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

c Les coefficients de la NAMELIST sont définis dans le programme appelant

c écriture de la NAMELIST
	chain=TRIM(nom_fich2)//'.rg'
	OPEN(unit=3,form='formatted',status='unknown',delim='apostrophe',
	1 file=TRIM(chain))
	WRITE(*,1)chain !; WRITE(2,1)chain
1	FORMAT(t10,'NAMELISTS du fichier: ',a,/)
	WRITE(3,nl_rlg) ; WRITE(*,nl_rlg)

	CLOSE(unit=3)

	RETURN

	END SUBROUTINE write_rg