From d22ba2b63388c5d63430268223a3c5337b46deee Mon Sep 17 00:00:00 2001
From: andy <andy>
Date: Tue, 4 Dec 2012 17:09:57 +0000
Subject: [PATCH] ENH: Film radiation - added absorptivity

---
 .../filmRadiationModel/constantRadiation/constantRadiation.C   | 3 ++-
 .../filmRadiationModel/constantRadiation/constantRadiation.H   | 3 +++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/regionModels/surfaceFilmModels/submodels/thermo/filmRadiationModel/constantRadiation/constantRadiation.C b/src/regionModels/surfaceFilmModels/submodels/thermo/filmRadiationModel/constantRadiation/constantRadiation.C
index bb1b6c294f4..f7e1b821432 100644
--- a/src/regionModels/surfaceFilmModels/submodels/thermo/filmRadiationModel/constantRadiation/constantRadiation.C
+++ b/src/regionModels/surfaceFilmModels/submodels/thermo/filmRadiationModel/constantRadiation/constantRadiation.C
@@ -82,6 +82,7 @@ constantRadiation::constantRadiation
         owner.regionMesh(),
         dimensionedScalar("one", dimless, 1.0)
     ),
+    absorptivity_(readScalar(coeffs_.lookup("absorptivity"))),
     timeStart_(readScalar(coeffs_.lookup("timeStart"))),
     duration_(readScalar(coeffs_.lookup("duration")))
 {
@@ -129,7 +130,7 @@ tmp<volScalarField> constantRadiation::Shs()
         const scalarField& Qr = QrConst_.internalField();
         const scalarField& alpha = owner_.alpha().internalField();
 
-        Shs = mask_*Qr*alpha;
+        Shs = mask_*Qr*alpha*absorptivity_;
     }
 
     return tShs;
diff --git a/src/regionModels/surfaceFilmModels/submodels/thermo/filmRadiationModel/constantRadiation/constantRadiation.H b/src/regionModels/surfaceFilmModels/submodels/thermo/filmRadiationModel/constantRadiation/constantRadiation.H
index 06e6fe676b2..911d53e461a 100644
--- a/src/regionModels/surfaceFilmModels/submodels/thermo/filmRadiationModel/constantRadiation/constantRadiation.H
+++ b/src/regionModels/surfaceFilmModels/submodels/thermo/filmRadiationModel/constantRadiation/constantRadiation.H
@@ -68,6 +68,9 @@ private:
         //- Radiation mask
         volScalarField mask_;
 
+        //- Absorptivity
+        scalar absorptivity_;
+
         //- Time start [s]
         const scalar timeStart_;
 
-- 
GitLab