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

	MODULE mod_static

c Module regroupant les routines permettant la résolution
c des équations de l'équilibre quasi-statique et la gestion de l'évolution

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

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

	USE mod_donnees, ONLY: pnzc
	USE mod_kind

	IMPLICIT NONE

	REAL (kind=dp), SAVE, PRIVATE, ALLOCATABLE, DIMENSION(:) :: fac, xcoll
	REAL (kind=dp), PUBLIC :: mmtI

        INTEGER, SAVE, PUBLIC :: d_zc=100
	INTEGER, SAVE, PRIVATE :: dist_max, r_add, usl_static

	LOGICAL, PRIVATE :: l_dmax

	CHARACTER (len=3), PARAMETER, PRIVATE, DIMENSION(8) :: nom_qsr=
	1(/ ' Pt', ' T ', ' R ', ' L ', ' M ', 'psi', ' ro', ' Pg' /)

	PRIVATE
	PUBLIC :: calc_grad, pertm, resout, thermo

	CONTAINS

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

	INCLUDE 'actu_nqs.f'
	INCLUDE 'calc_grad.f'
	INCLUDE 'coll_qs.f'
	INCLUDE 'control_dPT.f'
	INCLUDE 'dgrad.f'
	INCLUDE 'ecrit_static.f'
	INCLUDE 'espmt.f'
	INCLUDE 'lim_zc.f'
	INCLUDE 'pertm.f'
	INCLUDE 'resout.f'
	INCLUDE 'rconv_mean.f'
	INCLUDE 'static.f'
	INCLUDE 'static_m13.f'
	INCLUDE 'static_m23.f'
	INCLUDE 'tabul_TdS.f'
	INCLUDE 'thermo.f'
	INCLUDE 't_convec.f'
	INCLUDE 'update.f'

	END MODULE mod_static