marker_set Derived Type

type, public, extends(lagrangian_set) :: marker_set

A collection of elements that form the tesseleation of an IB surface.


Inherits

type~~marker_set~~InheritsGraph type~marker_set marker_set type~bc_set bc_set type~marker_set->type~bc_set bcs type~lagrangian_set lagrangian_set type~marker_set->type~lagrangian_set type~monitor_set monitor_set type~marker_set->type~monitor_set monitors type~op_obj op_obj type~marker_set->type~op_obj op type~parser_obj parser_obj type~marker_set->type~parser_obj parser type~timer_obj timer_obj type~marker_set->type~timer_obj timer type~block_obj block_obj type~bc_set->type~block_obj block type~hashtbl_obj hashtbl_obj type~bc_set->type~hashtbl_obj tbl type~hdf5_obj hdf5_obj type~bc_set->type~hdf5_obj hdf5 type~parallel_obj parallel_obj type~bc_set->type~parallel_obj parallel type~region_obj region_obj type~bc_set->type~region_obj region MPI_Datatype MPI_Datatype type~lagrangian_set->MPI_Datatype MPI_TYPE type~lagrangian_set->type~block_obj block type~lagrangian_obj lagrangian_obj type~lagrangian_set->type~lagrangian_obj p, sample type~lagrangian_set->type~parallel_obj parallel type~monitor_set->type~hashtbl_obj tbl type~monitor_obj monitor_obj type~monitor_set->type~monitor_obj m type~monitor_set->type~parallel_obj parallel type~op_obj->type~block_obj block type~op_obj->type~parallel_obj parallel type~entry_obj entry_obj type~parser_obj->type~entry_obj entries type~timer_obj->type~parser_obj parser type~timer_obj->type~hashtbl_obj tbl type~timer_obj->type~parallel_obj parallel type~block_obj->MPI_Datatype gc_slab_r, gc_slab_i type~block_obj->type~hdf5_obj hdf5 type~block_obj->type~parallel_obj parallel type~axis_obj axis_obj type~block_obj->type~axis_obj axis, axis_partition type~sllist_obj sllist_obj type~hashtbl_obj->type~sllist_obj vec type~hdf5_obj->type~hashtbl_obj tbl type~hdf5_obj->type~parallel_obj parallel type~column_obj column_obj type~monitor_obj->type~column_obj col type~parallel_obj->MPI_Datatype REAL_SP, REAL_DP, REAL_WP, COMPLEX_SP, COMPLEX_DP, COMPLEX_WP, INTEGER, INT8, LOGICAL type~communicators communicators type~parallel_obj->type~communicators comm type~patch patch type~parallel_obj->type~patch rank type~region_obj->type~block_obj region type~region_obj->type~hashtbl_obj tbl type~bc_obj bc_obj type~region_obj->type~bc_obj BC MPI_Comm MPI_Comm type~communicators->MPI_Comm w, g type~sllist_obj->type~sllist_obj child

Inherited by

type~~marker_set~~InheritedByGraph type~marker_set marker_set type~cdifs_obj cdifs_obj type~cdifs_obj->type~marker_set IB type~collision_obj collision_obj type~cdifs_obj->type~collision_obj collisions type~respart_set ResPart_set type~cdifs_obj->type~respart_set RP type~collision_obj->type~marker_set IB type~collision_obj->type~respart_set RP type~grans_obj grans_obj type~grans_obj->type~marker_set IB type~grans_obj->type~collision_obj collisions type~grans_obj->type~respart_set RP type~respart_set->type~marker_set ib type~solid_obj solid_obj type~solid_obj->type~marker_set type~solid_set solid_set type~solid_set->type~solid_obj p

Components

Type Visibility Attributes Name Initial
type(bc_set), public, pointer :: bcs => null()

boundary conditions object
type(block_obj), public, pointer :: block => null()

Associated block structure
integer, public :: count = 0

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

Local count for this rank
integer, public, allocatable :: count_proc(:)

