set_offsets Subroutine

private subroutine set_offsets(me, nFluids, nGhostFC, nGhostFF, nHalos)

Set the offsets for accessing totallist, invsorted etc. arrays for fluids, ghosts and halos

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: me(2,eT_minRelevant:eT_maxRelevant)

element type offsets
integer, intent(in) :: nFluids
integer, intent(in) :: nGhostFC
integer, intent(in) :: nGhostFF
integer, intent(in) :: nHalos

Called by

proc~~set_offsets~~CalledByGraph proc~set_offsets set_offsets proc~identify_lists identify_lists proc~identify_lists->proc~set_offsets proc~tem_find_allelements tem_find_allElements proc~tem_find_allelements->proc~identify_lists proc~communicate_elements communicate_elements proc~tem_find_allelements->proc~communicate_elements proc~communicate_elements->proc~identify_lists proc~tem_create_leveldesc tem_create_levelDesc proc~tem_create_leveldesc->proc~tem_find_allelements proc~tem_dimbydim_construction tem_dimByDim_construction proc~tem_dimbydim_construction->proc~tem_create_leveldesc

Contents

Source Code

set_offsets

Source Code

  subroutine set_offsets( me, nFluids, nGhostFC, nGhostFF, nHalos )
    ! ---------------------------------------------------------------------------
    !> element type offsets
    integer, intent(out) :: me( 2, eT_minRelevant:eT_maxRelevant )
    !>
    integer, intent(in) :: nFluids, nGhostFC, nGhostFF, nHalos
    ! ---------------------------------------------------------------------------

    ! store the offset for the beginning ...
    me( 1, eT_fluid )             = 0
    me( 1, eT_ghostFromCoarser )  = nFluids
    me( 1, eT_ghostFromFiner )    = nFluids + nGhostFC
    me( 1, eT_halo )              = nFluids + nGhostFC + nGhostFF

    ! ... and the end of the list
    me( 2, eT_fluid )            = me( 1, eT_ghostFromCoarser )
    me( 2, eT_ghostFromCoarser ) = me( 1, eT_ghostFromFiner )
    me( 2, eT_ghostFromFiner )   = me( 1, eT_halo )
    me( 2, eT_halo )             = nFluids + nGhostFC + nGhostFF + nHalos

    ! me( :, eT_distributedGhostFromFiner ) = me( :, eT_GhostFromFiner )

  end subroutine set_offsets