Return string-description of weights.
String-description.
pure function description() result(string)
!< Return string-description of weights.
character(len=:), allocatable :: string !< String-description.
character(len=1), parameter :: nl=new_line('a') !< New line character.
string = 'WENO optimal weights,'//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 and'//nl
string = string//' on the work by Gerolymos, Senechal and Vallet "Very-high-order weno schemes", see '// &
'JCP, 2009, vol. 228, pp. 8481--8524, doi:10.1016/j.jcp.2009.07.039'//nl
string = string//' The optimal weights are allocated in a two-dimensional array, in which the first index'//nl
string = string//' is the face selected (1 => i-1/2, 2 => i+1/2) and the second index is the number of the stencil '//nl
string = string//' (from 0 to S-1)'
endfunction description