Interface for all planets. More...
Data Types | |
| interface | atmosphere |
Public Member Functions | |
| subroutine | atm_neutre (jour, pos, proxy, neutre, i_tube) |
| Interface of atm_planet routine for neutral type. More... | |
| subroutine | atm_ntr (jour, pos, proxy, ntre) |
| Interface of atm_planet routine for ntr type. More... | |
| subroutine | chapman (jour, i_tube, pos_tube, neutre, pos, proxy, coldens) |
| Compute column neutral density along solar direction for all point in pos structure. For unresolved neutrals compute density with atmosphere routine. For resolved neutrals interpolate density from pos_tube and neutre structure. More... | |
| subroutine | grid_quadrature (jour, pos, nq, posi, wi) |
| Interpolation routine used by Chapman subroutine. More... | |
| subroutine | init_modele |
| Definition de quelques parametres de simulation N_o,...,indui,...,parametres de normalisation,me_mi,sigo,omegao. More... | |
| subroutine | init_modele2 |
| Definition de quelques parametres de simulation N_o,...,indui,...,parametres de normalisation,me_mi,sigo,omegao. More... | |
| subroutine | init_modele_atmo () |
| Allocate and initialise some variables from modele_atmo spc_atmo taken from planete_XXX module. More... | |
| subroutine | geod2geoc (pos) |
| Conversion from geodetic to geocentric coordinates. More... | |
| subroutine | geoc2geod (pos) |
| Conversion from geocentric to geodetic coordinates. More... | |
| subroutine | init_orbito () |
| Knowing the planet and frame wanted (planet name, frame, spice file) compute some orbital parameters (R_sun, Rp, G_M, G_o, geod, ifrm_*) More... | |
| subroutine | close_orbito () |
| Close all spice files. More... | |
| subroutine | orbitographie (temps) |
| At temps J2000, compute variable orbital characteristics : r_helio, mat_GSE, lonref_stl, lonref_mag. More... | |
| subroutine | profil_temp_ion_sun (x, y) |
| Temperature for Sun case. More... | |
| subroutine | change_grid_ion (coef, dens_min, ion_in, itube_in, ion_out, itube_out) |
| Compute ion parameters on new grid. More... | |
| subroutine | change_grid_ntr (coef, dens_min, neutre_in, itube_in, neutre_out, itube_out) |
| Compute neutral parameters on new grid. More... | |
| subroutine | change_grid_ew (coef, ew_in, itube_in, ew_out, itube_out) |
| Compute wave energy density on the new grid. More... | |
| subroutine | keep_ion_old (ion_new, ind_isp, ind_alt, i_tube, ion_old) |
| Copy ion_new into ion_old. More... | |
| subroutine | keep_ntr_old (ntr_new, ind_isp, ind_alt, i_tube, ntr_old) |
| Copy ntr_new into ntr_old. More... | |
| subroutine | keep_ew_old (ew_new, ind_alt, i_tube, ew_old) |
| Copy ew_new into ew_old. More... | |
Interface for all planets.
| subroutine planete::atm_neutre | ( | type(calendar) | jour, |
| type(coordonnees), dimension(:) | pos, | ||
| type(activite) | proxy, | ||
| type(neutral), dimension(:) | neutre, | ||
| integer | i_tube | ||
| ) |
Interface of atm_planet routine for neutral type.
| subroutine planete::atm_ntr | ( | type(calendar) | jour, |
| type(coordonnees), dimension(:) | pos, | ||
| type(activite) | proxy, | ||
| type(ntr), dimension(:) | ntre | ||
| ) |
Interface of atm_planet routine for ntr type.
| subroutine planete::change_grid_ew | ( | type(coef_interp), intent(in) | coef, |
| type(wave_energy), intent(in) | ew_in, | ||
| integer, intent(in) | itube_in, | ||
| type(wave_energy), intent(out) | ew_out, | ||
| integer, intent(in) | itube_out | ||
| ) |
Compute wave energy density on the new grid.