Nbr of lagrangian objects per proc
procedure(kernel_1D), public, pointer, nopass :: g1ex => int_g1_triangle

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

1D kernel used in interpolations
logical, public :: is_initialized = .false.

Flag to determine whether this has been initialized
real(kind=wp), public :: l_filter

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

Monitors to print to stdout and files
character(len=:), public, allocatable :: name

Name of the Lagrangian set
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
character(len=str64), public :: write_file

File to write
integer, private :: R_chunk_size

Read chunk size

Type-Bound Procedures

procedure, public :: AddCylinder => marker_set_AddCylinder

  • private pure subroutine marker_set_AddCylinder(this, base, L, radius, vel, dl, tag)

    Adds an IB cylinder (with open faces).

    Arguments

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

    A collection of tessellation elements
    real(kind=wp), intent(in) :: base(3)

    Base point for extrusion
    real(kind=wp), intent(in) :: L(3)

    Extrusion length
    real(kind=wp), intent(in) :: radius

    Cylinder radius
    real(kind=wp), intent(in) :: vel(3)

    Cylinder translational velocity
    real(kind=wp), intent(in) :: dl

    Element size
    integer(kind=8), intent(in), optional :: tag

    Tag

procedure, public :: AddPlane => marker_set_AddPlane

  • private impure subroutine marker_set_AddPlane(this, center, normal, width, vel, dl, tag)

    Adds an IB plane.

    Arguments

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

    A collection of tessellation elements
    real(kind=wp), intent(in) :: center(3)

    Plane center
    character(len=*), intent(in) :: normal

    Plane normal
    real(kind=wp), intent(in) :: width(3)

    Plane extents
    real(kind=wp), intent(in) :: vel(3)

    Plane velocity
    real(kind=wp), intent(in) :: dl

    Element size
    integer(kind=8), intent(in), optional :: tag

    Tag

procedure, public :: AddSphere => marker_set_AddSphere

  • private pure subroutine marker_set_AddSphere(this, center, radius, vel, dl, tag)

    Adds an IB sphere.

    Arguments

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

    A collection of tessellation elements
    real(kind=wp), intent(in) :: center(3)

    Sphere center
    real(kind=wp), intent(in) :: radius

    Sphere radius
    real(kind=wp), intent(in) :: vel(3)

    Sphere velocity
    real(kind=wp), intent(in) :: dl

    Element size
    integer(kind=8), intent(in), optional :: tag

    Tag

procedure, public :: ApplyPeriodicity => lagrangian_set_ApplyPeriodicity

procedure, public :: CoM => marker_set_CoM

  • private impure function marker_set_CoM(this) result(CoM)

    Finds the center of area.

    Arguments

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

    A collection of tessellation elements

    Return Value real(kind=wp), (3)

    Position of center of area

procedure, public :: Communicate => lagrangian_set_Communicate

  • private impure subroutine lagrangian_set_Communicate(this, GetOwnerRankOpt)

    Communicates lagrangian objects across MPI_rank. This subroutine relies on a rank locator procedure (GetOwnerRankOpt) to determine the rank that should own each Lagrangian object. The default rank locator is the one provided by the block object associated with this Lagrangian_set. From there, each rank will send objects that they no longer own and receive objects from other ranks that belongs to it. Note that this subroutine allocates an array (buf_send) of size (MAX NUMBER of OBJECTS to SEND) x (NUMBER OF MPI RANKS) For massively parallel simulations, this may cause out of memory issues. In those cases, care must be exercised to reduce the number of objects to be sent at any given time (e.g.: by doing communications in small batches).

    Arguments

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

    A set of Lagrangian objects
    procedure(locator), optional :: GetOwnerRankOpt

    MPI Rank locator for communications

