scale_localmesh_3d Module Reference

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

Data Types
type	localmesh3d
	Derived type to manage a local 3D computational domain. More...

Functions/Subroutines
subroutine, public	localmesh3d_init (this, lcdomid, refelem, myrank)
	Initialize an object to manage a 3D local computational domain.
subroutine, public	localmesh3d_final (this, is_generated)
	Finalize an object to manage a 3D local computational domain.

Detailed Description

module FElib / Mesh / Local 3D

Description

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

Author

Yuta Kawai, Team SCALE

Function/Subroutine Documentation

localmesh3d_init()

subroutine, public scale_localmesh_3d::localmesh3d_init	(	class(localmesh3d), intent(inout)	this,
		integer, intent(in)	lcdomid,
		class(elementbase3d), intent(in), target	refelem,
		integer, intent(in), optional	myrank )

Initialize an object to manage a 3D local computational domain.

Definition at line 86 of file scale_localmesh_3d.F90.

    implicit none
 
    class(LocalMesh3D), intent(inout) :: this
    integer, intent(in) :: lcdomID
    class(ElementBase3D), intent(in), target :: refElem
    integer, intent(in), optional :: myrank
    !-------------------------------------------------
 
    this%refElem3D    => refelem
    nullify( this%lcmesh2D )
 
    call localmeshbase_init( this, lcdomid, refelem, 3, myrank )
 
    return

References scale_localmesh_base::localmeshbase_init().

Referenced by scale_localmesh_3d::localmesh3d::getvmapz3d(), and scale_mesh_base3d::meshbase3d_init().

localmesh3d_final()

subroutine, public scale_localmesh_3d::localmesh3d_final	(	type(localmesh3d), intent(inout)	this,
		logical, intent(in)	is_generated )

Finalize an object to manage a 3D local computational domain.

Definition at line 106 of file scale_localmesh_3d.F90.

    implicit none
    type(LocalMesh3D), intent(inout) :: this
    logical, intent(in) :: is_generated
    !-------------------------------------------------
 
    call localmeshbase_final( this, is_generated )
    if (is_generated) then
      deallocate( this%zS, this%Sz )
      deallocate( this%GI3, this%GsqrtH )
      deallocate( this%zlev )
      deallocate( this%gam )
      deallocate( this%lon2D, this%lat2D )
      deallocate( this%EMap3Dto2D )
    end if
 
    return

References scale_localmesh_base::localmeshbase_final().

Referenced by scale_localmesh_3d::localmesh3d::getvmapz3d(), and scale_mesh_base3d::meshbase3d_final().