hbc3d_Radiation_LinearEuler3D_GPU_wrapper Subroutine

  1. SELF_LinearEuler3D.f90
  2. self_LinearEuler3D
  3. hbc3d_Radiation_LinearEuler3D_GPU_wrapper

public subroutine hbc3d_Radiation_LinearEuler3D_GPU_wrapper(bc, mymodel)

Arguments

TypeIntentOptionalAttributesName
class(BoundaryCondition), intent(in) :: bc
class(Model), intent(inout) :: mymodel

Calls

proc~~hbc3d_radiation_lineareuler3d_gpu_wrapper~~CallsGraph proc~hbc3d_radiation_lineareuler3d_gpu_wrapper hbc3d_Radiation_LinearEuler3D_GPU_wrapper interface~hbc3d_radiation_lineareuler3d_gpu hbc3d_radiation_lineareuler3d_gpu proc~hbc3d_radiation_lineareuler3d_gpu_wrapper->interface~hbc3d_radiation_lineareuler3d_gpu

Contents

Source Code

hbc3d_Radiation_LinearEuler3D_GPU_wrapper

Source Code

  subroutine hbc3d_Radiation_LinearEuler3D_GPU_wrapper(bc,mymodel)
    class(BoundaryCondition),intent(in) :: bc
    class(Model),intent(inout) :: mymodel

    select type(m => mymodel)
    class is(LinearEuler3D)
      if(bc%nBoundaries > 0) then
        call hbc3d_radiation_lineareuler3d_gpu( &
          m%solution%extBoundary_gpu, &
          bc%elements_gpu,bc%sides_gpu, &
          bc%nBoundaries,m%solution%interp%N,m%solution%nElem)
      endif
    endselect

  endsubroutine hbc3d_Radiation_LinearEuler3D_GPU_wrapper