AdditionalInit_LinearEuler3D Subroutine

  1. SELF_LinearEuler3D.f90
  2. self_LinearEuler3D
  3. AdditionalInit_LinearEuler3D

public subroutine AdditionalInit_LinearEuler3D(this)

Arguments

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

Contents

Source Code

AdditionalInit_LinearEuler3D

Source Code

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

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

  endsubroutine AdditionalInit_LinearEuler3D