scale_localmesh_base Module Reference

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

Data Types
type	localmeshbase

Functions/Subroutines
subroutine, public	localmeshbase_init (this, lcdomid, refelem, ndim, myrank)
subroutine, public	localmeshbase_final (this, is_generated)

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 )

Definition at line 100 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 )

Definition at line 124 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 82 of file scale_localmesh_base.F90.

  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 83 of file scale_localmesh_base.F90.

  integer, public, parameter :: BCTYPE_UNDEFBC   = 1

bctype_periodic

integer, parameter, public scale_localmesh_base::bctype_periodic = 2

Definition at line 84 of file scale_localmesh_base.F90.

  integer, public, parameter :: BCTYPE_PERIODIC  = 2

bctype_dirchlet

integer, parameter, public scale_localmesh_base::bctype_dirchlet = 3

Definition at line 85 of file scale_localmesh_base.F90.

  integer, public, parameter :: BCTYPE_DIRCHLET  = 3

bctype_neuman

integer, parameter, public scale_localmesh_base::bctype_neuman = 4

Definition at line 86 of file scale_localmesh_base.F90.

  integer, public, parameter :: BCTYPE_NEUMAN    = 4

bctype_shoreline

integer, parameter, public scale_localmesh_base::bctype_shoreline = 5

Definition at line 87 of file scale_localmesh_base.F90.

  integer, public, parameter :: BCTYPE_SHORELINE = 5