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.