Fix unit error in CCCVcharging

pierre-haessig · Apr 6, 2023 · 183fe6d · 183fe6d
1 parent 64b1f57
commit 183fe6d
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Modelica/Electrical/Batteries/Examples/CCCVcharging.mo b/Modelica/Electrical/Batteries/Examples/CCCVcharging.mo
@@ -2,10 +2,13 @@ within Modelica.Electrical.Batteries.Examples;
 model CCCVcharging
   "Charge a battery with constant current - constant voltage characteristic"
   extends Modelica.Icons.Example;
+protected
+  parameter Modelica.Units.SI.Current RiCurrent = 1200 "Current relating OCVmax to Ri in cellData";
+public
   parameter Modelica.Electrical.Batteries.ParameterRecords.TransientData.ExampleData cellData(
     Qnom=18000,
     useLinearSOCDependency=false,
-    Ri=cellData.OCVmax/1200,
+    Ri=cellData.OCVmax/RiCurrent,
     Idis=0.001)
     annotation (Placement(transformation(extent={{20,-20},{40,0}})));
   Modelica.Electrical.Batteries.BatteryStacks.CellRCStack battery(