From b845ccbae5e9b5c771fa7eba04c60d7a9af6cebf Mon Sep 17 00:00:00 2001
From: Ian Bell <ian.h.bell@gmail.com>
Date: Sat, 24 May 2014 17:57:51 +0200
Subject: [PATCH] R125 conductivity - not exactly the same as REFPROP - why?
 But error with REFPROP max of 1.2%

Signed-off-by: Ian Bell <ian.h.bell@gmail.com>
---
 dev/fluids/R125.json         | 75 ++++++++++++++++++++++++++++++++++++
 src/Tests/CoolProp-Tests.cpp |  2 +
 2 files changed, 77 insertions(+)

diff --git a/dev/fluids/R125.json b/dev/fluids/R125.json
index 49a8827f..0ebd10a6 100644
--- a/dev/fluids/R125.json
+++ b/dev/fluids/R125.json
@@ -302,6 +302,81 @@
   ], 
   "NAME": "R125", 
   "TRANSPORT": {
+    "conductivity": {
+      "BibTeX": "Perkins-JCED-2006", 
+      "critical": {
+        "GAMMA": 0.0496, 
+        "R0": 1.03, 
+        "gamma": 1.239, 
+        "qD": 1713900000.0, 
+        "type": "simplified_Olchowy_Sengers", 
+        "zeta0": 1.94e-10
+      }, 
+      "dilute": {
+        "A": [
+          -0.0046082, 
+          0.0168688, 
+          0.00488345
+        ], 
+        "B": [
+          1.0
+        ], 
+        "T_reducing": 339.173, 
+        "T_reducing_units": "K", 
+        "m": [
+          0
+        ], 
+        "n": [
+          0, 
+          1, 
+          2
+        ], 
+        "type": "ratio_of_polynomials"
+      }, 
+      "residual": {
+        "B": [
+          -0.0072941, 
+          0.0110497, 
+          0.0416339, 
+          -0.0289236, 
+          -0.0311487, 
+          0.0278399, 
+          0.0112682, 
+          -0.01211, 
+          -0.00138322, 
+          0.00211196
+        ], 
+        "T_reducing": 339.17, 
+        "T_reducing_units": "K", 
+        "d": [
+          1, 
+          1, 
+          2, 
+          2, 
+          3, 
+          3, 
+          4, 
+          4, 
+          5, 
+          5
+        ], 
+        "rhomass_reducing": 573.5822706, 
+        "rhomass_reducing_units": "kg/m^3", 
+        "t": [
+          0, 
+          -1, 
+          0, 
+          -1, 
+          0, 
+          -1, 
+          0, 
+          -1, 
+          0, 
+          -1
+        ], 
+        "type": "polynomial"
+      }
+    }, 
     "viscosity": {
       "BibTeX": "Huber-IECR-2006", 
       "dilute": {
diff --git a/src/Tests/CoolProp-Tests.cpp b/src/Tests/CoolProp-Tests.cpp
index 0ca4e73b..fd676f93 100644
--- a/src/Tests/CoolProp-Tests.cpp
+++ b/src/Tests/CoolProp-Tests.cpp
@@ -305,6 +305,8 @@ vel("ParaHydrogen", "T", 35, "Dmass", 30, "L", 70.335e-3, 1e-4),
 vel("ParaHydrogen", "T", 18, "Dmass", 1e-13, "L", 13.643e-3, 1e-4),
 vel("ParaHydrogen", "T", 18, "Dmass", 75, "L", 100.52e-3, 1e-4),*/
 
+vel("R125", "T", 341, "Dmass", 600, "L", 0.056564297849487, 2e-2),
+vel("R125", "T", 200, "Dmass", 1e-13, "L", 0.007036843623086, 2e-2),
 
 };