mus_geom_type Derived Type

type, public :: mus_geom_type

Geometric information and definitions


Inherits

type~~mus_geom_type~~InheritsGraph type~mus_geom_type mus_geom_type type~treelmesh_type treelmesh_type type~mus_geom_type->type~treelmesh_type tree mus_IBM_globType mus_IBM_globType type~mus_geom_type->mus_IBM_globType globIBM type~tem_bc_prop_type tem_BC_prop_type type~mus_geom_type->type~tem_bc_prop_type boundary type~mus_geomincrhead_type mus_geomIncrHead_type type~mus_geom_type->type~mus_geomincrhead_type geomIncr type~tem_timecontrol_type tem_timeControl_type type~mus_geomincrhead_type->type~tem_timecontrol_type timeControl

Contents


Components

Type Visibility Attributes Name Initial
type(treelmesh_type), public :: tree

tree data type

type(tem_BC_prop_type), public :: boundary

boundary information as stored on disk

type(mus_geomIncrHead_type), public, allocatable :: geomIncr(:)

The header type containing all the geometry increase information

logical, public :: dynamicGeom = .false.

Logical to define whether geometry increase is active or not

integer, public, allocatable :: posInBndID(:)

Tree element position in the boundary_ID( nDir, nElems) in bc_prop_type it has a size of tree%nElems How to use: do iElem = 1, tree%nElems posInBndID = posInBndID( iElem ) ! current element has boundary only if posInBndID>0 ! else posInBndID = -1 if (posInBnd > 0 ) bnd_ID(1:nDir) = bc_prop%boundary_ID( 1:nDir, posInBndID ) end if end do

integer, public, allocatable :: posInQVal(:)

Tree element position in the qVal( nDir, nElems) in bc_prop_type it has a size of tree%nElems How to use: do iElem = 1, tree%nElems posInQVal = posInQVal( iElem ) ! current element has qVal if posInQVal>0 else posInQVal = -1 if (posInQVal > 0 ) qVal(1:nDir) = bc_prop%qVal( 1:nDir, posInQVal ) end if end do

integer, public, allocatable :: levelPointer(:)

tree element position in level descriptor total list it has a size of tree%nElems How to use: do iElem = 1, tree%nElems treeID = tree%treeID( iElem ) level = tem_levelOf( treeID ) posInTotal = levelPointer( iElem ) treeID = LevelDesc( iLevel )%total( posInTotal ) end do

integer, public, allocatable :: bcLevelPointer(:)

Boundary element poisition in the levelwise globBC%elemLvl(:)%elem%val It has a size of geometry%boundary%property%nElems. It is used in tracking to extract value stored in boundary types. Hot to use this access normal direction of boundary element: do iElem = 1, tree%nElems level = tem_levelOf( treeID ) posInBndID = posInBndID(iElem) if (posInBndID > 0) then BCIDs = bc_prop%boundary_ID(:, posInBndID) minBCID = minval(BCIDs, BCIDs > 0) posInBcElem = bcLevelPointer(posInBndID) normal = globBC%elemLvl(iLevel)%normal(posInBcElem) end if end do

integer, public, allocatable :: minBcID(:)

Minimum bcID for each boundary element. if a element has more than one boundary then use minBcID which depends on boundary order in seeder configuration.

type(mus_IBM_globType), public :: globIBM

immersed boundary data

real(kind=rk), public, allocatable :: bndForce(:,:)

Contains Forces on boundary elements computed using momentum exchange method. This will be used to derive_bndForce routine to compute force of certain boundaries. Forces are stored in level-independent fashion as geometry%boundaryID loaded from mesh files. Dim1: geometry%boundaryi%property%nElems Dim2: 3

real(kind=rk), public, allocatable :: bndMoment(:,:)

Contains Moments on boundary elements computed using momentum exchange method. This will be used to derive_bndMoment routine to compute moment of certain boundaries. Forces are stored in level-independent fashion as geometry%boundaryID loaded from mesh files. Dim1: geometry%boundaryi%property%nElems Dim2: 3