Jiang-Shu (upwind) interpolator object constructor.
The constructed WENO interpolator implements the 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 | |||
---|---|---|---|---|---|---|---|
class(smoothness_indicators_constructor), | public, | allocatable | :: | is | Smoothness indicators constructor. |
||
class(alpha_coefficients_constructor), | public, | allocatable | :: | alpha | Alpha coefficients constructor. |
||
class(optimal_weights_constructor), | public, | allocatable | :: | weights | Optimal weights constructor. |
||
class(polynomials_constructor), | public, | allocatable | :: | polynom | Polynomilas constructor. |
||
integer(kind=I_P), | private | :: | S | = | 0 | Stencils dimension. |
|
real(kind=R_P), | private | :: | eps | = | 10._R_P**(-6) | Parameter for avoiding division by zero. |
Create interpolator constructor.
Create interpolator constructor.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(interpolator_constructor), | intent(inout) | :: | self | Interpolator constructor. |
||
class(smoothness_indicators_constructor), | intent(in) | :: | is | Smoothness indicators constructor. |
||
class(alpha_coefficients_constructor), | intent(in) | :: | alpha | Alpha coefficients constructor. |
||
class(optimal_weights_constructor), | intent(in) | :: | weights | Optimal weights constructor. |
||
class(polynomials_constructor), | intent(in) | :: | polynom | Polynomilas constructor. |
Destroy interpolator constructor.
Destroy interpolator constructor.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(interpolator_constructor), | intent(inout) | :: | self | Interpolator. |
type, extends(interpolator_constructor) :: interpolator_js_constructor
!< Jiang-Shu (upwind) interpolator object constructor.
!<
!< @note The constructed WENO interpolator implements the *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
integer(I_P) :: S = 0 !< Stencils dimension.
real(R_P) :: eps = 10._R_P**(-6) !< Parameter for avoiding division by zero.
endtype interpolator_js_constructor