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

	MODULE mod_exploit

c module contenant des routines d'exploitation de cesam2k

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

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

	USE mod_cesam, ONLY : all_cephe
	USE mod_donnees, ONLY : aal27, aar36, aar38, abe7, abe9, ab11,
	1 ac12, ac13, afe56, af18, af19, agemax, ah, ah2, ahe3, ak39,
	2 ahe4, ali6, ali7, all_osc, all_rep, alpha,
	3 amg23, amg24, amg25, amg26, amu, an, ana23, ana24, ane20,
	4 ane21, ane22, an13, an14, an15, ap, ap30, ap31, ap33, ao16,
	5 ao17, ao18, aradia, arret, asi27, asi28, asi29, asi30,
	6 as32, as33, as34, clight, cpturb, diffusion, dn_sort,
	7 dtlist, d_turb, echarg, eve, fesh_sol, f_eos, f_opa, g, garde_xish,
	8 gmsol, grad_ovi, grad_ovs, granr, grav_sol, grille_fixe, he_ajuste,
	9 he_core, hhe_core, hpl, jpz, jour, Kdes_rot, Kdes_stat, Krot, kbol,
	1 langue, lbol0, ledoux, l_fac, lim_ro, lnt_stop, ln10, ln3a, log_teff,
	2 lsol, l_hr, l_pertm, l_pertmt, l_lb, l_tr, l_vlm, mbol_sun, mdot, me,
	3 mitler, modif_chim, msol, mterre, mtot, nb_max_modeles, nc_max, new_bv,
	4 nom_abon, nom_atm, nom_chemin, nom_ctes, nom_conv, nom_des, nom_diffm,
	5 nom_diffw, nom_difft, nom_etat, nom_fich2, nom_frad, nom_nuc,
	6 nom_nuc_cpl, nom_opa, nom_opa_cond, nom_output,
	7 nom_pertm, nom_pertw, nom_rot, nom_tdetau, nom_thw, nrl,
	8 nrot, n_max, ovshti, ovshts, pi, precision, p_pertw, re_nu,
	9 rot_min, rot_solid, rsol, r_ajuste, r_stop, secon1, secon6, sigma,
	1 source, tau_max, teff_sol, thw, t_ajuste, t_stop, ua, unit,
	2 w_rot, x_stop, x0, x_ajuste, y0, zsx_sol, zsx0, z0
	USE mod_kind

	IMPLICIT NONE

	REAL (kind=dp), SAVE, ALLOCATABLE, PUBLIC, DIMENSION(:,:) :: var
	REAL (kind=dp), SAVE, ALLOCATABLE, PUBLIC, DIMENSION(:) :: compc,
	1 compe, glob
	INTEGER, PARAMETER, PUBLIC :: usl_static=6
	INTEGER, PUBLIC :: r_add=20

	LOGICAL, PUBLIC :: ovsht

	PRIVATE
	PUBLIC :: actu_nqs, add_ascii, diffw, espmt, ini_ctes, inter_atm,
	1 lit_binaire, lit_hr, lit_lr, lit_nl, min_max,
	2 min_max_cond, output,	read_ascii, write_nl, write_rg

	CONTAINS

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

	INCLUDE 'actu_nqs.f'
	INCLUDE 'add_ascii.f'
	INCLUDE 'ascii.f'
	INCLUDE 'diffw.f'
	INCLUDE 'diffw_cte.f'
	INCLUDE 'diffw_mpz.f'
	INCLUDE 'diffw_p03.f'
	INCLUDE 'diffw_toul.f'
	INCLUDE 'espmt.f'
	INCLUDE 'ini_ctes.f'
	INCLUDE 'inter_atm.f'
	INCLUDE 'lit_binaire.f'
	INCLUDE 'lit_hr.f'
	INCLUDE 'lit_lr.f'
	INCLUDE 'lit_nl.f'
	INCLUDE 'min_max.f'
	INCLUDE 'min_max_cond.f'
	INCLUDE 'osc_adia.f'
	INCLUDE 'osc_invers.f'
	INCLUDE 'osc_nadia.f'
	INCLUDE 'output.f'
	INCLUDE 'rconv_mean.f'
	INCLUDE 'read_ascii.f'
	INCLUDE 't_convec.f'
	INCLUDE 'write_nl.f'
	INCLUDE 'write_rg.f'

	END MODULE mod_exploit