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 five variables.
    call SetMetadata_LinearEuler2D_t(this)

    call this%solution%SetName(6,"phi_rho")
    call this%solution%SetUnits(6,"kg⋅m⁻³⋅s")

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

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

    call this%solution%SetName(9,"phi_P")
    call this%solution%SetUnits(9,"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