init_element Subroutine

private subroutine init_element(me, length)

initialize an element and optionally set contents

Arguments

Type IntentOptional Attributes Name
type(tem_element_type), intent(out) :: me
integer, intent(in), optional :: length

Calls

proc~~init_element~~CallsGraph proc~init_element init_element interface~init~22 init proc~init_element->interface~init~22 proc~init_ga2d_real init_ga2d_real interface~init~22->proc~init_ga2d_real

Called by

proc~~init_element~~CalledByGraph proc~init_element init_element interface~init~44 init interface~init~44->proc~init_element

Contents

Source Code

init_element

Source Code

  subroutine init_element( me, length )
    ! ---------------------------------------------------------------------------
    type( tem_element_type ), intent(out) :: me
    integer, intent(in), optional :: length
    ! ---------------------------------------------------------------------------
    call init( me = me%tID, length = length )
    call init( me = me%property, length = length )
    call init( me = me%eType, length = length )
    call init( me = me%pntTID, length = length )
    call init( me = me%stencil, length = length )
    call init( me = me%neighID, length = length )
    call init( me = me%sourceProc, length = length )
    call init( me = me%haloNesting, length = length )
    call init( me = me%needsUpdate, length = length )

    me%nElems = 0

  end subroutine init_element