sourcemethod_LinearEuler2D_PML Subroutine

  1. SELF_LinearEuler2D_PML.f90
  2. self_LinearEuler2D_PML
  3. sourcemethod_LinearEuler2D_PML

public subroutine sourcemethod_LinearEuler2D_PML(this)

Arguments

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

Calls

proc~~sourcemethod_lineareuler2d_pml~~CallsGraph proc~sourcemethod_lineareuler2d_pml sourcemethod_LinearEuler2D_PML interface~sourcemethod_lineareuler2d_pml_gpu sourcemethod_LinearEuler2D_PML_gpu proc~sourcemethod_lineareuler2d_pml->interface~sourcemethod_lineareuler2d_pml_gpu

Contents

Source Code

sourcemethod_LinearEuler2D_PML

Source Code

  subroutine sourcemethod_LinearEuler2D_PML(this)
    implicit none
    class(LinearEuler2D_PML),intent(inout) :: this

    call sourcemethod_LinearEuler2D_PML_gpu( &
      this%source%interior_gpu, &
      this%solution%interior_gpu, &
      this%sigma_x%interior_gpu, &
      this%sigma_y%interior_gpu, &
      this%solution%interp%N,this%solution%nelem,this%solution%nvar)

  endsubroutine sourcemethod_LinearEuler2D_PML