split beta-function according to dimensionality for non-SUSY models

FlexibleSUSY · Nov 26, 2014 · ca5452d · ca5452d
1 parent 5beadb3
commit ca5452d
Showing 1 changed file with 31 additions and 17 deletions.
diff --git a/meta/FlexibleSUSY.m b/meta/FlexibleSUSY.m
@@ -1110,23 +1110,37 @@
            FlexibleSUSY`InputParameters = Join[(#[[2]])& /@ SARAH`MINPAR, (#[[2]])& /@ SARAH`EXTPAR];
            Parameters`SetInputParameters[FlexibleSUSY`InputParameters];
 
-           (* pick beta functions of supersymmetric parameters *)
-           susyBetaFunctions = { SARAH`BetaLijkl,
-                                 SARAH`BetaWijkl,
-                                 SARAH`BetaYijk ,
-                                 SARAH`BetaMuij ,
-                                 SARAH`BetaLi   ,
-                                 SARAH`BetaGauge,
-                                 SARAH`BetaVEV  };
-
-           (* pick beta functions of non-supersymmetric parameters *)
-           susyBreakingBetaFunctions = { SARAH`BetaQijkl,
-                                         SARAH`BetaTijk ,
-                                         SARAH`BetaBij  ,
-                                         SARAH`BetaLSi  ,
-                                         SARAH`Betam2ij ,
-                                         SARAH`BetaMi   ,
-                                         SARAH`BetaDGi  };
+           If[SARAH`SupersymmetricModel,
+              (* pick beta functions of supersymmetric parameters *)
+              susyBetaFunctions = { SARAH`BetaLijkl,
+                                    SARAH`BetaWijkl,
+                                    SARAH`BetaYijk ,
+                                    SARAH`BetaMuij ,
+                                    SARAH`BetaLi   ,
+                                    SARAH`BetaGauge,
+                                    SARAH`BetaVEV  };
+
+              (* pick beta functions of non-supersymmetric parameters *)
+              susyBreakingBetaFunctions = { SARAH`BetaQijkl,
+                                            SARAH`BetaTijk ,
+                                            SARAH`BetaBij  ,
+                                            SARAH`BetaLSi  ,
+                                            SARAH`Betam2ij ,
+                                            SARAH`BetaMi   ,
+                                            SARAH`BetaDGi  };
+              ,
+              (* pick beta functions of dimensionless parameters *)
+              susyBetaFunctions = { SARAH`BetaGauge,
+                                    SARAH`BetaLijkl, (* quartic scalar interactions *)
+                                    SARAH`BetaYijk };
+
+              (* pick beta functions of dimensionfull parameters *)
+              susyBreakingBetaFunctions = { SARAH`BetaTijk, (* cubic scalar interactions *)
+                                            SARAH`BetaMuij, (* bilinear fermion term *)
+                                            SARAH`BetaBij , (* bilinear scalar term *)
+                                            SARAH`BetaLi  , (* linear scalar term *)
+                                            SARAH`BetaVEV };
+             ];
 
            susyBetaFunctions = BetaFunction`ConvertSarahRGEs[susyBetaFunctions];
            susyBetaFunctions = Select[susyBetaFunctions, (BetaFunction`GetAllBetaFunctions[#]!={})&];