lagrangian_set_SetOverwrite Subroutine

private pure subroutine lagrangian_set_SetOverwrite(this, overwrite)

Sets file overwritting.

Type Bound

lagrangian_set

Arguments

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

A set of Lagrangian objects
logical, intent(in) :: overwrite

Overwrite value

Source Code

    pure subroutine lagrangian_set_SetOverwrite(this,overwrite)
      !> Sets file overwritting.
      implicit none
      class(lagrangian_set), intent(inout) :: this                             !! A set of Lagrangian objects
      logical,               intent(in)    :: overwrite                        !! Overwrite value

      this%overwrite=overwrite

      return
    end subroutine lagrangian_set_SetOverwrite