module FElib / Mesh / Local, Base More...

Data Types
type	localmeshbase
	Derived type to manage a local computational domain (base type) More...

Functions/Subroutines
subroutine, public	localmeshbase_init (this, lcdomid, refelem, ndim, myrank)
	Setup an object to manage a local computational mesh.
subroutine, public	localmeshbase_final (this, is_generated)
	Finalize an object to manage a local computational mesh.

Variables
integer, parameter, public	bctype_interior = 0
integer, parameter, public	bctype_undefbc = 1
integer, parameter, public	bctype_periodic = 2
integer, parameter, public	bctype_dirchlet = 3
integer, parameter, public	bctype_neuman = 4
integer, parameter, public	bctype_shoreline = 5

Detailed Description

module FElib / Mesh / Local, Base

Description: Base module to manage meshes for element-based methods

Author: Yuta Kawai, Team SCALE

Function/Subroutine Documentation

◆ localmeshbase_init()

subroutine, public scale_localmesh_base::localmeshbase_init	(	class(localmeshbase), intent(inout)	this,
		integer, intent(in)	lcdomid,
		class(elementbase), intent(in), target	refelem,
		integer, intent(in)	ndim,
		integer, intent(in), optional	myrank )

Setup an object to manage a local computational mesh.

Definition at line 102 of file scale_localmesh_base.F90.

    
    use scale_prc, only: prc_myrank
    implicit none
 
    class(LocalMeshBase), intent(inout) :: this
    integer, intent(in) :: lcdomID
    class(ElementBase), intent(in), target :: refElem
    integer, intent(in) :: ndim
    integer, intent(in), optional :: myrank
    !-----------------------------------------------------------------------------
 
    this%lcdomID = lcdomid
    this%refElem => refelem
 
    if (present(myrank)) then
      this%PRC_myrank = myrank
    else
      this%PRC_myrank = prc_myrank
    end if
 
    return

Referenced by scale_localmesh_1d::localmesh1d_init(), scale_localmesh_2d::localmesh2d_init(), and scale_localmesh_3d::localmesh3d_init().

◆ localmeshbase_final()

subroutine, public scale_localmesh_base::localmeshbase_final	(	class(localmeshbase), intent(inout)	this,
		logical, intent(in)	is_generated )

Finalize an object to manage a local computational mesh.

Definition at line 127 of file scale_localmesh_base.F90.

    implicit none
    
    class(LocalMeshBase), intent(inout) :: this
    logical, intent(in) :: is_generated
    !-----------------------------------------------------------------------------
 
    if ( is_generated ) then
      deallocate( this%pos_ev, this%pos_en, this%normal_fn )
      deallocate( this%sJ, this%J )
 
      deallocate( this%Escale, this%Fscale )
 
      deallocate( this%EToV, this%EToE, this%EToF )
 
      if ( allocated(this%VMapM) ) then
        deallocate( this%VMapM, this%VMapP, this%MapM, this%MapP )
      end if
      if ( allocated(this%VMapB) ) then
        deallocate( this%BCType )
        deallocate( this%VMapB, this%MapB )
      end if
      if ( allocated(this%G_ij) ) then
        deallocate( this%G_ij, this%GIJ )
        deallocate( this%Gsqrt )
      end if
    end if
    
    return

Referenced by scale_localmesh_1d::localmesh1d_final(), scale_localmesh_2d::localmesh2d_final(), and scale_localmesh_3d::localmesh3d_final().

Variable Documentation

◆ bctype_interior

integer, parameter, public scale_localmesh_base::bctype_interior = 0

Definition at line 83 of file scale_localmesh_base.F90.

83 integer, public, parameter :: BCTYPE_INTERIOR = 0

Referenced by scale_mesh_base1d::meshbase1d_setuplocaldom(), scale_mesh_cubedom3d::meshcubedom3d_init(), scale_mesh_cubedspheredom2d::meshcubedspheredom2d_setuplocaldom(), scale_mesh_cubedspheredom3d::meshcubedspheredom3d_init(), and scale_mesh_rectdom2d::meshrectdom2d_setuplocaldom().

◆ bctype_undefbc

integer, parameter, public scale_localmesh_base::bctype_undefbc = 1

Definition at line 84 of file scale_localmesh_base.F90.

84 integer, public, parameter :: BCTYPE_UNDEFBC = 1

◆ bctype_periodic

integer, parameter, public scale_localmesh_base::bctype_periodic = 2

Definition at line 85 of file scale_localmesh_base.F90.

85 integer, public, parameter :: BCTYPE_PERIODIC = 2

◆ bctype_dirchlet

integer, parameter, public scale_localmesh_base::bctype_dirchlet = 3

Definition at line 86 of file scale_localmesh_base.F90.

86 integer, public, parameter :: BCTYPE_DIRCHLET = 3

◆ bctype_neuman

integer, parameter, public scale_localmesh_base::bctype_neuman = 4

Definition at line 87 of file scale_localmesh_base.F90.

87 integer, public, parameter :: BCTYPE_NEUMAN = 4

◆ bctype_shoreline

integer, parameter, public scale_localmesh_base::bctype_shoreline = 5

Definition at line 88 of file scale_localmesh_base.F90.

88 integer, public, parameter :: BCTYPE_SHORELINE = 5

Data Types

Functions/Subroutines

Variables