From 183fe6d26cc8429cef7fcccbe03f2692bd4bdb59 Mon Sep 17 00:00:00 2001
From: Henrik Tidefelt <henrikt@wolfram.com>
Date: Thu, 6 Apr 2023 07:14:11 +0200
Subject: [PATCH] Fix unit error in CCCVcharging

---
 Modelica/Electrical/Batteries/Examples/CCCVcharging.mo | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Modelica/Electrical/Batteries/Examples/CCCVcharging.mo b/Modelica/Electrical/Batteries/Examples/CCCVcharging.mo
index 966351b911..87de7822fd 100644
--- 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(