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.
c	CESAM2k	

c fonctions private:
c	ctes_85 : constantes physiques de GONG
c	ctes_94 : constantes physiques 1994

c fonction public:
c	ctes_85: initialisation des constantes 1985
c	ctes_94: initialisation des constantes 1994
c	ini_ctes: routine générique d'initialisation des constantes
c	lit_nl: lecture des fichiers de données
c	read_ascii: lecture des fichiers ascii
c	write_nl: écriture des fichiers de données

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

	USE mod_donnees, ONLY : aal27, abe7, abe9, ab11, ac12, ac13,
	1 afe56, af18, af19, agemax, ah, ah2, ahe3, ahe4, ali6, ali7,
	2 all_output, all_rep, alpha, amg23, amg24, amg25, amg26, amu,
	3 an, ana23, ane20, ane21, ane22, an13, an14, an15, ap, ap31, ao16,
	4 ao17, ao18, aradia, arret, asi28, as32, clight, cpturb, diffusion,
	5 dtlist, d_turb, echarg, eve, fesh_sol, f_eos, f_opa, g,
	6 garde_xish, gmsol, grad_ovi, grad_ovs, granr, grille_fixe,
	7 he_ajuste, he_core, hhe_core, hpl, jpz, Kdes_rot, Krot, kbol,
	8 langue, lbol0, ledoux, lim_jpz, lim_ro, lnt_stop, ln10, log_teff,
	9 lsol, mdot, me, mitler, modif_chim, msol, mterre, mtot,
	1 nb_max_modeles, nc_max, nom_abon, nom_atm, nom_chemin, nom_ctes,
	2 nom_conv, nom_des, nom_diffm, nom_diffw, nom_difft, nom_etat,
	3 nom_fich2, nom_frad, nom_nuc, nom_nuc_cpl, nom_opa, nom_output,
	4 nom_pertm, nom_pertw, nom_rot, nom_tdetau, nom_thw, nrl, nrot, n_max,
	5 ovshti, ovshts, pi, precision, p_pertw, re_nu, rot_min,
	6 rot_solid, rsol, secon6, sigma, source, tau_max, thw, t_ajuste,
	7 t_stop, ua, unit, w_rot, x_stop, x0, x_ajuste, y0, zsx_sol,
	8 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

	PRIVATE
	PUBLIC :: add_ascii, ctes_85, ctes_94, diffw, ini_ctes, inter_atm,
	1 lit_binaire, lit_hr, lit_nl, min_max, min_max_cond, output,
	2 read_ascii, write_nl
	
	CONTAINS

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

	INCLUDE 'add_ascii.f'
	INCLUDE 'ascii.f'	
	INCLUDE 'ctes_85.f'
	INCLUDE 'ctes_94.f'
	INCLUDE 'diffw.f'
	INCLUDE 'diffw_mpz.f'
	INCLUDE 'diffw_p03.f'	
	INCLUDE 'ini_ctes.f'
	INCLUDE 'inter_atm.f'
	INCLUDE 'lit_binaire.f'
	INCLUDE 'lit_hr.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 'read_ascii.f'
	INCLUDE 'write_nl.f'	
	
	END module mod_exploit