friction_t Derived Type

type, public :: friction_t


Inherits

type~~friction_t~~InheritsGraph type~friction_t friction_t c_ptr c_ptr type~friction_t->c_ptr frict_cfg

Inherited by

type~~friction_t~~InheritedByGraph type~friction_t friction_t type~channel_t channel_t type~channel_t->type~friction_t fct

Components

Type Visibility Attributes Name Initial
character(len=:), public, allocatable :: friction_corr
type(c_ptr), public :: frict_cfg = C_NULL_PTR
procedure(itf_1var), public, pointer, nopass :: frict => friction_correlation_not_implemented
procedure(itf_1var), public, pointer, nopass :: frict_der => null()

Type-Bound Procedures

procedure, public :: friction => friction_correlation

  • public function friction_correlation(me, Re)

    Arguments

    Type IntentOptional Attributes Name
    class(friction_t), intent(inout) :: me
    real(kind=dp), intent(in) :: Re

    Return Value real(kind=dp)

procedure, public :: friction_der => friction_correlation_der

  • public function friction_correlation_der(me, Re)

    Arguments

    Type IntentOptional Attributes Name
    class(friction_t), intent(inout) :: me
    real(kind=dp), intent(in) :: Re

    Return Value real(kind=dp)

Source Code

  type friction_t
      character(:), allocatable :: friction_corr
      type(c_ptr) :: frict_cfg = C_NULL_PTR
      procedure(itf_1var), pointer, nopass :: frict => friction_correlation_not_implemented
      procedure(itf_1var), pointer, nopass :: frict_der => null()
  contains
      procedure :: friction     => friction_correlation
      procedure :: friction_der => friction_correlation_der  
  end type friction_t