SetMetadata_LinearEuler2D_t Subroutine

  1. SELF_LinearEuler2D_t.f90
  2. self_LinearEuler2D_t
  3. SetMetadata_LinearEuler2D_t

public subroutine SetMetadata_LinearEuler2D_t(this)

Arguments

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

Called by

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

Contents

Source Code

SetMetadata_LinearEuler2D_t

Source Code

  subroutine SetMetadata_LinearEuler2D_t(this)
    implicit none
    class(LinearEuler2D_t),intent(inout) :: this

    call this%solution%SetName(1,"u") ! x-velocity component
    call this%solution%SetUnits(1,"m⋅s⁻¹")

    call this%solution%SetName(2,"v") ! y-velocity component
    call this%solution%SetUnits(2,"m⋅s⁻¹")

    call this%solution%SetName(3,"P") ! Pressure
    call this%solution%SetUnits(3,"kg⋅m⁻¹⋅s⁻²")

    call this%solution%SetName(4,"c") ! Sound speed
    call this%solution%SetUnits(4,"m⋅s⁻¹")

    call this%solution%SetName(5,"rho0") ! Background density (static; possibly heterogeneous)
    call this%solution%SetUnits(5,"kg⋅m⁻³")

  endsubroutine SetMetadata_LinearEuler2D_t