SetMetadata_LinearEuler3D_t Subroutine

  subroutine SetMetadata_LinearEuler3D_t(this)
    implicit none
    class(LinearEuler3D_t),intent(inout) :: this

    call this%solution%SetName(1,"rho") ! Density
    call this%solution%SetUnits(1,"kg⋅m⁻³")

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

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

    call this%solution%SetName(4,"w") ! z-velocity component
    call this%solution%SetUnits(4,"m⋅s⁻¹")

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

  endsubroutine SetMetadata_LinearEuler3D_t