SetMetadata_ESAtmo2D_t Subroutine

  subroutine SetMetadata_ESAtmo2D_t(this)
    implicit none
    class(ESAtmo2D_t),intent(inout) :: this

    call this%solution%SetName(1,"rho")
    call this%solution%SetUnits(1,"kg/m^2")

    call this%solution%SetName(2,"rhou")
    call this%solution%SetUnits(2,"kg/(m s)")

    call this%solution%SetName(3,"rhov")
    call this%solution%SetUnits(3,"kg/(m s)")

    call this%solution%SetName(4,"rhotheta")
    call this%solution%SetUnits(4,"kg K/m^2")

    call this%solution%SetName(5,"phi")
    call this%solution%SetUnits(5,"m^2/s^2")

  endsubroutine SetMetadata_ESAtmo2D_t