SetMetadata_LinearShallowWater2D_t Subroutine

  1. SELF_LinearShallowWater2D_t.f90
  2. self_LinearShallowWater2D_t
  3. SetMetadata_LinearShallowWater2D_t

public subroutine SetMetadata_LinearShallowWater2D_t(this)

Arguments

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

Contents

Source Code

SetMetadata_LinearShallowWater2D_t

Source Code

  subroutine SetMetadata_LinearShallowWater2D_t(this)
    implicit none
    class(LinearShallowWater2D_t),intent(inout) :: this

    call this%solution%SetName(1,"u")
    call this%solution%SetUnits(1,"m/s")
    call this%solution%SetName(2,"v")
    call this%solution%SetUnits(2,"m/s")
    call this%solution%SetName(3,"eta")
    call this%solution%SetUnits(3,"m")
    call this%fCori%SetName(1,"f")
    call this%fCori%SetUnits(1,"1/s")

  endsubroutine SetMetadata_LinearShallowWater2D_t