immersed_boundaries_solids Module

tools to represent a collection of immersed solids using surface markers


Uses

  • module~~immersed_boundaries_solids~~UsesGraph module~immersed_boundaries_solids immersed_boundaries_solids module~immersed_boundaries_markers immersed_boundaries_markers module~immersed_boundaries_solids->module~immersed_boundaries_markers module~leapblock leapBlock module~immersed_boundaries_solids->module~leapblock module~leapeulerian leapEulerian module~immersed_boundaries_solids->module~leapeulerian module~leapio leapIO module~immersed_boundaries_solids->module~leapio module~leapkinds leapKinds module~immersed_boundaries_solids->module~leapkinds module~leaplagrangian leapLagrangian module~immersed_boundaries_solids->module~leaplagrangian module~leapparallel leapParallel module~immersed_boundaries_solids->module~leapparallel module~immersed_boundaries_markers->module~leapblock module~immersed_boundaries_markers->module~leapeulerian module~immersed_boundaries_markers->module~leapio module~immersed_boundaries_markers->module~leapkinds module~immersed_boundaries_markers->module~leaplagrangian module~immersed_boundaries_markers->module~leapparallel module~leapdiffop leapDiffOp module~immersed_boundaries_markers->module~leapdiffop module~leaphypre leapHypre module~immersed_boundaries_markers->module~leaphypre module~leapmonitor leapMonitor module~immersed_boundaries_markers->module~leapmonitor module~leapparser leapParser module~immersed_boundaries_markers->module~leapparser module~leaptimer leapTimer module~immersed_boundaries_markers->module~leaptimer module~leapblock->module~leapkinds module~leapblock->module~leapparallel mpi_f08 mpi_f08 module~leapblock->mpi_f08 module~leapeulerian->module~leapblock module~leapeulerian->module~leapio module~leapeulerian->module~leapkinds module~leapeulerian->module~leapparallel module~leapio_mpi leapIO_mpi module~leapeulerian->module~leapio_mpi module~leapeulerian->module~leapparser module~leaputils leapUtils module~leapeulerian->module~leaputils module~leapeulerian->mpi_f08 module~leapio_h5hut leapIO_h5hut module~leapio->module~leapio_h5hut module~leapio_hdf5 leapIO_hdf5 module~leapio->module~leapio_hdf5 module~leapio->module~leapio_mpi module~leapio_silo leapIO_silo module~leapio->module~leapio_silo iso_fortran_env iso_fortran_env module~leapkinds->iso_fortran_env module~leaplagrangian->module~leapblock module~leaplagrangian->module~leapio module~leaplagrangian->module~leapkinds module~leaplagrangian->module~leapparallel module~leaplagrangian->module~leapparser module~leaplagrangian->module~leaputils module~leaplagrangian->mpi_f08 module~leapparallel->module~leapkinds module~leapparallel->module~leapparser module~leapparallel->mpi_f08 module~leapdiffop->module~leapblock module~leapdiffop->module~leapeulerian module~leapdiffop->module~leapkinds module~leapdiffop->module~leapparallel module~leapbc leapBC module~leapdiffop->module~leapbc module~leaphypre->module~leapblock module~leaphypre->module~leapeulerian module~leaphypre->module~leapkinds module~leaphypre->module~leapparallel module~leaphypre->mpi_f08 iso_c_binding iso_c_binding module~leaphypre->iso_c_binding module~leapio_h5hut->module~leapkinds module~leapio_h5hut->module~leapparallel h5hut h5hut module~leapio_h5hut->h5hut module~leapio_hdf5->module~leapkinds module~leapio_hdf5->module~leapparallel module~leapio_hdf5->module~leaputils hdf5 hdf5 module~leapio_hdf5->hdf5 module~leapio_mpi->module~leapblock module~leapio_mpi->module~leapkinds module~leapio_mpi->module~leapparallel module~leapio_mpi->mpi_f08 module~leapio_silo->module~leapblock module~leapio_silo->module~leapkinds module~leapio_silo->module~leapparallel module~leapio_silo->module~leaputils module~leapio_silo->mpi_f08 module~leapmonitor->module~leapkinds module~leapmonitor->module~leapparallel module~leapmonitor->module~leaputils module~leapparser->module~leapkinds module~leapcli leapCli module~leapparser->module~leapcli module~leaptimer->module~leapkinds module~leaptimer->module~leapparser module~leaputils->module~leapkinds module~leaputils->mpi_f08 module~leapbc->module~leapblock module~leapbc->module~leapeulerian module~leapbc->module~leapkinds module~leapbc->module~leapparallel module~leapbc->module~leaputils module~leapbc->mpi_f08 module~leapcli->module~leapkinds

