MAMMA  1.0
Conduitsolver
parameters.f90
Go to the documentation of this file.
1 !*********************************************************************
5 !
9 !*********************************************************************
10 MODULE parameters
11 
12  IMPLICIT NONE
13 
14  REAL*8 :: pi
15 
16  REAL*8 :: eps_newton
18  REAL*8 :: max_dt
19  REAL*8 :: cfl
20 
21  REAL*8 :: reconstr_coeff
22 
28 
29  INTEGER :: n_cry
30  INTEGER :: n_gas
31 
32  INTEGER :: n_vars
33  INTEGER :: n_eqns
34 
35  INTEGER :: n_mom
36 
37  INTEGER :: idx_p1
38  INTEGER :: idx_p2
39  INTEGER :: idx_u1
40  INTEGER :: idx_u2
41  INTEGER :: idx_t
42  INTEGER :: idx_xd_first
43  INTEGER :: idx_xd_last
44  INTEGER :: idx_alfa_first
45  INTEGER :: idx_alfa_last
46  INTEGER :: idx_beta_first
47  INTEGER :: idx_beta_last
48 
49  INTEGER :: idx_mix_mass_eqn
50  INTEGER :: idx_vol1_eqn
51  INTEGER :: idx_mix_mom_eqn
52  INTEGER :: idx_rel_vel_eqn
53  INTEGER :: idx_mix_engy_eqn
58  INTEGER :: idx_cry_eqn_first
59  INTEGER :: idx_cry_eqn_last
60 
61 
62  INTEGER :: n_nh
63 
65  INTEGER :: n_rk
66 
73  CHARACTER(LEN=20) :: limiter
74 
80  CHARACTER(LEN=20) :: solver_scheme
81 
82  REAL*8 :: theta
83  REAL*8 :: t_start
84  REAL*8 :: t_end
85  REAL*8 :: t_output
86  REAL*8 :: dt_output
87 
91  REAL*8, PARAMETER :: alfa_impl = 1.0d0
92 
94  INTEGER, PARAMETER :: max_nl_iter = 100
95 
96  REAL*8, PARAMETER :: eps_thr = 1.d-2
97 
98  REAL*8, PARAMETER :: tol_abs = 1.d-3
99  REAL*8, PARAMETER :: tol_rel = 1.d-3
100 
101  INTEGER :: verbose_level
102 
107  LOGICAL :: shooting
108 
113  LOGICAL :: moments_flag
114 
115 
122  REAL*8 :: eps_conv
123 
128  LOGICAL :: preconditioning
129 
134  LOGICAL :: entropic_prec
135 
140  LOGICAL :: dual_time
141 
142  INTEGER :: max_iter_tau
143 
144  REAL*8 :: dtau_dt_ratio
145 
150  LOGICAL :: local_time_step
151 
153 
155 
156  LOGICAL :: exact_speed
157 
158 
159 END MODULE parameters
integer n_rk
Runge-Kutta order.
Definition: parameters.f90:65
integer idx_p2
Index of p2 in the qp array.
Definition: parameters.f90:38
Parameters.
Definition: parameters.f90:10
integer idx_cry_eqn_last
Definition: parameters.f90:59
logical local_time_step
Flag for local time stepping.
Definition: parameters.f90:150
integer idx_ex_gas_eqn_last
Definition: parameters.f90:57
logical complex_step_speed
Definition: parameters.f90:154
integer idx_mix_mom_eqn
Definition: parameters.f90:51
character(len=20) solver_scheme
Finite volume method: .
Definition: parameters.f90:80
logical residual_smoothing
Definition: parameters.f90:152
integer n_nh
Definition: parameters.f90:62
real *8, parameter alfa_impl
Parameter for numerical scheme: .
Definition: parameters.f90:91
real *8 t_output
time of the next output
Definition: parameters.f90:85
integer idx_u2
Index of u2 in the qp array.
Definition: parameters.f90:40
real *8 eps_newton
threshold for the convergence of the Newton's method
Definition: parameters.f90:16
integer n_gas
Numbeer of crystal phases.
Definition: parameters.f90:30
real *8 eps_conv
Residual for the convergence of the shooting method. The solution is accepted if one of these conditi...
Definition: parameters.f90:122
real *8, parameter tol_abs
Definition: parameters.f90:98
logical shooting
Flag for the shooting technique: .
Definition: parameters.f90:107
logical dual_time
Flag for dual time stepping.
Definition: parameters.f90:140
integer idx_ex_gas_eqn_first
Definition: parameters.f90:56
logical interfaces_relaxation
Flag to add the relaxation terms after the linear reconstruction: .
Definition: parameters.f90:27
real *8 max_dt
Largest time step allowed.
Definition: parameters.f90:18
real *8 t_end
end time for the run
Definition: parameters.f90:84
real *8 pi
Definition: parameters.f90:14
integer idx_alfa_first
First index of alfa in the qp array.
Definition: parameters.f90:44
real *8 cfl
Courant-Friedrichs-Lewy parameter.
Definition: parameters.f90:19
integer n_cry
Numbeer of crystal phases.
Definition: parameters.f90:29
integer idx_mix_engy_eqn
Definition: parameters.f90:53
real *8, parameter tol_rel
Definition: parameters.f90:99
character(len=20) limiter
Limiter for the slope in the linear reconstruction: .
Definition: parameters.f90:73
integer, parameter max_nl_iter
Maximum iterations of the Newthon-Raphson solver.
Definition: parameters.f90:94
integer idx_mix_mass_eqn
Definition: parameters.f90:49
real *8 dt_output
time interval for the output of the solution
Definition: parameters.f90:86
integer idx_alfa_last
Last index of alfa in the qp array.
Definition: parameters.f90:45
integer idx_rel_vel_eqn
Definition: parameters.f90:52
logical moments_flag
Flag for the crystal moments: .
Definition: parameters.f90:113
real *8 dtau_dt_ratio
Definition: parameters.f90:144
integer idx_beta_first
First index of beta in the qp array.
Definition: parameters.f90:46
integer n_mom
Number of moments for each crystal phase.
Definition: parameters.f90:35
integer idx_dis_gas_eqn_first
Definition: parameters.f90:54
real *8, parameter eps_thr
Definition: parameters.f90:96
integer idx_xd_first
First index of xd in the qp array.
Definition: parameters.f90:42
integer idx_p1
Index of p1 in the qp array.
Definition: parameters.f90:37
integer idx_u1
Index of u1 in the qp array.
Definition: parameters.f90:39
integer idx_cry_eqn_first
Definition: parameters.f90:58
integer idx_beta_last
Last index of beta in the qp array.
Definition: parameters.f90:47
real *8 theta
Van Leer limiter parameter.
Definition: parameters.f90:82
integer idx_vol1_eqn
Definition: parameters.f90:50
integer idx_dis_gas_eqn_last
Definition: parameters.f90:55
integer n_vars
Number of conservative variables.
Definition: parameters.f90:32
integer verbose_level
Definition: parameters.f90:101
logical entropic_prec
Flag for the preconditioning on conservative or entropic variables.
Definition: parameters.f90:134
logical exact_speed
Definition: parameters.f90:156
real *8 t_start
initial time for the run
Definition: parameters.f90:83
integer max_iter_tau
Definition: parameters.f90:142
real *8 reconstr_coeff
Slope coefficient in the linear reconstruction.
Definition: parameters.f90:21
integer idx_t
Index of T in the qp array.
Definition: parameters.f90:41
integer idx_xd_last
Last index of xd in the qp array.
Definition: parameters.f90:43
logical preconditioning
Flag for the preconditioning.
Definition: parameters.f90:128
integer n_eqns
Number of equations.
Definition: parameters.f90:33