Jiang-Shu alpha coefficient object.
The provided WENO alpha coefficient implements the alpha coefficients defined in Efficient Implementation of Weighted ENO Schemes, Guang-Shan Jiang, Chi-Wang Shu, JCP, 1996, vol. 126, pp. 202–228, doi:10.1006/jcph.1996.0130.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real(kind=R_P), | public, | allocatable | :: | alpha_coef(:,:) | Alpha coefficients [1:2,0:S-1] |
||
real(kind=R_P), | public, | allocatable | :: | alpha_tot(:) | Sum of alpha coefficients |
Create alpha coefficients.
Create alpha coefficients.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(alpha_coefficients), | intent(inout) | :: | self | Alpha coefficients. |
||
class(base_object_constructor), | intent(in) | :: | constructor | Alpha coefficients constructor. |
Destroy alpha coefficients.
Destroy alpha coefficients.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(alpha_coefficients), | intent(inout) | :: | self | Alpha coefficients. |
Compute alpha coefficients.
Compute alpha coefficients.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(alpha_coefficients_js), | intent(inout) | :: | self | Alpha coefficient. |
||
integer(kind=I_P), | intent(in) | :: | S | Number of stencils used. |
||
real(kind=R_P), | intent(in) | :: | weight_opt(1:2,0:S-1) | Optimal weight of the stencil. |
||
real(kind=R_P), | intent(in) | :: | IS(1:2,0:S-1) | Smoothness indicators of the stencils. |
||
real(kind=R_P), | intent(in) | :: | eps | Parameter for avoiding divided by zero. |
||
integer(kind=I_P), | intent(in) | :: | f1 | Faces to be computed. |
||
integer(kind=I_P), | intent(in) | :: | f2 | Faces to be computed. |
Return alpha coefficients string-description.
Return alpha coefficients string-descripition.
String-description.
type, extends(alpha_coefficients) :: alpha_coefficients_js
!< Jiang-Shu alpha coefficient object.
!<
!< @note The provided WENO alpha coefficient implements the alpha coefficients defined in *Efficient Implementation of Weighted
!< ENO Schemes*, Guang-Shan Jiang, Chi-Wang Shu, JCP, 1996, vol. 126, pp. 202--228, doi:10.1006/jcph.1996.0130.
private
contains
! deferred public methods
procedure, pass(self) :: compute !< Compute alpha coefficients.
procedure, nopass :: description !< Return alpha coefficients string-description.
endtype alpha_coefficients_js