| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | imin_id | Boundary condition number/ID at imin for particulat processor |
|||
| integer, | public | :: | imax_id | Boundary condition number/ID at imax for particulat processor |
|||
| integer, | public | :: | jmin_id | Boundary condition number/ID at jmin for particulat processor |
|||
| integer, | public | :: | jmax_id | Boundary condition number/ID at jmax for particulat processor |
|||
| integer, | public | :: | kmin_id | Boundary condition number/ID at kmin for particulat processor |
|||
| integer, | public | :: | kmax_id | Boundary condition number/ID at kmax for particulat processor |
|||
| character(len=4), | public, | dimension(6) | :: | face_names | Store name of all six boundary faces |
||
| integer, | public, | dimension(6) | :: | id | Store the boundary condition ID of all six faces |
||
| real(kind=wp), | public | :: | c1 | First coefficient user for higher order boundary condition |
|||
| real(kind=wp), | public | :: | c2 | Second coefficient user for higher order boundary condition |
|||
| real(kind=wp), | public | :: | c3 | Third coefficient user for higher order boundary condition |
|||
| real(kind=wp), | public, | dimension(6) | :: | fixed_density | = | 0. | Density value to fix at particular boundary |
| real(kind=wp), | public, | dimension(6) | :: | fixed_pressure | = | 0. | Pressure value to fix at particular boundary |
| real(kind=wp), | public, | dimension(6) | :: | fixed_x_speed | = | 0. | X component of velocity to fix at particular boundary condition |
| real(kind=wp), | public, | dimension(6) | :: | fixed_y_speed | = | 0. | Y component of velocity to fix at particular boundary condition |
| real(kind=wp), | public, | dimension(6) | :: | fixed_z_speed | = | 0. | Z component of velocity to fix at particular boundary condition |
| real(kind=wp), | public, | dimension(6) | :: | fixed_tk | = | 0. | Turbulent kinetic energy value to fix at particular boundary condition |
| real(kind=wp), | public, | dimension(6) | :: | fixed_tw | = | 0. | Turbulent kinetic energy dissiaption rate value to fix at particular boundary condition(k-omega and SST model) |
| real(kind=wp), | public, | dimension(6) | :: | fixed_te | = | 0. | Turbulent kinetic energy dissiaption value to fix at particular boundary condition (K-eplision model) |
| real(kind=wp), | public, | dimension(6) | :: | fixed_tv | = | 0. | Turbulent viscosity varialble value to fix at particular boundary condition (for SA turbulence model) |
| real(kind=wp), | public, | dimension(6) | :: | fixed_tkl | = | 0. | (Turbulent kinetic energy x length) varialble value to fix at particular boundary condition (for k-kL turbulence model) |
| real(kind=wp), | public, | dimension(6) | :: | fixed_tgm | = | 0. | Fixed intermittency value to apply at particular boundary condition (for SST2003-gamma transition model) |
| real(kind=wp), | public, | dimension(6) | :: | fixed_wall_temperature | = | 0. | Fixed wall temperature value to apply at isothermal wall boundary condition. |
| real(kind=wp), | public, | dimension(6) | :: | fixed_Tpressure | = | 0. | Fixed Total Pressure value to apply at particular boundary condition |
| real(kind=wp), | public, | dimension(6) | :: | fixed_Ttemperature | = | 0. | Fixed Total Temperature value to apply at particular boundary condition |
| integer, | public, | dimension(6) | :: | ilo | Store the lower and upper bound of the indecies of I loop for the interface mapping |
||
| integer, | public, | dimension(6) | :: | ihi | Store the lower and upper bound of the indecies of I loop for the interface mapping |
||
| integer, | public, | dimension(6) | :: | jlo | Store the lower and upper bound of the indecies of J loop for the interface mapping |
||
| integer, | public, | dimension(6) | :: | jhi | Store the lower and upper bound of the indecies of J loop for the interface mapping |
||
| integer, | public, | dimension(6) | :: | klo | Store the lower and upper bound of the indecies of K loop for the interface mapping |
||
| integer, | public, | dimension(6) | :: | khi | Store the lower and upper bound of the indecies of K loop for the interface mapping |
||
| integer, | public, | dimension(6) | :: | dir_switch | = | 0 | Switch for each boundary face. Activated only if ( for eg I-direction in the mapping is mapped with J-direction) |
| integer, | public, | dimension(6) | :: | otherface | Store the face number with which the current interface is connected. |
||
| integer, | public, | dimension(:), allocatable | :: | make_F_flux_zero | Store zero to boundary face, which has wall ID, to make F flux zero |
||
| integer, | public, | dimension(:), allocatable | :: | make_G_flux_zero | Store zero to boundary face, which has wall ID, to make G flux zero |
||
| integer, | public, | dimension(:), allocatable | :: | make_H_flux_zero | Store zero to boundary face, which has wall ID, to make H flux zero |
||
| integer, | public, | dimension(6) | :: | PbcId | = | -1 | Block ID for Periodic boundary condition |
type :: boundarytype
integer :: imin_id
!< Boundary condition number/ID at imin for particulat processor
integer :: imax_id
!< Boundary condition number/ID at imax for particulat processor
integer :: jmin_id
!< Boundary condition number/ID at jmin for particulat processor
integer :: jmax_id
!< Boundary condition number/ID at jmax for particulat processor
integer :: kmin_id
!< Boundary condition number/ID at kmin for particulat processor
integer :: kmax_id
!< Boundary condition number/ID at kmax for particulat processor
character(len=4), dimension(6) :: face_names
!< Store name of all six boundary faces
integer, dimension(6) :: id
!< Store the boundary condition ID of all six faces
real(wp) :: c1
!< First coefficient user for higher order boundary condition
real(wp) :: c2
!< Second coefficient user for higher order boundary condition
real(wp) :: c3
!< Third coefficient user for higher order boundary condition
! store fix values for 6 faces of domain
real(wp), dimension(6) :: fixed_density = 0.
!< Density value to fix at particular boundary
real(wp), dimension(6) :: fixed_pressure = 0.
!< Pressure value to fix at particular boundary
real(wp), dimension(6) :: fixed_x_speed = 0.
!< X component of velocity to fix at particular boundary condition
real(wp), dimension(6) :: fixed_y_speed = 0.
!< Y component of velocity to fix at particular boundary condition
real(wp), dimension(6) :: fixed_z_speed = 0.
!< Z component of velocity to fix at particular boundary condition
real(wp), dimension(6) :: fixed_tk = 0.
!< Turbulent kinetic energy value to fix at particular boundary condition
real(wp), dimension(6) :: fixed_tw = 0.
!< Turbulent kinetic energy dissiaption rate value to fix at particular boundary condition(k-omega and SST model)
real(wp), dimension(6) :: fixed_te = 0.
!< Turbulent kinetic energy dissiaption value to fix at particular boundary condition (K-eplision model)
real(wp), dimension(6) :: fixed_tv = 0.
!< Turbulent viscosity varialble value to fix at particular boundary condition (for SA turbulence model)
real(wp), dimension(6) :: fixed_tkl = 0.
!< (Turbulent kinetic energy x length) varialble value to fix at particular boundary condition (for k-kL turbulence model)
real(wp), dimension(6) :: fixed_tgm = 0.
!< Fixed intermittency value to apply at particular boundary condition (for SST2003-gamma transition model)
real(wp), dimension(6) :: fixed_wall_temperature = 0.
!< Fixed wall temperature value to apply at isothermal wall boundary condition.
real(wp), dimension(6) :: fixed_Tpressure = 0.
!< Fixed Total Pressure value to apply at particular boundary condition
real(wp), dimension(6) :: fixed_Ttemperature = 0.
!< Fixed Total Temperature value to apply at particular boundary condition
!interface mapping
integer, dimension(6) :: ilo, ihi
!< Store the lower and upper bound of the indecies of I loop for the interface mapping
integer, dimension(6) :: jlo, jhi
!< Store the lower and upper bound of the indecies of J loop for the interface mapping
integer, dimension(6) :: klo, khi
!< Store the lower and upper bound of the indecies of K loop for the interface mapping
integer, dimension(6) :: dir_switch=0
!< Switch for each boundary face. Activated only if ( for eg I-direction in the mapping is mapped with J-direction)
integer, dimension(6) :: otherface
!< Store the face number with which the current interface is connected.
!zero flux faces
integer,dimension(:),allocatable::make_F_flux_zero
!< Store zero to boundary face, which has wall ID, to make F flux zero
integer,dimension(:),allocatable::make_G_flux_zero
!< Store zero to boundary face, which has wall ID, to make G flux zero
integer,dimension(:),allocatable::make_H_flux_zero
!< Store zero to boundary face, which has wall ID, to make H flux zero
!periodic boundary condition
integer, dimension(6) :: PbcId = -1 !< Block ID for Periodic boundary condition
end type boundarytype