task body Control_modulo_md is
      SD1: TemperList;
      ST1: TemperList;
      ST2: TemperList;
      ST3: TemperList;
      ST4: TemperList;
   begin
      loop
         LeerTemperaturas(ST1 => ST1,
                          ST2 => ST2,
                          ST3 => ST3,
                          ST4 => ST4);
         LeerCaudal(CA => SD1);
         CalculoSC2(ST2 => ST2,
                    ST3 => ST3,
                    SD1 => SD1,
                    SC2 => SC2);
         EscribirSC2(SC2 => SC2);
         delay(10.0); --El doble que campo solar
      end loop;
   end Control_modulo_md;