Used by

  • module~~immersed_boundaries_solids~~UsedByGraph module~immersed_boundaries_solids immersed_boundaries_solids module~immersed_boundaries immersed_boundaries module~immersed_boundaries->module~immersed_boundaries_solids module~cdifs cdifs module~cdifs->module~immersed_boundaries module~particles_resolved particles_resolved module~cdifs->module~particles_resolved module~grans grans module~grans->module~immersed_boundaries module~grans_cases grans_cases module~grans->module~grans_cases module~grans->module~particles_resolved module~grans_cases->module~immersed_boundaries module~grans_cases->module~particles_resolved module~particles_resolved->module~immersed_boundaries proc~add_markers add_markers proc~add_markers->module~immersed_boundaries proc~add_markers->module~particles_resolved proc~add_markers~2 add_markers proc~add_markers~2->module~immersed_boundaries proc~add_markers~2->module~particles_resolved proc~cdifs_cylinder_ib cdifs_cylinder_IB proc~cdifs_cylinder_ib->module~immersed_boundaries proc~cdifs_rebound_ib cdifs_rebound_IB proc~cdifs_rebound_ib->module~immersed_boundaries proc~cdifs_settling_sphere_ib cdifs_settling_sphere_IB proc~cdifs_settling_sphere_ib->module~immersed_boundaries module~cdifs_advancesolution_smod cdifs_AdvanceSolution_smod module~cdifs_advancesolution_smod->module~cdifs module~cdifs_monitor_smod cdifs_Monitor_smod module~cdifs_monitor_smod->module~cdifs module~cdifs_preparesolver_smod cdifs_PrepareSolver_smod module~cdifs_preparesolver_smod->module~cdifs module~cdifs_writeoutputdata_smod cdifs_WriteOutputData_smod module~cdifs_writeoutputdata_smod->module~cdifs module~cdifs_writerestartdata_smod cdifs_WriteRestartData_smod module~cdifs_writerestartdata_smod->module~cdifs module~grans_advancesolution_smod grans_AdvanceSolution_smod module~grans_advancesolution_smod->module~grans module~grans_module_smod grans_module_smod module~grans_module_smod->module~grans module~grans_preparesolver_smod grans_PrepareSolver_smod module~grans_preparesolver_smod->module~grans module~grans_writeoutputdata_smod grans_WriteOutputData_smod module~grans_writeoutputdata_smod->module~grans module~grans_writerestartdata_smod grans_WriteRestartData_smod module~grans_writerestartdata_smod->module~grans module~headon_collision_smod headon_collision_smod module~headon_collision_smod->module~grans_cases module~homogeneous_cooling_smod homogeneous_cooling_smod module~homogeneous_cooling_smod->module~grans_cases module~rotating_drum_smod rotating_drum_smod module~rotating_drum_smod->module~grans_cases proc~cdifs_rebound_respart cdifs_rebound_ResPart proc~cdifs_rebound_respart->module~particles_resolved proc~cdifs_settling_sphere_respart cdifs_settling_sphere_ResPart proc~cdifs_settling_sphere_respart->module~particles_resolved program~main main program~main->module~cdifs program~main->module~grans

Derived Types

type, public, extends(marker_set) ::  solid_obj

An object that represents a solid

Components

Type Visibility Attributes Name Initial
real(kind=WP), public :: Ac(3)

Angluar velocity of center of mass
integer, public :: MPI_SIZE = 44

MPI size
type(MPI_Datatype), public :: MPI_TYPE

MPI variable type
type(block_obj), public, pointer :: block => null()

Associated block structure
type(block_obj), public :: cblock

Collision block
integer, public :: count = 0

Total count across all MPI ranks
integer, public :: count_ = 0

Local count for this rank
integer, public, allocatable :: count_proc(:) Read more…
real(kind=WP), public :: fr = 0.0_WP

Frequency of oscillation
procedure(kernel_1D), public, nopass, pointer :: g1ex => int_g1_triangle

