optimal_weights_js Derived Type

type, public, extends(optimal_weights) :: optimal_weights_js

type~~optimal_weights_js~~InheritsGraph type~optimal_weights_js optimal_weights_js type~optimal_weights optimal_weights type~optimal_weights->type~optimal_weights_js type~base_object base_object type~base_object->type~optimal_weights
Help


Jiang-Shu and Gerolymos-Senechal-Vallet optimal weights object.


Source Code


Components

TypeVisibility AttributesNameInitial
real(kind=R_P), public, allocatable:: opt(:,:)

Optimal weights [1:2,0:S-1].


Type-Bound Procedures

procedure, public, pass(self) :: create

Createte weights.

  • private pure subroutine create(self, constructor)

    Create weights.

    Arguments

    Type IntentOptional AttributesName
    class(optimal_weights), intent(inout) :: self

    Optimal weights.

    class(base_object_constructor), intent(in) :: constructor

    Optimal weights constructor.

procedure, public, pass(self) :: destroy

Destroy weights.

  • private elemental subroutine destroy(self)

    Destroy weights.

    Arguments

    Type IntentOptional AttributesName
    class(optimal_weights), intent(inout) :: self

    Optimial weights.

procedure, public, pass(self) :: compute

Compute weights.

  • private pure subroutine compute(self, S)

    Compute weights.

    Arguments

    Type IntentOptional AttributesName
    class(optimal_weights_js), intent(inout) :: self

    Optimal weights.

    integer(kind=I_P), intent(in) :: S

    Number of stencils used.

procedure, public, nopass :: description

Return weights string-description.

  • private pure function description() result(string)

    Return string-description of weights.

    Arguments

    None

    Return Value character(len=:), allocatable

    String-description.

Source Code

type, extends(optimal_weights):: optimal_weights_js
  !< Jiang-Shu and Gerolymos-Senechal-Vallet optimal weights object.
  !<
  !< @note The provided WENO optimal weights implements the optimal weights 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 and
  !< *Very-high-order weno schemes*, G. A. Gerolymos, D. Senechal, I. Vallet, JCP, 2009, vol. 228, pp. 8481-8524,
  !< doi:10.1016/j.jcp.2009.07.039
  contains
    ! deferred public methods
    procedure, pass(self) :: compute     !< Compute weights.
    procedure, nopass     :: description !< Return weights string-description.
endtype optimal_weights_js