0.58 W/m^2 * SetPrecision[surface area of earth,3]