src/surf/plugins/energy.cpp

   1 /* Copyright (c) 2010, 2012-2013. The SimGrid Team.
   2  * All rights reserved.                                                     */
   3
   4 /* This program is free software; you can redistribute it and/or modify it
   5   * under the terms of the license (GNU LGPL) which comes with this package. */
   6
   7 #include "energy.hpp"
   8 #include "../cpu_cas01.hpp"
   9
  10 /** @addtogroup SURF_plugin_energy
  11  *
  12  *
  13  *  BlaBla energy
  14  */
  15
  16 XBT_LOG_EXTERNAL_CATEGORY(surf_kernel);
  17 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(surf_energy, surf,
  18                                 "Logging specific to the SURF energy plugin");
  19
  20 std::map<CpuPtr, CpuEnergyPtr> *surf_energy=NULL;
  21
  22 static void energyCpuCreatedCallback(CpuPtr cpu){
  23   (*surf_energy)[cpu] = new CpuEnergy(cpu);
  24 }
  25
  26 static void energyCpuDestructedCallback(CpuPtr cpu){
  27   std::map<CpuPtr, CpuEnergyPtr>::iterator cpuIt = surf_energy->find(cpu);
  28   xbt_assert(cpuIt != surf_energy->end(), "The cpu is not in surf_energy.");
  29   XBT_INFO("Total energy (Joules) of host %s: %f", cpu->getName(), cpuIt->second->getConsumedEnergy());
  30   delete cpuIt->second;
  31   surf_energy->erase(cpuIt);
  32 }
  33
  34 static void energyCpuActionStateChangedCallback(CpuActionPtr action){
  35   CpuPtr cpu  = getActionCpu(action);
  36   CpuEnergyPtr cpu_energy = (*surf_energy)[cpu];
  37
  38   if(cpu_energy->last_updated < surf_get_clock()) {
  39         double cpu_load = lmm_constraint_get_usage(cpu->getConstraint()) / cpu->m_powerPeak;
  40     double start_time = cpu_energy->last_updated;
  41     double finish_time = surf_get_clock();
  42
  43     /*XBT_DEBUG("[cpu_update_energy] action time interval=(%f-%f), current power peak=%f, current pstate=%d",
  44                   start_time, finish_time, cpu->m_powerPeak, cpu->m_pstate);*/
  45     XBT_DEBUG("[cpu_update_energy] action time interval=(%f-%f), current power peak=%f",
  46                   start_time, finish_time, cpu->m_powerPeak);
  47     double current_energy = cpu_energy->total_energy;
  48     double action_energy = cpu_energy->getCurrentWattsValue(cpu_load)*(finish_time-start_time);
  49
  50     cpu_energy->total_energy = current_energy + action_energy;
  51     cpu_energy->last_updated = finish_time;
  52
  53     XBT_DEBUG("[cpu_update_energy] old_energy_value=%f, action_energy_value=%f", current_energy, action_energy);
  54   }
  55 }
  56
  57 /** \ingroup SURF_plugin_energy
  58  * \brief Enable energy plugin
  59  * \details Enable energy plugin to get joules consumption of each cpu.
  60  */
  61 void sg_energy_plugin_init() {
  62   if (surf_energy == NULL) {
  63     surf_energy = new std::map<CpuPtr, CpuEnergyPtr>();
  64     surf_callback_connect(cpuCreatedCallbacks, energyCpuCreatedCallback);
  65     surf_callback_connect(cpuDestructedCallbacks, energyCpuDestructedCallback);
  66     surf_callback_connect(cpuActionStateChangedCallbacks, energyCpuActionStateChangedCallback);
  67
  68   }
  69 }
  70
  71 /**
  72  *
  73  */
  74 CpuEnergy::CpuEnergy(CpuPtr ptr)
  75  : cpu(ptr)
  76 {
  77   total_energy = 0;
  78   power_range_watts_list = getWattsRangeList();
  79   last_updated = surf_get_clock();
  80 }
  81
  82 CpuEnergy::~CpuEnergy(){
  83   unsigned int iter;
  84   xbt_dynar_t power_tuple = NULL;
  85   xbt_dynar_foreach(power_range_watts_list, iter, power_tuple)
  86     xbt_dynar_free(&power_tuple);
  87   xbt_dynar_free(&power_range_watts_list);
  88 }
  89
  90
  91 /**
  92  * Computes the power consumed by the host according to the current pstate and processor load
  93  *
  94  */
  95 double CpuEnergy::getCurrentWattsValue(double cpu_load)
  96 {
  97         xbt_dynar_t power_range_list = power_range_watts_list;
  98
  99         if (power_range_list == NULL)
 100         {
 101                 XBT_DEBUG("No power range properties specified for host %s", cpu->getName());
 102                 return 0;
 103         }
 104         /*xbt_assert(xbt_dynar_length(power_range_list) == xbt_dynar_length(cpu->p_powerPeakList),
 105                                                 "The number of power ranges in the properties does not match the number of pstates for host %s",
 106                                                 cpu->getName());*/
 107
 108     /* retrieve the power values associated with the current pstate */
 109     xbt_dynar_t current_power_values = xbt_dynar_get_as(power_range_list, static_cast<CpuCas01Ptr>(cpu)->m_pstate, xbt_dynar_t);
 110
 111     /* min_power corresponds to the idle power (cpu load = 0) */
 112     /* max_power is the power consumed at 100% cpu load       */
 113     double min_power = xbt_dynar_get_as(current_power_values, 0, double);
 114     double max_power = xbt_dynar_get_as(current_power_values, 1, double);
 115     double power_slope = max_power - min_power;
 116
 117     double current_power = min_power + cpu_load * power_slope;
 118
 119         XBT_DEBUG("[get_current_watts] min_power=%f, max_power=%f, slope=%f", min_power, max_power, power_slope);
 120     XBT_DEBUG("[get_current_watts] Current power (watts) = %f, load = %f", current_power, cpu_load);
 121
 122         return current_power;
 123 }
 124
 125 double CpuEnergy::getConsumedEnergy()
 126 {
 127   return total_energy;
 128 }
 129
 130 xbt_dynar_t CpuEnergy::getWattsRangeList()
 131 {
 132         xbt_dynar_t power_range_list;
 133         xbt_dynar_t power_tuple;
 134         int i = 0, pstate_nb=0;
 135         xbt_dynar_t current_power_values;
 136         double min_power, max_power;
 137
 138         if (cpu->getProperties() == NULL)
 139                 return NULL;
 140
 141         char* all_power_values_str = (char*)xbt_dict_get_or_null(cpu->getProperties(), "power_per_state");
 142
 143         if (all_power_values_str == NULL)
 144                 return NULL;
 145
 146
 147         power_range_list = xbt_dynar_new(sizeof(xbt_dynar_t), NULL);
 148         xbt_dynar_t all_power_values = xbt_str_split(all_power_values_str, ",");
 149
 150         pstate_nb = xbt_dynar_length(all_power_values);
 151         for (i=0; i< pstate_nb; i++)
 152         {
 153                 /* retrieve the power values associated with the current pstate */
 154                 current_power_values = xbt_str_split(xbt_dynar_get_as(all_power_values, i, char*), ":");
 155                 xbt_assert(xbt_dynar_length(current_power_values) > 1,
 156                                 "Power properties incorrectly defined - could not retrieve min and max power values for host %s",
 157                                 cpu->getName());
 158
 159                 /* min_power corresponds to the idle power (cpu load = 0) */
 160                 /* max_power is the power consumed at 100% cpu load       */
 161                 min_power = atof(xbt_dynar_get_as(current_power_values, 0, char*));
 162                 max_power = atof(xbt_dynar_get_as(current_power_values, 1, char*));
 163
 164                 power_tuple = xbt_dynar_new(sizeof(double), NULL);
 165                 xbt_dynar_push_as(power_tuple, double, min_power);
 166                 xbt_dynar_push_as(power_tuple, double, max_power);
 167
 168                 xbt_dynar_push_as(power_range_list, xbt_dynar_t, power_tuple);
 169                 xbt_dynar_free(&current_power_values);
 170         }
 171         xbt_dynar_free(&all_power_values);
 172         return power_range_list;
 173 }