AdditionalInit_ECAdvection3D_t Subroutine

  1. SELF_ECAdvection3D_t.f90
  2. SELF_ECAdvection3D_t
  3. AdditionalInit_ECAdvection3D_t

public subroutine AdditionalInit_ECAdvection3D_t(this)

Arguments

TypeIntentOptionalAttributesName
class(ECAdvection3D_t), intent(inout) :: this

Called by

proc~~additionalinit_ecadvection3d_t~~CalledByGraph proc~additionalinit_ecadvection3d_t AdditionalInit_ECAdvection3D_t proc~additionalinit_ecadvection3d AdditionalInit_ECAdvection3D proc~additionalinit_ecadvection3d->proc~additionalinit_ecadvection3d_t

Contents

Source Code

AdditionalInit_ECAdvection3D_t

Source Code

  subroutine AdditionalInit_ECAdvection3D_t(this)
    implicit none
    class(ECAdvection3D_t),intent(inout) :: this
    ! Local
    procedure(SELF_bcMethod),pointer :: bcfunc

    bcfunc => hbc3d_NoNormalFlow_ECAdvection3D
    call this%hyperbolicBCs%RegisterBoundaryCondition( &
      SELF_BC_NONORMALFLOW,"no_normal_flow",bcfunc)

  endsubroutine AdditionalInit_ECAdvection3D_t