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

	MODULE mod_atm

c	Module regroupant les routines de restitution de l'atmosphère

c La signification des variables est décrite au paragraphe F8 de la notice
c	 de CESAM2k

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

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

	USE mod_kind
	
	IMPLICIT NONE

	REAL (kind=dp), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:,:):: bp_atm,
	1 bp_atm_t	
	REAL (kind=dp), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: dlpp_atm,
	1 m_atm, p_atm, pt_atm, r_atm, tau, t_atm, x_atm, x_atm_t, xt_atm,
	2 xt_atm_t
	REAL (kind=dp), SAVE, PRIVATE :: delfim, delfip, ltaue, ltauf,
	1 tau_min
	
	INTEGER, SAVE, PRIVATE :: Ipgt, ne_atm, n23_atm

	LOGICAL, SAVE, PRIVATE :: rad
	
	CHARACTER (len=3), PARAMETER, PRIVATE, DIMENSION(8) :: nom_atm=
	1 (/ ' Pt', ' T ', ' R ', ' R*', ' M ', 'to*', ' to', ' Pg' /)
		 
	PRIVATE
	PUBLIC :: atm, tdetau, thermo_atm
	
	CONTAINS	

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

	INCLUDE 'atm.f'
	INCLUDE 'coll_atm.f'
        INCLUDE 'edding.f'
	INCLUDE 'eq_atm.f'
	INCLUDE 'hopf.f'
	INCLUDE 'k5750.f'
	INCLUDE 'k5777.f'
	INCLUDE 'lim_atm.f'
	INCLUDE 'lim_gong1.f'		
	INCLUDE 'lim_tau1.f'
	INCLUDE 'roger00.f'
	INCLUDE 'roger02.f'
	INCLUDE 'roger05.f'
	INCLUDE 'roger10a.f'
	INCLUDE 'taueff.f'
	INCLUDE 'tdetau.f'	
	INCLUDE 'thermo_atm.f'
	INCLUDE 'trho.f'				

	END MODULE mod_atm