description Function

   pure function description(self, prefix) result(desc)
   !< Return a pretty-formatted description of the numbers.
   class(non_dimensional_numbers_object), intent(in)           :: self             !< Non dimensional numbers.
   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_//'Re      : '//trim(str(n=self%Re      ))//NL
   desc = desc//prefix_//'Fr      : '//trim(str(n=self%Fr      ))//NL
   desc = desc//prefix_//'We      : '//trim(str(n=self%We      ))//NL
   desc = desc//prefix_//'Ma      : '//trim(str(n=self%Ma      ))//NL
   desc = desc//prefix_//'Pr      : '//trim(str(n=self%Pr      ))//NL
   desc = desc//prefix_//'L0      : '//trim(str(n=self%L0      ))//NL
   desc = desc//prefix_//'r0      : '//trim(str(n=self%r0      ))//NL
   desc = desc//prefix_//'v0      : '//trim(str(n=self%v0      ))//NL
   desc = desc//prefix_//'c0      : '//trim(str(n=self%c0      ))//NL
   desc = desc//prefix_//'mu0     : '//trim(str(n=self%mu0     ))//NL
   desc = desc//prefix_//'f0      : '//trim(str(n=self%f0      ))//NL
   desc = desc//prefix_//'k0      : '//trim(str(n=self%k0      ))//NL
   desc = desc//prefix_//'Dt0     : '//trim(str(n=self%Dt0     ))//NL
   desc = desc//prefix_//'p0      : '//trim(str(n=self%p0      ))//NL
   desc = desc//prefix_//'a0      : '//trim(str(n=self%a0      ))//NL
   desc = desc//prefix_//'T0      : '//trim(str(n=self%T0      ))//NL
   desc = desc//prefix_//'E0      : '//trim(str(n=self%E0      ))//NL
   desc = desc//prefix_//'q0      : '//trim(str(n=self%q0      ))//NL
   desc = desc//prefix_//'Re_inv  : '//trim(str(n=self%Re_inv  ))//NL
   desc = desc//prefix_//'Fr2_inv : '//trim(str(n=self%Fr2_inv ))//NL
   desc = desc//prefix_//'PrRe_inv: '//trim(str(n=self%PrRe_inv))
   endfunction description