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

Calls

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

Called by

proc~~tem_init_vrtx_prop~~CalledByGraph proc~tem_init_vrtx_prop tem_init_vrtx_prop proc~tem_calc_vrtx_coord tem_calc_vrtx_coord proc~tem_calc_vrtx_coord->proc~tem_init_vrtx_prop proc~tem_calc_vrtx_coord_noqval tem_calc_vrtx_coord_noqval proc~tem_calc_vrtx_coord->proc~tem_calc_vrtx_coord_noqval proc~tem_calc_vrtx_coord_noqval->proc~tem_init_vrtx_prop proc~hvs_output_init hvs_output_init proc~hvs_output_init->proc~tem_calc_vrtx_coord proc~tem_init_tracker tem_init_tracker proc~tem_init_tracker->proc~hvs_output_init

Contents

Source Code

tem_init_vrtx_prop

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