Create smoothness indicators constructor.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=I_P), | intent(in) | :: | S | Stencils dimension. |
||
class(smoothness_indicators_constructor), | intent(out), | allocatable | :: | constructor | Smoothness indicators constructor. |
subroutine create_smoothness_indicators_js_constructor(S, constructor)
!< Create smoothness indicators constructor.
integer(I_P), intent(in) :: S !< Stencils dimension.
class(smoothness_indicators_constructor), allocatable, intent(out) :: constructor !< Smoothness indicators constructor.
allocate(smoothness_indicators_js_constructor :: constructor)
constructor%S = S
endsubroutine create_smoothness_indicators_js_constructor