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

      MODULE mod_variables

c ce MODULE regroupe les paramètres et les variables de CESAM2k

c La signification des variables est décrite dans l'annexe E4 de la notice
c de CESAM2k

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

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

	USE mod_donnees, ONLY: nrot, pnzc
	USE mod_kind

	IMPLICIT NONE

c variables public:
	REAL (kind=dp), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:,:) :: bp,
	1 bp_t, chim, chim_t, old_ptm, rota, rota_t, tds, tds_t, vth, vth_t
	REAL (kind=dp), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: mc,
	1 mct, mc_fixe, mc_t, mct_t, M_iner, mrot, mrott, mrott_t,
	2 mrot_t, m_stat, m_stat_t, q, qt, q_t, qt_t, r_stat, r_stat_t,
	3 S_entro, S_0atm, t_conv, xl, xt_ptm, xt_tds, xt_tds_t, x_ptm,
	4 x_tds, x_tds_t, x_planet
     	REAL (kind=dp), SAVE, PUBLIC, DIMENSION(0:2*pnzc+1) :: r_zc_conv
	REAL (kind=dp), SAVE, PUBLIC, DIMENSION(2*pnzc) :: dv_tr,
	2 m_zc, m_zc_t, m_zc23, r_zc, r_zc_t, r_ov, r_ov_t

	REAL (kind=dp), SAVE, PUBLIC :: age, ctel, ctem, ctep, cter, ctet, c_iben,
	1 log10_teff, log10_teff_t, lstar, mstar, mstar_t, mw_tot=0.d0,
	2 mw_tot_t, MI_atm, rstar, rstar_t, wrot, wrot_t

	INTEGER, SAVE, PUBLIC, DIMENSION(2*pnzc) :: jlim, jlim_t
	INTEGER, SAVE, PUBLIC :: dim_ch, dim_qs, dim_rot, idm6, id_conv, if_conv,
	1 knot, knotc, knotc_t, knot_ptm, knotr=0, knotr_t, knot_t,
	2 knot_tds, knot_tds_t, lim, lim_t, model_num=-1, nb_modeles=-1,
	3 nc_fixe, n_ch, n_ch_t=-100, n_ptm=-100, n_qs, n_qs_t=-100, n_rot=0,
	4 n_rot_t, n_tds, n_tds_t

	LOGICAL, SAVE, PUBLIC, DIMENSION(0:2*pnzc) :: lconv=.FALSE., lconv_t=.FALSE.
	LOGICAL, SAVE, PUBLIC :: lhe_stop=.FALSE., lr_stop=.FALSE.,
	1 lt_stop=.FALSE., lx_stop=.FALSE., no_init=.TRUE., tot_conv, tot_rad

c fonctions PUBLIC:
c chim_gram : transformation des abondances /mole ==> /gramme
c inter : recherche des variables à m^23 ou r^2 (m ou r) cte

	PRIVATE
	PUBLIC :: chim_gram, inter, omega_jpz, sortie

	CONTAINS

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

	INCLUDE 'chim_gram.f'
	INCLUDE 'inter.f'
	INCLUDE 'omega_jpz.f'
	INCLUDE 'sortie.f'

	END MODULE mod_variables