Abstract alpha coefficients object.
Do not implement any real alpha coefficient, but provide the interface for the different alpha coefficient implemented.
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 |
Compute alpha coefficients.
Compute alpha coefficients.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(alpha_coefficients), | intent(inout) | :: | self | Alpha coefficients. |
||
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-description.
String-description.
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. |
type, extends(base_object) :: alpha_coefficients
!< Abstract alpha coefficients object.
!<
!< @note Do not implement any real alpha coefficient, but provide the interface for the different alpha coefficient implemented.
real(R_P), allocatable :: alpha_coef(:,:) !< Alpha coefficients [1:2,0:S-1]
real(R_P), allocatable :: alpha_tot(:) !< Sum of alpha coefficients
contains
! deferred public methods
procedure, pass(self) :: compute !< Compute alpha coefficients.
procedure, nopass :: description !< Return alpha coefficients string-description.
! public methods
procedure, pass(self) :: create !< Create alpha coefficients.
procedure, pass(self) :: destroy !< Destroy alpha coefficients.
endtype alpha_coefficients