MFC:Pre_process  v1.0
m_derived_types.f90
Go to the documentation of this file.
1 !! __ _______________
2 !! / |/ / ____/ ____/
3 !! / /|_/ / /_ / /
4 !! / / / / __/ / /___
5 !! /_/ /_/_/ \____/
6 !!
7 !! This file is part of MFC.
8 !!
9 !! MFC is the legal property of its developers, whose names
10 !! are listed in the copyright file included with this source
11 !! distribution.
12 !!
13 !! MFC is free software: you can redistribute it and/or modify
14 !! it under the terms of the GNU General Public License as published
15 !! by the Free Software Foundation, either version 3 of the license
16 !! or any later version.
17 !!
18 !! MFC is distributed in the hope that it will be useful,
19 !! but WITHOUT ANY WARRANTY; without even the implied warranty of
20 !! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 !! GNU General Public License for more details.
22 !!
23 !! You should have received a copy of the GNU General Public License
24 !! along with MFC (LICENSE).
25 !! If not, see <http://www.gnu.org/licenses/>.
26 
33 
37 
38  IMPLICIT NONE
39 
40  INTEGER, PARAMETER :: num_patches_max = 10
42 
43  INTEGER, parameter :: num_fluids_max = 10
45 
48  REAL(KIND(0d0)), POINTER, DIMENSION(:,:,:) :: sf => null()
49  END TYPE scalar_field
50 
52  INTEGER, ALLOCATABLE, DIMENSION(:) :: view
53  TYPE(scalar_field), ALLOCATABLE, DIMENSION(:) :: var
54  END TYPE mpi_io_var
55 
58  INTEGER :: beg
59  INTEGER :: end
60  END TYPE int_bounds_info
61 
64  REAL(KIND(0d0)) :: beg
65  REAL(KIND(0d0)) :: end
66  END TYPE bounds_info
67 
70  INTEGER :: beg
71  INTEGER :: end
72  INTEGER, DIMENSION(:), ALLOCATABLE :: rs
73  INTEGER, DIMENSION(:), ALLOCATABLE :: vs
74  INTEGER, DIMENSION(:), ALLOCATABLE :: ps
75  INTEGER, DIMENSION(:), ALLOCATABLE :: ms
76  END TYPE bub_bounds_info
77 
83 
84  INTEGER :: geometry
85 
86  REAL(KIND(0d0)) :: x_centroid, y_centroid, z_centroid
89 
90  REAL(KIND(0d0)) :: length_x, length_y, length_z
91  REAL(KIND(0d0)) :: radius
92 
93  REAL(KIND(0d0)), DIMENSION(3) :: radii
97 
98  REAL(KIND(0d0)) :: epsilon, beta
101 
102  REAL(KIND(0d0)), DIMENSION(3) :: normal
105 
106  LOGICAL, DIMENSION(0:num_patches_max-1) :: alter_patch
110 
111  LOGICAL :: smoothen
114 
115  INTEGER :: smooth_patch_id
117 
118  REAL(KIND(0d0)) :: smooth_coeff
121 
122  REAL(KIND(0d0)), DIMENSION(num_fluids_max) :: alpha_rho
123  REAL(KIND(0d0)) :: rho
124  REAL(KIND(0d0)), DIMENSION(3) :: vel
125  REAL(KIND(0d0)) :: pres
126  REAL(KIND(0d0)), DIMENSION(num_fluids_max) :: alpha
127  REAL(KIND(0d0)) :: gamma
128  REAL(KIND(0d0)) :: pi_inf
132 
133  REAL(KIND(0d0)) :: r0
134  REAL(KIND(0d0)) :: v0
135 
136 
137  END TYPE ic_patch_parameters
138 
142  REAL(KIND(0d0)) :: gamma
143  REAL(KIND(0d0)) :: pi_inf
144  REAL(KIND(0d0)) :: mul0
145  REAL(KIND(0d0)) :: ss
146  REAL(KIND(0d0)) :: pv
147  REAL(KIND(0d0)) :: gamma_v
148  REAL(KIND(0d0)) :: m_v
149  REAL(KIND(0d0)) :: mu_v
150  REAL(KIND(0d0)) :: k_v
151  END TYPE physical_parameters
152 
153 
154 END MODULE m_derived_types
Derived type adding initial condition (ic) patch parameters as attributes NOTE: The requirements for ...
integer, parameter num_patches_max
Maximum number of patches allowed.
Integer boounds for variables.
Derived type annexing a scalar field (SF)
bounds for the bubble dynamic variables
This file contains the definitions of all of the custom-defined types used in the pre-process code...
Derived type annexing the physical parameters (PP) of the fluids. These include the specific heat rat...
integer, parameter num_fluids_max
Maximum number of fluids allowed.
Derived type adding beginning (beg) and end bounds info as attributes.