SetMetadata_ESAtmo3D_t Subroutine

  subroutine SetMetadata_ESAtmo3D_t(this)
    implicit none
    class(ESAtmo3D_t),intent(inout) :: this

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

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

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

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

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

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

  endsubroutine SetMetadata_ESAtmo3D_t