procedure, public :: ComputeSolidVolFrac => marker_set_ComputeSolidVolFrac

  • private impure subroutine marker_set_ComputeSolidVolFrac(this, VF, solver, MaxTol, MaxIt, RelaxType, Rel, It, intRHS)

    Computes the solid volume fraction on the mesh.

    Arguments

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

    A collection of tessellation elements
    type(eulerian_obj_r), intent(inout) :: VF

    Volume fraction
    character(len=*), intent(in) :: solver

    Name of solver to be used
    real(kind=wp), intent(in) :: MaxTol

    Maximum relative tolerance
    integer, intent(in) :: MaxIt

    Maximum number of subiterations
    integer, intent(in), optional :: RelaxType

    Relaxation type
    real(kind=wp), intent(out), optional :: Rel

    Relative error at end of solve
    integer, intent(out), optional :: It

    Number of iterations performed
    real(kind=wp), intent(out), optional :: intRHS

    Magnitude of RHS

procedure, public :: CreateMPIType => lagrangian_set_CreateMPIType

  • private impure subroutine lagrangian_set_CreateMPIType(this)

    Creates an MPI data type for parallel communication of the Lagrangian objects.

    Arguments

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

    A set of Lagrangian objects

procedure, public :: Filter => marker_set_Filter

  • private impure subroutine marker_set_Filter(this, var, field)

    Computes a filtered quantity on the Eulerian grid.

    Arguments

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

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

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

    Filtered quantity

generic, public :: Finalize => lagrangian_set_Final

  • private impure subroutine ResPart_set_Final(this)

    Finalizes the ResPart_set type. This subourtine replaces the inheritted lagrangian_final.

    Arguments

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

    Set of resolved partilces

procedure, public :: FreeMPIType => lagrangian_set_FreeMPIType

procedure, public :: GetIBForcing => marker_set_GetIBForcing

  • private impure subroutine marker_set_GetIBForcing(this, Um, Vm, Wm, rhof, SDF, ibF, dt)

    Computes the IB forcing Interpolation are carried out by trilinear interpolations.

    Arguments

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

    A collection of tessellation elements
    type(eulerian_obj_r), intent(in) :: Um

    Velocity in 1-dir
    type(eulerian_obj_r), intent(in) :: Vm

    Velocity in 2-dir
    type(eulerian_obj_r), intent(in) :: Wm

    Velocity in 3-dir
    real(kind=wp), intent(in) :: rhof

    Fluid density
    type(eulerian_obj_r), intent(in) :: SDF

    Surface density function
    type(eulerian_obj_r), intent(inout) :: ibF(3)

    IB forcing
    real(kind=wp), intent(in) :: dt

    Timestep

procedure, public :: GetOverwrite => lagrangian_set_GetOverwrite

  • private pure function lagrangian_set_GetOverwrite(this) result(val)

    Returns whether overwriting is true or false.

    Arguments

    Type IntentOptional Attributes Name
    class(lagrangian_set), intent(in) :: this

    A set of Lagrangian objects

    Return Value logical

    Overwrite value

procedure, public :: GetReadFileName => lagrangian_set_GetReadFileName

  • private pure function lagrangian_set_GetReadFileName(this) result(name)

    Returns the base name of file to read.

    Arguments

    Type IntentOptional Attributes Name
    class(lagrangian_set), intent(in) :: this

    A set of Lagrangian objects

    Return Value character(len=str64)

    Name of file

procedure, public :: GetWriteFileName => lagrangian_set_GetWriteFileName

  • private pure function lagrangian_set_GetWriteFileName(this) result(name)

    Returns the base name of file to write.

    Arguments

    Type IntentOptional Attributes Name
    class(lagrangian_set), intent(in) :: this

    A set of Lagrangian objects

    Return Value character(len=str64)

    Name of file

procedure, public :: Info => lagrangian_set_Info

  • private impure subroutine lagrangian_set_Info(this)

    Prints diagnostics information about the derived type to the standard output.

    Arguments

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

    A set of Lagrangian objects

