Simulation module. More...

Collaboration diagram for modele:

Data Types
interface	name2ind

Public Member Functions
subroutine	allocate_modele ()
	Allocate save variables from module modele. More...

subroutine	close_modele ()
	Deallocate save variables from module modele. More...

integer function	calcul_nbpt (zmin, zmax)

real function	shear (x1, x2)

integer function	name2ind1 (spc, species)

integer function	name2ind2 (spc, species)

integer function	name2ind3 (spc, species)

integer function	name2ind4 (spc, species)

integer function	find_closest_specie (mass, name, mass_list, name_list)

Public Attributes
type(element), dimension(:), allocatable, save	species

type(spec), save	species_spec

type(reac), save	reactions

type(geoide), save	geod

integer	nb_ion

integer	nb_ntr

integer	nb_eml

integer	nb_slv

integer	nb_uns

integer	nb_ion_slv

integer	nb_ion_uns

integer	nb_ntr_slv

integer	nb_ntr_uns

integer	nb_spc

integer	indi_e

integer	indi_s

integer	iref

integer	indn_n2

integer	indn_o2

integer	indn_o

integer	indn_co2

integer	indi_n2

integer	indi_o2

integer	indi_o

integer	indi_no

integer	nb_lum

integer, dimension(:), allocatable, save	indni

integer, dimension(:), allocatable, save	indui

integer, dimension(:), allocatable, save	indqp

integer, dimension(:), allocatable, save	indqt

integer, dimension(:), allocatable, save	indtp

integer, dimension(:), allocatable, save	indtt

integer, dimension(:), allocatable, save	indnn

integer, dimension(:), allocatable, save	indun

integer, dimension(:), allocatable, save	indqpn

integer, dimension(:), allocatable, save	indqtn

integer, dimension(:), allocatable, save	indtpn

integer, dimension(:), allocatable, save	indttn

integer	nb_diff

integer	nb_therm

integer	nb_chim

real, save	n_o

real, save	t_o

real, save	p_o

real, save	g_o

real, save	ro

real, save	to

real, parameter	j_o =charge/1.e6

real *8, dimension(:,:), allocatable, save	cij

real *8, dimension(:,:), allocatable, save	cni

real *8, dimension(:,:), allocatable, save	cin

real *8, dimension(:,:), allocatable, save	cnm

real, dimension(:), allocatable, save	ci_o

real, dimension(:), allocatable, save	cn_o

real, dimension(:), allocatable, save	q_o

logical, save	flg_logni =.false.

logical	flg_exp =.false.

logical	flg_cdf =.false.

logical	flg_elec =.true.

logical	flg_init_all =.false.

logical	flg_tu =.true.

integer, save	jpreci =0

integer, parameter	nlp_rk =4

real *8, dimension(nlp_rk), parameter	coef_rk_dt =(/.5,.5,1.,1./)

real *8, dimension(nlp_rk), parameter	coef_rk_dy =(/one6th,one3rd,one3rd,one6th/)/coef_RK_dt

real	coef_rk_o

integer	nloop_elec =8

integer	n_step_start =16

integer	coef_nloop

real *8	step_cond =4.

real *8	cdt_elec_1 =50.

real *8	deltat

real *8	dt_loop

real *8	dtref

real *8	dt_elec

real *8	dt_solve

real *8	cdt

real *8	cdt1

real *8	cdt2

real *8	cdt3

real *8	cdt_1

real *8	cdt_2

real *8	cdt_3

real *8	cdt_elec

real *8	dt_1

real *8	dt_1_max

real *8	dt_2

real *8	dt_2_max

real *8, parameter	coef_dep =1.d8

real *8, save	n_volume

real *8, save	n_conc

real *8, parameter	p_min =1.d-100

real *8, save	n_eps

real *8, save	n_min

real *8, save	n_kin

real *8, save	t_min

real *8, save	t_max

real, save	cfl_lim_1 =4.

real, save	cdt_lim_shr =10.

real, save	coef_cfl =1.

real, save	qlim =1.e-3

real, save	gmin =10.

real, save	gmax =100.

real, save	z_gmax =500.

real, save	z_src =1000.

real *8, save	xplim =1.d0

real *8, save	xtlim =1.d0

logical	flg_chemistry =.false.

logical	flg_collisions =.false.

logical	flg_neutral =.false.

logical	flg_cinetic =.false.

logical	flg_stab =.false.

logical	verbose =.false.

logical, dimension(:), allocatable	flg_ni

logical, dimension(:), allocatable	flg_ui

logical, dimension(:), allocatable	flg_tp

logical, dimension(:), allocatable	flg_tt

logical, dimension(:), allocatable	flg_qp

logical, dimension(:), allocatable	flg_qt

logical, dimension(:), allocatable	flg_nn

logical, dimension(:), allocatable	flg_un

logical, dimension(:), allocatable	flg_tpn

logical, dimension(:), allocatable	flg_ttn

logical, dimension(:), allocatable	flg_qpn

logical, dimension(:), allocatable	flg_qtn

real *8, dimension(:), allocatable, save	ni

real *8, dimension(:), allocatable, save	ui

real *8, dimension(:), allocatable, save	ti

real *8, dimension(:), allocatable, save	tip

real *8, dimension(:), allocatable, save	tit

real *8, dimension(:), allocatable, save	qi_ni

real *8, dimension(:), allocatable, save	qip_ni

real *8, dimension(:), allocatable, save	qit_ni

real *8, dimension(:), allocatable, save	qn_nn

real *8, dimension(:), allocatable, save	qnp_nn

real *8, dimension(:), allocatable, save	qnt_nn

real *8, dimension(:), allocatable, save	xip

real *8, dimension(:), allocatable, save	xit

real *8, dimension(:), allocatable, save	qp0

real *8, dimension(:), allocatable, save	qt0

real *8, dimension(:), allocatable, save	nn

real *8, dimension(:), allocatable, save	tn

real *8, dimension(:), allocatable, save	un

real *8, dimension(:), allocatable, save	vn

real *8, dimension(:), allocatable, save	wn

real *8, dimension(:), allocatable, save	tnp

real *8, dimension(:), allocatable, save	tnt

real *8, dimension(:), allocatable, save	xnp

real *8, dimension(:), allocatable, save	xnt

real *8, dimension(:), allocatable, save	qpn0

real *8, dimension(:), allocatable, save	qtn0

real *8, dimension(:), allocatable, save	compo

real *8, dimension(:,:), allocatable, save	dvn

real *8, dimension(:,:), allocatable, save	dvij

real *8, save	vmag

real *8, save	wmag

real *8, save	j_ne

real *8, dimension(:), allocatable, save	me_mi

real *8, dimension(:), allocatable, save	sigo

real *8, dimension(:), allocatable, save	omegao

real *8, dimension(:), allocatable, save	me_mn