scale_mesh_bndinfo Module Reference

module FElib / Mesh / Boundary information More...

Data Types
type	meshbndinfo
	Derived type to manage boundary information of computational domain. More...

Functions/Subroutines
integer function, public	bndtype_nametoid (bnd_type_name)

Variables
character(len= *), parameter, public	bnd_type_nospec_name = 'NONSPEC'
integer, parameter, public	bnd_type_nospec_id = 0
character(len= *), parameter, public	bnd_type_periodic_name = 'PERIODIC'
integer, parameter, public	bnd_type_periodic_id = 1
character(len= *), parameter, public	bnd_type_slip_name = 'SLIP'
integer, parameter, public	bnd_type_slip_id = 2
character(len= *), parameter, public	bnd_type_noslip_name = 'NOSLIP'
integer, parameter, public	bnd_type_noslip_id = 3
character(len= *), parameter, public	bnd_type_adiabat_name = 'ADIABATIC'
integer, parameter, public	bnd_type_adiabat_id = 4
character(len= *), parameter, public	bnd_type_fixval_name = 'FIXVAL'
integer, parameter, public	bnd_type_fixval_id = 5

Detailed Description

module FElib / Mesh / Boundary information

Description

A module to manage boundary information of computational domain

Author

Yuta Kawai, Team SCALE

Function/Subroutine Documentation

bndtype_nametoid()

integer function, public scale_mesh_bndinfo::bndtype_nametoid

(

character(*), intent(in)

bnd_type_name

)

Definition at line 155 of file scale_mesh_bndinfo.F90.

    implicit none
    character(*), intent(in) :: bnd_type_name
 
    integer :: bnd_type_id
    !------------------------------------------------------
 
    select case(trim(bnd_type_name))
    case (bnd_type_nospec_name)
      bnd_type_id = bnd_type_nospec_id
    case (bnd_type_periodic_name)
      bnd_type_id = bnd_type_periodic_id
    case (bnd_type_slip_name)
      bnd_type_id = bnd_type_slip_id
    case (bnd_type_noslip_name)
      bnd_type_id = bnd_type_noslip_id
    case (bnd_type_adiabat_name)
      bnd_type_id = bnd_type_adiabat_id
    case (bnd_type_fixval_name)
      bnd_type_id = bnd_type_fixval_id      
    case default
      log_error('BndType_NameToID ',*) trim(bnd_type_name) // ' is not supported. Check!'
      call prc_abort
    end select
 
    return

References bnd_type_adiabat_id, bnd_type_adiabat_name, bnd_type_fixval_id, bnd_type_fixval_name, bnd_type_noslip_id, bnd_type_noslip_name, bnd_type_nospec_id, bnd_type_nospec_name, bnd_type_periodic_id, bnd_type_periodic_name, bnd_type_slip_id, and bnd_type_slip_name.

Referenced by scale_mesh_bndinfo::meshbndinfo::set().

Variable Documentation

bnd_type_nospec_name

character(len=*), parameter, public scale_mesh_bndinfo::bnd_type_nospec_name = 'NONSPEC'

Definition at line 47 of file scale_mesh_bndinfo.F90.

  character(len=*), public , parameter :: BND_TYPE_NOSPEC_NAME  = 'NONSPEC'

Referenced by bndtype_nametoid().

bnd_type_nospec_id

integer, parameter, public scale_mesh_bndinfo::bnd_type_nospec_id = 0

Definition at line 48 of file scale_mesh_bndinfo.F90.

  integer, public, parameter :: BND_TYPE_NOSPEC_ID              = 0

Referenced by bndtype_nametoid().

bnd_type_periodic_name

character(len=*), parameter, public scale_mesh_bndinfo::bnd_type_periodic_name = 'PERIODIC'

Definition at line 49 of file scale_mesh_bndinfo.F90.

  character(len=*), public, parameter :: BND_TYPE_PERIODIC_NAME = 'PERIODIC'

Referenced by bndtype_nametoid().

bnd_type_periodic_id

integer, parameter, public scale_mesh_bndinfo::bnd_type_periodic_id = 1

Definition at line 50 of file scale_mesh_bndinfo.F90.

  integer, public, parameter  :: BND_TYPE_PERIODIC_ID           = 1

Referenced by bndtype_nametoid().

bnd_type_slip_name

character(len=*), parameter, public scale_mesh_bndinfo::bnd_type_slip_name = 'SLIP'

Definition at line 51 of file scale_mesh_bndinfo.F90.

  character(len=*), public, parameter  :: BND_TYPE_SLIP_NAME    = 'SLIP'

Referenced by bndtype_nametoid().

bnd_type_slip_id

integer, parameter, public scale_mesh_bndinfo::bnd_type_slip_id = 2

Definition at line 52 of file scale_mesh_bndinfo.F90.

  integer, public, parameter :: BND_TYPE_SLIP_ID                = 2

Referenced by bndtype_nametoid().

bnd_type_noslip_name

character(len=*), parameter, public scale_mesh_bndinfo::bnd_type_noslip_name = 'NOSLIP'

Definition at line 53 of file scale_mesh_bndinfo.F90.

  character(len=*), public, parameter  :: BND_TYPE_NOSLIP_NAME  = 'NOSLIP'

Referenced by bndtype_nametoid().

bnd_type_noslip_id

integer, parameter, public scale_mesh_bndinfo::bnd_type_noslip_id = 3

Definition at line 54 of file scale_mesh_bndinfo.F90.

  integer, public, parameter:: BND_TYPE_NOSLIP_ID               = 3

Referenced by bndtype_nametoid().

bnd_type_adiabat_name

character(len=*), parameter, public scale_mesh_bndinfo::bnd_type_adiabat_name = 'ADIABATIC'

Definition at line 55 of file scale_mesh_bndinfo.F90.

  character(len=*), public , parameter :: BND_TYPE_ADIABAT_NAME = 'ADIABATIC'

Referenced by bndtype_nametoid().

bnd_type_adiabat_id

integer, parameter, public scale_mesh_bndinfo::bnd_type_adiabat_id = 4

Definition at line 56 of file scale_mesh_bndinfo.F90.

  integer, public, parameter :: BND_TYPE_ADIABAT_ID             = 4

Referenced by bndtype_nametoid().

bnd_type_fixval_name

character(len=*), parameter, public scale_mesh_bndinfo::bnd_type_fixval_name = 'FIXVAL'

Definition at line 57 of file scale_mesh_bndinfo.F90.

  character(len=*), public , parameter :: BND_TYPE_FIXVAL_NAME  = 'FIXVAL'

Referenced by bndtype_nametoid().

bnd_type_fixval_id

integer, parameter, public scale_mesh_bndinfo::bnd_type_fixval_id = 5

Definition at line 58 of file scale_mesh_bndinfo.F90.

  integer, public, parameter :: BND_TYPE_FIXVAL_ID              = 5

Referenced by bndtype_nametoid().