AdditionalInit_LinearEuler2D_t Subroutine

  1. SELF_LinearEuler2D_t.f90
  2. self_LinearEuler2D_t
  3. AdditionalInit_LinearEuler2D_t

public subroutine AdditionalInit_LinearEuler2D_t(this)

Register the (CPU) no-normal-flow and radiation boundary conditions. GPU builds call this parent and then overwrite both registrations with the device kernels in AdditionalInit_LinearEuler2D.

Arguments

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

Called by

proc~~additionalinit_lineareuler2d_t~~CalledByGraph proc~additionalinit_lineareuler2d_t AdditionalInit_LinearEuler2D_t proc~additionalinit_lineareuler2d AdditionalInit_LinearEuler2D proc~additionalinit_lineareuler2d->proc~additionalinit_lineareuler2d_t

Contents

Source Code

AdditionalInit_LinearEuler2D_t

Source Code

  subroutine AdditionalInit_LinearEuler2D_t(this)
    !! Register the (CPU) no-normal-flow and radiation boundary conditions.
    !! GPU builds call this parent and then overwrite both registrations with
    !! the device kernels in AdditionalInit_LinearEuler2D.
    implicit none
    class(LinearEuler2D_t),intent(inout) :: this
    ! Local
    procedure(SELF_bcMethod),pointer :: bcfunc

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

    bcfunc => hbc2d_Radiation_LinearEuler2D
    call this%hyperbolicBCs%RegisterBoundaryCondition( &
      SELF_BC_RADIATION,"radiation",bcfunc)

  endsubroutine AdditionalInit_LinearEuler2D_t