Return alpha coefficients string-descripition.
String-description.
pure function description() result(string)
!< Return alpha coefficients string-descripition.
character(len=:), allocatable :: string !< String-description.
character(len=1), parameter :: nl=new_line('a') !< New line character.
string = 'WENO alpha coefficient'//nl
string = string//' Based on the work by Jiang and Shu "Efficient Implementation of Weighted ENO Schemes", see '// &
'JCP, 1996, vol. 126, pp. 202--228, doi:10.1006/jcph.1996.0130'//nl
string = string//' The "compute" method has the following public API'//nl
string = string//' alpha(S, weigt_opt, IS, eps, f1, f2)'//nl
string = string//' where:'//nl
string = string//' S: integer(I_P), intent(in), the number of the stencils used'//nl
string = string//' weight_opt: real(R_P), intent(in), the optimal weight of the actual stencil'//nl
string = string//' IS: real(R_P), intent(in), the smoothness indicator of the actual stencil'//nl
string = string//' eps: real(R_P), intent(in), the coefficient to avoid zero division used'//nl
string = string//' f1, f2: integer(I_P), intent(in), the faces to be computed (1 => left interface, 2 => right interface)'
endfunction description