task body Control_campo_solar is
      ST1: TemperList;
      ST2: TemperList;
      ST3: TemperList;
      ST4: TemperList;
      SR1: TemperList;
   begin
      loop
      LeerTemperaturas(ST1 => ST1,
                       ST2 => ST2,
                       ST3 => ST3,
                       ST4 => ST4);
      LeerRadiacion(RAD => SR1);
      CalculoSC1(SR1 => SR1,
                 ST4 => ST4,
                 ST2 => ST2,
                 SC1 => SC1);
         EscribirSC1(SC1 => SC1);
         delay(5.0); -- El doble que control de seguridad
      end loop;
   end Control_campo_solar;