ResPart_set_SetOverwrite Subroutine

private pure subroutine ResPart_set_SetOverwrite(this, overwrite)

Sets file overwritting.

Type Bound

ResPart_set

Arguments

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

Set of resolved particles
logical, intent(in) :: overwrite

Overwrite value

Calls

proc~~respart_set_setoverwrite~~CallsGraph proc~respart_set_setoverwrite ResPart_set%ResPart_set_SetOverwrite proc~lagrangian_set_setoverwrite lagrangian_set%lagrangian_set_SetOverwrite proc~respart_set_setoverwrite->proc~lagrangian_set_setoverwrite

Called by

proc~~respart_set_setoverwrite~~CalledByGraph proc~respart_set_setoverwrite ResPart_set%ResPart_set_SetOverwrite proc~respart_set_prepare ResPart_set%ResPart_set_Prepare proc~respart_set_prepare->proc~respart_set_setoverwrite proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->proc~respart_set_prepare interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver

Source Code

    pure subroutine ResPart_set_SetOverwrite(this,overwrite)
      !> Sets file overwritting.
      implicit none
      class(ResPart_set), intent(inout) :: this                                !! Set of resolved particles
      logical,               intent(in) :: overwrite                           !! Overwrite value

      ! Set flag for centroids
      this%overwrite=overwrite

      ! Set flag for ib
      call this%ib%SetOverWrite(overwrite)

      return
    end subroutine ResPart_set_SetOverwrite