c+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ MODULE mod_donnees c module contenant les quantités fixées au cours de l'évolution c - du fichier de données initialisées dans lit_nl c - les contantes physiques initialisées dans ini_ctes c - les paramètres de précision initialisées dans cesam c - les paramètres d'évolution initialisées dans cesam c - les paramètres de composition chimique initialisées dans les c routines de réac. nuc., etc... c NOTATIONS (hélas incohérentes) pour les développements sur B-splines c n_ch : nombre VARIABLE de points élément de mod_variables c nch : nombre FIXE de fonctions élément de mod_donnees c m_ch : ordre FIXE des splines élément de mod_donnees c mch(n_ch) : abscisses VARIABLES élément de mod_variables c La signification des variables est décrite au paragraphe F4 de la notice c Auteur: P.Morel, Département J.D. Cassini, O.C.A., CESAM2k c+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ USE mod_kind IMPLICIT NONE c paramètres public : REAL (kind=dp), PARAMETER, PUBLIC :: d_conv=1.d13, 1 dx_tams=1.d-4, x_tams=0.01d0 INTEGER, PARAMETER, PUBLIC :: nvth=11, n_min=500, pnzc=15, r_qs=1 INCLUDE 'journal.f' c variables public REAL (kind=dp), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: ab_ini, 1 nucleo, rot_min, xvent, zi REAL (kind=dp), SAVE, PUBLIC, DIMENSION(0:28) :: abon_m, eps_ini REAL (kind=dp), SAVE, PUBLIC :: aal27, aar36, aar38, abe7, abe9, 1 ab11, ac12, ac13, afe56, af18, af19, agemax, ah, ah2, ahe3, 2 ahe4, ak39, ali6, ali7, alpha, amg23, amg24, amg25, amg26, 3 amu, an, ana23, ana24, ane20, ane21, ane22, an13, an14, an15, 4 ap, ap30, ap31, ap33, ao16, ao17, ao18, asi27, asi28, asi29, 5 asi30, as32, as33, as34, aradia, clight, cpturb, 6 dpsi, dpsim, dpsip, dn_fixe, dtlist, dtmax, dt0, dtmin=1.d-8, 7 d_lum, d_press, d_ray, d_temp, d_turb, echarg, eve, fesh_sol, g, 8 gmsol, granr, grav_sol, he_core, hhe_core, hpl, kbol, jour, 9 lbol0, li_ini, lnt_stop, ln_Tli, ln10, ln3a, loc_zc, log_teff, 1 lsol, mbol_sun, mdot, me, msol, mterre, mtot, ovshti, 2 ovshts, pi, precic, precit, precix, psi0, p_pertw, q0, re_nu, 3 rsol, r_stop, secon1, secon6, sigma, tau_max, teff_sol, 4 t_inf, t_stop, ua, w_form=0.d0, w_rot, x0, x_stop, 5 y0, zsx_sol, zsx0, z0 REAL (kind=sp), SAVE, PUBLIC, DIMENSION(2) :: dfesh_des, dl_des, 1 dteff_des, zoom_l=0., zoom_t=0. c pour un écran 1280 X 1024 REAL (kind=sp), SAVE, PUBLIC :: dh=1.5, dl=2., h=7., ld=10. c pour un écran 1600 X 1280 c REAL (kind=sp), SAVE, PUBLIC :: dh=2.5, dl=2.5, h=7., ld=11.3, REAL (kind=sp), SAVE, PUBLIC :: fesh_des=1000., 1 l_des=-100., teff_des=-100., logteff_max=-100., 2 logteff_min=-100., logl_max=-100., logl_min=-100., 3 xleft=1.8, ybot=1.4, y_age=1.3 INTEGER, SAVE, PUBLIC :: dn_sort=200, Kdes_rot, Kdes_stat, Krot, ic12, ife56=0, 1 ihe4, iLi7=0, io16, ini0, Ipg, i_ex, m_ch, m_ptm, m_qs, m_rot, 2 m_tds, nb_max_modeles, nchim, ne, npt_lisse, nrl, nrot, n_atm, 3 n_max, n_min_ZC, ordre, ord_qs, ord_rot, typ !YL c baratine=.FALSE. permet de dérouter sur les fichiers c mon_modele_static, _atmos, _evol c les informations concernant le déroulement des calculs en ce qui c concerne, respectivement, la résolution de l'équilibre quasi-statique, c la restitution de l'atmosphère, l'évolution de la composition chimique, c de la vitesse angulaire. LOGICAL, SAVE, PUBLIC :: ajuste, all_osc, 1 all_rep, baratine=.TRUE., cephe, diffusion, en_m23, fcv, 2 garde_xish, grad_ovi, grad_ovs, grille_fixe, He_ajuste, jpz, 3 kipp, ledoux, lim_ro, lisse, l_fac, l_hr, l_pertm, l_pertmt, 4 l_lb, l_tr, l_vlm, mitler, modif_chim, mu_saha, nc_max=.FALSE., 5 new_bv, no_discon, ovsht, pturb, rep_atm=.FALSE., rot_solid, 6 r_ajuste, t_ajuste, x_ajuste CHARACTER (len=4), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: 1 nom_elem, nom_rot CHARACTER (len=4), SAVE, PUBLIC :: arret, nom_xheavy CHARACTER (len=5), SAVE, PUBLIC :: unit CHARACTER (len=6), SAVE, PUBLIC :: precision CHARACTER (len=7), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: nom_qs CHARACTER (len=10), SAVE, PUBLIC :: langue CHARACTER (len=20), SAVE, PUBLIC :: nom_atm, nom_abon, nom_conv, 1 nom_ctes, nom_des, nom_diffm, nom_diffw, nom_difft, 2 nom_etat, nom_frad, nom_nuc, nom_nuc_cpl, nom_output, nom_pertm, 3 nom_pertw, nom_tdetau, nom_thw CHARACTER (len=31), SAVE, PUBLIC :: nom_fich2 CHARACTER (len=33), PARAMETER, PUBLIC, DIMENSION(0:6) :: thw= 1 (/ 'sans rotation ', 2 'rotation solide ', 3 'rot. solide cons. glob. mnt. cin.', 4 'diff. mnt.cin. Talon & Zahn 1997 ', 5 'diff. mnt.cin. Matis & Zahn 2004 ', 6 'cons. loc. mnt. cin. ', 7 'rotation non solide de JpZh ' /) CHARACTER (len=50), SAVE, PUBLIC, DIMENSION(8) :: f_eos, f_opa CHARACTER (len=50), SAVE, PUBLIC :: nom_opa, nom_opa_cond, source CHARACTER (len=80), SAVE, PUBLIC :: methode CHARACTER (len=100), SAVE, PUBLIC :: device='/xw' CHARACTER (len=255), SAVE, PUBLIC :: nom_chemin='~SUN_STAR_DATA' PRIVATE PUBLIC :: lit_nl, ini_ctes, init_ctes_phys, print_ctes CONTAINS c------------------------------------------------------------------- INCLUDE 'ini_ctes.f' INCLUDE 'init_ctes_phys.f' INCLUDE 'lit_nl.f' INCLUDE 'print_ctes.f' END MODULE mod_donnees