scale_localmesh_2d Module Reference

module FElib / Mesh / Local 2D More...

Data Types
type	localmesh2d
	Derived type representing a local mesh for 2D domain. More...

Functions/Subroutines
subroutine, public	localmesh2d_init (this, lcdomid, refelem, myrank)
	Initialize an object to manage a local mesh for 2D domain.
subroutine, public	localmesh2d_final (this, is_generated)
	Finalize an object to manage a local mesh for 2D domain.

Detailed Description

module FElib / Mesh / Local 2D

Description

Module to manage 2D local mesh for element-based methods

Author

Yuta Kawai, Team SCALE

Function/Subroutine Documentation

localmesh2d_init()

subroutine, public scale_localmesh_2d::localmesh2d_init	(	class(localmesh2d), intent(inout)	this,
		integer, intent(in)	lcdomid,
		class(elementbase2d), intent(in), target	refelem,
		integer, intent(in), optional	myrank )

Initialize an object to manage a local mesh for 2D domain.

Definition at line 66 of file scale_localmesh_2d.F90.

    
    implicit none
 
    class(LocalMesh2D), intent(inout) :: this
    integer, intent(in) :: lcdomID
    class(ElementBase2D), intent(in), target :: refElem
    integer, intent(in), optional :: myrank
    !-------------------------------------------------
 
    this%refElem2D  => refelem
    call localmeshbase_init(this, lcdomid, refelem, 2, myrank)
    !$acc enter data copyin(this)
    return

References scale_localmesh_base::localmeshbase_init().

Referenced by scale_mesh_base2d::meshbase2d_init().

localmesh2d_final()

subroutine, public scale_localmesh_2d::localmesh2d_final	(	type(localmesh2d), intent(inout)	this,
		logical, intent(in)	is_generated )

Finalize an object to manage a local mesh for 2D domain.

Definition at line 85 of file scale_localmesh_2d.F90.

    implicit none
    type(LocalMesh2D), intent(inout) :: this
    logical, intent(in) :: is_generated
    !-------------------------------------------------
 
    if (is_generated) then
      !$acc exit data delete(this%G_ij, this%GIJ)
      deallocate( this%G_ij, this%GIJ )
      !$acc exit data delete(this%lon, this%lat)
      deallocate( this%lon, this%lat )
    end if
    call localmeshbase_final( this, is_generated )
    !$acc exit data delete(this)
    return

References scale_localmesh_base::localmeshbase_final().

Referenced by scale_mesh_base2d::meshbase2d_final().