tem_init_vrtx_prop Subroutine

private subroutine tem_init_vrtx_prop(vrtx)

Initialize the vertex property headers.

Arguments

Type IntentOptional Attributes Name
type(tem_vrtx_type) :: vrtx

vertex type

Source Code

  subroutine tem_init_vrtx_prop(vrtx)
    ! ---------------------------------------------------------------------------
    !> vertex type
    type(tem_vrtx_type)         :: vrtx
    ! ---------------------------------------------------------------------------
    integer :: init_nelems = 1024
    ! ---------------------------------------------------------------------------
    if ( .not.allocated(vrtx%map2global) ) then
      allocate( vrtx%map2global(init_nelems,8) )
      ! vrtx%sim_time = 0.d0
      vrtx%nvertices = 0
    end if

    ! initialise the growing array of actual vrtx real coordinates
    call init( me = vrtx%coord, width = 3 )

  end subroutine tem_init_vrtx_prop