diff --git a/SorpLib/Applications/AdsorptionChillers/ChillerTwoBed1.mo b/SorpLib/Applications/AdsorptionChillers/ChillerTwoBed1.mo
index b83ce541bba76b033016a4801536a18369a9540f..2c07833a7c7414d1a4d1b53eb938fbd7f29d592b 100644
--- a/SorpLib/Applications/AdsorptionChillers/ChillerTwoBed1.mo
+++ b/SorpLib/Applications/AdsorptionChillers/ChillerTwoBed1.mo
@@ -113,11 +113,6 @@ model ChillerTwoBed1
     nCells=10,
     massCasing=2,
     redeclare model WallMaterial_casing = TILMedia.SolidTypes.TILMedia_Steel,
-    redeclare model HeatTransferModel_HX =
-        Components.HeatTransfer.HeatTransferPhenomena.ConstantAlphaA (
-          constantAlphaA=150),
-    redeclare model TubeSideHeatTransferModel =
-        Internals.AdditionalTransferPhenomena.HeatTransfer_insideTube.SiederTate,
     redeclare model PressureDropModel =
         TIL.LiquidComponents.Tubes.TransportPhenomena.PressureDrop.ZeroPressureDrop,
     includeDefaultSummary=true,
@@ -129,6 +124,12 @@ model ChillerTwoBed1
     redeclare model AdsorbentAdsorbateModel =
         Media.AdsorbentAdsorbate.SilgelGrace123WaterSchawe,
     characteristicCurve=SorpLib.Internals.Types.CharacteristicCurve.Inverse,
+    redeclare model HeatTransferModel_HX =
+        Components.HeatTransfer.HeatTransferPhenomena.ConstantAlphaA (
+          constantAlphaA=150),
+    redeclare model TubeSideHeatTransferModel =
+        Internals.AdditionalTransferPhenomena.HeatTransfer_insideTube.SiederTate,
+
     TInitial=303.15,
     hx_TInitialCell1=303.15,
     hx_TInitialCelln=303.15,
diff --git a/SorpLib/Media/Functions/CharCurve1Arctan_dAdW.mo b/SorpLib/Media/Functions/CharCurve1Arctan_dAdW.mo
index c2f226f81c0944c1171badc61fd3670fb5ffdebc..353958b1f1a77dd506a7138e958046907f25cdbd 100644
--- a/SorpLib/Media/Functions/CharCurve1Arctan_dAdW.mo
+++ b/SorpLib/Media/Functions/CharCurve1Arctan_dAdW.mo
@@ -17,7 +17,7 @@ algorithm
       AssertionLevel.error else AssertionLevel.warning);
   end if;
 
-  dAdW := c[3]/
+  dAdW := c[3]*Modelica.Constants.pi/c[1]/
     (cos((W-c[4])/c[1]*Modelica.Constants.pi-Modelica.Constants.pi/2))^2;
 
   annotation (smoothOrder=2,