1D kernel used in extrapolations
procedure(kernel_1D), public, nopass, pointer :: g1in => g1_triangle

1D kernel used in interpolations
real(kind=wp), public :: l_filter

Half filter width
type(monitor_set), public, pointer :: monitors => null()

Monitors to print to stdout and files
integer, public :: motion = 0

Type of motion
character(len=:), public, allocatable :: name

Name of the Lagrangian set
type(sllist_obj), public, allocatable :: neighbors(:,:,:)

Singly linked list of neighbors
integer, public, allocatable :: objincell(:,:,:)

Number of objects in this list
type(op_obj), public, pointer :: op => null()

operators object
logical, public :: overwrite = .true.

Switch to overwrite IO files
class(lagrangian_obj), public, allocatable :: p(:)

Array of Lagrangian_obj or any extended type
type(parallel_obj), public, pointer :: parallel => null()

Associated parallel structure
type(parser_obj), public, pointer :: parser => null()

Parser for input file
character(len=str64), public :: read_file

file to read
class(lagrangian_obj), public, allocatable :: sample

Sample used in allocation of polymorphic data
integer, public :: stib = 3

Stencil size for filtering
type(timer_obj), public, pointer :: timer => null()

Timer utility
real(kind=WP), public :: vc(3)

velocity of center of mass
character(len=str64), public :: write_file

file to write
real(kind=WP), public :: xc(3)

position of center of mass

Type-Bound Procedures

procedure, public :: ApplyPeriodicity => lagrangian_set_ApplyPeriodicity
procedure, public :: CoM => marker_set_CoM
procedure, public :: Communicate => lagrangian_set_Communicate
procedure, public :: ComputeSolidVolFrac => marker_set_ComputeSolidVolFrac
procedure, public :: CreateMPIType => lagrangian_set_CreateMPIType
procedure, public :: Filter => marker_set_Filter
generic, public :: Finalize => lagrangian_set_Final
procedure, public :: FreeNeighborList => lagrangian_set_FreeNeighborList
procedure, public :: GetIBForcing => marker_set_GetIBForcing
procedure, public :: GetOwnerRankByBlock => lagrangian_set_GetOwnerRankByBlock
procedure, public :: GetReadFileName => lagrangian_set_GetReadFileName
procedure, public :: GetWriteFileName => lagrangian_set_GetWriteFileName
procedure, public :: Info => lagrangian_set_Info
generic, public :: Initialize => lagrangian_set_Init
procedure, public :: LoadSTL => marker_set_LoadSTL
procedure, public :: Localize => lagrangian_set_Localize
procedure, public :: Prepare => marker_set_Prepare
procedure, public :: Read => marker_set_Read
procedure, public :: Recycle => lagrangian_set_Recycle
procedure, public :: Resize => lagrangian_set_Resize
procedure, public :: SetFilterKernel => lagrangian_set_SetFilterKernel
procedure, public :: SetFilterSize => lagrangian_set_SetFilterSize
procedure, public :: SetMPIDataTypeParams => marker_set_SetMPIDataTypeParams
procedure, public :: SetObjectType => marker_set_SetObjectType
procedure, public :: SetOverwrite => lagrangian_set_SetOverwrite
procedure, public :: SetReadFileName => lagrangian_set_SetReadFileName
procedure, public :: SetWriteFileName => lagrangian_set_SetWriteFileName
procedure, public :: SetupCollisionBlock => lagrangian_set_SetupCollisionBlock
procedure, public :: UpdateCount => lagrangian_set_UpdateCount
procedure, public :: UpdateGhostObjects => lagrangian_set_UpdateGhostObjects
procedure, public :: UpdateNeighborList => lagrangian_set_UpdateNeighborList
procedure, public :: UpdateNormals => marker_set_UpdateNormals
procedure, public :: UpdateSDF => marker_set_UpdateSDF
procedure, public :: Write => marker_set_Write
procedure, public :: lagrangian_set_Final
procedure, public :: lagrangian_set_Init

type, public ::  solid_set

Collection of solid_obj

Components

Type Visibility Attributes Name Initial
type(block_obj), public, pointer :: block => null()

Associated block structure
integer, public :: count = 0

Total count of solid_obj
character(len=:), public, allocatable :: name

Name of the collection of solid_obj
logical, public :: overwrite = .true.

Switch to overwrite IO files
type(solid_obj), public, allocatable :: p(:)

