lagrangian_set_Localize Subroutine

private pure subroutine lagrangian_set_Localize(this)

Localizes all Lagrangian object on the grid. For each Lagrangian object in the set, this subroutine finds the cell (staggering=0) where this object is located and updates its cell indices.

Type Bound

lagrangian_set

Arguments

Type IntentOptional Attributes Name
class(lagrangian_set), intent(inout) :: this

A set of Lagrangian objects

Calls

proc~~lagrangian_set_localize~~CallsGraph proc~lagrangian_set_localize lagrangian_set%lagrangian_set_Localize proc~block_obj_getowningcell block_obj%block_obj_GetOwningCell proc~lagrangian_set_localize->proc~block_obj_getowningcell

Called by

proc~~lagrangian_set_localize~~CalledByGraph proc~lagrangian_set_localize lagrangian_set%lagrangian_set_Localize proc~cdifs_obj_advancesolutionrp cdifs_obj_AdvanceSolutionRP proc~cdifs_obj_advancesolutionrp->proc~lagrangian_set_localize proc~grans_obj_advancesolution grans_obj_AdvanceSolution proc~grans_obj_advancesolution->proc~lagrangian_set_localize proc~marker_set_readh5hut marker_set%marker_set_ReadH5HUT proc~marker_set_readh5hut->proc~lagrangian_set_localize proc~marker_set_readhdf5 marker_set%marker_set_ReadHDF5 proc~marker_set_readhdf5->proc~lagrangian_set_localize proc~respart_set_readh5hut ResPart_set%ResPart_set_ReadH5HUT proc~respart_set_readh5hut->proc~lagrangian_set_localize proc~respart_set_readhdf5 ResPart_set%ResPart_set_ReadHDF5 proc~respart_set_readhdf5->proc~lagrangian_set_localize proc~respart_set_readhdf5->proc~marker_set_readhdf5 proc~solid_set_localize solid_set%solid_set_Localize proc~solid_set_localize->proc~lagrangian_set_localize interface~grans_obj_advancesolution grans_obj%grans_obj_AdvanceSolution interface~grans_obj_advancesolution->proc~grans_obj_advancesolution proc~cdifs_obj_advancesolution cdifs_obj_AdvanceSolution proc~cdifs_obj_advancesolution->proc~cdifs_obj_advancesolutionrp proc~solid_set_readhdf5 solid_set%solid_set_ReadHDF5 proc~solid_set_readhdf5->proc~marker_set_readhdf5 interface~cdifs_obj_advancesolution cdifs_obj%cdifs_obj_AdvanceSolution interface~cdifs_obj_advancesolution->proc~cdifs_obj_advancesolution

Source Code

    pure subroutine lagrangian_set_Localize(this)
      !> Localizes all Lagrangian object on the grid.
      ! For each Lagrangian object in the set, this subroutine finds
      ! the cell (staggering=0) where this object is located and
      ! updates its cell indices.
      implicit none
      class(lagrangian_set), intent(inout) :: this                             !! A set of Lagrangian objects
      ! Work variables
      integer :: n

      do n=1,this%count_
        this%p(n)%c = this%block%GetOwningCell(this%p(n)%p)
      end do

      return
    end subroutine lagrangian_set_Localize