From 02b1345113a4cccf7394eb74eb7955e8c2a1a8f8 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Wed, 1 Mar 2023 16:52:44 +0100
Subject: Control max CPU frequency with tlp

---
 tw/system/cern.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/tw/system/cern.scm b/tw/system/cern.scm
index df99225b..0c05b822 100644
--- a/tw/system/cern.scm
+++ b/tw/system/cern.scm
@@ -165,6 +165,15 @@
                         (default-domain "cern.ch")
                         (kdc "cerndc.cern.ch"))))))
 
+      ;; At high CPU frequencies, the fan is very loud, starting around 3.5 GHz.
+      (service tlp-service-type
+        (tlp-configuration
+         (energy-perf-policy-on-ac "balance_power")
+         (cpu-scaling-governor-on-ac '("powersave"))
+         (cpu-scaling-max-freq-on-ac 3600000)  ; kHz
+         (cpu-boost-on-ac? #f)
+         (sched-powersave-on-ac? #t)))
+
       (service thermald-service-type
         (thermald-configuration
          (adaptive? #t)))
-- 
cgit v1.2.3