diff --git a/applications/solvers/heatTransfer/chtMultiRegionFoam/chtMultiRegionSimpleFoam/solid/createSolidFields.H b/applications/solvers/heatTransfer/chtMultiRegionFoam/chtMultiRegionSimpleFoam/solid/createSolidFields.H
index 3361a89add..8f109a3f82 100644
--- a/applications/solvers/heatTransfer/chtMultiRegionFoam/chtMultiRegionSimpleFoam/solid/createSolidFields.H
+++ b/applications/solvers/heatTransfer/chtMultiRegionFoam/chtMultiRegionSimpleFoam/solid/createSolidFields.H
@@ -1,7 +1,6 @@
     // Initialise solid field pointer lists
     PtrList<volScalarField> rhos(solidRegions.size());
     PtrList<volScalarField> cps(solidRegions.size());
-    PtrList<volScalarField> rhosCps(solidRegions.size());
     PtrList<volScalarField> Ks(solidRegions.size());
     PtrList<volScalarField> Ts(solidRegions.size());
 
@@ -47,12 +46,6 @@
             )
         );
 
-        rhosCps.set
-        (
-            i,
-            new volScalarField("rhosCps", rhos[i]*cps[i])
-        );
-
         Info<< "    Adding to Ks\n" << endl;
         Ks.set
         (
diff --git a/applications/solvers/heatTransfer/chtMultiRegionFoam/solid/createSolidFields.H b/applications/solvers/heatTransfer/chtMultiRegionFoam/solid/createSolidFields.H
index 3361a89add..8f109a3f82 100644
--- a/applications/solvers/heatTransfer/chtMultiRegionFoam/solid/createSolidFields.H
+++ b/applications/solvers/heatTransfer/chtMultiRegionFoam/solid/createSolidFields.H
@@ -1,7 +1,6 @@
     // Initialise solid field pointer lists
     PtrList<volScalarField> rhos(solidRegions.size());
     PtrList<volScalarField> cps(solidRegions.size());
-    PtrList<volScalarField> rhosCps(solidRegions.size());
     PtrList<volScalarField> Ks(solidRegions.size());
     PtrList<volScalarField> Ts(solidRegions.size());
 
@@ -47,12 +46,6 @@
             )
         );
 
-        rhosCps.set
-        (
-            i,
-            new volScalarField("rhosCps", rhos[i]*cps[i])
-        );
-
         Info<< "    Adding to Ks\n" << endl;
         Ks.set
         (
diff --git a/applications/solvers/heatTransfer/chtMultiRegionFoam/solid/solidRegionDiffusionNo.H b/applications/solvers/heatTransfer/chtMultiRegionFoam/solid/solidRegionDiffusionNo.H
index c2e5668a68..4b09671de2 100644
--- a/applications/solvers/heatTransfer/chtMultiRegionFoam/solid/solidRegionDiffusionNo.H
+++ b/applications/solvers/heatTransfer/chtMultiRegionFoam/solid/solidRegionDiffusionNo.H
@@ -8,7 +8,7 @@
             (
                 solidRegions[regionI],
                 runTime,
-                rhosCps[regionI],
+                rhos[regionI]*cps[regionI],
                 Ks[regionI]
             ),
             DiNum