Set simulation stop condition.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(time_object), | intent(inout) | :: | self | Time object. |
elemental subroutine set_stop(self)
!< Set simulation stop condition.
class(time_object), intent(inout) :: self !< Time object.
if (self%is_unsteady) then
if (self%n_max > 0_I8P) then
self%t_max = -1._R8P ! the value of t_max is ignored because n_max>0
else
self%n_max = -1_I8P
endif
else
self%t_max = -1._R8P ! the value of t_max is ignored because steady simulation
endif
endsubroutine set_stop