Array of solid_obj
type(parallel_obj), public, pointer :: parallel => null()

Associated parallel structure
character(len=str64), public :: read_file

file to read
character(len=str64), public :: write_file

file to write

Type-Bound Procedures

procedure, public :: Communicate => solid_set_Communicate
procedure, public :: Filter => solid_set_Filter
procedure, public :: Finalize => solid_set_Final
procedure, public :: Initialize => solid_set_Init
procedure, public :: Localize => solid_set_Localize
procedure, public :: Read => solid_set_Read
procedure, public :: SetFilterKernel => solid_set_SetFilterKernel
procedure, public :: SetFilterSize => solid_set_SetFilterSize
procedure, public :: SetOverwrite => solid_set_SetOverwrite
procedure, public :: SetReadFileName => solid_set_SetReadFileName
procedure, public :: SetWriteFileName => solid_set_SetWriteFileName
procedure, public :: Write => solid_set_Write

Subroutines

private subroutine solid_set_Communicate(this)

Communicate markers contained in all solid_obj

Arguments

Type IntentOptional Attributes Name
class(solid_set), intent(inout) :: this

A collection of solid_obj

private subroutine solid_set_Filter(this, var, field)

Filter a quantity to the Eulerian grid

Arguments

Type IntentOptional Attributes Name
class(solid_set), intent(inout) :: this

A collection of solid_obj
character(len=*), intent(in) :: var

Variable to compute
type(eulerian_obj_r), intent(inout) :: field

Filtered quantity

private subroutine solid_set_Final(this)

Finalize

Arguments

Type IntentOptional Attributes Name
class(solid_set), intent(inout) :: this

A collection of solid_obj

private subroutine solid_set_Init(this, name, nobj, block, parallel)

Initialize a collection of solid_obj

Arguments

Type IntentOptional Attributes Name
class(solid_set), intent(inout) :: this

A collection of solid_obj
character(len=*), intent(in) :: name

Name of variable
integer, intent(in) :: nobj

Number of solid_obj
type(block_obj), intent(in), target :: block

A block object
type(parallel_obj), intent(in), target :: parallel

parallel structure from main program

private subroutine solid_set_Localize(this)

Localize markers on the gril for all solid_obj

Arguments

Type IntentOptional Attributes Name
class(solid_set), intent(inout) :: this

A collection of solid_obj

private subroutine solid_set_Read(this, iter, time)

Read all solid_obj

Arguments

Type IntentOptional Attributes Name
class(solid_set), intent(inout) :: this

A collection of solid_obj
integer, intent(out) :: iter

Iteration at write
real(kind=wp), intent(out) :: time

Time at write

private subroutine solid_set_SetFilterKernel(this, kernel_interp, kernel_extrap)

Select interp/extrap kernels

Arguments

Type IntentOptional Attributes Name
class(solid_set), intent(inout) :: this

A collection of solid_obj
integer, intent(in) :: kernel_interp

Filter kernel for interpolations
integer, intent(in) :: kernel_extrap

Filter kernel for extrapolations

private subroutine solid_set_SetFilterSize(this, l_filter)

Change filter size to desired value

Arguments

Type IntentOptional Attributes Name
class(solid_set), intent(inout) :: this

A collection of solid_obj
real(kind=wp), intent(in) :: l_filter

Filter size

private subroutine solid_set_SetOverwrite(this, overwrite)

Set file overwritting

Arguments

Type IntentOptional Attributes Name
class(solid_set), intent(inout) :: this

A collection of solid_obj
logical, intent(in) :: overwrite

Toggle

private subroutine solid_set_SetReadFileName(this, name)

Set the names of files to read

Arguments

Type IntentOptional Attributes Name
class(solid_set), intent(inout) :: this

A collection of solid_obj
character(len=*), intent(in) :: name

Name of file

private subroutine solid_set_SetWriteFileName(this, name)

Set the names of files to write

Arguments

Type IntentOptional Attributes Name
class(solid_set), intent(inout) :: this

A collection of solid_obj
character(len=*), intent(in) :: name

Name of file

private subroutine solid_set_Write(this, iter, time)

Write all solid_obj

Arguments

Type IntentOptional Attributes Name
class(solid_set), intent(inout) :: this

A collection of solid_obj
integer, intent(in) :: iter

Iteration at write
real(kind=wp), intent(in) :: time

Time at write