lagrangian_obj_Locate Function

private pure function lagrangian_obj_Locate(this, block) result(cell)

Locates a Lagrangian object on an external grid. Returns the location of the cell containing the object.

Type Bound

lagrangian_obj

Arguments

Type IntentOptional Attributes Name
class(lagrangian_obj), intent(in) :: this

A Lagrangian object
class(block_obj), intent(in) :: block

External block

Return Value integer, (3)

Result


Calls

proc~~lagrangian_obj_locate~~CallsGraph proc~lagrangian_obj_locate lagrangian_obj%lagrangian_obj_Locate proc~block_obj_getowningcell block_obj%block_obj_GetOwningCell proc~lagrangian_obj_locate->proc~block_obj_getowningcell

Source Code

    pure function lagrangian_obj_Locate(this,block) result (cell)
      !> Locates a Lagrangian object on an external grid. Returns the location
      ! of the cell containing the object.
      implicit none
      class(lagrangian_obj), intent(in)   :: this                              !! A Lagrangian object
      class(block_obj),      intent(in)   :: block                             !! External block
      integer                             :: cell(3)                           !! Result

      cell = block%GetOwningCell(this%p)

      return
    end function lagrangian_obj_Locate