Minor Bug fixes

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,

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,