Scrambler
1
|
Module for dealing with equation of state. More...
Data Types | |
interface | Cons_to_prim |
interface | ConvertInternalToTotalEnergy |
interface | ConvertTotalToInternalEnergy |
interface | prim_to_cons |
Public Member Functions | |
subroutine, public | Protectq (Info, ip, caller, lStopProtect) |
Performs protection on Info object. | |
REAL(KIND=qPrec) function, public | Press (q, kappa, chi, DPDQ) |
Calculate pressure and return optional variables if present. | |
REAL(KIND=qPREC) function | Temperature (q) |
REAL(KIND=qPREC) function, public | GetInternalEnergy (q, p) |
Returns internal energy given pressure p and conservative vector q. | |
subroutine, public | SetPress (q, p) |
Sets energy given pressure p and conservative vector q. | |
subroutine | SetTemp (q, t) |
Sets energy given temperature t and conservative vector q. | |
REAL(KIND=qPrec) function, public | SoundSpeed (q) |
Calculate sound speed. | |
REAL(KIND=qPrec) function, public | PrimSoundSpeed (q) |
Calculate sound speed. | |
pure REAL(KIND=qPrec) function, public | InternalEnergy (q) |
Calculate internal kinetic energy. | |
REAL(KIND=qPrec) function, public | PrimPress (q, kappa, chi, DPDQ) |
Calculate pressure and return optional variables if present. | |
subroutine | Prim_To_Cons_info (Info, mB) |
Converts region of info structure from primitive form to conservative. | |
subroutine | Cons_To_Prim_info (Info, mB) |
Converts region of info structure from primitive form to conservative. | |
subroutine | Cons_To_Prim_q (q) |
Converts region of info structure from primitive form to conservative. | |
subroutine | prim_To_cons_q (q) |
Converts region of info structure from primitive form to conservative. | |
subroutine | rprim_to_cons_Iso (w, u) |
Convert primitive variables to conservative using an isothermal eos. | |
subroutine | f_prim_Iso (w, f) |
Calculate fluxes using primitive array. | |
REAL(KIND=qPrec) function | fast_speed_Iso (w) |
Calculate the fast wave speed for an isothermal gas. | |
logical function | miniscule (x) |
Function to test if abs(x) is less then 1e-100. | |
subroutine | rprim_to_cons_MHD_Iso (w, u) |
Routine to convert from primitive to conservative with an isothermal eos and magnetic fields. | |
subroutine | f_prim_MHD_Iso (w, f) |
Routine to calculate flux given primitive fields for an isothermal eos with magnetic fields. | |
REAL(KIND=qPrec) function | sound_speed (w) |
Calculate the sound_speed for an ideal EOS. | |
REAL(KIND=qPrec) function | sound_speed_Roe (w) |
Calculate the sound speed for an ideal EOS. | |
subroutine | prim_to_roe (w, r) |
Convert from primitive form to Roe form. | |
subroutine | prim_to_roe_MHD (w, r) |
Convert from primitive form to Roe form with magnetic fields. | |
REAL(KIND=qPrec) function | fast_speed (w) |
Calculate the fast speed for MHD. | |
REAL(KIND=qPrec) function | fast_speed_Roe (w) |
Calculate the fast speed for MHD. | |
subroutine | rprim_to_cons (w, u) |
Convert from primitive to conservative for ideal EOS. | |
subroutine | rprim_to_cons_MHD (w, u) |
Convert from primitive to conservative for ideal EOS with magnetic fields. | |
subroutine | F_prim (w, f) |
Calculate conservative fluxes for an ideal EOS. | |
subroutine | F_prim_MHD (w, f) |
Calculate conservative fluxes for an ideal EOS with magnetic fields. | |
REAL(KIND=qPREC) function, public | GetMaxSpeed (q) |
Calculate sound speed. | |
subroutine, public | PrintQ (Info, q, tnow, i, j, k) |
subroutine, public | calc_eigens (request_eigens, prim, req_dim, lambda, n, l, r, i, j, k, level) |
Calculate eigen system. | |
logical function | my_small (x, y) |
Logical function that determines whether a modified approximation should be used. | |
logical function | really_small (x, y) |
Logical function that determines whether a modified approximation should be used. | |
ConvertTotalToInternalEnergy | |
subroutine | ConvertTotalToInternalEnergy0D (q) |
Converts energy component of a single cell from total energy to internal energy. | |
subroutine | ConvertTotalToInternalEnergy1D (q) |
Converts energy component of an array of cells from total energy to internal energy. | |
subroutine | ConvertTotalToInternalEnergy2D (q) |
Converts energy component of an array of cells from total energy to internal energy. | |
subroutine | ConvertTotalToInternalEnergy3D (q) |
Converts energy component of an array of cells from total energy to internal energy. | |
ConvertInternalToTotalEnergy | |
subroutine | ConvertInternalToTotalEnergy0D (q) |
Converts energy component of a single cell from total energy to internal energy. | |
subroutine | ConvertInternalToTotalEnergy1D (q) |
Converts energy component of an array of cells from total energy to internal energy. | |
subroutine | ConvertInternalToTotalEnergy2D (q) |
Converts energy component of an array of cells from total energy to internal energy. | |
subroutine | ConvertInternalToTotalEnergy3D (q) |
Converts energy component of an array of cells from total energy to internal energy. |
subroutine, public Protectq | ( | TYPE(InfoDef) | Info, |
INTEGER, dimension(3,2) | ip, | ||
CHARACTER(LEN=*) | caller, | ||
LOGICAL, optional | lStopProtect | ||
) |
subroutine ConvertTotalToInternalEnergy0D | ( | REAL(KIND=qPREC), dimension(:) | q | ) |
subroutine ConvertTotalToInternalEnergy1D | ( | REAL(KIND=qPREC), dimension(:,:) | q | ) |
subroutine ConvertTotalToInternalEnergy2D | ( | REAL(KIND=qPREC), dimension(:,:,:) | q | ) |
subroutine ConvertTotalToInternalEnergy3D | ( | REAL(KIND=qPREC), dimension(:,:,:,:) | q | ) |
subroutine ConvertInternalToTotalEnergy0D | ( | REAL(KIND=qPREC), dimension(:) | q | ) |
subroutine ConvertInternalToTotalEnergy1D | ( | REAL(KIND=qPREC), dimension(:,:) | q | ) |
subroutine ConvertInternalToTotalEnergy2D | ( | REAL(KIND=qPREC), dimension(:,:,:) | q | ) |
subroutine ConvertInternalToTotalEnergy3D | ( | REAL(KIND=qPREC), dimension(:,:,:,:) | q | ) |
REAL (KIND=qPrec) function, public Press | ( | REAL (KIND=qPrec), dimension(:), intent(in) | q, |
REAL (KIND=qPrec), intent(out), optional | kappa, | ||
REAL (KIND=qPrec), intent(out), optional | chi, | ||
REAL (KIND=qPrec), dimension(:), intent(out), optional | DPDQ | ||
) |
REAL(KIND=qPREC) function Temperature | ( | REAL(KIND=qPREC), dimension(:) | q | ) |
REAL(KIND=qPREC) function, public GetInternalEnergy | ( | REAL(KIND=qPREC), dimension(:) | q, |
REAL(KIND=qPREC) | p | ||
) |
subroutine, public SetPress | ( | REAL(KIND=qPREC), dimension(:) | q, |
REAL(KIND=qPREC) | p | ||
) |
subroutine SetTemp | ( | REAL(KIND=qPREC), dimension(:) | q, |
REAL(KIND=qPREC) | t | ||
) |
REAL (KIND=qPrec) function, public SoundSpeed | ( | REAL (KIND=qPrec), dimension(:), intent(in) | q | ) |
REAL (KIND=qPrec) function, public PrimSoundSpeed | ( | REAL (KIND=qPrec), dimension(:), intent(in) | q | ) |
pure REAL (KIND=qPrec) function, public InternalEnergy | ( | REAL (KIND=qPrec), dimension(:), intent(in) | q | ) |
REAL (KIND=qPrec) function, public PrimPress | ( | REAL (KIND=qPrec), dimension(:), intent(in) | q, |
REAL (KIND=qPrec), intent(out), optional | kappa, | ||
REAL (KIND=qPrec), intent(out), optional | chi, | ||
REAL (KIND=qPrec), dimension(:), intent(out), optional | DPDQ | ||
) |
subroutine Prim_To_Cons_info | ( | TYPE(InfoDef) | Info, |
INTEGER, dimension(:,:) | mB | ||
) |
subroutine Cons_To_Prim_info | ( | TYPE(InfoDef) | Info, |
INTEGER, dimension(:,:) | mB | ||
) |
subroutine Cons_To_Prim_q | ( | REAL(KIND=qpREC), dimension(:) | q | ) |
subroutine prim_To_cons_q | ( | REAL(KIND=qpREC), dimension(:) | q | ) |
subroutine rprim_to_cons_Iso | ( | REAL(KIND=qPrec), dimension(:) | w, |
REAL(KIND=qPrec), dimension(:) | u | ||
) |
subroutine f_prim_Iso | ( | REAL(KIND=qPrec), dimension(:) | w, |
REAL(KIND=qPrec), dimension(:) | f | ||
) |
REAL(KIND=qPrec) function fast_speed_Iso | ( | REAL(KIND=qPrec), dimension(:) | w | ) |
logical function miniscule | ( | REAL(8) | x | ) |
subroutine rprim_to_cons_MHD_Iso | ( | REAL(KIND=qPrec), dimension(:) | w, |
REAL(KIND=qPrec), dimension(:) | u | ||
) |
subroutine f_prim_MHD_Iso | ( | REAL(KIND=qPrec), dimension(:) | w, |
REAL(KIND=qPrec), dimension(:) | f | ||
) |
REAL(KIND=qPrec) function sound_speed | ( | REAL(KIND=qPrec), dimension(:) | w | ) |
REAL(KIND=qPrec) function sound_speed_Roe | ( | REAL(KIND=qPrec), dimension(:) | w | ) |
subroutine prim_to_roe | ( | REAL(KIND=qPrec), dimension(:) | w, |
REAL(KIND=qPrec), dimension(:) | r | ||
) |
subroutine prim_to_roe_MHD | ( | REAL(KIND=qPrec), dimension(:) | w, |
REAL(KIND=qPrec), dimension(:) | r | ||
) |
REAL(KIND=qPrec) function fast_speed | ( | REAL(KIND=qPrec), dimension(:) | w | ) |
REAL(KIND=qPrec) function fast_speed_Roe | ( | REAL(KIND=qPrec), dimension(:) | w | ) |
subroutine rprim_to_cons | ( | REAL(KIND=qPrec), dimension(:) | w, |
REAL(KIND=qPrec), dimension(:) | u | ||
) |
subroutine rprim_to_cons_MHD | ( | REAL(KIND=qPrec), dimension(:) | w, |
REAL(KIND=qPrec), dimension(:) | u | ||
) |
subroutine F_prim | ( | REAL(KIND=qPrec), dimension(:) | w, |
REAL(KIND=qPrec), dimension(:) | f | ||
) |
subroutine F_prim_MHD | ( | REAL(KIND=qPrec), dimension(:) | w, |
REAL(KIND=qPrec), dimension(:) | f | ||
) |
REAL (KIND=qPREC) function, public GetMaxSpeed | ( | REAL (KIND=qPrec), dimension(:,:,:,:), intent(in) | q | ) |
subroutine, public PrintQ | ( | TYPE(InfoDef) | Info, |
REAL(KIND=qPREC), dimension(:) | q, | ||
REAL(KIND=qPREC) | tnow, | ||
INTEGER, optional | i, | ||
INTEGER, optional | j, | ||
INTEGER, optional | k | ||
) |
subroutine, public calc_eigens | ( | LOGICAL | request_eigens, |
REAL(KIND=qPrec), dimension(:) | prim, | ||
LOGICAL, dimension(:) | req_dim, | ||
REAL(KIND=qPrec), dimension(:,:) | lambda, | ||
INTEGER, dimension(:) | n, | ||
REAL(KIND=qPrec), dimension(:,:,:) | l, | ||
REAL(KIND=qPrec), dimension(:,:,:) | r, | ||
INTEGER | i, | ||
INTEGER | j, | ||
INTEGER | k, | ||
INTEGER | level | ||
) |
Calculate eigen system.
request_eigens | Logical flag that returns whether or not calc_eigens was successfull |
prim | fluid variables |
req_dim | Logical flag that specifies which dimensions to calculate eigen system for |
lambda | wave speeds |
n | number of independent waves for each system |
l | left eigenvectors |
r | right eigenvectors |
i | cell x-index |
j | cell y-index |
k | cell z-index |
logical function my_small | ( | REAL(8) | x, |
REAL(8) | y | ||
) |
logical function really_small | ( | REAL(8) | x, |
REAL(8) | y | ||
) |