generic, public :: Initialize => lagrangian_set_Init

  • private impure subroutine ResPart_set_Init(this, name, block, parallel)

    Initializes the ResPart_set type. This subourtine replaces the inheritted lagrangian_init.

    Arguments

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

    Set of resolved partilces
    character(len=*), intent(in) :: name

    Name of instance
    type(block_obj), intent(in), target :: block

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

    Parallel structure to link with

procedure, public :: LoadSTL => marker_set_LoadSTL

  • private impure subroutine marker_set_LoadSTL(this, STL_file)

    Loads markers from a binary STL. This is a serial routine.

    Arguments

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

    A collection of tessellation elements
    character(len=*), intent(in) :: STL_file

    Variable to compute

procedure, public :: Localize => lagrangian_set_Localize

  • private pure subroutine lagrangian_set_Localize(this)

    Localizes all Lagrangian object on the grid. For each Lagrangian object in the set, this subroutine finds the cell (staggering=0) where this object is located and updates its cell indices.

    Arguments

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

    A set of Lagrangian objects

procedure, public :: Prepare => marker_set_Prepare

  • private impure subroutine marker_set_Prepare(this, timer, parser, operators, bcs, monitors, update_time)

    Prepares marker_set for use with solvers.

    Arguments

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

    A collection of tessellation elements
    type(timer_obj), intent(in), target :: timer

    Timer utility
    type(parser_obj), intent(in), target :: parser

    Parser for input file
    type(op_obj), intent(in), target :: operators

    Operators object
    type(bc_set), intent(in), target :: bcs

    Boundary conditions object
    type(monitor_set), intent(in), target :: monitors

    Monitors to print to stdout and files
    logical, intent(in), optional :: update_time

    Update time and iteration based on read file

procedure, public :: Read => marker_set_ReadH5HUT

  • private impure subroutine marker_set_ReadH5HUT(this, iter, time, step)

    Reads marker data from file in parallel using H5HUT.

    Arguments

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

    A collection of tessellation elements
    integer, intent(out) :: iter

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

    Time at write
    integer, intent(in), optional :: step

    User supplied step to open

procedure, public :: ReadH5HUT => marker_set_ReadH5HUT

  • private impure subroutine marker_set_ReadH5HUT(this, iter, time, step)

    Reads marker data from file in parallel using H5HUT.

    Arguments

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

    A collection of tessellation elements
    integer, intent(out) :: iter

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

    Time at write
    integer, intent(in), optional :: step

    User supplied step to open

procedure, public :: ReadHDF5 => marker_set_ReadHDF5

  • private impure subroutine marker_set_ReadHDF5(this, iter, time)

    Reads marker data from file in parallel using HDF5.

    Arguments

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

    A collection of tessellation elements
    integer, intent(out) :: iter

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

    Time at write