| subroutine planete::change_grid_ion | ( | type(coef_interp), intent(in) | coef, |
| real*8, dimension(:), intent(in) | dens_min, | ||
| type(espece), intent(in) | ion_in, | ||
| integer, intent(in) | itube_in, | ||
| type(espece), intent(out) | ion_out, | ||
| integer, intent(in) | itube_out | ||
| ) |
Compute ion parameters on new grid.

| subroutine planete::change_grid_ntr | ( | type(coef_interp), intent(in) | coef, |
| real*8, dimension(:), intent(in) | dens_min, | ||
| type(neutral), intent(in) | neutre_in, | ||
| integer, intent(in) | itube_in, | ||
| type(neutral), intent(out) | neutre_out, | ||
| integer, intent(in) | itube_out | ||
| ) |
Compute neutral parameters on new grid.

| subroutine planete::chapman | ( | type(calendar), intent(in) | jour, |
| integer, intent(in) | i_tube, | ||
| type(coordonnees), dimension(:,:), intent(in) | pos_tube, | ||
| type(neutral), dimension(:), intent(in) | neutre, | ||
| type(coordonnees), dimension(:), intent(in) | pos, | ||
| type(activite), intent(in) | proxy, | ||
| real*8, dimension(:,:) | coldens | ||
| ) |
Compute column neutral density along solar direction for all point in pos structure. For unresolved neutrals compute density with atmosphere routine. For resolved neutrals interpolate density from pos_tube and neutre structure.


| subroutine planete::close_orbito | ( | ) |
Close all spice files.

| subroutine planete::geoc2geod | ( | type(coordonnees) | pos | ) |
Conversion from geocentric to geodetic coordinates.

| subroutine planete::geod2geoc | ( | type(coordonnees) | pos | ) |
Conversion from geodetic to geocentric coordinates.

| subroutine planete::grid_quadrature | ( | type(calendar) | jour, |
| type(coordonnees) | pos, | ||
| integer | nq, | ||
| type(coordonnees), dimension(:) | posi, | ||
| real*8, dimension(:) | wi | ||
| ) |
Interpolation routine used by Chapman subroutine.


| subroutine planete::init_modele | ( | ) |
Definition de quelques parametres de simulation N_o,...,indui,...,parametres de normalisation,me_mi,sigo,omegao.

| subroutine planete::init_modele2 | ( | ) |
Definition de quelques parametres de simulation N_o,...,indui,...,parametres de normalisation,me_mi,sigo,omegao.

| subroutine planete::init_modele_atmo | ( | ) |
Allocate and initialise some variables from modele_atmo spc_atmo taken from planete_XXX module.

| subroutine planete::init_orbito | ( | ) |
Knowing the planet and frame wanted (planet name, frame, spice file) compute some orbital parameters (R_sun, Rp, G_M, G_o, geod, ifrm_*)

| subroutine planete::keep_ew_old | ( | type(wave_energy), intent(in) | ew_new, |
| integer, dimension(:), intent(in) | ind_alt, | ||
| integer | i_tube, | ||
| type(wave_energy), intent(out) | ew_old | ||
| ) |
Copy ew_new into ew_old.

| subroutine planete::keep_ion_old | ( | type(espece), dimension(:), intent(in) | ion_new, |
| integer, dimension(:), intent(in) | ind_isp, | ||
| integer, dimension(:), intent(in) | ind_alt, | ||
| integer | i_tube, | ||
| type(espece), dimension(:), intent(out) | ion_old | ||
| ) |
Copy ion_new into ion_old.

| subroutine planete::keep_ntr_old | ( | type(neutral), dimension(:), intent(in) | ntr_new, |
| integer, dimension(:), intent(in) | ind_isp, | ||
| integer, dimension(:), intent(in) | ind_alt, | ||
| integer | i_tube, | ||
| type(neutral), dimension(:), intent(out) | ntr_old | ||
| ) |
Copy ntr_new into ntr_old.

| subroutine planete::orbitographie | ( | type(calendar) | temps | ) |
At temps J2000, compute variable orbital characteristics : r_helio, mat_GSE, lonref_stl, lonref_mag.


| subroutine planete::profil_temp_ion_sun | ( | real*8, dimension(:), intent(in) | x, |
| real*8, dimension(:), intent(out) | y | ||
| ) |
Temperature for Sun case.

1.8.5