-
Notifications
You must be signed in to change notification settings - Fork 11
/
MODULE_CFDMAINDATA.f90
54 lines (44 loc) · 2.3 KB
/
MODULE_CFDMAINDATA.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
!=================================================================================================
!> CARTESIAN ADAPTIVE FIVE EQUATION MODEL
!> AUTHOR: VAN-DAT THANG
!> E-MAIL: datthangva@gmail.com
!> E-MAIL: vandatthang@gmail.com
!> SOURCE CODE LINK: https://github.com/dattv/2D_CARFIVE
!=================================================================================================
MODULE MODULE_CFDMAINDATA
use MODULE_PRECISION
use MODULE_CONSTANTS
! ===> CLASS PROPERTIES <======================================================================
type :: properties
real(rp) :: gamma = 1.4_rp ;
real(rp) :: b = 1._rp ;
real(rp) :: rho = 1.3_rp ;
real(rp) :: r_gas_constant = 8.3144598_rp ;
real(rp) :: mu = 18.27_rp ;
real(rp) :: lambda = 1.512041288_rp;
real(rp) :: c_sutherland_constant = 120._rp ;
real(rp) :: temperature = 291.15_rp ;
real(rp) :: pi = MPI ;
real(rp) :: cp = 1._rp ;
end type properties
! ===> END CLASS PROPERTIES <==================================================================
integer(ip) :: time_step_max ! MAXIMUM PHYSICAL TIME STEPS
real(rp) :: CFL ! CORRANT FEDRIC LEVI NUMBER
real(rp) :: t_final ! FINAL TIME
real(rp) :: time !
real(rp) :: dt !
! ===> REFERENCE QUANTITIES <==================================================================
real(rp) :: M_inf , &
Rho_inf , &
U_inf , &
P_inf , &
L_inf
! ===> RATIO FO SPECIFIC HEAT (1.4 FRP AIR) <==================================================
real(rp) :: gamma = 1.4_rp
character(len = 80) :: C_inviscid_flux
integer(ip) :: I_inviscid_flux
character(len = 80) :: C_limiter_type
integer(ip) :: I_limiter_type
integer(ip) :: frequency_dump
type(properties), dimension(:), pointer :: matInfo
END MODULE MODULE_CFDMAINDATA