Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=5), | public, | parameter | :: | red | = | char(27)//'[31m' | colored output text (for Unix-like systems at least). It should be compatible across compiler vendors. |
character(len=5), | public, | parameter | :: | black | = | char(27)//'[0m' | colored output text (for Unix-like systems at least). It should be compatible across compiler vendors. |
real(kind=wp), | public, | parameter | :: | pi | = | 4.0_wp*atan(1.0_wp) | |
real(kind=wp), | public, | parameter | :: | kB | = | 1.38064852e-23_wp | |
real(kind=wp), | public, | parameter | :: | elchrg | = | 1.60217662e-19_wp | |
real(kind=wp), | public, | parameter | :: | amu | = | 1.660539040e-27_wp | |
real(kind=wp), | public, | parameter | :: | Gconst | = | 6.67408e-11_wp | |
real(kind=wp), | public, | parameter | :: | mu0 | = | 4.0_wp*pi*1e-7_wp | |
real(kind=wp), | public, | parameter | :: | Mmag | = | 7.94e22_wp | EARTH-RELATED PARAMETERS Earth's magnetic moment |
real(kind=wp), | public, | parameter | :: | Re | = | 6371.0e3_wp | Earth Radius [meters] |
real(kind=wp), | public, | parameter | :: | Me | = | 5.9722e24_wp | Earth mass |
integer, | public, | parameter | :: | lsp | = | 7 | ION DATA (need to be doubled?) number of ion/electron species |
real(kind=wp), | public, | parameter | :: | ms(lsp) | = | [16.0_wp, 30.0_wp, 28.0_wp, 32.0_wp, 14.0_wp, 1.0_wp, 5.485799090e-4_wp]*amu | mass of each species |
real(kind=wp), | public, | parameter | :: | qs(lsp) | = | [1.0_wp, 1.0_wp, 1.0_wp, 1.0_wp, 1.0_wp, 1.0_wp, -1.0_wp]*elchrg | charge of each species |
real(kind=wp), | public, | parameter | :: | gammas(lsp) | = | [5.0_wp/3.0_wp, 7.0_wp/5.0_wp, 7.0_wp/5.0_wp, 7.0_wp/5.0_wp, 5.0_wp/3.0_wp, 5.0_wp/3.0_wp, 5.0_wp/3.0_wp] | adiabatic index for each speces |
integer, | public, | parameter | :: | ln | = | 4 | NEUTRAL DATA number of neutral densities, and number of neutrals in chem. rxns. |
integer, | public, | parameter | :: | lnchem | = | 6 | NEUTRAL DATA number of neutral densities, and number of neutrals in chem. rxns. |
real(kind=wp), | public, | parameter | :: | mn(ln) | = | [16.0_wp, 28.0_wp, 32.0_wp, 1.0_wp]*amu | mass of neutral species |
integer, | public, | parameter | :: | lwave | = | 15 | |
real(kind=wp), | public, | parameter | :: | wavelengths(lwave) | = | [3371.0_wp, 4278.0_wp, 5200.0_wp, 5577.0_wp, 6300.0_wp, 7320.0_wp, 10400.0_wp, 3644.0_wp, 7774.0_wp, 8446.0_wp, 3276.0_wp, 1700.0_wp, 1356.0_wp, 1493.0_wp, 1304.0_wp] | |
real(kind=wp), | public, | parameter | :: | mindens | = | 1.0e-100_wp | HOUSEKEEPING PARAMETERS |
real(kind=wp), | public, | parameter | :: | mindensnull | = | 1.0e-20_wp | |
real(kind=wp), | public, | parameter | :: | mindensdiv | = | 1.0e-5_wp | |
logical, | public | :: | debug | = | .false. |