Return a pretty-formatted description of the simulation.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(simulation_object), | intent(in) | :: | self | Simulation parameters. |
||
| character(len=*), | intent(in), | optional | :: | prefix | Prefixing string. |
Description.
pure function description(self, prefix) result(desc)
!< Return a pretty-formatted description of the simulation.
class(simulation_object), intent(in) :: self !< Simulation parameters.
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 = ''
! desc = desc//prefix_//'Files:'//NL
! desc = desc//prefix//self%files_collection%description(prefix=' ')//NL
desc = desc//prefix_//'Non dimensional numbers:'//NL
desc = desc//prefix_//self%adimensionals%description(prefix=prefix_//' ')//NL
desc = desc//prefix_//'Free stream conditions:'//NL
desc = desc//prefix_//self%free_conditions%description(prefix=prefix_//' ')//NL
desc = desc//prefix_//'Solver models:'//NL
desc = desc//prefix_//self%solver%description(prefix=prefix_//' ')//NL
desc = desc//prefix_//'Time:'//NL
desc = desc//prefix_//self%time%description(prefix=prefix_//' ')//NL
desc = desc//prefix_//'Grid dimensions:'//NL
desc = desc//prefix_//self%grid_dimensions%description(prefix=prefix_//' ')
endfunction description