procedure, public :: Recycle => lagrangian_set_Recycle

  • private pure subroutine lagrangian_set_Recycle(this)

    Sorting routine: stacks active lagrangian objects (i.e., who's id is >=1) at the beginning of the array then resizes. Objects with id <= 0 (such as ghost objects) are removed by this subroutine.

    Arguments

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

    A set of Lagrangian objects

procedure, public :: Resize => lagrangian_set_Resize

  • private pure subroutine lagrangian_set_Resize(this, n)

    Changes the size of an array of Lagrangian objects. To avoid excessive reallocating, the object array will be reallocated only if the new size is (1+RESIZE_INCREMENT) larger or (1-RESIZE_INCREMENT) smaller than previous size. When the size change does not justify reallocating, the excess objects at the end tail of the object array will be marked as inactive with a large negative ID.

    Arguments

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

    A set of Lagrangian objects
    integer, intent(in) :: n

    New target size

procedure, public :: SetFilterKernel => lagrangian_set_SetFilterKernel

  • private pure subroutine lagrangian_set_SetFilterKernel(this, kernel_interp, kernel_extrap)

    Sets the interpolation and extrapolation filter kernels. Default is the Triangle kernel.

    Arguments

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

    A set of Lagrangian objects
    integer, intent(in) :: kernel_interp

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

    Filter kernel for extrapolations

procedure, public :: SetFilterSize => lagrangian_set_SetFilterSize

  • private impure subroutine lagrangian_set_SetFilterSize(this, l_filter)

    Adjusts the filter half size. Note that the block needs to contain enough ghost cells to be able to represent a filter kernel centered on the edge of the domain. Otherwise, an error will be returnned. The larger the filter size, the more ghost cells are required.

    Arguments

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

    Set of Lagrangian objects
    real(kind=wp), intent(in) :: l_filter

    Filter size

procedure, public :: SetMPIDataTypeParams => marker_set_SetMPIDataTypeParams

  • private impure subroutine marker_set_SetMPIDataTypeParams(this, types, lengths, displacement)

    Sets up parameters for creating the MPI derived type. Create the MPI structure

    Arguments

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

    A collection of tessellation elements
    type(MPI_Datatype), intent(out), allocatable :: types(:)

    Array of types
    integer, intent(out), allocatable :: lengths(:)

    Array of lengths
    integer(kind=MPI_ADDRESS_KIND), intent(out), allocatable :: displacement(:)

    Array of displacements

procedure, public :: SetObjectType => marker_set_SetObjectType

  • private pure subroutine marker_set_SetObjectType(this)

    Sets the sample type used in allocation of polymorphic variables.

    Arguments

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

    A collection of tessellation elements

procedure, public :: SetOverwrite => lagrangian_set_SetOverwrite

  • private pure subroutine lagrangian_set_SetOverwrite(this, overwrite)

    Sets file overwritting.

    Arguments

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

    A set of Lagrangian objects
    logical, intent(in) :: overwrite

    Overwrite value

procedure, public :: SetReadChunkSize => marker_set_SetReadChunkSize

  • private pure subroutine marker_set_SetReadChunkSize(this, chunk_size)

    Sets the chunk size.

    Arguments

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

    A collection of tessellation elements
    integer, intent(in) :: chunk_size

    Chunk size

procedure, public :: SetReadFileName => lagrangian_set_SetReadFileName

  • private pure subroutine lagrangian_set_SetReadFileName(this, name)

    Sets the base name of file to read.

    Arguments

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

    A set of Lagrangian objects
    character(len=*), intent(in) :: name

    Name of file

procedure, public :: SetWriteFileName => lagrangian_set_SetWriteFileName

  • private pure subroutine lagrangian_set_SetWriteFileName(this, name)

    Sets the base name of file to write.

    Arguments

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

    A set of Lagrangian objects
    character(len=*), intent(in) :: name

    Name of file

procedure, public :: UpdateCount => lagrangian_set_UpdateCount

  • private impure subroutine lagrangian_set_UpdateCount(this)

    Updates the total count of Lagrangian objects.

    Arguments

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

    A set of Lagrangian objects

procedure, public :: UpdateGhostObjects => lagrangian_set_UpdateGhostObjects

  • private impure subroutine lagrangian_set_UpdateGhostObjects(this, dist)

    Updates ghost objects. Copies objects that lie "dist"-away from the block's boundaries to neighboring MPI-ranks and designate copies as Ghost Objects (id<0). This subroutine will also update the local count (i.e., this%count_) to (NBR of ACTIVE OBJECTS) + (NBR of GHOST OBJECTS). However, the global count (this%count) will remain unchanged (i.e., equal to the total count of active ojbects only)0

    Arguments

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

    A set of Lagrangian objects
    real(kind=wp), intent(in) :: dist

    Distance from boundaries

procedure, public :: UpdateNormals => marker_set_UpdateNormals

  • private impure subroutine marker_set_UpdateNormals(this, ibN)

    Updates the Normals field.

    Arguments

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

    A collection of tessellation elements
    type(eulerian_obj_r), intent(inout) :: ibN(3)

    Normals field

procedure, public :: UpdateSDF => marker_set_UpdateSDF

  • private impure subroutine marker_set_UpdateSDF(this, SDF)

    Updates the Surface Density Function.

    Arguments

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

    A collection of tessellation elements
    type(eulerian_obj_r), intent(inout) :: SDF

    Surface Density Function

procedure, public :: Write => marker_set_WriteH5HUT

  • private impure subroutine marker_set_WriteH5HUT(this, iter, time)

    Writes marker data to file in parallel using H5HUT.

    Arguments

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

    A collection of tessellation elements
    integer, intent(in) :: iter

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

    Time at write

procedure, public :: WriteH5HUT => marker_set_WriteH5HUT

  • private impure subroutine marker_set_WriteH5HUT(this, iter, time)

    Writes marker data to file in parallel using H5HUT.

    Arguments

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

    A collection of tessellation elements
    integer, intent(in) :: iter

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

    Time at write

procedure, public :: WriteHDF5 => marker_set_WriteHDF5

  • private impure subroutine marker_set_WriteHDF5(this, iter, time)

    Write marker data to file in parallel using HDF5.

    Arguments

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

    A collection of tessellation elements
    integer, intent(in) :: iter

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

    Time at write

procedure, public :: lagrangian_set_Final => marker_set_Final

  • private impure subroutine marker_set_Final(this)

    Finalizes the marker_set type. This subourtine replaces the inheritted lagrangian_final.

    Arguments

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

    A collection of tessellation elements

procedure, public :: lagrangian_set_Init => marker_set_Init

  • private impure subroutine marker_set_Init(this, name, block, parallel)

    Initializes the marker_set type. This subourtine replaces the inheritted lagrangian_init.

    Arguments

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

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

    Name of this IB surface
    type(block_obj), intent(in), target :: block

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

    Parallel structure to link with

Source Code

  type, extends(lagrangian_set) :: marker_set
    !> A collection of elements that form the tesseleation
    ! of an IB surface.
    type(timer_obj),   pointer :: timer        => null()                       !! Timer utility
    type(parser_obj),  pointer :: parser       => null()                       !! Parser for input file
    type(monitor_set), pointer :: monitors     => null()                       !! Monitors to print to stdout and files
    type(op_obj),      pointer :: op           => null()                       !! operators object
    type(bc_set),      pointer :: bcs          => null()                       !! boundary conditions object
    integer,           private :: R_chunk_size                                 !! Read chunk size
    contains
      procedure :: lagrangian_set_Init         => marker_set_Init
      procedure :: lagrangian_set_Final        => marker_set_Final
      ! Solver subroutines
      procedure :: Prepare                     => marker_set_Prepare
      procedure :: UpdateSDF                   => marker_set_UpdateSDF
      procedure :: UpdateNormals               => marker_set_UpdateNormals
      procedure :: GetIBForcing                => marker_set_GetIBForcing
      procedure :: Filter                      => marker_set_Filter
      procedure :: CoM                         => marker_set_CoM
      procedure :: ComputeSolidVolFrac         => marker_set_ComputeSolidVolFrac
      procedure :: AddSphere                   => marker_set_AddSphere
      procedure :: AddPlane                    => marker_set_AddPlane
      procedure :: AddCylinder                 => marker_set_AddCylinder
      ! I/O subroutines
      procedure :: SetReadChunkSize            => marker_set_SetReadChunkSize
      procedure :: Read                        => marker_set_ReadH5HUT
      procedure :: ReadH5HUT                   => marker_set_ReadH5HUT
      procedure :: ReadHDF5                    => marker_set_ReadHDF5
      procedure :: Write                       => marker_set_WriteH5HUT
      procedure :: WriteH5HUT                  => marker_set_WriteH5HUT
      procedure :: WriteHDF5                   => marker_set_WriteHDF5
      procedure :: LoadSTL                     => marker_set_LoadSTL
      ! MPI subroutines
      procedure :: SetObjectType               => marker_set_SetObjectType
      procedure :: SetMPIDataTypeParams        => marker_set_SetMPIDataTypeParams
  end type marker_set