Return a pretty-formatted description of time parameters.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(time_object), | intent(in) | :: | self | Time object. |
||
| character(len=*), | intent(in), | optional | :: | prefix | Prefixing string. |
Description.
pure function description(self, prefix) result(desc)
!< Return a pretty-formatted description of time parameters.
class(time_object), intent(in) :: self !< Time object.
character(*), intent(in), optional :: prefix !< Prefixing string.
character(len=:), allocatable :: desc !< Description.
character(len=:), allocatable :: prefix_ !< Prefixing string, local variable.
character(len=1), parameter :: NL=new_line('a') !< New line character.
prefix_ = '' ; if (present(prefix)) prefix_ = prefix
desc = ''
if (self%is_unsteady) then
desc = desc//prefix_//'timing: unsteady'//NL
else
desc = desc//prefix_//'timing: steady'//NL
endif
desc = desc//prefix_//'n : '//trim(str(n=self%n))//NL
desc = desc//prefix_//'t : '//trim(str(n=self%t))//NL
desc = desc//prefix_//'n_max : '//trim(str(n=self%n_max))//NL
desc = desc//prefix_//'t_max : '//trim(str(n=self%t_max))//NL
desc = desc//prefix_//'CFL : '//trim(str(n=self%CFL))
endfunction description