finish_timestep_overrides Subroutine

public subroutine finish_timestep_overrides(self)

Uses

Type Bound

timestep_overrides_type

Arguments

Type IntentOptional Attributes Name
class(timestep_overrides_type), intent(inout) :: self

Contents


Source Code

subroutine finish_timestep_overrides(self)
  use file_utils, only: error_unit
  class(timestep_overrides_type), intent(in out) :: self
  if (.not. self%init) then
    write (error_unit(), *) "ERROR: Called finish_timestep_overrides on an uninitialized object."
    return
  end if
self%override_immediate_reset = .false.
end subroutine finish_timestep_overrides