scale_meshfield_filter_operation_1d Module Reference

module FElib / Data / Filter operation 1D More...

Data Types
type	meshfieldfilteroperation1d
	Derived type to represent filter operation for 1D mesh field. More...

Functions/Subroutines
subroutine	meshfieldfilteroperation1d_init (this, filteroptrtype, filtershape, filterwidthfac, nnode_1d_reconst, sfield_num, mesh1d, nnode_1d_gl, if_r)
	Initialize an object to represent filter operation for 1D mesh field.

Detailed Description

module FElib / Data / Filter operation 1D

Description

This module provides classes to apply filter operations to MeshField data

Author

Yuta Kawai, Team SCALE

Function/Subroutine Documentation

meshfieldfilteroperation1d_init()

subroutine scale_meshfield_filter_operation_1d::meshfieldfilteroperation1d_init	(	class(meshfieldfilteroperation1d), intent(inout)	this,
		character(*), intent(in)	filteroptrtype,
		character(*), intent(in)	filtershape,
		real(rp), intent(in)	filterwidthfac,
		integer, intent(in)	nnode_1d_reconst,
		integer, intent(in)	sfield_num,
		class(meshbase1d), intent(in)	mesh1d,
		integer, intent(in), optional	nnode_1d_gl,
		integer, intent(in), optional	if_r )

Initialize an object to represent filter operation for 1D mesh field.

Definition at line 87 of file scale_meshfield_filter_operation_1d.F90.

    implicit none
    class(MeshFieldFilterOperation1D), intent(inout) :: this
    class(MeshBase1D), intent(in) :: mesh1D
    character(*), intent(in) :: FilterOptrType
    character(*), intent(in) :: FilterShape
    real(RP), intent(in) :: FilterWidthFac
    integer, intent(in) :: Nnode_1D_reconst
    integer, intent(in) :: sfield_num
    integer, intent(in), optional :: Nnode_1D_GL
    integer, intent(in), optional :: IF_r
    !------------------------------------------
 
    call meshfieldfilteroperationbase_init( this, mesh1d%refElem1D%Np, &
      filteroptrtype, filtershape, filterwidthfac, &
      nnode_1d_reconst, nnode_1d_gl, if_r )
    
    if (present(nnode_1d_gl)) then
      this%Nnode_GL = nnode_1d_gl
    else
      this%Nnode_GL = mesh1d%refElem1D%Np
    end if
 
    select type(mesh1d)
    class is (meshbase1d)
      call this%vars_comm%Init( sfield_num, 0, mesh1d, &
        halosize_1d=this%hHaloSize )
    class default
      log_info('MeshFieldFilterOperation1D_Init',*) "Unsupported mesh type is specified. Check!"
      call prc_abort
    end select
    return

References scale_meshfield_filter_operation_base::filter_optrtype_convfilter, scale_meshfield_filter_operation_base::filter_optrtype_interface_correction, scale_meshfield_filter_operation_base::filter_optrtype_reconstruct, scale_meshfield_filter_operation_base::filter_optrtype_reconstruct2, scale_meshfield_filter_operation_base::filter_optrtype_reconstruct2_gl, scale_meshfield_filter_operation_base::meshfieldfilteroperationbase_final(), and scale_meshfield_filter_operation_base::meshfieldfilteroperationbase_init().