SetMetadata_LinearEuler2D_PML_t Subroutine

  1. SELF_LinearEuler2D_PML_t.f90
  2. self_LinearEuler2D_PML_t
  3. SetMetadata_LinearEuler2D_PML_t

public subroutine SetMetadata_LinearEuler2D_PML_t(this)

Arguments

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

Calls

proc~~setmetadata_lineareuler2d_pml_t~~CallsGraph proc~setmetadata_lineareuler2d_pml_t SetMetadata_LinearEuler2D_PML_t proc~setmetadata_lineareuler2d_t SetMetadata_LinearEuler2D_t proc~setmetadata_lineareuler2d_pml_t->proc~setmetadata_lineareuler2d_t

Contents

Source Code

SetMetadata_LinearEuler2D_PML_t

Source Code

  subroutine SetMetadata_LinearEuler2D_PML_t(this)
    implicit none
    class(LinearEuler2D_PML_t),intent(inout) :: this

    ! Reuse parent metadata for the first four variables (u, v, P, c). The
    ! parent also names variable 5 ("rho0"), which is overwritten below since
    ! the PML model repurposes that slot for phi_u.
    call SetMetadata_LinearEuler2D_t(this)

    call this%solution%SetName(5,"phi_u")
    call this%solution%SetUnits(5,"m")

    call this%solution%SetName(6,"phi_v")
    call this%solution%SetUnits(6,"m")

    call this%solution%SetName(7,"phi_P")
    call this%solution%SetUnits(7,"kg⋅m⁻¹⋅s⁻¹")

    call this%sigma_x%SetName(1,"sigma_x")
    call this%sigma_x%SetUnits(1,"s⁻¹")
    call this%sigma_y%SetName(1,"sigma_y")
    call this%sigma_y%SetUnits(1,"s⁻¹")

  endsubroutine SetMetadata_LinearEuler2D_PML_t