scale_meshfield_base Module Reference

module FElib / Data / base More...

Data Types
type	meshfield1d
	Derived type representing a field with 1D mesh. More...
type	meshfield1dlist
type	meshfield2d
	Derived type representing a field with 2D mesh. More...
type	meshfield2dlist
type	meshfield3d
	Derived type representing a field with 3D mesh. More...
type	meshfield3dlist
type	meshfieldbase
	Derived type representing a field (base type) More...
interface	meshfieldbase_get_localmeshfield

Functions/Subroutines
subroutine	meshfield1d_init (this, varname, units, mesh, data_type)
	Setup an object to manage a field data with a 1D computational mesh.

Detailed Description

module FElib / Data / base

Description

A module for managing field data with FEM

Author

Yuta Kawai, Team SCALE

Function/Subroutine Documentation

meshfield1d_init()

subroutine scale_meshfield_base::meshfield1d_init	(	class(meshfield1d), intent(inout)	this,
		character(len=*), intent(in)	varname,
		character(len=*), intent(in)	units,
		class(meshbase1d), intent(in), target	mesh,
		integer, intent(in), optional	data_type )

Setup an object to manage a field data with a 1D computational mesh.

Parameters

[in]	varname	Variable name
[in]	units	Unit of variable
[in]	mesh	Pointer to an object for a 1D computational mesh
[in]	data_type	ID of data type (all nodes or face nodes)

Definition at line 128 of file scale_meshfield_base.F90.

    implicit none
    class(MeshField1D), intent(inout) :: this
    character(len=*), intent(in) :: varname       !< Variable name
    character(len=*), intent(in) :: units         !< Unit of variable
    class(MeshBase1D), target, intent(in) :: mesh !< Pointer to an object for a 1D computational mesh
    integer, intent(in), optional :: data_type    !< ID of data type (all nodes or face nodes)
 
    integer :: n
    !-----------------------------------------------------------------------------
    
    this%varname = varname
    this%unit    = units
    this%mesh => mesh
    this%hist_id    = -1
    this%monitor_id = -1
    
    allocate( this%local(mesh%LOCAL_MESH_NUM) )  
    do n=1, mesh%LOCAL_MESH_NUM
      call this%local(n)%Init( mesh%lcmesh_list(n), data_type )
    end do
 
    return