From 07e662a0efe878e7536c09c11032d51fad3dc7d4 Mon Sep 17 00:00:00 2001
From: sergio <sergio>
Date: Mon, 6 Nov 2017 09:04:15 -0800
Subject: [PATCH] BUG: Correcting adimensional formulation for
 fanPressureFvPatchScalarField

---
 .../derived/fanPressure/fanPressureFvPatchScalarField.C       | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/finiteVolume/fields/fvPatchFields/derived/fanPressure/fanPressureFvPatchScalarField.C b/src/finiteVolume/fields/fvPatchFields/derived/fanPressure/fanPressureFvPatchScalarField.C
index 9719903efc..c76ee572bc 100644
--- a/src/finiteVolume/fields/fvPatchFields/derived/fanPressure/fanPressureFvPatchScalarField.C
+++ b/src/finiteVolume/fields/fvPatchFields/derived/fanPressure/fanPressureFvPatchScalarField.C
@@ -181,7 +181,7 @@ void Foam::fanPressureFvPatchScalarField::updateCoeffs()
     {
         // Create an adimensional flow rate
         volFlowRate =
-            120.0*volFlowRate/pow3(constant::mathematical::pi)/pow3(dm_);
+            120.0*volFlowRate/pow3(constant::mathematical::pi)/pow3(dm_)/rpm_;
     }
 
     // Pressure drop for this flow rate
@@ -190,7 +190,7 @@ void Foam::fanPressureFvPatchScalarField::updateCoeffs()
     if (nonDimensional_)
     {
         // Convert the adimensional deltap from curve into deltaP
-        pdFan = pdFan*pow4(constant::mathematical::pi)*rpm_*sqr(dm_)/1800;
+        pdFan = pdFan*pow4(constant::mathematical::pi)*sqr(dm_*rpm_)/1800;
     }
 
     totalPressureFvPatchScalarField::updateCoeffs